--параметры испытаний
iterations          = 200000; -- итерации
limit_step_count    = 1000; -- число попыток, если не убили за него, то ничья
distance = 60; --расстояние между противниками

-- структура у всех объектов ОБЯЗАНА быть одинаковой
-- объекты персонажей

-- Лучник
local archer = {
    health            = 600,
    damage            = 10,
    chance_to_hit     = 0.35,
    chance_to_crit    = 0.25,
    chance_to_save    = 0.4,
    attack_speed      = 2,
    chance_to_reduce  = 0.5,
    win               = 0,
    lose              = 0,
    nobody            = 0
};

-- Воин
local warrior = {
    health            = 800,
    damage            = 25,
    chance_to_hit     = 0.1,
    chance_to_crit    = 0.25,
    chance_to_save    = 0.4,
    attack_speed      = 1,
    chance_to_reduce  = 0.5,
    win               = 0,
    lose              = 0,
    nobody            = 0
};

-- генератор случайных чисел
math.randomseed(os.time());

local function is_attack(chance_attack)
    local chance = math.random();
    return chance_attack > chance;
end

local function reset_player(archer, warrior)
    
    archer.health = 600;
    warrior.health = 800;
    
    return archer, warrior;
end

local function get_win(archer, warrior, count_step, limit_step)
    
    local win = {
        archer  = false,
        warrior = false,
        nobody  = false
    };
    
    -- победа воина
    if (archer.health <= 0) then
        win.warrior = true;
        return win;
    end
    
    -- победа лучника
    if (warrior.health <= 0) then
        win.archer = true;
        return win;
    end
    
    if (limit_step == count_step) then
        win.nobody = true
        return win;
    end
    
    return win;
end

local count_step = 0;

for count_iterations = 0, iterations do
    
    count_step = count_step + 1;
    
    -- (попытка) бьет лучник
    if (is_attack(archer.chance_to_hit)) then
        warrior.health = warrior.health - (2 * archer.damage - 7);
    end
    
    -- (попытка) бьет воин
    if (is_attack(warrior.chance_to_hit)) then
        -- (попытка) спас-бросок
        if (math.random() < warrior.chance_to_reduce) then
            archer.health = archer.health - (2 * warrior.damage - 7);
        else
            archer.health = archer.health - warrior.damage;
        end
    end
    
    -- проверяем, кто победил
    local win = get_win(archer, warrior, count_step, limit_step_count);
    
    -- записываем результат
    if (win.archer) then
        archer.win = archer.win + 1;
        warrior.lose = warrior.lose + 1;
        
        archer, warrior = reset_player(archer, warrior);
    end
    
    if (win.warrior) then
        warrior.win = warrior.win + 1;
        archer.lose = archer.lose + 1;
        
        archer, warrior = reset_player(archer, warrior);
    end
    
    if (win.nobody) then
        archer.nobody = archer.nobody + 1;
        warrior.nobody = warrior.nobody + 1;

        count_step = 0;
        archer, warrior = reset_player(archer, warrior);
    end
end

local function calc_win_rate(win, lose, nobody)
    if (win > 0) then
        local all_battle = win + lose + nobody;
        local k = win / all_battle;
        return math.floor(k * 100);
    else
        return 0;
    end
end

print("Archer: \n");
local win_rate = " (" .. calc_win_rate(archer.win, archer.lose, archer.nobody) .. "%)";
print("\tCount win: " .. archer.win .. win_rate );
print("\tCount lose: " .. archer.lose);
print("\tCount nobody: " .. archer.nobody);

win_rate = " (" .. calc_win_rate(warrior.win, warrior.lose, warrior.nobody) .. "%)";
print("Warior: \n");
print("\tCount win: " .. warrior.win .. win_rate );
print("\tCount lose: " .. warrior.lose);
print("\tCount nobody: " .. warrior.nobody);

Archer:

    Count win: 609 (47%)
    Count lose: 604
    Count nobody: 70
Warior:

    Count win: 604 (47%)
    Count lose: 609
    Count nobody: 70