1
1

049_enemy 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490
  1. # enemy
  2. !Calculation of the enemy`s attack
  3. if $ARGS[0] = 'start':
  4. cla
  5. !in this block is selected on the basis of the variable program enemy attacks
  6. if program = 0:xgt 'enemy', 'fighter'
  7. if program = 1: xgt 'enemy', 'fighter2'
  8. if program = 2:xgt 'enemy', 'fighter3'
  9. if program = 3:xgt 'enemy', 'fighter4'
  10. if program = 4:xgt 'enemy', 'fighter5'
  11. if program = 5:xgt 'enemy', 'kisame'
  12. if program = 6:xgt 'enemy', 'tobi'
  13. if program = 7:xgt 'enemy', 'gedomazo'
  14. if program = 8:xgt 'enemy', 'gun'
  15. if program = 9:xgt 'enemy', 'sasori'
  16. if program = 10:xgt 'enemy', 'konan'
  17. if program = 11:xgt 'enemy', 'hidan'
  18. end
  19. if $ARGS[0] = 'hidan':
  20. cla
  21. if zerkaloV > 0:set barierV = 0
  22. if zerkaloV <= 0:set barierV = 5500
  23. if healthV < vitalV * 10 + strenV * 5:set healthV = vitalV * 10 + strenV * 5
  24. if zerkaloV > 0:
  25. set healthV = vitalV * 10 + strenV * 5
  26. set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
  27. set willpowerV = willV * 10
  28. set health -= 400
  29. set manna -= 500
  30. '<b><font color="red"><<$nameV>> yells "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></b>'
  31. '<b><font color="red">He stabs himself and you feel like the pain pierces the body.</font></b>'
  32. xgt 'fight', 'sta'
  33. exit
  34. end
  35. if zerkaloV <= 0 and defence > 0:
  36. set damTipV = 5000
  37. set bonusShV = 100
  38. set hidanAtk = 1
  39. '<b><font color="red"><<$nameV>> yells "Your existence offends DZHASHINA MY GOD!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></b>'
  40. if klon > 0:set klon = klon / 2 & '<b><font color="red"><<$nameV>> yells "Mraz I slaughter YOU LIKE A PIG!"</font></b>'
  41. xgt 'atakA1', 'atak'
  42. exit
  43. end
  44. if zerkaloV <= 0 and defence <= 0:
  45. set damTipV = 300
  46. set bonusShV = 100
  47. set hidanAtk = 1
  48. '<b><font color="red"><<$nameV>> yells "You will die a blasphemer!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></b>'
  49. if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from the blow spit. <<$nameV>> yells "I IMMORTAL Ravager! And YOU SHIT!"</font></b>'
  50. if tuman > 0:set tuman = 0 & '<b><font color="red"><<$nameV>> yells "You´re pathetic in their vain attempts SPRYATATSYA FROM ME!"</font></b>'
  51. xgt 'atakA1', 'atak'
  52. exit
  53. end
  54. end
  55. if $ARGS[0] = 'konan':
  56. cla
  57. if round < 6:
  58. set mannaV -= 10
  59. set damTipV = 500
  60. '<b><font color="red"><<$nameV>> adds signs hands and you are flying sheets of paper.</font></b>'
  61. if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the paper.</font></b>'
  62. xgt 'atakA1', 'atak'
  63. exit
  64. end
  65. if round >= 6:
  66. if unmaterialV > 5 and defence > 0:
  67. set mannaV -= 250
  68. set damTipV = 15000
  69. set bonusShV = 100
  70. '<b><font color="red"><<$nameV>> takes to the air on the white wings and pulled out from her wings paper falls on you in a flood of flying with terrible speed paper swords.</font></b>'
  71. if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the paper.</font></b>'
  72. xgt 'atakA1', 'atak'
  73. exit
  74. end
  75. if unmaterialV > 5 and defence <= 0:
  76. set mannaV -= 20
  77. set damTipV = 450
  78. '<b><font color="red"><<$nameV>> creates a paper boomerangs that fly in your direction.</font></b>'
  79. xgt 'atakA1', 'atak'
  80. exit
  81. end
  82. if defenceV <= 0 and unmaterialV <= 5:
  83. set mannaV -= 250
  84. set defenceV += 3000
  85. set defenceMV += 3000
  86. set defenceWV += 3000
  87. '<b><font color="red">Conan shoots up to its paper wings like an angel. Around it starts spinning paper creating her protection.</font></b>'
  88. xgt 'fight', 'sta'
  89. exit
  90. end
  91. if unmaterialV <= 2 and konanD < 3:
  92. set mannaV -= 150
  93. set konanD += 1
  94. '<b><font color="red">Conan stops meditating in the air.</font></b>'
  95. xgt 'fight', 'sta'
  96. exit
  97. end
  98. if konanD >= 3:
  99. set mannaV -= 250
  100. set konanD = 0
  101. set unmaterialV = 20
  102. '<b><font color="red">Conan crumbles in the air for thousands of sheets of paper.</font></b>'
  103. xgt 'fight', 'sta'
  104. exit
  105. end
  106. end
  107. end
  108. if $ARGS[0] = 'sasori':
  109. cla
  110. if SasoriBody > 1:set damTipV = 1000
  111. if SasoriBody = 1:set damTipV = 2000
  112. set poisonAV = 1
  113. set defenceV += 10
  114. set defenceMV += 20
  115. set defenceWV += 50
  116. set mannaV -= 10
  117. if SasoriBody = 1 and defence > 0:
  118. set defSasori = defence * 20 / 100
  119. set defence -= defSasori
  120. '<b><font color="red">of rain falls on top of steel needles greatly weaken your defenses.</font></b>'
  121. end
  122. '<b><font color="red"><<$nameV>> shoots at you the whole cloud of poisonous spines.</font></b>'
  123. if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from the blow needle.</font></b>'
  124. xgt 'atakA1', 'atak'
  125. end
  126. if $ARGS[0] = 'gedomazo':
  127. cla
  128. if klon <= 0 and tuman <= 0:
  129. set magweapbonusV = 5000
  130. '<b><font color="red"><<$nameV>> with a furious roar of effort on you for its huge stone fist.</font></b>'
  131. xgt 'atak', 'enemy'
  132. exit
  133. end
  134. if klon > 0 or tuman > 0:
  135. set klon = 0
  136. set tuman = 0
  137. set mannaV -= 500
  138. '<b><font color="red"><<$nameV>> makes a terrible roar and air shock wave sweeps over the battlefield.</font></b>'
  139. xgt 'fight', 'sta'
  140. exit
  141. end
  142. end
  143. if $ARGS[0] = 'tobi':
  144. cla
  145. !программа атаки Тоби
  146. if unmaterialV <= 0 and IzanagiV = 0 and GedoMazo = 0:
  147. *clr
  148. '<b><font color="red"><<$nameV>> fingers to his lips and said quietly, "KUCHIE SAINT BUT JITSU."</font></b>'
  149. '<b><font color="red">you will see Huge stone statue of a demon, and you rushed to the attack.</font></b>'
  150. set GedoMazo = 1
  151. set $nameV = 'Gedo Mazo'
  152. !Статы
  153. set strenV = 1000
  154. set speedV = 100
  155. set agilV = 90
  156. set reactV = 100
  157. set vitalV = 5000
  158. set intelV = 50
  159. set willV = 50
  160. !Навыки
  161. set magikV = 1
  162. set boxingV = 100
  163. set shootV = 100
  164. !Параметры
  165. set healthV = vitalV * 10 + strenV * 5
  166. set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
  167. set willpowerV = willV * 10
  168. set BonusAtakV = 0
  169. set BonusDefV = 0
  170. !программа действий
  171. set barierV = 1500
  172. set program = 7
  173. xgt 'fight', 'start'
  174. exit
  175. end
  176. if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
  177. set mannaV -= 500
  178. set TobiStena = 1
  179. set defenceV += 25000
  180. '<b><font color="red"><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25,000 units.</font></b>'
  181. set barierV = 2000
  182. xgt 'fight', 'sta'
  183. exit
  184. end
  185. if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
  186. set mannaV += 6000
  187. set TobiStena = 2
  188. '<b><font color="red"><<$nameV>> makes the magic sign and you feel like it´s magical energy increases sharply.</font></b>'
  189. xgt 'fight', 'sta'
  190. exit
  191. end
  192. if stun > 0:
  193. set magweapbonusV = 2000
  194. '<b><font color="red"><<$nameV>> triumphantly said, "Now you´re dead."</font></b>'
  195. '<b><font color="red">He grabs you by the throat and lifts his hand in the air.</font></b>'
  196. '<b><font color="red">His fingers like steel and they squeeze your throat with terrible force.</font></b>'
  197. xgt 'atak', 'enemy'
  198. exit
  199. end
  200. if defence >= 5000:
  201. set defence = 0
  202. set defenceM = 0
  203. set defenceActPar = 0
  204. set defenceActParM = 0
  205. set defenceAct = 0
  206. set defenceActM = 0
  207. set defAtk = 0
  208. set mannaV -= 100
  209. set stunV = 1
  210. '<b><font color="red"><<$nameV>> close your eyes and you saw of him as a tear ran down a drop of blood.</font></b>'
  211. '<b><font color="red">He opened his eyes become completely red with black veins and said Amaterasu</font></b>'
  212. '<b><font color="red">In your face rushed black devouring flames destroy your lightning protection.</font></b>'
  213. xgt 'fight', 'sta'
  214. exit
  215. end
  216. if tuman > 0:
  217. set tumanV += tuman
  218. set tuman = 0
  219. '<b><font color="red"><<$nameV>> adds the magic signs your hands and mist coming under his control enveloping the review of you.</font></b>'
  220. '<b><font color="red">He will attack you.</font></b>'
  221. xgt 'atak', 'enemy'
  222. exit
  223. end
  224. if unmaterialV > 0 and klon <= 0:
  225. set stunnerV = 1
  226. set mannaV -= 20
  227. set magweapbonusV = 800
  228. '<b><font color="red"><<$nameV>> attacks you gathered the manna in the hand.</font></b>'
  229. xgt 'atak', 'enemy'
  230. exit
  231. end
  232. if unmaterialV > 0 and klon > 0:
  233. set klon = 0
  234. set stunV = 1
  235. '<b><font color="red"><<$nameV>> adds signs hands and all your clones just turn into steam.</font></b>'
  236. xgt 'atak', 'enemy'
  237. exit
  238. end
  239. if unmaterialV <= 0 and tobizanagi < 2:
  240. set mannaV -= 250
  241. set tobizanagi += 1
  242. !set unmaterialV = 10
  243. '<b><font color="red"><<$nameV>> adds the characters by hand.</font></b>'
  244. xgt 'fight', 'sta'
  245. exit
  246. end
  247. if unmaterialV <= 0 and tobizanagi = 2:
  248. set mannaV -= 250
  249. set tobizanagi = 0
  250. set unmaterialV = 20
  251. set stunV = 1
  252. '<b><font color="red"><<$nameV>> folds his hands and marks around his eyes twisted vortex.</font></b>'
  253. xgt 'fight', 'sta'
  254. exit
  255. end
  256. end
  257. if $ARGS[0] = 'kisame':
  258. cla
  259. !программа атаки Кисаме
  260. if defenceV <= 0 and kisamePro = 0:
  261. set kisamePro = 1
  262. set mannaV -= 150
  263. set defenceV += 1500
  264. set defenceMV += 1500
  265. set defenceWV += 1500
  266. set defenceActParV = 500
  267. set defenceActParMV = 500
  268. set defenceActV = 10
  269. set defenceActMV = 10
  270. '<b><font color="red"><<$nameV>> adds the marks around his hands and formed water sphere protecting it from damage.</font></b>'
  271. xgt 'fight', 'sta'
  272. exit
  273. end
  274. if defenceV <= 1000 and kisamePro > 0:
  275. set mannaV -= 500
  276. set defenceV += 5000
  277. set defenceMV += 5000
  278. set defenceWV += 5000
  279. set defenceActParV = 500
  280. set defenceActParMV = 500
  281. set defenceActV = 10
  282. set defenceActMV = 10
  283. set defAtkMV = 10
  284. '<b><font color="red"><<$nameV>> adds the marks and the space around the hands begins pogruzhatsya water.</font></b>'
  285. if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
  286. xgt 'fight', 'sta'
  287. exit
  288. end
  289. if defenceV > 1000:
  290. set kisamerand= rand(0, 3)
  291. if kisamerand= 0:
  292. set klonV += 3
  293. '<b><font color="red"><<$nameV>> adds the characters by hand.</font></b>'
  294. xgt 'fight', 'sta'
  295. exit
  296. end
  297. if kisamerand> 0:
  298. set mannaV -= 250
  299. set damTipV = 1500
  300. set damTipMV = 2500
  301. set bonusShV = 50
  302. '<b><font color="red"><<$nameV>> adds the characters in the hands and fly sharks have created from the water.</font></b>'
  303. if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
  304. xgt 'atakA1', 'atak'
  305. exit
  306. end
  307. end
  308. '<b><font color="red"><<$nameV>> attacks.</font></b>'
  309. xgt 'enemy', 'fighter'
  310. end
  311. if $ARGS[0] = 'gun':
  312. cla
  313. !непосредственно программа атаки
  314. !gs 'atak'
  315. set damTipV = 1500
  316. '<b><font color="red"><<$nameV>> shoots at you.</font></b>'
  317. xgt 'atakA1', 'atak'
  318. end
  319. if $ARGS[0] = 'fighter':
  320. cla
  321. !непосредственно программа атаки
  322. !gs 'atak'
  323. xgt 'atak', 'enemy'
  324. end
  325. if $ARGS[0] = 'fighter2':
  326. cla
  327. !непосредственно программа атаки
  328. set deystrand = rand(0, 1)
  329. if deystrand = 0:xgt 'atak', 'enemy'
  330. if deystrand = 1:
  331. set knifeV = rand(1, 3)
  332. '<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
  333. xgt 'atak', 'enemy'
  334. end
  335. end
  336. if $ARGS[0] = 'fighter3':
  337. cla
  338. !непосредственно программа атаки
  339. if tuman = 0 and tumanV < 5 and mannaV > 10:
  340. set mannaV -= 10
  341. set tumanV += 10
  342. '<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
  343. xgt 'fight', 'sta'
  344. exit
  345. end
  346. set deystrand = rand(0, 1)
  347. if deystrand = 0:xgt 'atak', 'enemy'
  348. if deystrand = 1:
  349. set knifeV = rand(1, 3)
  350. '<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
  351. xgt 'atak', 'enemy'
  352. end
  353. end
  354. if $ARGS[0] = 'fighter4':
  355. cla
  356. !непосредственно программа атаки
  357. if tuman = 0 and tumanV < 5 and mannaV > 10:
  358. set mannaV -= 10
  359. set tumanV += 10
  360. '<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
  361. xgt 'fight', 'sta'
  362. exit
  363. end
  364. if klonV < 1 and mannaV > 15:
  365. set mannaV -= 15
  366. set klonV += 1
  367. '<b><font color="green">is washed</font></b>'
  368. xgt 'fight', 'sta'
  369. exit
  370. end
  371. set deystrand = rand(0, 1)
  372. if deystrand = 0:xgt 'atak', 'enemy'
  373. if deystrand = 1:
  374. set knifeV = rand(1, 3)
  375. '<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
  376. xgt 'atak', 'enemy'
  377. end
  378. end
  379. if $ARGS[0] = 'fighter5':
  380. cla
  381. !непосредственно программа атаки
  382. if tuman = 0 and tumanV < 5 and mannaV > 10:
  383. set mannaV -= 10
  384. set tumanV += 10
  385. '<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
  386. xgt 'fight', 'sta'
  387. exit
  388. end
  389. if klonV < 1 and mannaV > 15:
  390. set mannaV -= 15
  391. set klonV += 1
  392. '<b><font color="green">is washed</font></b>'
  393. xgt 'fight', 'sta'
  394. exit
  395. end
  396. if stun < 1 and manna > 20:
  397. set stunnerV = 1
  398. set mannaV -= 20
  399. '<b><font color="red"><<$nameV>> attacks you Gouge.</font></b>'
  400. xgt 'atak', 'enemy'
  401. end
  402. set deystrand = rand(0, 1)
  403. if deystrand = 0:xgt 'atak', 'enemy'
  404. if deystrand = 1:
  405. set knifeV = rand(1, 3)
  406. '<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
  407. xgt 'atak', 'enemy'
  408. end
  409. end
  410. --- enemy ---------------------------------