# atakA1 if $ARGS[0] = 'atak': cla !payment hit dodge poSp = speedV*20/100 uvAg = pcs_agil*20/100 poBox = reactV*20/100 uvBox = react*20/100 popad = RAND(reactV-poBox,reactV+poBox) + RAND(speedV-poSp,speedV+poSp) + bonusShV uvorot = RAND(react-uvBox,react+uvBox) + RAND(pcs_agil-uvAg,pcs_agil+uvAg) uvorKoef = uvorot*50/100 popKoef = popad*50/100 if popad > uvorot: if popad >= uvorot+uvorKoef: !Crete, very direct hit 'Critical hits' xgt'atakA1','uronKrit' elseif popad < uvorot+uvorKoef: !Normal hit !He attacks the enemy 'EYE' xgt'atakA1','uron' end elseif popad <= uvorot: 'LOST' xgt'fight','sta' end end if $ARGS[0] = 'uronKrit': cla damKoef = damTipV*20/100 damage = RAND(damTipV+damKoef,damTipV+damKoef*2) if damTipMV > 0: damKoefM = damTipMV*20/100 damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2) end xgt'atakA1','damage' end if $ARGS[0] = 'uron': cla damKoef = damTipV*20/100 damage = RAND(damTipV-damKoef,damTipV+damKoef) if damTipMV > 0: damKoefM = damTipMV*20/100 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:damage = damage - dospehDef & dospehEn = dospehEn - 1 if damage < 0:damage = 0 health = health - damage if hidanAtk = 1: hidanAtk = 0 zerkaloV = zerkaloV + 50 bloodV = bloodV + 50 '<<$boydesc>> drink your blood.' end if damTipMV > 0: manna = manna - damageM manna = manna + damageM '<<$boydesc>> swallowed <> Units manna you.' end if poisonAV = 1: poisonV = 50 '<<$boydesc>> hit the needle poisoned you.' end !manna = manna - damageM if eleShV > 0: stun = RAND(eleShV,eleShV*3) 'You paralyzed on <> Rounds' end '<<$boydesc>> Damage caused to you <> units' !'Your manna harmed <> units' if zerkalo > 0: zerkalo = zerkalo - 1 healthV = healthV - damage 'You are repelled and the damage <<$boydesc>> got a <> points of damage' end xgt'fight','sta' end if defence > 0 and klon <= 0 and unmaterial <= 0: !damSum = damage + damageM !defence = defence - damSum defence = defence - damage 'Your protection harmed <> units' xgt'fight','sta' end if klon > 0 and unmaterial <= 0: klon = klon - 1 'It destroys your clone' xgt'fight','sta' end if unmaterial > 0: unmaterial = unmaterial - 1 'Beat the enemy passed through you. YOU are not material' xgt'fight','sta' end if barier > 0: !imeniteta barrier for damage if barier >= damage: 'You can easily withstand the impact of the enemy' xgt'fight','sta' elseif barier < damage: !manna = manna - damageM !health = health - damage health = health - damage if damTipM > 0: manna = manna - damageM mannaV = mannaV + damageM 'You swallowed <> manna enemy units.' end if eleShV > 0: stun = RAND(eleShV,eleShV*3) '<<$boydesc>> paralyzed <> Rounds' end if poisonAV = 1: poisonV = 50 '<<$boydesc>> hit the needle poisoned you.' end 'You have caused damage <> units' !'Your manna harmed <> units' if zerkalo > 0: zerkalo = zerkalo - 1 healthV = healthV - damage 'You have reflected the damage and the opponent was <> points of damage' end end xgt'fight','sta' end end if $ARGS[0] = 'atakW': cla !payment hit dodge poSp = speedV*20/100 uvAg = pcs_agil*20/100 poBox = reactV*20/100 uvBox = react*20/100 popad = RAND(reactV-poBox,reactV+poBox) + RAND(speedV-poSp,speedV+poSp) uvorot = RAND(react-uvBox,react+uvBox) + RAND(pcs_agil-uvAg,pcs_agil+uvAg) uvorKoef = uvorot*50/100 popKoef = popad*50/100 if popad > uvorot: if popad >= uvorot+uvorKoef: !Crete, very direct hit 'Critical hits' xgt'atakA1','uronKritW' elseif popad < uvorot+uvorKoef: !Normal hit 'EYE' xgt'atakA1','uronW' end elseif popad <= uvorot: 'LOST' xgt'fight','sta' end end if $ARGS[0] = 'uronKritW': cla damKoef = damTipV*20/100 damage = RAND(damTipV+damKoef,damTipV+damKoef*2) damKoefM = damTipMV*20/100 damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2) xgt'atakA1','damageW' end if $ARGS[0] = 'uronW': cla damKoef = damTipV*20/100 damage = RAND(damTipV-damKoef,damTipV+damKoef) damKoefM = damTipMV*20/100 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:damage = damage - dospehDef & dospehEn = dospehEn - 1 if damage < 0:damage = 0 health = health - damage manna = manna - damageM 'You harmed <> units' 'You have caused damage to the enemy manna <> units' if zerkalo > 0: zerkalo = zerkalo - 1 health = health - damage '<<$boydesc>> reflected the damage and you get <> points of damage' end xgt'fight','sta' end if defence > 0 and klon <= 0 and unmaterial <= 0: damSum = damage + damageM defence = defence - damSum !defenceV = defenceV - damage 'You have caused damage <> Protection of enemy units' xgt'fight','sta' end if klon > 0 and unmaterial <= 0: klon = klon - 1 'Destroyed enemy clone' xgt'fight','sta' end if unmaterial > 0: unmaterial = unmaterial - 1 'Your blow has passed through the body of the enemy. Opponents do not materials' xgt'fight','sta' end if barier > 0: !imeniteta barrier for damage if barier >= damage: '<<$boydesc>> easily weathered blow your' xgt'fight','sta' elseif barier < damage: manna = manna - damageM health = health - damage !healthV = healthV - damage 'You have caused damage <> units' 'You have caused damage to the enemy manna <> units' if zerkalo > 0: zerkalo = zerkalo - 1 healthV = healthV - damage 'Opponent reflected damage and you get <> points of damage' end end xgt'fight','sta' end end --- atakA1 ---------------------------------