123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260 |
- # 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
- 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 -= 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
- end
- 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
- 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 -= 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
- end
- --- atakA1 ---------------------------------
|