1
0

atak 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432
  1. # atak
  2. if $ARGS[0] = 'player':
  3. cla
  4. tip = 0
  5. strenA = stren
  6. speedA = speed
  7. agilA = agil
  8. vitalA = vital
  9. !!skills
  10. boxingA = boxing
  11. !!parameters
  12. healthA = 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. else
  29. '<b><font color="green"><<$nameV>> 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 = stren
  46. speedD = speed
  47. agilD = agil
  48. vitalD = vital
  49. !!skills
  50. boxingD = boxing
  51. !!parameters
  52. healthD = health
  53. BonusD = BonusDef
  54. initBonusA = initBonusV
  55. initBonus = 0
  56. initBonusV = 0
  57. if stun <= 0:
  58. xgt 'atak', 'popad'
  59. else
  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. else
  83. !!attack 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">Contact</font></b>'
  92. xgt 'atak', 'uron'
  93. else
  94. !!attack the enemy
  95. '<b><font color="red">Contact</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. else
  107. !!attack 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">is washed</font></b>'
  116. xgt 'fight', 'sta'
  117. else
  118. !!attack the enemy
  119. '<b><font color="green">is washed</font></b>'
  120. xgt 'fight', 'sta'
  121. end
  122. end
  123. end
  124. end
  125. if $ARGS[0] = 'uronKrit':
  126. cla
  127. damage = rand(stren, 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">your opponent flies throwing knife</font></b>'
  134. end
  135. if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
  136. if dospehV > 0:damage -= dospehDefV & dospehEnV -= 1
  137. if damage < 0:damage = 0
  138. healthV -= damage
  139. if weaponTipe = 1:bloodV += rand(weapon / 4, weapon / 2)
  140. if weaponTipe = 2:stun += rand(1, 2)
  141. if weaponTipe = 3:bloodV += rand(weapon / 4, weapon / 2)
  142. if stunner > 0:
  143. stunner = 0
  144. stunV = rand(3, 6)
  145. '<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
  146. end
  147. '<b><font color="green">Apply Done <<damage>> units</font></b>'
  148. if zerkaloV > 0:
  149. zerkaloV -= 1
  150. health -= damage
  151. '<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
  152. end
  153. xgt 'fight', 'sta'
  154. elseif defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
  155. defenceV -= damage
  156. '<b><font color="green">Protection of the enemy harmed <<damage>> units</font></b>'
  157. xgt 'fight', 'sta'
  158. elseif klonV > 0 and unmaterialV <= 0:
  159. klonV -= 1
  160. '<b><font color="green">Destroyed clone enemy, he still had <<KlonV>> clones</font></b>'
  161. xgt 'fight', 'sta'
  162. elseif unmaterialV > 0:
  163. unmaterialV -= 1
  164. '<b><font color="red">Your shot went straight through the opponent''s body. <<$nameV>> is 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"><<$nameV>> easily withstood your butt</font></b>'
  170. xgt 'fight', 'sta'
  171. elseif barierV < damage:
  172. healthV -= damage
  173. if weaponTipe = 1:bloodV += rand(weapon / 4, weapon / 2)
  174. if weaponTipe = 2:stun += rand(1, 2)
  175. if weaponTipe = 3:bloodV += rand(weapon / 4, weapon / 2)
  176. if stunner > 0:
  177. stunV = rand(3, 6)
  178. '<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
  179. end
  180. '<b><font color="green">Apply Done <<damage>> units</font></b>'
  181. if zerkaloV > 0:
  182. zerkaloV -= 1
  183. health -= damage
  184. '<b><font color="red"><<$nameV>> reflected the damage and you got <<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 = stren * 20 / 100
  193. damage = rand(stren - stKo, 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">your opponent flies throwing knife</font></b>'
  200. end
  201. if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
  202. if dospehV > 0:damage -= dospehDefV & dospehEnV -= 1
  203. if damage < 0:damage = 0
  204. healthV -= damage
  205. if stunner > 0:
  206. stunner = 0
  207. stunV = rand(1, 3)
  208. '<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
  209. end
  210. '<b><font color="green">Apply Done <<damage>> units</font></b>'
  211. if zerkaloV > 0:
  212. zerkaloV -= 1
  213. health -= damage
  214. '<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
  215. end
  216. xgt 'fight', 'sta'
  217. elseif defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
  218. defenceV -= damage
  219. '<b><font color="green">Protection of the enemy harmed <<damage>> units</font></b>'
  220. xgt 'fight', 'sta'
  221. elseif klonV > 0 and unmaterialV <= 0:
  222. klonV -= 1
  223. '<b><font color="green">Destroyed clone enemy, he still had <<KlonV>> clones</font></b>'
  224. xgt 'fight', 'sta'
  225. elseif unmaterialV > 0:
  226. unmaterialV -= 1
  227. '<b><font color="red">Your shot went straight through the opponent''s body. <<$nameV>> is 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"><<$nameV>> easily withstood your butt</font></b>'
  233. xgt 'fight', 'sta'
  234. elseif barierV < damage:
  235. healthV -= damage
  236. if stunner > 0:
  237. stunV = rand(1, 3)
  238. '<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
  239. end
  240. '<b><font color="green">Apply Done <<damage>> units</font></b>'
  241. if zerkaloV > 0:
  242. zerkaloV -= 1
  243. health -= damage
  244. '<b><font color="red"><<$nameV>> reflected the damage and you got <<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">you throwing knife flies</font></b>'
  259. end
  260. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  261. if dospeh > 0:damage -= dospehDef & dospehEn -= 1
  262. if damage < 0:damage = 0
  263. health -= damage
  264. if weaponTipeV = 1:blood += rand(weaponV / 4, weaponV / 2)
  265. if weaponTipeV = 2:stunV += rand(1, 2)
  266. if weaponTipeV = 3:blood += rand(weaponV / 4, weaponV / 2)
  267. if stunnerV > 0:
  268. stunnerV = 0
  269. stun = rand(3, 6)
  270. '<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
  271. end
  272. '<b><font color="red">You harmed <<damage>> units</font></b>'
  273. if zerkalo > 0:
  274. zerkalo -= 1
  275. healthV -= damage
  276. '<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
  277. end
  278. xgt 'fight', 'sta'
  279. elseif defence > 0 and klon <= 0 and unmaterial <= 0:
  280. defence -= damage
  281. '<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
  282. xgt 'fight', 'sta'
  283. elseif klon > 0 and unmaterial <= 0:
  284. klon -= 1
  285. '<b><font color="red">destroy your clone, you have more <<Klon>> clones</font></b>'
  286. xgt 'fight', 'sta'
  287. elseif unmaterial > 0:
  288. unmaterial -= 1
  289. '<b><font color="green">Strike the enemy flew right through your body. YOU is 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 withstood the impact of the opponent</font></b>'
  295. xgt 'fight', 'sta'
  296. else
  297. health -= damage
  298. if weaponTipeV = 1:blood += rand(weaponV / 4, weaponV / 2)
  299. if weaponTipeV = 2:stunV += rand(1, 2)
  300. if weaponTipeV = 3:blood += rand(weaponV / 4, weaponV / 2)
  301. if stunnerV > 0:
  302. stun = rand(3, 6)
  303. '<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
  304. end
  305. '<b><font color="red">You harmed <<damage>> units</font></b>'
  306. if zerkalo > 0:
  307. zerkalo -= 1
  308. healthV -= damage
  309. '<b><font color="green">You are repelled damage and <<$nameV>> to give <<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">you throwing knife flies</font></b>'
  325. end
  326. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  327. if dospeh > 0:damage -= dospehDef & dospehEn -= 1
  328. if damage < 0:damage = 0
  329. health -= damage
  330. if stunnerV > 0:
  331. stunnerV = 0
  332. stun = rand(3, 6)
  333. '<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
  334. end
  335. '<b><font color="red">You harmed <<damage>> units</font></b>'
  336. if zerkalo > 0:
  337. zerkalo -= 1
  338. healthV -= damage
  339. '<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
  340. end
  341. xgt 'fight', 'sta'
  342. elseif defence > 0 and klon <= 0 and unmaterial <= 0:
  343. defence -= damage
  344. '<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
  345. xgt 'fight', 'sta'
  346. elseif klon > 0 and unmaterial <= 0:
  347. klon -= 1
  348. '<b><font color="red">destroy your clone, you have more <<Klon>> clones</font></b>'
  349. xgt 'fight', 'sta'
  350. elseif unmaterial > 0:
  351. unmaterial -= 1
  352. '<b><font color="green">Strike the enemy flew right through your body. YOU is 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 withstood the impact of the opponent</font></b>'
  358. xgt 'fight', 'sta'
  359. else
  360. health -= damage
  361. if stunnerV > 0:
  362. stun = rand(3, 6)
  363. '<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
  364. end
  365. '<b><font color="red">You harmed <<damage>> units</font></b>'
  366. if zerkalo > 0:
  367. zerkalo -= 1
  368. healthV -= damage
  369. '<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
  370. end
  371. end
  372. xgt 'fight', 'sta'
  373. end
  374. end
  375. --- atak ---------------------------------