# atakA1
if $ARGS[0]='atak':
cla
!payment hit dodge
set poSp = speedV*20/100
set uvAg = agil*20/100
set poBox = reactV*20/100
set uvBox = react*20/100
set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp) + bonusShV
set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+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=red>Critical hits</font></B>'
         xgt'atakA1','uronKrit'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         !attack the enemy
         '<B><font color=red>EYE</font></B>'
         xgt'atakA1','uron'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKrit':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV+damKoef,damTipV+damKoef*2)
     if damTipMV > 0:
     set damKoefM = damTipMV*20/100 
     set damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2)
     end
xgt'atakA1','damage'
end

if $ARGS[0]='uron':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV-damKoef,damTipV+damKoef)
     if damTipMV > 0:
     set damKoefM = damTipMV*20/100 
     set damageM = RAND(damTipMV-damKoefM,damTipMV+damKoefM)
     end
xgt'atakA1','damage'
end

if $ARGS[0]='damage':
cla   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
         if hidanAtk = 1:
         set hidanAtk = 0
         set zerkaloV = zerkaloV + 50
         set bloodV = bloodV + 50
         '<B><font color=red><<$nameV>> drink your blood.</font></B>'
         end
         if damTipMV > 0:
         set manna = manna - damageM
         set manna = manna + damageM
         '<B><font color=red><<$nameV>> swallowed <<damageM>> units of mana you.</font></B>'
         end
         if poisonAV = 1:
         set poisonV = 50
         '<B><font color=red><<$nameV>> hit needle poisoned you.</font></B>'
         end
     !Set manna = manna - damageM
         if eleShV > 0:
         set stun = RAND (eleShV,eleShV*3)
         '<B><font color=red>You paralyzed on <<stunV>> Rounds</font></B>'
         end
     '<B><font color=red><<$nameV>> damage caused to you <<damage>> units</font></B>'
     
     !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set healthV = healthV - damage
         '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     !set damSum = damage + damageM
     !Set defence = defence - damSum
     Set defence = defence - damage
     '<B><font color=red>Your defense harmed <<damage>> units</font></B>'
     xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=red>Destroy your clone</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=green>Beat the enemy passed through you. YOU are not material</font></B>'
     xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         !Set manna = manna - damageM
         !Set health = health - damage
         Set health = health - damage
             if damTipM > 0:
			 set manna = manna - damageM
			 set mannaV = mannaV + damageM
			 '<B><font color=green>you swallowed <<damageM>> manna enemy units.</font></B>'
			 end
             if eleShV > 0:
			 set stun = RAND (eleShV,eleShV*3)
			 '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
			 end
			 if poisonAV = 1:
			 set poisonV = 50
			 '<B><font color=red><<$nameV>> hit needle poisoned you.</font></B>'
			 end
         '<B><font color=red>You have caused damage <<damage>> units</font></B>'
         !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=green>You have reflected the damage and the enemy was <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end

if $ARGS[0]='atakW':
cla
!payment hit dodge
set poSp = speedV*20/100
set uvAg = agil*20/100
set poBox = reactV*20/100
set uvBox = react*20/100
set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp)
set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+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=red>Critical hits</font></B>'
         xgt'atakA1','uronKritW'
         end
         
         if popad < uvorot+uvorKoef:
         !normal hit
         '<B><font color=red>EYE</font></B>'
         xgt'atakA1','uronW'
         end
     end
     
     if popad <= uvorot:
     '<B><font color=green>LOST</font></B>'
     xgt'fight','sta'
     end
end


if $ARGS[0]='uronKritW':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV+damKoef,damTipV+damKoef*2)
set damKoefM = damTipMV*20/100 
set damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2)
xgt'atakA1','damageW'
end

if $ARGS[0]='uronW':
cla
set damKoef = damTipV*20/100 
set damage = RAND(damTipV-damKoef,damTipV+damKoef)
set damKoefM = damTipMV*20/100 
set damageM = RAND(damTipMV-damKoefM,damTipMV+damKoefM)
xgt'atakA1','damageW'
end

if $ARGS[0]='damageW':
cla   
     if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
     if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
     if damage < 0:set damage = 0
     Set health = health - damage
     Set manna = manna - damageM
     '<B><font color=green>You harmed <<damage>> units</font></B>'
     '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
         if zerkalo > 0:
         set zerkalo = zerkalo - 1
         set health = health - damage
         '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
         end
     xgt'fight','sta'
     end
     
     if defence > 0 and klon <= 0 and unmaterial <= 0:
     set damSum = damage + damageM
     Set defence = defence - damSum
     !Set defenceV = defenceV - damage
     '<B><font color=green>You have caused damage <<damSum>> Protection of enemy units</font></B>'
     xgt'fight','sta'
     end
     
     if klon > 0 and unmaterial <= 0:
     set klon = klon - 1
     '<B><font color=green>Destroyed enemy clone</font></B>'
     xgt'fight','sta'
     end
     
     if unmaterial > 0:
     set unmaterial = unmaterial - 1
     '<B><font color=red>Your blow has passed through the body of the enemy. Opponents do not materials</font></B>'
     xgt'fight','sta'
     end
     
     if barier > 0:
     !imeniteta barrier for damage
         if barier >= damage:
         '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
         xgt'fight','sta'
         end
         if barier < damage:
         Set manna = manna - damageM
         Set health = health - damage
         !Set healthV = healthV - damage
         '<B><font color=green>You have caused damage <<damage>> units</font></B>'
         '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
             if zerkalo > 0:
             set zerkalo = zerkalo - 1
             set healthV = healthV - damage
             '<B><font color=red>Opponent reflected damage and you got <<damage>> points of damage</font></B>'
             end
         end
     xgt'fight','sta'
     end

end




--- atakA1 ---------------------------------

