1
0

atakA1.qsrc 7.2 KB

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