058_spell 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773
  1. # spell
  2. if $ARGS[0] = 'reset':
  3. cla
  4. !Создание тумана
  5. 'Accumulated manna <<mannaReset>> units.'
  6. act 'Absorb accumulated manna':
  7. cla
  8. *clr
  9. set manna += mannaReset
  10. set mannaReset = 0
  11. xgt 'fight','sta'
  12. end
  13. act 'Physical attacks': gt 'boxing'
  14. if magik > 0:
  15. act 'Magical attacks': gt 'magik'
  16. end
  17. end
  18. if $ARGS[0] = 'unmat':
  19. cla
  20. !Создание тумана
  21. 'You can become incorporeal for 30 moves, in exchange for 3,000 units Rikudo forces. This part of the force will be lost to you forever after using spells.'
  22. 'Not materiality allows you to skip through your body without getting any impact damage, while slightly reduced longevity spells.'
  23. if rikudo >= 3000:
  24. act 'Become a disembodied':
  25. cla
  26. *clr
  27. set unmaterial = 31
  28. set rikudo += 3000
  29. set mannaReset = 0
  30. xgt 'fight','sta'
  31. end
  32. end
  33. if rikudo < 3000:
  34. 'You have too little strength Rikudo for this spell.'
  35. end
  36. act 'Physical attacks': gt 'boxing'
  37. if magik > 0:
  38. act 'Magical attacks': gt 'magik'
  39. end
  40. end
  41. if $ARGS[0] = 'tuman':
  42. cla
  43. !Создание тумана
  44. if tumanV > 0:
  45. 'It is not possible to impose your fog on the existing fog enemy.'
  46. end
  47. if tumanV <= 0:
  48. 'Create a fog on the battlefield, the enemy closing review. Cost 10 mana.'
  49. act 'Create a fog (10 mana)':
  50. cla
  51. *clr
  52. set manna -= 10
  53. set tuman += 10
  54. gt 'fight','sta'
  55. end
  56. end
  57. act 'Physical attacks': gt 'boxing'
  58. if magik > 0:
  59. act 'Magical attacks': gt 'magik'
  60. end
  61. end
  62. if $ARGS[0] = 'klon':
  63. cla
  64. 'You can create a clone exactly copying you, and themselves to escape from the enemy. 15 mana cost 1 clone.'
  65. act 'Create a clone':
  66. cla
  67. *clr
  68. set manna -= 15
  69. set klon += 1
  70. gt 'fight','sta'
  71. end
  72. act 'Physical attacks': gt 'boxing'
  73. if magik > 0:
  74. act 'Magical attacks': gt 'magik'
  75. end
  76. end
  77. if $ARGS[0] = 'stun':
  78. cla
  79. 'You need to touch up the enemy, then he will be paralyzed. Cost 20 mana.'
  80. act 'Paralytic stroke':
  81. cla
  82. *clr
  83. set manna -= 20
  84. set stunner = 1
  85. xgt 'atak','player'
  86. end
  87. act 'Physical attacks': gt 'boxing'
  88. if magik > 0:
  89. act 'Magical attacks': gt 'magik'
  90. end
  91. end
  92. if $ARGS[0] = 'weap':
  93. cla
  94. 'You can invest in the magical power of the weapon increasing its damage. Cost 20 mana.'
  95. act 'Invest energy':
  96. cla
  97. *clr
  98. set manna -= 20
  99. set magweapbonus = weapbonus * 4
  100. xgt 'atak','player'
  101. end
  102. act 'Physical attacks': gt 'boxing'
  103. if magik > 0:
  104. act 'Magical attacks': gt 'magik'
  105. end
  106. end
  107. if $ARGS[0] = 'wind':
  108. cla
  109. 'Corrupts wind that would blow away the fog. Cost 40 mana.'
  110. act 'Apply':
  111. cla
  112. *clr
  113. set manna -= 40
  114. set tumanV = 0
  115. set tuman = 0
  116. '<B><font color = green>You sent against the wind on the battlefield and destroyed fog.</font></B>'
  117. xgt 'fight','sta'
  118. end
  119. act 'Physical attacks': gt 'boxing'
  120. if magik > 0:
  121. act 'Magical attacks': gt 'magik'
  122. end
  123. end
  124. if $ARGS[0] = 'klon2':
  125. cla
  126. 'You can create three clones exactly copying you, and themselves to escape from the enemy. 45 mana cost 3 clone.'
  127. act 'Create clones':
  128. cla
  129. *clr
  130. set manna -= 45
  131. set klon += 3
  132. gt 'fight','sta'
  133. end
  134. act 'Physical attacks': gt 'boxing'
  135. if magik > 0:
  136. act 'Magical attacks': gt 'magik'
  137. end
  138. end
  139. if $ARGS[0] = 'energo':
  140. cla
  141. 'You can create an energy shield to protect against attacks on health. 100 units of protection costs 50 mana.'
  142. act 'Create energy shield':
  143. cla
  144. *clr
  145. set manna -= 50
  146. set defence += 100
  147. '<B><font color = green>You have imposed energy shield, you now have <<defence>> protection units.</font></B>'
  148. xgt 'fight','sta'
  149. end
  150. act 'Physical attacks': gt 'boxing'
  151. if magik > 0:
  152. act 'Magical attacks': gt 'magik'
  153. end
  154. end
  155. if $ARGS[0] = 'init':
  156. cla
  157. 'You can create a slight slowing of time to get the advantage in speed of reaction and seize the initiative. Costs 60 mana.'
  158. act 'Create a slowdown':
  159. cla
  160. *clr
  161. set manna -= 60
  162. set initBonus = 120
  163. '<B><font color = green>You put the manna in the amplification reaction.</font></B>'
  164. xgt 'fight','sta'
  165. end
  166. act 'Physical attacks': gt 'boxing'
  167. if magik > 0:
  168. act 'Magical attacks': gt 'magik'
  169. end
  170. end
  171. if $ARGS[0] = 'hel':
  172. cla
  173. !Создание тумана
  174. 'Cure yourself or add 400 units of health. 400 mana cost.'
  175. act 'Treated (400 mana)':
  176. cla
  177. *clr
  178. set manna -= 400
  179. set health += 400
  180. '<B><font color = green>You put the manna in the acceleration of regenerative processes in the body.</font></B>'
  181. gt 'fight','sta'
  182. end
  183. act 'Physical attacks': gt 'boxing'
  184. if magik > 0:
  185. act 'Magical attacks': gt 'magik'
  186. end
  187. end
  188. if $ARGS[0] = 'hand':
  189. cla
  190. !Создание тумана
  191. 'Striking hand increases damage 10 times per attack. 100 mana cost.'
  192. act 'Striking hand (100 mana)':
  193. cla
  194. *clr
  195. set manna -= 100
  196. set strenK = stren * 20/100
  197. set magweapbonus = RAND(stren * 10 - strenK, stren * 10 + strenK)
  198. '<B><font color = green>You put the manna in the palm for applying a devastating blow.</font></B>'
  199. xgt 'atak','player'
  200. end
  201. act 'Physical attacks': gt 'boxing'
  202. if magik > 0:
  203. act 'Magical attacks': gt 'magik'
  204. end
  205. end
  206. if $ARGS[0] = 'fire1':
  207. cla
  208. !Создание тумана
  209. 'Flame. Cost 10 mana.'
  210. act 'Flame (10 mana)':
  211. cla
  212. *clr
  213. set manna -= 10
  214. set damTip = 250
  215. '<B><font color = green>You have created a torrent of flames pouring out of your hand.</font></B>'
  216. xgt 'atakA','atak'
  217. end
  218. act 'Physical attacks': gt 'boxing'
  219. if magik > 0:
  220. act 'Magical attacks': gt 'magik'
  221. end
  222. end
  223. if $ARGS[0] = 'fire2':
  224. cla
  225. !Создание тумана
  226. 'Release of fire. 100 mana cost.'
  227. act 'Release of fire (100 mana)':
  228. cla
  229. *clr
  230. set manna -= 100
  231. set damTip = 2500
  232. '<B><font color = green>You have created a huge stream of fire pouring out of your hand.</font></B>'
  233. xgt 'atakA','atak'
  234. end
  235. act 'Physical attacks': gt 'boxing'
  236. if magik > 0:
  237. act 'Magical attacks': gt 'magik'
  238. end
  239. end
  240. if $ARGS[0] = 'fire3':
  241. cla
  242. !Создание тумана
  243. 'Fire barrier, creates a shield of 750 units. 150 mana cost.'
  244. act 'Fire barrier (150 mana)':
  245. cla
  246. *clr
  247. set manna -= 150
  248. set defence += 750
  249. '<B><font color = green>You have created a fire barrier around him, now you <<defence>> protection units.</font></B>'
  250. xgt 'fight','sta'
  251. end
  252. act 'Physical attacks': gt 'boxing'
  253. if magik > 0:
  254. act 'Magical attacks': gt 'magik'
  255. end
  256. end
  257. if $ARGS[0] = 'fire4':
  258. cla
  259. !Создание тумана
  260. 'Firestorm. Cost 250 mana.'
  261. act 'Firestorm (250 mana)':
  262. cla
  263. *clr
  264. set manna -= 250
  265. set damTip = 6250
  266. set bonusSh = 100
  267. '<B><font color = green>The air around you is red-hot and inflamed, a sea of ​​fire fell upon the enemy.</font></B>'
  268. xgt 'atakA','atak'
  269. end
  270. act 'Physical attacks': gt 'boxing'
  271. if magik > 0:
  272. act 'Magical attacks': gt 'magik'
  273. end
  274. end
  275. if $ARGS[0] = 'fire5':
  276. cla
  277. !Создание тумана
  278. 'Flame Shield creates a shield of 2,500 units. 500 mana cost.'
  279. act 'Flame Shield (500 mana)':
  280. cla
  281. *clr
  282. set manna -= 500
  283. set defence += 2500
  284. '<B><font color = green>You have created a wall of fire around it absorbs damage, you now have <<defence>> protection units.</font></B>'
  285. xgt 'fight','sta'
  286. end
  287. act 'Physical attacks': gt 'boxing'
  288. if magik > 0:
  289. act 'Magical attacks': gt 'magik'
  290. end
  291. end
  292. if $ARGS[0] = 'ele1':
  293. cla
  294. !Создание тумана
  295. 'Discharge. Cost 10 mana.'
  296. act 'Discharge (10 mana)':
  297. cla
  298. *clr
  299. set manna -= 10
  300. set damTip = 150
  301. set eleSh = 1
  302. '<B><font color = green>You have created an electrical discharge pouring out of your hand.</font></B>'
  303. xgt 'atakA','atak'
  304. end
  305. act 'Physical attacks': gt 'boxing'
  306. if magik > 0:
  307. act 'Magical attacks': gt 'magik'
  308. end
  309. end
  310. if $ARGS[0] = 'ele2':
  311. cla
  312. !Создание тумана
  313. 'Lightning. 100 mana cost.'
  314. act 'Lightning (100 mana)':
  315. cla
  316. *clr
  317. set manna -= 100
  318. set damTip = 1500
  319. set eleSh = 1
  320. '<B><font color = green>You have created a lightning rattled vystrelevshuyu from your hand.</font></B>'
  321. xgt 'atakA','atak'
  322. end
  323. act 'Physical attacks': gt 'boxing'
  324. if magik > 0:
  325. act 'Magical attacks': gt 'magik'
  326. end
  327. end
  328. if $ARGS[0] = 'ele3':
  329. cla
  330. !Создание тумана
  331. 'Electrical barrier creates a shield of 1,500. 150 mana cost.'
  332. act 'Electric barrier (150 mana)':
  333. cla
  334. *clr
  335. set manna -= 150
  336. set defence += 1500
  337. '<B><font color = green>You have created a wall around himself dancing lightning, you now have <<defence>> protection units.</font></B>'
  338. xgt 'fight','sta'
  339. end
  340. act 'Physical attacks': gt 'boxing'
  341. if magik > 0:
  342. act 'Magical attacks': gt 'magik'
  343. end
  344. end
  345. if $ARGS[0] = 'ele4':
  346. cla
  347. !Создание тумана
  348. 'Dance of thousands of birds. Cost 250 mana.'
  349. act 'Dance of thousands of birds (250 mana)':
  350. cla
  351. *clr
  352. set manna -= 250
  353. set damTip = 3750
  354. set bonusSh = 30
  355. set eleSh = 1
  356. '<B><font color = green>you have gathered the manna in the hand and danced around the palm of your hand lightning leaping through the air with shrieks.</font></B>'
  357. xgt 'atakA','atak'
  358. end
  359. act 'Physical attacks': gt 'boxing'
  360. if magik > 0:
  361. act 'Magical attacks': gt 'magik'
  362. end
  363. end
  364. if $ARGS[0] = 'ele5':
  365. cla
  366. !Создание тумана
  367. 'Plyaschuschaya sphere creates a shield of 5,000 units. 500 mana cost.'
  368. act 'Plyaschuschaya sphere (500 mana)':
  369. cla
  370. *clr
  371. set manna -= 500
  372. set defence += 5000
  373. '<B><font color = green>you have created around him a large sphere of lightning dancing, you now have <<defence>> protection units.</font></B>'
  374. xgt 'fight','sta'
  375. end
  376. act 'Physical attacks': gt 'boxing'
  377. if magik > 0:
  378. act 'Magical attacks': gt 'magik'
  379. end
  380. end
  381. if $ARGS[0] = 'ert1':
  382. cla
  383. !Создание тумана
  384. 'Quicksand trap catches the enemy in quicksand and inflicts 100 units. Cost 10 mana.'
  385. act 'Quicksand (10 mana)':
  386. cla
  387. *clr
  388. set manna -= 10
  389. set damTip = 100
  390. set eleSh = 5
  391. '<B><font color = green>you have created under enemy addictive quicksand.</font></B>'
  392. xgt 'atakA','atak'
  393. end
  394. act 'Physical attacks': gt 'boxing'
  395. if magik > 0:
  396. act 'Magical attacks': gt 'magik'
  397. end
  398. end
  399. if $ARGS[0] = 'ert2':
  400. cla
  401. !Создание тумана
  402. 'Active protection, creates a protective sphere of earth, stone and sand 2,500 mana and health protection, this protection is self-healing in 10 moves absorbing units 20 mana per turn. 100 mana cost.'
  403. act 'Active Protection (100 mana)':
  404. cla
  405. *clr
  406. set manna -= 100
  407. set defence += 2500
  408. set defenceM += 2500
  409. set defenceActPar = 1000
  410. set defenceActParM = 1000
  411. set defenceAct = 10
  412. set defenceActM = 10
  413. '<B><font color = green>Land surrounded you, giving you protection.</font></B>'
  414. xgt 'fight','sta'
  415. end
  416. act 'Physical attacks': gt 'boxing'
  417. if magik > 0:
  418. act 'Magical attacks': gt 'magik'
  419. end
  420. end
  421. if $ARGS[0] = 'ert3':
  422. cla
  423. !Создание тумана
  424. 'Abyss earth asunder underfoot enemy inflicting damage 1,500 and depriving him of the ability to move. 150 mana cost.'
  425. act 'Quicksand (150 mana)':
  426. cla
  427. *clr
  428. set manna -= 150
  429. set damTip = 1500
  430. set eleSh = 5
  431. '<B><font color = green>You are the earth underfoot opponents.</font></B>'
  432. xgt 'atakA','atak'
  433. end
  434. act 'Physical attacks': gt 'boxing'
  435. if magik > 0:
  436. act 'Magical attacks': gt 'magik'
  437. end
  438. end
  439. if $ARGS[0] = 'ert4':
  440. cla
  441. !Создание тумана
  442. 'Absolute protection, creates a huge protective sphere of the earth, which regenerates itself every move and attack the enemy. Cost 250 mana.'
  443. act 'Absolute protection (250 mana)':
  444. cla
  445. *clr
  446. set manna -= 250
  447. set defence += 6250
  448. set defenceM += 6250
  449. set defenceW += 6250
  450. set defenceActPar = 1000
  451. set defenceActParM = 1000
  452. set defenceActParW = 1000
  453. set defenceAct = 15
  454. set defenceActM = 15
  455. set defenceActW = 15
  456. set defAtk = 15
  457. '<B><font color = green>Land surrounded you, giving you protection.</font></B>'
  458. xgt 'fight','sta'
  459. end
  460. act 'Physical attacks': gt 'boxing'
  461. if magik > 0:
  462. act 'Magical attacks': gt 'magik'
  463. end
  464. end
  465. if $ARGS[0] = 'ert5':
  466. cla
  467. !Создание тумана
  468. 'Sando, two huge plates come out of the ground and collapse crushing the enemy inflicting damage to 5,000 units and depriving him of the ability to move. 500 mana cost.'
  469. act 'Sando (500 mana)':
  470. cla
  471. *clr
  472. set manna -= 500
  473. set damTip = 5000
  474. set bonusSh = 50
  475. set eleSh = 5
  476. '<B><font color = green>Two huge plate with a roar came from the earth and imploded.</font></B>'
  477. xgt 'atakA','atak'
  478. end
  479. act 'Physical attacks': gt 'boxing'
  480. if magik > 0:
  481. act 'Magical attacks': gt 'magik'
  482. end
  483. end
  484. if $ARGS[0] = 'wind1':
  485. cla
  486. !Создание тумана
  487. 'A gust of wind, inflicts 100 units destroys clones and fog, it is very difficult to dodge. Cost 10 mana.'
  488. act 'Wind gusts (10 mana)':
  489. cla
  490. *clr
  491. set manna -= 10
  492. set damTip = 100
  493. set bonusSh = 50
  494. '<B><font color = green>You have created a gust of wind.</font></B>'
  495. if klonV > 0: set klonV = 0 & '<B><font color = green>Clone opponent turned into steam.</font></B>'
  496. if tumanV > 0: set tumanV = 0 & '<B><font color = green>Fog enemy torn to shreds by the wind.</font></B>'
  497. xgt 'atakA','atak'
  498. end
  499. act 'Physical attacks': gt 'boxing'
  500. if magik > 0:
  501. act 'Magical attacks': gt 'magik'
  502. end
  503. end
  504. if $ARGS[0] = 'wind2':
  505. cla
  506. !Создание тумана
  507. 'Horrendous pressure inflicts 1,000 clones and destroys the fog is very difficult to dodge. 100 mana cost.'
  508. act 'Horrendous pressure (100 mana)':
  509. cla
  510. *clr
  511. set manna -= 100
  512. set damTip = 1000
  513. set bonusSh = 100
  514. '<B><font color = green>You are sharply raised air pressure.</font></B>'
  515. if klonV > 0: set klonV = 0 & '<B><font color = green>Clone the enemy broke and turned into steam.</font></B>'
  516. if tumanV > 0: set tumanV = 0 & '<B><font color = green>Fog enemy torn apart pressure.</font></B>'
  517. xgt 'atakA','atak'
  518. end
  519. act 'Physical attacks': gt 'boxing'
  520. if magik > 0:
  521. act 'Magical attacks': gt 'magik'
  522. end
  523. end
  524. if $ARGS[0] = 'wind3':
  525. cla
  526. !Создание тумана
  527. 'Vacuum sphere, creates a shield of 1,500. 150 mana cost.'
  528. act 'Vacuum sphere (150 mana)':
  529. cla
  530. *clr
  531. set manna -= 150
  532. set defence += 1500
  533. '<B><font color = green>you have created around themselves the vacuum, you now have <<defence>> protection units.</font></B>'
  534. xgt 'fight','sta'
  535. end
  536. act 'Physical attacks': gt 'boxing'
  537. if magik > 0:
  538. act 'Magical attacks': gt 'magik'
  539. end
  540. end
  541. if $ARGS[0] = 'wind4':
  542. cla
  543. !Создание тумана
  544. 'Vacuum shells cause damage destroys 2,500 clones and fog, it is very difficult to dodge. Cost 250 mana.'
  545. act 'Vacuum Rockets (250 mana)':
  546. cla
  547. *clr
  548. set manna -= 250
  549. set damTip = 2500
  550. set bonusSh = 100
  551. '<B><font color = green>you have created around themselves many areas and they vacuum at high speed with a whistle flew over the battlefield.</font></B>'
  552. if klonV > 0: set klonV = 0 & '<B><font color = green>Clone the enemy broke and turned into steam.</font></B>'
  553. if tumanV > 0: set tumanV = 0 & '<B><font color = green>Fog enemy torn apart pressure.</font></B>'
  554. xgt 'atakA','atak'
  555. end
  556. act 'Physical attacks': gt 'boxing'
  557. if magik > 0:
  558. act 'Magical attacks': gt 'magik'
  559. end
  560. end
  561. if $ARGS[0] = 'wind5':
  562. cla
  563. !Создание тумана
  564. 'Devouring vacuum sucks shield enemy destroying it whatever strength he was not. 500 mana cost.'
  565. if defenceV > 0:
  566. act 'Devouring vacuum (500 mana)':
  567. cla
  568. *clr
  569. set manna -= 500
  570. set defenceV = 0
  571. set defenceMV = 0
  572. set defenceWV = 0
  573. set defenceActParV = 0
  574. set defenceActParMV = 0
  575. set defenceActV = 0
  576. set defenceActMV = 0
  577. set defAtkMV = 0
  578. '<B><font color = green>you have created around themselves the vacuum that sucked in the defense of the enemy to destroy it.</font></B>'
  579. xgt 'fight','sta'
  580. end
  581. end
  582. if defenceV <= 0:
  583. 'The enemy is no shield that can destroy this spell.'
  584. end
  585. act 'Physical attacks': gt 'boxing'
  586. if magik > 0:
  587. act 'Magical attacks': gt 'magik'
  588. end
  589. end
  590. if $ARGS[0] = 'water1':
  591. cla
  592. !Создание тумана
  593. 'Creek manna, inflicts 100 units and 1,000 units absorbs manna. Cost 10 mana.'
  594. act 'Creek mana (10 mana)':
  595. cla
  596. *clr
  597. set manna -= 10
  598. set damTip = 100
  599. set damTipM = 1000
  600. '<B><font color = green>you have created in his hand a small stream of water which was shot at the enemy.</font></B>'
  601. xgt 'atakA','atak'
  602. end
  603. act 'Physical attacks': gt 'boxing'
  604. if magik > 0:
  605. act 'Magical attacks': gt 'magik'
  606. end
  607. end
  608. if $ARGS[0] = 'water2':
  609. cla
  610. !Создание тумана
  611. 'Flooding, inflicts 1,000 units and absorbs 500 units of manna. 100 mana cost.'
  612. act 'Flooding (100 mana)':
  613. cla
  614. *clr
  615. set manna -= 100
  616. set damTip = 1000
  617. set damTipM = 500
  618. '<B><font color = green>From your mouth a flood of water flooded the countryside.</font></B>'
  619. xgt 'atakA','atak'
  620. end
  621. act 'Physical attacks': gt 'boxing'
  622. if magik > 0:
  623. act 'Magical attacks': gt 'magik'
  624. end
  625. end
  626. if $ARGS[0] = 'water3':
  627. cla
  628. !Создание тумана
  629. 'Water bubble creates a protective sphere of water 1,500 protection from all influences, this protection is self-healing in 10 moves absorbing units 20 mana per turn. 150 mana cost.'
  630. act 'Blister (150 mana)':
  631. cla
  632. *clr
  633. set manna -= 150
  634. set defence += 1500
  635. set defenceM += 1500
  636. set defenceW += 1500
  637. set defenceActPar = 500
  638. set defenceActParM = 500
  639. set defenceAct = 10
  640. set defenceActM = 10
  641. '<B><font color = green>Water has created around you the scope of protection.</font></B>'
  642. xgt 'fight','sta'
  643. end
  644. act 'Physical attacks': gt 'boxing'
  645. if magik > 0:
  646. act 'Magical attacks': gt 'magik'
  647. end
  648. end
  649. if $ARGS[0] = 'water4':
  650. cla
  651. !Создание тумана
  652. 'Water shark missile inflicts 1,500 units and 2,500 units consumes mana. Cost 250 mana.'
  653. act 'Water shark missile (250 mana)':
  654. cla
  655. *clr
  656. set manna -= 250
  657. set damTip = 1500
  658. set damTipM = 2500
  659. set bonusSh = 50
  660. '<B><font color = green>You released a pack of sharks consist of water flying towards the enemy like a torpedo.</font></B>'
  661. if klonV > 0: set klonV = 0 & '<B><font color = green>Clones enemy disappeared.</font></B>'
  662. xgt 'atakA','atak'
  663. end
  664. act 'Physical attacks': gt 'boxing'
  665. if magik > 0:
  666. act 'Magical attacks': gt 'magik'
  667. end
  668. end
  669. if $ARGS[0] = 'water5':
  670. cla
  671. !Создание тумана
  672. 'Great flood, the water creates a huge sphere that absorbs enemy and deflating manna from it and handing it to provide increased protection. 500 mana cost.'
  673. act 'Great Flood (500 mana)':
  674. cla
  675. *clr
  676. set manna -= 500
  677. set defence += 5000
  678. set defenceM += 5000
  679. set defenceW += 5000
  680. set defenceActPar = 500
  681. set defenceActParM = 500
  682. set defenceAct = 10
  683. set defenceActM = 10
  684. set defAtkM = 10
  685. '<B><font color = green>you have filled out all the water district that protects you and devour enemy mana.</font></B>'
  686. if klonV > 0: set klonV = 0 & '<B><font color = green>Clones enemy disappeared.</font></B>'
  687. xgt 'fight','sta'
  688. end
  689. act 'Physical attacks': gt 'boxing'
  690. if magik > 0:
  691. act 'Magical attacks': gt 'magik'
  692. end
  693. end
  694. --- spell ---------------------------------