123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526 |
- # atakA1
- <<<<<<< 052_atakA1
- if $ARGS[0] = 'atak':
- cla
- !расчет попадания уворота
- 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:
- !крит, очень точное попадание
- '<B><font color = red>critical hits</font></B>'
- xgt 'atakA1','uronKrit'
- end
- if popad < uvorot+uvorKoef:
- !нормальное попадание
- !атаковал противник
- '<B><font color = red>Contact</font></B>'
- xgt 'atakA1','uron'
- end
- end
- if popad <= uvorot:
- '<B><font color = green>is washed</font></B>'
- xgt 'fight','sta'
- end
- =======
- 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
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- 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'
- =======
- 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'
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- 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'
- =======
- 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'
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- if $ARGS[0] = 'damage':
- cla
- if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
- if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
- if damage < 0: set damage = 0
- Set health -= damage
- if hidanAtk = 1:
- set hidanAtk = 0
- set zerkaloV += 50
- set bloodV += 50
- '<B><font color = red><<$nameV>> drink your blood.</font></B>'
- end
- if damTipMV > 0:
- set manna -= damageM
- set manna += damageM
- '<B><font color = red><<$nameV>> absorbed <<damageM>> units of manna you.</font></B>'
- end
- if poisonAV = 1:
- set poisonV = 50
- '<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
- end
- !Set manna -= damageM
- if eleShV > 0:
- set stun = RAND(eleShV, eleShV * 3)
- '<B><font color = red>You are paralyzed <<stunV>> rounds</font></B>'
- end
- '<B><font color = red><<$nameV>> damage caused you <<damage>> units</font></B>'
- !'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
- if zerkalo > 0:
- set zerkalo -= 1
- set healthV -= damage
- '<B><font color = green>You are repelled 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 -= damSum
- Set defence -= damage
- '<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
- xgt 'fight','sta'
- end
- if klon > 0 and unmaterial <= 0:
- set klon -= 1
- '<B><font color = red>destroy your clone</font></B>'
- xgt 'fight','sta'
- end
- if unmaterial > 0:
- set unmaterial -= 1
- '<B><font color = green>Strike the enemy passed through you. YOU is not material</font></B>'
- xgt 'fight','sta'
- end
- if barier > 0:
- !барьер именитета для урона
- if barier >= damage:
- '<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
- xgt 'fight','sta'
- end
- if barier < damage:
- !Set manna -= damageM
- !Set health -= damage
- Set health -= damage
- if damTipM > 0:
- set manna -= damageM
- set mannaV += damageM
- '<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</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>> have poisoned the needles hit.</font></B>'
- end
- '<B><font color = red>you have caused damage <<damage>> units</font></B>'
- !'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
- if zerkalo > 0:
- set zerkalo -= 1
- set healthV -= damage
- '<B><font color = green>You are repelled enemy damage and received <<damage>> points of damage</font></B>'
- end
- end
- xgt 'fight','sta'
- 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
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- if $ARGS[0] = 'atakW':
- cla
- !расчет попадания уворота
- 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:
- !крит, очень точное попадание
- '<B><font color = red>critical hits</font></B>'
- xgt 'atakA1','uronKritW'
- end
- if popad < uvorot+uvorKoef:
- !нормальное попадание
- '<B><font color = red>Contact</font></B>'
- xgt 'atakA1','uronW'
- end
- end
- if popad <= uvorot:
- '<B><font color = green>is washed</font></B>'
- xgt 'fight','sta'
- 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
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- 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'
- =======
- 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'
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- 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'
- =======
- 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'
- >>>>>>> 052_atakA1
- end
- <<<<<<< 052_atakA1
- if $ARGS[0] = 'damageW':
- cla
- if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
- if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
- if damage < 0: set damage = 0
- Set health -= damage
- Set manna -= damageM
- '<B><font color = green>You are 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 -= 1
- set 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 -= damSum
- !Set defenceV -= damage
- '<B><font color = green>You have caused damage <<damSum>> Protection of the enemy units</font></B>'
- xgt 'fight','sta'
- end
- if klon > 0 and unmaterial <= 0:
- set klon -= 1
- '<B><font color = green>Destroyed enemy clone</font></B>'
- xgt 'fight','sta'
- end
- if unmaterial > 0:
- set unmaterial -= 1
- '<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
- xgt 'fight','sta'
- end
- if barier > 0:
- !барьер именитета для урона
- if barier >= damage:
- '<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
- xgt 'fight','sta'
- end
- if barier < damage:
- Set manna -= damageM
- Set health -= damage
- !Set 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 -= 1
- set healthV -= damage
- '<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
- end
- end
- xgt 'fight','sta'
- 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
- >>>>>>> 052_atakA1
- end
- --- atakA1 ---------------------------------
|