1
0

atak.qsrc 12 KB

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