052_atakA1 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526
  1. # atakA1
  2. <<<<<<< 052_atakA1
  3. if $ARGS[0] = 'atak':
  4. cla
  5. !расчет попадания уворота
  6. set poSp = speedV * 20/100
  7. set uvAg = agil * 20/100
  8. set poBox = reactV * 20/100
  9. set uvBox = react * 20/100
  10. set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp) + bonusShV
  11. set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
  12. set uvorKoef = uvorot * 50/100
  13. set popKoef = popad * 50/100
  14. if popad > uvorot:
  15. if popad >= uvorot + uvorKoef:
  16. !крит, очень точное попадание
  17. '<B><font color = red>critical hits</font></B>'
  18. xgt 'atakA1','uronKrit'
  19. end
  20. if popad < uvorot+uvorKoef:
  21. !нормальное попадание
  22. !атаковал противник
  23. '<B><font color = red>Contact</font></B>'
  24. xgt 'atakA1','uron'
  25. end
  26. end
  27. if popad <= uvorot:
  28. '<B><font color = green>is washed</font></B>'
  29. xgt 'fight','sta'
  30. end
  31. =======
  32. if $ARGS[0]='atak':
  33. cla
  34. !payment hit dodge
  35. set poSp = speedV*20/100
  36. set uvAg = agil*20/100
  37. set poBox = reactV*20/100
  38. set uvBox = react*20/100
  39. set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp) + bonusShV
  40. set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+uvAg)
  41. set uvorKoef = uvorot*50/100
  42. set popKoef = popad*50/100
  43. if popad > uvorot:
  44. if popad >= uvorot+uvorKoef:
  45. !Crete, very direct hit
  46. '<B><font color=red>Critical hits</font></B>'
  47. xgt'atakA1','uronKrit'
  48. end
  49. if popad < uvorot+uvorKoef:
  50. !normal hit
  51. !attack the enemy
  52. '<B><font color=red>EYE</font></B>'
  53. xgt'atakA1','uron'
  54. end
  55. end
  56. if popad <= uvorot:
  57. '<B><font color=green>LOST</font></B>'
  58. xgt'fight','sta'
  59. end
  60. >>>>>>> 052_atakA1
  61. end
  62. <<<<<<< 052_atakA1
  63. if $ARGS[0] = 'uronKrit':
  64. cla
  65. set damKoef = damTipV * 20/100
  66. set damage = RAND(damTipV + damKoef, damTipV + damKoef * 2)
  67. if damTipMV > 0:
  68. set damKoefM = damTipMV * 20/100
  69. set damageM = RAND(damTipMV + damKoefM, damTipMV + damKoefM * 2)
  70. end
  71. xgt 'atakA1','damage'
  72. =======
  73. if $ARGS[0]='uronKrit':
  74. cla
  75. set damKoef = damTipV*20/100
  76. set damage = RAND(damTipV+damKoef,damTipV+damKoef*2)
  77. if damTipMV > 0:
  78. set damKoefM = damTipMV*20/100
  79. set damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2)
  80. end
  81. xgt'atakA1','damage'
  82. >>>>>>> 052_atakA1
  83. end
  84. <<<<<<< 052_atakA1
  85. if $ARGS[0] = 'uron':
  86. cla
  87. set damKoef = damTipV * 20/100
  88. set damage = RAND(damTipV - damKoef, damTipV + damKoef)
  89. if damTipMV > 0:
  90. set damKoefM = damTipMV * 20/100
  91. set damageM = RAND(damTipMV - damKoefM, damTipMV + damKoefM)
  92. end
  93. xgt 'atakA1','damage'
  94. =======
  95. if $ARGS[0]='uron':
  96. cla
  97. set damKoef = damTipV*20/100
  98. set damage = RAND(damTipV-damKoef,damTipV+damKoef)
  99. if damTipMV > 0:
  100. set damKoefM = damTipMV*20/100
  101. set damageM = RAND(damTipMV-damKoefM,damTipMV+damKoefM)
  102. end
  103. xgt'atakA1','damage'
  104. >>>>>>> 052_atakA1
  105. end
  106. <<<<<<< 052_atakA1
  107. if $ARGS[0] = 'damage':
  108. cla
  109. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  110. if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
  111. if damage < 0: set damage = 0
  112. Set health -= damage
  113. if hidanAtk = 1:
  114. set hidanAtk = 0
  115. set zerkaloV += 50
  116. set bloodV += 50
  117. '<B><font color = red><<$nameV>> drink your blood.</font></B>'
  118. end
  119. if damTipMV > 0:
  120. set manna -= damageM
  121. set manna += damageM
  122. '<B><font color = red><<$nameV>> absorbed <<damageM>> units of manna you.</font></B>'
  123. end
  124. if poisonAV = 1:
  125. set poisonV = 50
  126. '<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
  127. end
  128. !Set manna -= damageM
  129. if eleShV > 0:
  130. set stun = RAND(eleShV, eleShV * 3)
  131. '<B><font color = red>You are paralyzed <<stunV>> rounds</font></B>'
  132. end
  133. '<B><font color = red><<$nameV>> damage caused you <<damage>> units</font></B>'
  134. !'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
  135. if zerkalo > 0:
  136. set zerkalo -= 1
  137. set healthV -= damage
  138. '<B><font color = green>You are repelled damage and <<$nameV>> received <<damage>> points of damage</font></B>'
  139. end
  140. xgt 'fight','sta'
  141. end
  142. if defence > 0 and klon <= 0 and unmaterial <= 0:
  143. !set damSum = damage + damageM
  144. !Set defence -= damSum
  145. Set defence -= damage
  146. '<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
  147. xgt 'fight','sta'
  148. end
  149. if klon > 0 and unmaterial <= 0:
  150. set klon -= 1
  151. '<B><font color = red>destroy your clone</font></B>'
  152. xgt 'fight','sta'
  153. end
  154. if unmaterial > 0:
  155. set unmaterial -= 1
  156. '<B><font color = green>Strike the enemy passed through you. YOU is not material</font></B>'
  157. xgt 'fight','sta'
  158. end
  159. if barier > 0:
  160. !барьер именитета для урона
  161. if barier >= damage:
  162. '<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
  163. xgt 'fight','sta'
  164. end
  165. if barier < damage:
  166. !Set manna -= damageM
  167. !Set health -= damage
  168. Set health -= damage
  169. if damTipM > 0:
  170. set manna -= damageM
  171. set mannaV += damageM
  172. '<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
  173. end
  174. if eleShV > 0:
  175. set stun = RAND(eleShV, eleShV * 3)
  176. '<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
  177. end
  178. if poisonAV = 1:
  179. set poisonV = 50
  180. '<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
  181. end
  182. '<B><font color = red>you have caused damage <<damage>> units</font></B>'
  183. !'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
  184. if zerkalo > 0:
  185. set zerkalo -= 1
  186. set healthV -= damage
  187. '<B><font color = green>You are repelled enemy damage and received <<damage>> points of damage</font></B>'
  188. end
  189. end
  190. xgt 'fight','sta'
  191. end
  192. =======
  193. if $ARGS[0]='damage':
  194. cla
  195. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  196. if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
  197. if damage < 0:set damage = 0
  198. Set health = health - damage
  199. if hidanAtk = 1:
  200. set hidanAtk = 0
  201. set zerkaloV = zerkaloV + 50
  202. set bloodV = bloodV + 50
  203. '<B><font color=red><<$nameV>> drink your blood.</font></B>'
  204. end
  205. if damTipMV > 0:
  206. set manna = manna - damageM
  207. set manna = manna + damageM
  208. '<B><font color=red><<$nameV>> swallowed <<damageM>> units of mana you.</font></B>'
  209. end
  210. if poisonAV = 1:
  211. set poisonV = 50
  212. '<B><font color=red><<$nameV>> hit needle poisoned you.</font></B>'
  213. end
  214. !Set manna = manna - damageM
  215. if eleShV > 0:
  216. set stun = RAND (eleShV,eleShV*3)
  217. '<B><font color=red>You paralyzed on <<stunV>> Rounds</font></B>'
  218. end
  219. '<B><font color=red><<$nameV>> damage caused to you <<damage>> units</font></B>'
  220. !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
  221. if zerkalo > 0:
  222. set zerkalo = zerkalo - 1
  223. set healthV = healthV - damage
  224. '<B><font color=green>You have reflected damage and <<$nameV>> received <<damage>> points of damage</font></B>'
  225. end
  226. xgt'fight','sta'
  227. end
  228. if defence > 0 and klon <= 0 and unmaterial <= 0:
  229. !set damSum = damage + damageM
  230. !Set defence = defence - damSum
  231. Set defence = defence - damage
  232. '<B><font color=red>Your defense harmed <<damage>> units</font></B>'
  233. xgt'fight','sta'
  234. end
  235. if klon > 0 and unmaterial <= 0:
  236. set klon = klon - 1
  237. '<B><font color=red>Destroy your clone</font></B>'
  238. xgt'fight','sta'
  239. end
  240. if unmaterial > 0:
  241. set unmaterial = unmaterial - 1
  242. '<B><font color=green>Beat the enemy passed through you. YOU are not material</font></B>'
  243. xgt'fight','sta'
  244. end
  245. if barier > 0:
  246. !imeniteta barrier for damage
  247. if barier >= damage:
  248. '<B><font color=green>You can easily withstand the impact of the enemy</font></B>'
  249. xgt'fight','sta'
  250. end
  251. if barier < damage:
  252. !Set manna = manna - damageM
  253. !Set health = health - damage
  254. Set health = health - damage
  255. if damTipM > 0:
  256. set manna = manna - damageM
  257. set mannaV = mannaV + damageM
  258. '<B><font color=green>you swallowed <<damageM>> manna enemy units.</font></B>'
  259. end
  260. if eleShV > 0:
  261. set stun = RAND (eleShV,eleShV*3)
  262. '<B><font color=green><<$nameV>> paralyzed <<stunV>> Rounds</font></B>'
  263. end
  264. if poisonAV = 1:
  265. set poisonV = 50
  266. '<B><font color=red><<$nameV>> hit needle poisoned you.</font></B>'
  267. end
  268. '<B><font color=red>You have caused damage <<damage>> units</font></B>'
  269. !'<B><font color=red>Your manna harmed <<damageM>> units</font></B>'
  270. if zerkalo > 0:
  271. set zerkalo = zerkalo - 1
  272. set healthV = healthV - damage
  273. '<B><font color=green>You have reflected the damage and the enemy was <<damage>> points of damage</font></B>'
  274. end
  275. end
  276. xgt'fight','sta'
  277. end
  278. >>>>>>> 052_atakA1
  279. end
  280. <<<<<<< 052_atakA1
  281. if $ARGS[0] = 'atakW':
  282. cla
  283. !расчет попадания уворота
  284. set poSp = speedV * 20/100
  285. set uvAg = agil * 20/100
  286. set poBox = reactV * 20/100
  287. set uvBox = react * 20/100
  288. set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp)
  289. set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
  290. set uvorKoef = uvorot * 50/100
  291. set popKoef = popad * 50/100
  292. if popad > uvorot:
  293. if popad >= uvorot + uvorKoef:
  294. !крит, очень точное попадание
  295. '<B><font color = red>critical hits</font></B>'
  296. xgt 'atakA1','uronKritW'
  297. end
  298. if popad < uvorot+uvorKoef:
  299. !нормальное попадание
  300. '<B><font color = red>Contact</font></B>'
  301. xgt 'atakA1','uronW'
  302. end
  303. end
  304. if popad <= uvorot:
  305. '<B><font color = green>is washed</font></B>'
  306. xgt 'fight','sta'
  307. end
  308. =======
  309. if $ARGS[0]='atakW':
  310. cla
  311. !payment hit dodge
  312. set poSp = speedV*20/100
  313. set uvAg = agil*20/100
  314. set poBox = reactV*20/100
  315. set uvBox = react*20/100
  316. set popad = RAND (reactV-poBox,reactV+poBox) + RAND (speedV-poSp,speedV+poSp)
  317. set uvorot = RAND (react-uvBox,react+uvBox) + RAND (agil-uvAg,agil+uvAg)
  318. set uvorKoef = uvorot*50/100
  319. set popKoef = popad*50/100
  320. if popad > uvorot:
  321. if popad >= uvorot+uvorKoef:
  322. !Crete, very direct hit
  323. '<B><font color=red>Critical hits</font></B>'
  324. xgt'atakA1','uronKritW'
  325. end
  326. if popad < uvorot+uvorKoef:
  327. !normal hit
  328. '<B><font color=red>EYE</font></B>'
  329. xgt'atakA1','uronW'
  330. end
  331. end
  332. if popad <= uvorot:
  333. '<B><font color=green>LOST</font></B>'
  334. xgt'fight','sta'
  335. end
  336. >>>>>>> 052_atakA1
  337. end
  338. <<<<<<< 052_atakA1
  339. if $ARGS[0] = 'uronKritW':
  340. cla
  341. set damKoef = damTipV * 20/100
  342. set damage = RAND(damTipV + damKoef, damTipV + damKoef * 2)
  343. set damKoefM = damTipMV * 20/100
  344. set damageM = RAND(damTipMV + damKoefM, damTipMV + damKoefM * 2)
  345. xgt 'atakA1','damageW'
  346. =======
  347. if $ARGS[0]='uronKritW':
  348. cla
  349. set damKoef = damTipV*20/100
  350. set damage = RAND(damTipV+damKoef,damTipV+damKoef*2)
  351. set damKoefM = damTipMV*20/100
  352. set damageM = RAND(damTipMV+damKoefM,damTipMV+damKoefM*2)
  353. xgt'atakA1','damageW'
  354. >>>>>>> 052_atakA1
  355. end
  356. <<<<<<< 052_atakA1
  357. if $ARGS[0] = 'uronW':
  358. cla
  359. set damKoef = damTipV * 20/100
  360. set damage = RAND(damTipV - damKoef, damTipV + damKoef)
  361. set damKoefM = damTipMV * 20/100
  362. set damageM = RAND(damTipMV - damKoefM, damTipMV + damKoefM)
  363. xgt 'atakA1','damageW'
  364. =======
  365. if $ARGS[0]='uronW':
  366. cla
  367. set damKoef = damTipV*20/100
  368. set damage = RAND(damTipV-damKoef,damTipV+damKoef)
  369. set damKoefM = damTipMV*20/100
  370. set damageM = RAND(damTipMV-damKoefM,damTipMV+damKoefM)
  371. xgt'atakA1','damageW'
  372. >>>>>>> 052_atakA1
  373. end
  374. <<<<<<< 052_atakA1
  375. if $ARGS[0] = 'damageW':
  376. cla
  377. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  378. if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
  379. if damage < 0: set damage = 0
  380. Set health -= damage
  381. Set manna -= damageM
  382. '<B><font color = green>You are harmed <<damage>> units</font></B>'
  383. '<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
  384. if zerkalo > 0:
  385. set zerkalo -= 1
  386. set health -= damage
  387. '<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
  388. end
  389. xgt 'fight','sta'
  390. end
  391. if defence > 0 and klon <= 0 and unmaterial <= 0:
  392. set damSum = damage + damageM
  393. Set defence -= damSum
  394. !Set defenceV -= damage
  395. '<B><font color = green>You have caused damage <<damSum>> Protection of the enemy units</font></B>'
  396. xgt 'fight','sta'
  397. end
  398. if klon > 0 and unmaterial <= 0:
  399. set klon -= 1
  400. '<B><font color = green>Destroyed enemy clone</font></B>'
  401. xgt 'fight','sta'
  402. end
  403. if unmaterial > 0:
  404. set unmaterial -= 1
  405. '<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
  406. xgt 'fight','sta'
  407. end
  408. if barier > 0:
  409. !барьер именитета для урона
  410. if barier >= damage:
  411. '<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
  412. xgt 'fight','sta'
  413. end
  414. if barier < damage:
  415. Set manna -= damageM
  416. Set health -= damage
  417. !Set healthV -= damage
  418. '<B><font color = green>You have caused damage <<damage>> units</font></B>'
  419. '<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
  420. if zerkalo > 0:
  421. set zerkalo -= 1
  422. set healthV -= damage
  423. '<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
  424. end
  425. end
  426. xgt 'fight','sta'
  427. end
  428. =======
  429. if $ARGS[0]='damageW':
  430. cla
  431. if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
  432. if dospeh > 0:set damage = damage - dospehDef&set dospehEn = dospehEn - 1
  433. if damage < 0:set damage = 0
  434. Set health = health - damage
  435. Set manna = manna - damageM
  436. '<B><font color=green>You harmed <<damage>> units</font></B>'
  437. '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
  438. if zerkalo > 0:
  439. set zerkalo = zerkalo - 1
  440. set health = health - damage
  441. '<B><font color=red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
  442. end
  443. xgt'fight','sta'
  444. end
  445. if defence > 0 and klon <= 0 and unmaterial <= 0:
  446. set damSum = damage + damageM
  447. Set defence = defence - damSum
  448. !Set defenceV = defenceV - damage
  449. '<B><font color=green>You have caused damage <<damSum>> Protection of enemy units</font></B>'
  450. xgt'fight','sta'
  451. end
  452. if klon > 0 and unmaterial <= 0:
  453. set klon = klon - 1
  454. '<B><font color=green>Destroyed enemy clone</font></B>'
  455. xgt'fight','sta'
  456. end
  457. if unmaterial > 0:
  458. set unmaterial = unmaterial - 1
  459. '<B><font color=red>Your blow has passed through the body of the enemy. Opponents do not materials</font></B>'
  460. xgt'fight','sta'
  461. end
  462. if barier > 0:
  463. !imeniteta barrier for damage
  464. if barier >= damage:
  465. '<B><font color=red><<$nameV>> easily withstood the blow your</font></B>'
  466. xgt'fight','sta'
  467. end
  468. if barier < damage:
  469. Set manna = manna - damageM
  470. Set health = health - damage
  471. !Set healthV = healthV - damage
  472. '<B><font color=green>You have caused damage <<damage>> units</font></B>'
  473. '<B><font color=green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
  474. if zerkalo > 0:
  475. set zerkalo = zerkalo - 1
  476. set healthV = healthV - damage
  477. '<B><font color=red>Opponent reflected damage and you got <<damage>> points of damage</font></B>'
  478. end
  479. end
  480. xgt'fight','sta'
  481. end
  482. >>>>>>> 052_atakA1
  483. end
  484. --- atakA1 ---------------------------------