Герои против стражей кладов

heros = {
     {"Европеец",6,12}, -- hand attack, range attack
     {"Ирокез",6,12},
     {"Ацтек",6},
     {"Сиу",6},
     {"Японец",4,8},
     {"Индиец",4},
     {"Китаец",7},
     {"Ученик",10,_,1.2}
}

function attack(name,hp,r,type) -- имя (name), здоровье (health), сопростивление (r) в %, "hand" - сопротивление ручным атакам или стрелковым - "range"
     print("<tr>")
     print(" <td>"..name.."</td>")
     for _,x in pairs(heros) do
     local i; if x[4] then i = x[4] else i = 3 end
     local hand = x[2]*i
     local rifl; if x[3] then rifl = x[3]*i end
     if type then
     if type == "hand" then hand = hand * (1-r/100) end
     if type == "range" then if rifl then rifl = rifl * (1-r/100) end end
     end
     print(" <td>"..math.ceil(hp/hand).."</td>  <!--"..x[1].."-->")
     if rifl then print(" <td>"..math.ceil(hp/rifl).."</td>  <!--"..x[1].."-->") end
     end
     print("</tr>")
end

attack("Орангутан",180)
attack("Варан",125)
attack("Тигр",210)
attack("Панда",350)
attack("Слепой монах",225,30,"range")
attack("Рино",500)
attack("Душитель",500,30,"range")
attack("Свободный самурай",400,30,"hand")
attack("Наездник монгол",450,30,"range")
attack("Контрабандист",300,30,"hand")
attack("Белый тигр",225)
attack("Тибетская макака",75)
attack("Беглец преступник",250,30,"range")
attack("Снежный леопард",175)
attack("Львинохвостая макака",60)