1
0

atak 12 KB

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