# atakB
if $ARGS[0]='atak':
cla
!payment hit dodge
set poSp = speed*20/100
set uvAg = agilV*20/100
set poBox = react*20/100
set uvBox = reactV*20/100
set popad = RAND (react-poBox,react+poBox) + RAND (speed-poSp,speed+poSp) + bonusSh
set uvorot = RAND (reactV-uvBox,reactV+uvBox) + RAND (agilV-uvAg,agilV+uvAg)
set uvorKoef = uvorot*50/100
set popKoef = popad*50/100
     if popad > uvorot:
         if popad >= uvorot+uvorKoef:
         !Crete, very direct hit
         '<B><font color=green>Critical hits</font></B>'
         gs'atakB','uronKrit'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=green>EYE</font></B>'
         gs'atakB','uron'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=red>LOST</font></B>'
     end
end


if $ARGS[0]='uronKrit':
cla
set damDef = defence/100
set damKoef = damDef*20/100 
set damage = RAND(damDef+damKoef,damDef+damKoef*2)
gs'atakB','damage'
end

if $ARGS[0]='uron':
cla
set damDef = defence/100
set damKoef = damDef*20/100 
set damage = RAND(damDef-damKoef,damDef+damKoef)
gs'atakB','damage'
end

if $ARGS[0]='damage':
cla   
     if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
     if dospehV > 0:set damageV = damageV - dospehDefV&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set healthV = healthV - damage
     !Set manna = manna - damageM
         if eleSh > 0:
         set stunV = RAND (eleSh,eleSh*3)
         '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
         end
     '<B><font color=green>You have caused damage <<damage>> units</font></B>'
     !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkaloV > 0:
         set zerkaloV = zerkaloV - 1
         set defence = defence - damage
         '<B><font color=red><<$nameV>> reflected the damage and your defense received <<damage>> points of damage</font></B>'
         end
     !xgt'fight','sta'
     end
     
     if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
     !set damSum = damage + damageM
     !Set defence = defence - damSum
     Set defenceV = defenceV - damage
     '<B><font color=green>Your defense caused damage <<damage>> Protection of enemy units</font></B>'
     !xgt'fight','sta'
     end
     
     if klonV > 0 and unmaterialV <= 0:
     set klonV = klonV - 1
     '<B><font color=green>Destroyed enemy clone</font></B>'
     !xgt'fight','sta'
     end
     
     if unmaterialV > 0:
     set unmaterialV = unmaterialV - 1
     '<B><font color=red>Blow your protection passed through the body of the enemy. Opponents do not materials</font></B>'
     !xgt'fight','sta'
     end
     
     if barierV > 0:
     !imeniteta barrier for damage
         if barierV >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your protection</font></B>'
         !xgt'fight','sta'
         end
         if barierV < damage:
         !Set manna = manna - damageM
         !Set health = health - damage
         Set healthV = healthV - damage
             if eleSh > 0:
			 set stunV = RAND (eleSh,eleSh*3)
			 '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
			 end
         '<B><font color=green>Your defense caused damage <<damage>> units</font></B>'
         !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkaloV > 0:
             set zerkaloV = zerkaloV - 1
             set defence = defence - damage
             '<B><font color=red>Opponent reflected damage and your defense received <<damage>> points of damage</font></B>'
             end
         end
     !xgt'fight','sta'
     end

end





--- atakB ---------------------------------

