atakM.qsrc 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  1. # atakM
  2. menu_off = 1
  3. if $ARGS[0] = 'atakVmana':
  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)
  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'atakM','uronKritV'
  19. elseif popad < uvorot+uvorKoef:
  20. !Normal hit
  21. !He attacks the enemy
  22. '<b><font color = red>EYE</font></b>'
  23. xgt'atakM','uronV'
  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] = 'uronKritV':
  31. cla
  32. damage = RAND(1000,2000)
  33. damageM = RAND(1000,2000)
  34. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  35. if dospeh > 0:damage = damage - dospehDef & dospehEn = dospehEn - 1
  36. if damage < 0:damage = 0
  37. pcs_health = pcs_health - damage
  38. pcs_mana = pcs_mana - damageM
  39. '<b><font color = red>Your health harmed <<damage>> units</font></b>'
  40. '<b><font color = red>Your mana harmed <<damageM>> units</font></b>'
  41. if zerkalo > 0:
  42. zerkalo = zerkalo - 1
  43. healthV = healthV - damage
  44. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  45. end
  46. xgt'fight','sta'
  47. end
  48. if defence > 0 and klon <= 0 and unmaterial <= 0:
  49. damSum = damage + damageM
  50. defence = defence - damSum
  51. '<b><font color = red>Your protection harmed <<damSum>> units</font></b>'
  52. xgt'fight','sta'
  53. end
  54. if klon > 0 and unmaterial <= 0:
  55. klon = klon - 1
  56. '<b><font color = red>It destroys your clone, Do you have more <<Klon>> Clones</font></b>'
  57. xgt'fight','sta'
  58. end
  59. if unmaterial > 0:
  60. unmaterial = unmaterial - 1
  61. '<b><font color = green>Beat the enemy flew right through your body. YOU are not material</font></b>'
  62. xgt'fight','sta'
  63. end
  64. if barier > 0:
  65. !imeniteta barrier for damage
  66. if barier >= damage:
  67. '<b><font color = green>You can easily withstand the impact of the enemy</font></b>'
  68. xgt'fight','sta'
  69. elseif barier < damage:
  70. pcs_mana = pcs_mana - damageM
  71. pcs_health = pcs_health - damage
  72. '<b><font color = red>You harmed <<damage>> units</font></b>'
  73. '<b><font color = red>Your mana harmed <<damageM>> units</font></b>'
  74. if zerkalo > 0:
  75. zerkalo = zerkalo - 1
  76. healthV = healthV - damage
  77. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  78. end
  79. end
  80. xgt'fight','sta'
  81. end
  82. end
  83. if $ARGS[0] = 'uronV':
  84. cla
  85. damage = RAND(500,1000)
  86. damageM = RAND(500,1000)
  87. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  88. if dospeh > 0:damage = damage - dospehDef & dospehEn = dospehEn - 1
  89. if damage < 0:damage = 0
  90. pcs_health = pcs_health - damage
  91. pcs_mana = pcs_mana - damageM
  92. '<b><font color = red>Your health harmed <<damage>> units</font></b>'
  93. '<b><font color = red>Your mana harmed <<damageM>> units</font></b>'
  94. if zerkalo > 0:
  95. zerkalo = zerkalo - 1
  96. healthV = healthV - damage
  97. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  98. end
  99. xgt'fight','sta'
  100. end
  101. if defence > 0 and klon <= 0 and unmaterial <= 0:
  102. damSum = damage + damageM
  103. defence = defence - damSum
  104. '<b><font color = red>Your protection harmed <<damSum>> units</font></b>'
  105. xgt'fight','sta'
  106. end
  107. if klon > 0 and unmaterial <= 0:
  108. klon = klon - 1
  109. '<b><font color = red>It destroys your clone, Do you have more <<Klon>> Clones</font></b>'
  110. xgt'fight','sta'
  111. end
  112. if unmaterial > 0:
  113. unmaterial = unmaterial - 1
  114. '<b><font color = green>Beat the enemy flew right through your body. YOU are not material</font></b>'
  115. xgt'fight','sta'
  116. end
  117. if barier > 0:
  118. !imeniteta barrier for damage
  119. if barier >= damage:
  120. '<b><font color = green>You can easily withstand the impact of the enemy</font></b>'
  121. xgt'fight','sta'
  122. elseif barier < damage:
  123. pcs_mana = pcs_mana - damageM
  124. pcs_health = pcs_health - damage
  125. '<b><font color = red>You harmed <<damage>> units</font></b>'
  126. '<b><font color = red>Your mana harmed <<damageM>> units</font></b>'
  127. if zerkalo > 0:
  128. zerkalo = zerkalo - 1
  129. healthV = healthV - damage
  130. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  131. end
  132. end
  133. xgt'fight','sta'
  134. end
  135. end
  136. --- atakM ---------------------------------