enemy 12 KB

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