1
0

atakA1 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284
  1. # atakA1
  2. if $ARGS[0] = 'atak':
  3. cla
  4. !!payment hit dodge
  5. set poSp = speedV * 20/100
  6. set uvAg = agil * 20/100
  7. set poBox = reactV * 20/100
  8. set uvBox = react * 20/100
  9. set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp) + bonusShV
  10. set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
  11. set uvorKoef = uvorot * 50/100
  12. set popKoef = popad * 50/100
  13. if popad > uvorot:
  14. if popad >= uvorot + uvorKoef:
  15. !!Crete, very direct hit
  16. '<b><font color="red">critical hits</font></b>'
  17. xgt 'atakA1', 'uronKrit'
  18. end
  19. if popad < uvorot + uvorKoef:
  20. !!normal hit
  21. !!attack the enemy
  22. '<b><font color="red">Contact</font></b>'
  23. xgt 'atakA1', 'uron'
  24. end
  25. end
  26. if popad <= uvorot:
  27. '<b><font color="green">is washed</font></b>'
  28. xgt 'fight', 'sta'
  29. end
  30. end
  31. if $ARGS[0] = 'uronKrit':
  32. cla
  33. set damKoef = damTipV * 20 / 100
  34. set damage = rand(damTipV + damKoef, damTipV + damKoef * 2)
  35. if damTipMV > 0:
  36. set damKoefM = damTipMV * 20/100
  37. set damageM = rand(damTipMV + damKoefM, damTipMV + damKoefM * 2)
  38. end
  39. xgt 'atakA1', 'damage'
  40. end
  41. if $ARGS[0] = 'uron':
  42. cla
  43. set damKoef = damTipV * 20 / 100
  44. set damage = rand(damTipV - damKoef, damTipV + damKoef)
  45. if damTipMV > 0:
  46. set damKoefM = damTipMV * 20/100
  47. set damageM = rand(damTipMV - damKoefM, damTipMV + damKoefM)
  48. end
  49. xgt 'atakA1', 'damage'
  50. end
  51. if $ARGS[0] = 'damage':
  52. cla
  53. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  54. if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
  55. if damage < 0:set damage = 0
  56. set health -= damage
  57. if hidanAtk = 1:
  58. set hidanAtk = 0
  59. set zerkaloV += 50
  60. set bloodV += 50
  61. '<b><font color="red"><<$nameV>> drink your blood.</font></b>'
  62. end
  63. if damTipMV > 0:
  64. set manna -= damageM
  65. set manna += damageM
  66. '<b><font color="red"><<$nameV>> absorbed <<damageM>> units of manna you.</font></b>'
  67. end
  68. if poisonAV = 1:
  69. set poisonV = 50
  70. '<b><font color="red"><<$nameV>> have poisoned the needles hit.</font></b>'
  71. end
  72. !!set manna -= damageM
  73. if eleShV > 0:
  74. set stun = rand(eleShV, eleShV * 3)
  75. '<b><font color="red">You are paralyzed <<stunV>> rounds</font></b>'
  76. end
  77. '<b><font color="red"><<$nameV>> damage caused you <<damage>> units</font></b>'
  78. !!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
  79. if zerkalo > 0:
  80. set zerkalo -= 1
  81. set healthV -= damage
  82. '<b><font color="green">You are repelled damage and <<$nameV>> received <<damage>> points of damage</font></b>'
  83. end
  84. xgt 'fight', 'sta'
  85. end
  86. if defence > 0 and klon <= 0 and unmaterial <= 0:
  87. !!set damSum = damage + damageM
  88. !!set defence -= damSum
  89. set defence -= damage
  90. '<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
  91. xgt 'fight', 'sta'
  92. end
  93. if klon > 0 and unmaterial <= 0:
  94. set klon -= 1
  95. '<b><font color="red">destroy your clone</font></b>'
  96. xgt 'fight', 'sta'
  97. end
  98. if unmaterial > 0:
  99. set unmaterial -= 1
  100. '<b><font color="green">Strike the enemy passed through you. YOU is not material</font></b>'
  101. xgt 'fight', 'sta'
  102. end
  103. if barier > 0:
  104. !!imeniteta barrier for damage
  105. if barier >= damage:
  106. '<b><font color="green">You can easily withstood the impact of the opponent</font></b>'
  107. xgt 'fight', 'sta'
  108. end
  109. if barier < damage:
  110. !!set manna -= damageM
  111. !!set health -= damage
  112. set health -= damage
  113. if damTipM > 0:
  114. set manna -= damageM
  115. set mannaV += damageM
  116. '<b><font color="green">you have ingested <<damageM>> units of manna from the enemy.</font></b>'
  117. end
  118. if eleShV > 0:
  119. set stun = rand(eleShV, eleShV * 3)
  120. '<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
  121. end
  122. if poisonAV = 1:
  123. set poisonV = 50
  124. '<b><font color="red"><<$nameV>> have poisoned the needles hit.</font></b>'
  125. end
  126. '<b><font color="red">you have caused damage <<damage>> units</font></b>'
  127. !!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
  128. if zerkalo > 0:
  129. set zerkalo -= 1
  130. set healthV -= damage
  131. '<b><font color="green">You are repelled enemy damage and received <<damage>> points of damage</font></b>'
  132. end
  133. end
  134. xgt 'fight', 'sta'
  135. end
  136. end
  137. if $ARGS[0] = 'atakW':
  138. cla
  139. !!payment hit dodge
  140. set poSp = speedV * 20 / 100
  141. set uvAg = agil * 20 / 100
  142. set poBox = reactV * 20 / 100
  143. set uvBox = react * 20 / 100
  144. set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp)
  145. set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
  146. set uvorKoef = uvorot * 50 / 100
  147. set popKoef = popad * 50 / 100
  148. if popad > uvorot:
  149. if popad >= uvorot + uvorKoef:
  150. !!Crete, very direct hit
  151. '<b><font color="red">critical hits</font></b>'
  152. xgt 'atakA1', 'uronKritW'
  153. end
  154. if popad < uvorot + uvorKoef:
  155. !!normal hit
  156. '<b><font color="red">Contact</font></b>'
  157. xgt 'atakA1', 'uronW'
  158. end
  159. end
  160. if popad <= uvorot:
  161. '<b><font color="green">is washed</font></b>'
  162. xgt 'fight', 'sta'
  163. end
  164. end
  165. if $ARGS[0] = 'uronKritW':
  166. cla
  167. set damKoef = damTipV * 20/100
  168. set damage = rand(damTipV + damKoef, damTipV + damKoef * 2)
  169. set damKoefM = damTipMV * 20/100
  170. set damageM = rand(damTipMV + damKoefM, damTipMV + damKoefM * 2)
  171. xgt 'atakA1', 'damageW'
  172. end
  173. if $ARGS[0] = 'uronW':
  174. cla
  175. set damKoef = damTipV * 20/100
  176. set damage = rand(damTipV - damKoef, damTipV + damKoef)
  177. set damKoefM = damTipMV * 20/100
  178. set damageM = rand(damTipMV - damKoefM, damTipMV + damKoefM)
  179. xgt 'atakA1', 'damageW'
  180. end
  181. if $ARGS[0] = 'damageW':
  182. cla
  183. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  184. if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
  185. if damage < 0:set damage = 0
  186. set health -= damage
  187. set manna -= damageM
  188. '<b><font color="green">You are harmed <<damage>> units</font></b>'
  189. '<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'
  190. if zerkalo > 0:
  191. set zerkalo -= 1
  192. set health -= damage
  193. '<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
  194. end
  195. xgt 'fight', 'sta'
  196. end
  197. if defence > 0 and klon <= 0 and unmaterial <= 0:
  198. set damSum = damage + damageM
  199. set defence -= damSum
  200. !!set defenceV -= damage
  201. '<b><font color="green">You have caused damage <<damSum>> Protection of the enemy units</font></b>'
  202. xgt 'fight', 'sta'
  203. end
  204. if klon > 0 and unmaterial <= 0:
  205. set klon -= 1
  206. '<b><font color="green">Destroyed enemy clone</font></b>'
  207. xgt 'fight', 'sta'
  208. end
  209. if unmaterial > 0:
  210. set unmaterial -= 1
  211. '<b><font color="red">Your shot went through the opponent´s body. Opponents do not materials</font></b>'
  212. xgt 'fight', 'sta'
  213. end
  214. if barier > 0:
  215. !!imeniteta barrier for damage
  216. if barier >= damage:
  217. '<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
  218. xgt 'fight', 'sta'
  219. end
  220. if barier < damage:
  221. set manna -= damageM
  222. set health -= damage
  223. !!set healthV -= damage
  224. '<b><font color="green">You have caused damage <<damage>> units</font></b>'
  225. '<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'
  226. if zerkalo > 0:
  227. set zerkalo -= 1
  228. set healthV -= damage
  229. '<b><font color="red">Enemy reflected damage and you got <<damage>> points of damage</font></b>'
  230. end
  231. end
  232. xgt 'fight', 'sta'
  233. end
  234. end
  235. --- atakA1 ---------------------------------