1
0

spell 18 KB

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