atak 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479
  1. # atak
  2. if $ARGS[0] = 'player':
  3. cla
  4. tip = 0
  5. strenA = pcs_stren
  6. speedA = speed
  7. agilA = pcs_agil
  8. vitalA = pcs_vital
  9. !Skills
  10. boxingA = boxing
  11. !Parameters
  12. healthA = pcs_health
  13. BonusA = BonusAtak
  14. strenD = strenV
  15. speedD = speedV
  16. agilD = agilV
  17. vitalD = vitalV
  18. !Skills
  19. boxingD = boxingV
  20. !Parameters
  21. healthD = healthV
  22. initBonusA = initBonus
  23. initBonus = 0
  24. initBonusV = 0
  25. BonusD = BonusDefV
  26. if stunV <= 0:
  27. xgt'atak','popad'
  28. elseif stunV > 0:
  29. '<b><font color = green><<$boydesc>> Can not move a critical hit</font></b>'
  30. xgt'atak','uronKrit'
  31. end
  32. end
  33. if $ARGS[0] = 'enemy':
  34. cla
  35. tip = 1
  36. strenA = strenV
  37. speedA = speedV
  38. agilA = agilV
  39. vitalA = vitalV
  40. !Skills
  41. boxingA = boxingV
  42. !Parameters
  43. healthA = healthV
  44. BonusA = BonusAtakV
  45. strenD = pcs_stren
  46. speedD = speed
  47. agilD = pcs_agil
  48. vitalD = pcs_vital
  49. !Skills
  50. boxingD = boxing
  51. !Parameters
  52. healthD = pcs_health
  53. BonusD = BonusDef
  54. initBonusA = initBonusV
  55. initBonus = 0
  56. initBonusV = 0
  57. if stun <= 0:
  58. xgt'atak','popad'
  59. elseif stun > 0:
  60. '<b><font color = red>YOU can not move a critical hit</font></b>'
  61. xgt'atak','uronKritV'
  62. end
  63. end
  64. if $ARGS[0] = 'popad':
  65. cla
  66. !payment hit dodge
  67. poSp = speedA*20/100
  68. uvAg = agilD*20/100
  69. poBox = boxingA*20/100
  70. uvBox = boxingD*20/100
  71. popad = RAND(boxingA-poBox,boxingA+poBox) + RAND(speedA-poSp,speedA+poSp) + BonusA + initBonusA
  72. uvorot = RAND(boxingD-uvBox,boxingD+uvBox) + RAND(agilD-uvAg,agilD+uvAg) + BonusD
  73. uvorKoef = uvorot*50/100
  74. popKoef = popad*50/100
  75. if popad > uvorot:
  76. if popad >= uvorot+uvorKoef:
  77. !Crete, very direct hit
  78. if tip = 0:
  79. !attack players
  80. '<b><font color = green>Critical hits</font></b>'
  81. xgt'atak','uronKrit'
  82. elseif tip = 1:
  83. !He attacks the enemy
  84. '<b><font color = red>Critical hits</font></b>'
  85. xgt'atak','uronKritV'
  86. end
  87. elseif popad < uvorot+uvorKoef:
  88. !Normal hit
  89. if tip = 0:
  90. !attack players
  91. '<b><font color = green>EYE</font></b>'
  92. xgt'atak','uron'
  93. elseif tip = 1:
  94. !He attacks the enemy
  95. '<b><font color = red>EYE</font></b>'
  96. xgt'atak','uronV'
  97. end
  98. end
  99. elseif popad <= uvorot:
  100. if popad+popKoef <= uvorot:
  101. !critical blunder
  102. if tip = 0:
  103. !attack players
  104. '<b><font color = red>CRITICAL SLIP</font></b>'
  105. xgt'atak','uronKritV'
  106. elseif tip = 1:
  107. !He attacks the enemy
  108. '<b><font color = green>CRITICAL SLIP</font></b>'
  109. xgt'atak','uronKrit'
  110. end
  111. elseif popad+popKoef > uvorot:
  112. !bloomer
  113. if tip = 0:
  114. !attack players
  115. '<b><font color = red>LOST</font></b>'
  116. xgt'fight','sta'
  117. elseif tip = 1:
  118. !He attacks the enemy
  119. '<b><font color = green>LOST</font></b>'
  120. xgt'fight','sta'
  121. end
  122. end
  123. end
  124. end
  125. if $ARGS[0] = 'uronKrit':
  126. cla
  127. damage = RAND(pcs_stren,pcs_stren*2) + weapbonus + magweapbonus
  128. if knife > 0:
  129. knibon = knife+1
  130. knife = 0
  131. damage = damage*knibon
  132. knibon = 0
  133. '<b><font color = green>The enemy flies your throwing knife</font></b>'
  134. end
  135. if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
  136. if dospehV > 0:damage = damage - dospehDefV & dospehEnV = dospehEnV - 1
  137. if damage < 0:damage = 0
  138. healthV = healthV - damage
  139. if weaponTipe = 1:bloodV = bloodV + RAND(weapon/4,weapon/2)
  140. if weaponTipe = 2:stun = stun + RAND(1,2)
  141. if weaponTipe = 3:bloodV = bloodV + RAND(weapon/4,weapon/2)
  142. if stunner > 0:
  143. stunner = 0
  144. stunV = RAND(3,6)
  145. '<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
  146. end
  147. '<b><font color = green>Accept damage <<damage>> units</font></b>'
  148. if zerkaloV > 0:
  149. zerkaloV = zerkaloV - 1
  150. pcs_health = pcs_health - damage
  151. '<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
  152. end
  153. xgt'fight','sta'
  154. elseif defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
  155. defenceV = defenceV - damage
  156. '<b><font color = green>Protection of the enemy suffered damage <<damage>> units</font></b>'
  157. xgt'fight','sta'
  158. elseif klonV > 0 and unmaterialV <= 0:
  159. klonV = klonV - 1
  160. '<b><font color = green>Destroyed enemy clone, he still had <<KlonV>> Clones</font></b>'
  161. xgt'fight','sta'
  162. elseif unmaterialV > 0:
  163. unmaterialV = unmaterialV - 1
  164. '<b><font color = red>Your kick flew right through the opponent''s body. <<$boydesc>> Not material</font></b>'
  165. xgt'fight','sta'
  166. elseif barierV > 0:
  167. !imeniteta barrier for damage
  168. if barierV >= damage:
  169. '<b><font color = red><<$boydesc>> easily weathered blow your</font></b>'
  170. xgt'fight','sta'
  171. elseif barierV < damage:
  172. healthV = healthV - damage
  173. if weaponTipe = 1:bloodV = bloodV + RAND(weapon/4,weapon/2)
  174. if weaponTipe = 2:stun = stun + RAND(1,2)
  175. if weaponTipe = 3:bloodV = bloodV + RAND(weapon/4,weapon/2)
  176. if stunner > 0:
  177. stunV = RAND(3,6)
  178. '<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
  179. end
  180. '<b><font color = green>Accept damage <<damage>> units</font></b>'
  181. if zerkaloV > 0:
  182. zerkaloV = zerkaloV - 1
  183. pcs_health = pcs_health - damage
  184. '<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
  185. end
  186. end
  187. xgt'fight','sta'
  188. end
  189. end
  190. if $ARGS[0] = 'uron':
  191. cla
  192. stKo = pcs_stren*20/100
  193. damage = RAND(pcs_stren-stKo,pcs_stren+stKo) + weapbonus + magweapbonus
  194. if knife > 0:
  195. knibon = knife+1
  196. knife = 0
  197. damage = damage*knibon
  198. knibon = 0
  199. '<b><font color = green>The enemy flies your throwing knife</font></b>'
  200. end
  201. if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
  202. if dospehV > 0:damage = damage - dospehDefV & dospehEnV = dospehEnV - 1
  203. if damage < 0:damage = 0
  204. healthV = healthV - damage
  205. if stunner > 0:
  206. stunner = 0
  207. stunV = RAND(1,3)
  208. '<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
  209. end
  210. '<b><font color = green>Accept damage <<damage>> units</font></b>'
  211. if zerkaloV > 0:
  212. zerkaloV = zerkaloV - 1
  213. pcs_health = pcs_health - damage
  214. '<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
  215. end
  216. xgt'fight','sta'
  217. elseif defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
  218. defenceV = defenceV - damage
  219. '<b><font color = green>Protection of the enemy suffered damage <<damage>> units</font></b>'
  220. xgt'fight','sta'
  221. elseif klonV > 0 and unmaterialV <= 0:
  222. klonV = klonV - 1
  223. '<b><font color = green>Destroyed enemy clone, he still had <<KlonV>> Clones</font></b>'
  224. xgt'fight','sta'
  225. elseif unmaterialV > 0:
  226. unmaterialV = unmaterialV - 1
  227. '<b><font color = red>Your kick flew right through the opponent''s body. <<$boydesc>> Not material</font></b>'
  228. xgt'fight','sta'
  229. elseif barierV > 0:
  230. !imeniteta barrier for damage
  231. if barierV >= damage:
  232. '<b><font color = red><<$boydesc>> easily weathered blow your</font></b>'
  233. xgt'fight','sta'
  234. elseif barierV < damage:
  235. healthV = healthV - damage
  236. if stunner > 0:
  237. stunV = RAND(1,3)
  238. '<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
  239. end
  240. '<b><font color = green>Accept damage <<damage>> units</font></b>'
  241. if zerkaloV > 0:
  242. zerkaloV = zerkaloV - 1
  243. pcs_health = pcs_health - damage
  244. '<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
  245. end
  246. end
  247. xgt'fight','sta'
  248. end
  249. end
  250. if $ARGS[0] = 'uronKritV':
  251. cla
  252. damage = RAND(strenV,strenV*2) + weapbonusV + magweapbonusV
  253. if knifeV > 0:
  254. knibonV = knifeV+1
  255. knifeV = 0
  256. damage = damage*knibonV
  257. knibonV = 0
  258. '<b><font color = red>As you fly throwing knife</font></b>'
  259. end
  260. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  261. if dospeh > 0:damage = damage - dospehDef & dospehEn = dospehEn - 1
  262. if damage < 0:damage = 0
  263. pcs_health = pcs_health - damage
  264. if weaponTipeV = 1:blood = blood + RAND(weaponV/4,weaponV/2)
  265. if weaponTipeV = 2:stunV = stunV + RAND(1,2)
  266. if weaponTipeV = 3:blood = blood + RAND(weaponV/4,weaponV/2)
  267. if stunnerV > 0:
  268. stunnerV = 0
  269. stun = RAND(3,6)
  270. '<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
  271. end
  272. '<b><font color = red>You harmed <<damage>> units</font></b>'
  273. if zerkalo > 0:
  274. zerkalo = zerkalo - 1
  275. healthV = healthV - damage
  276. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  277. end
  278. xgt'fight','sta'
  279. elseif defence > 0 and klon <= 0 and unmaterial <= 0:
  280. defence = defence - damage
  281. '<b><font color = red>Your protection harmed <<damage>> units</font></b>'
  282. xgt'fight','sta'
  283. elseif klon > 0 and unmaterial <= 0:
  284. klon = klon - 1
  285. '<b><font color = red>It destroys your clone, Do you have more <<Klon>> Clones</font></b>'
  286. xgt'fight','sta'
  287. elseif unmaterial > 0:
  288. unmaterial = unmaterial - 1
  289. '<b><font color = green>Beat the enemy flew right through your body. YOU are not material</font></b>'
  290. xgt'fight','sta'
  291. elseif barier > 0:
  292. !imeniteta barrier for damage
  293. if barier >= damage:
  294. '<b><font color = green>You can easily withstand the impact of the enemy</font></b>'
  295. xgt'fight','sta'
  296. elseif barier < damage:
  297. pcs_health = pcs_health - damage
  298. if weaponTipeV = 1:blood = blood + RAND(weaponV/4,weaponV/2)
  299. if weaponTipeV = 2:stunV = stunV + RAND(1,2)
  300. if weaponTipeV = 3:blood = blood + RAND(weaponV/4,weaponV/2)
  301. if stunnerV > 0:
  302. stun = RAND(3,6)
  303. '<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
  304. end
  305. '<b><font color = red>You harmed <<damage>> units</font></b>'
  306. if zerkalo > 0:
  307. zerkalo = zerkalo - 1
  308. healthV = healthV - damage
  309. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  310. end
  311. end
  312. xgt'fight','sta'
  313. end
  314. end
  315. if $ARGS[0] = 'uronV':
  316. cla
  317. stKo = strenV*20/100
  318. damage = RAND(strenV-stKo,strenV+stKo) + weapbonusV + magweapbonusV
  319. if knifeV > 0:
  320. knibonV = knifeV+1
  321. knifeV = 0
  322. damage = damage*knibonV
  323. knibonV = 0
  324. '<b><font color = red>As you fly throwing knife</font></b>'
  325. end
  326. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  327. if dospeh > 0:damage = damage - dospehDef & dospehEn = dospehEn - 1
  328. if damage < 0:damage = 0
  329. pcs_health = pcs_health - damage
  330. if stunnerV > 0:
  331. stunnerV = 0
  332. stun = RAND(3,6)
  333. '<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
  334. end
  335. '<b><font color = red>You harmed <<damage>> units</font></b>'
  336. if zerkalo > 0:
  337. zerkalo = zerkalo - 1
  338. healthV = healthV - damage
  339. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  340. end
  341. xgt'fight','sta'
  342. elseif defence > 0 and klon <= 0 and unmaterial <= 0:
  343. defence = defence - damage
  344. '<b><font color = red>Your protection harmed <<damage>> units</font></b>'
  345. xgt'fight','sta'
  346. elseif klon > 0 and unmaterial <= 0:
  347. klon = klon - 1
  348. '<b><font color = red>It destroys your clone, Do you have more <<Klon>> Clones</font></b>'
  349. xgt'fight','sta'
  350. elseif unmaterial > 0:
  351. unmaterial = unmaterial - 1
  352. '<b><font color = green>Beat the enemy flew right through your body. YOU are not material</font></b>'
  353. xgt'fight','sta'
  354. elseif barier > 0:
  355. !imeniteta barrier for damage
  356. if barier >= damage:
  357. '<b><font color = green>You can easily withstand the impact of the enemy</font></b>'
  358. xgt'fight','sta'
  359. elseif barier < damage:
  360. pcs_health = pcs_health - damage
  361. if stunnerV > 0:
  362. stun = RAND(3,6)
  363. '<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
  364. end
  365. '<b><font color = red>You harmed <<damage>> units</font></b>'
  366. if zerkalo > 0:
  367. zerkalo = zerkalo - 1
  368. healthV = healthV - damage
  369. '<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
  370. end
  371. end
  372. xgt'fight','sta'
  373. end
  374. end
  375. --- atak ---------------------------------