spell.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633
  1. # spell
  2. ! This Location contains the meat of what each spell does to the PC, NPCs, and the environment. Mana costs are handled elsewhere.
  3. ! This location should not be called directly. Should only be called through the "castSpell" location.
  4. ! $ARGS[0] = the name of the spell being cast
  5. ! $ARGS[1] = Spell Success value
  6. ! 2 = Critical Success -> You can make something extra specail happen
  7. ! 1 = Success -> Normal spell effects
  8. ! 0 = Failure -> Spell doesn''t work, probably just fizzles out
  9. ! -1 = Critical Failure -> Spell backfires. Something bad (not terrible) should happen
  10. ! $ARGS[n >= 2] = Any extra parameters needed by the spell
  11. SuccessValue = $ARGS[1]
  12. if $ARGS[0] = 'teleport':
  13. ! Do the stuff of a Teleport
  14. ! ARGS[1] = Success/Failure level
  15. ! ARGS[2] = the Target Location
  16. $NewLocation = $ARGS[2]
  17. :RandLocLoop
  18. $randomLoc = $tpLocations[rand(0,arrsize($tpLocations) - 1)]
  19. if $randomLoc = $NewLocation or $randomLoc = $EntryPoint:
  20. jump 'RandLocLoop'
  21. end
  22. if SuccessValue > 0:
  23. *nl
  24. "The blur you see just outside the ring seems to shift."
  25. wait 1000
  26. if $treeCircArg[$NewLocation] = "":
  27. gt $treeCircLoc[$NewLocation]
  28. else
  29. gt $treeCircLoc[$NewLocation], $treeCircArg[$NewLocation]
  30. end
  31. elseif SuccessValue < 0:
  32. *nl
  33. "The blur you see just outside the ring seems to shift. Something did not go right!"
  34. wait 1000
  35. if $treeCircArg[$randomLoc] = "":
  36. gt $treeCircLoc[$randomLoc]
  37. else
  38. gt $treeCircLoc[$randomLoc], $treeCircArg[$randomLoc]
  39. end
  40. else
  41. 'You feel drained, but the energy fizzles out and nothing happens'
  42. end
  43. killvar '$randomLoc'
  44. killvar '$NewLocation'
  45. result = ""
  46. end
  47. if $ARGS[0] = 'reset':
  48. cla
  49. !Create mist
  50. 'Accumulated manna <<mannaReset>> units.'
  51. act 'Absorb accumulated manna':
  52. cla
  53. *clr
  54. pcs_manna = pcs_manna + mannaReset
  55. mannaReset = 0
  56. xgt'fight','sta'
  57. end
  58. act 'Physical attacks':gt'boxing'
  59. if pcs_magik > 0:
  60. act 'Magic attacks':gt'magik'
  61. end
  62. end
  63. if $ARGS[0] = 'unmat':
  64. cla
  65. !Create mist
  66. '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.'
  67. 'Do not allow to pass through the materiality of the body is not getting any impact damage, while slightly reduced longevity spells.'
  68. if rikudo >= 3000:
  69. act 'Become a disembodied':
  70. cla
  71. *clr
  72. unmaterial = 31
  73. rikudo = rikudo + 3000
  74. mannaReset = 0
  75. xgt'fight','sta'
  76. end
  77. elseif rikudo < 3000:
  78. 'You have too little power Rikudo for this spell.'
  79. end
  80. act 'Physical attacks':gt'boxing'
  81. if pcs_magik > 0:
  82. act 'Magic attacks':gt'magik'
  83. end
  84. end
  85. if $ARGS[0] = 'fog':
  86. ! tuman = the amount of fog around you making you harder to hit
  87. ! tumanV = the amount of fog around your opponent making him harder to hit
  88. if tumanV > 0:
  89. 'It is not possible to call your fog when an existing opponent is already fogged.'
  90. else
  91. if SuccessValue > 0:
  92. tuman += (10 * SuccessValue)
  93. '<b><font color = green>A Fog materializes around, obscuring you from your enemies.</font></b>'
  94. elseif SuccessValue < 0:
  95. tumanV += 10
  96. '<b><font color = red>The spell backfires! A Fog materializes around your enemy, obscuring him from your view.</font></b>'
  97. else
  98. '<b>The spell fizzles. Nothing seems to happen.</b>'
  99. end
  100. end
  101. end
  102. if $ARGS[0] = 'clone':
  103. ! klon = the number of clones that the enemy must destroy before hitting you
  104. if SuccessValue > 0:
  105. klon += SuccessValue
  106. '<b><font color = green><<SuccessValue>> clone<<iif(SuccessValue>1,"s","")>> of you springs from you confusing the enemy.</font></b>'
  107. elseif SuccessValue < 0 and klon > 0:
  108. klon -= 1
  109. '<b><font color = red>The spell backfires! One of your clones disappears.</font></b>'
  110. else
  111. '<b>The spell fizzles. Nothing seems to happen.</b>'
  112. end
  113. end
  114. if $ARGS[0] = 'stun':
  115. ! stunner = 1 stuns the enemy for 3-6 rounds
  116. if SuccessValue > 0:
  117. stunner = 1
  118. '<b><font color = green>Your enemy is stunned.</font></b>'
  119. else
  120. '<b>The spell fizzles. Nothing seems to happen.</b>'
  121. end
  122. xgt'atak','player'
  123. end
  124. if $ARGS[0] = 'weapon':
  125. if SuccessValue > 0:
  126. magweapbonus = weapbonus * 4 * SuccessValue
  127. '<b><font color = green>Your Weapon now feels more powerful.</font></b>'
  128. elseif SuccessValue < 0:
  129. magweapbonus = weapbonus * -1
  130. '<b><font color = red>The spell backfires! Your weapon seems weaker.</font></b>'
  131. else
  132. '<b>The spell fizzles. Nothing seems to happen.</b>'
  133. end
  134. xgt'atak','player'
  135. end
  136. if $ARGS[0] = 'wind':
  137. ! tuman = the amount of fog around you making you harder to hit
  138. ! tumanV = the amount of fog around your opponent making him harder to hit
  139. if SuccessValue = 2:
  140. tumanV = 0
  141. '<b><font color = green>A wind blows through the area eliminating your enemys fog from the battlefield.</font></b>'
  142. elseif SuccessValue = 1:
  143. tumanV = 0
  144. tuman = 0
  145. '<b><font color = green>A wind blows through the area eliminating all fog on the battlefield.</font></b>'
  146. elseif SuccessValue = -1:
  147. tuman = 0
  148. '<b><font color = red>A wind blows through the area eliminating your fog from the battlefield.</font></b>'
  149. else
  150. '<b>The spell fizzles. Nothing seems to happen.</b>'
  151. end
  152. end
  153. if $ARGS[0] = 'multiclone':
  154. ! klon = the number of clones that the enemy must destroy before hitting you
  155. if SuccessValue > 0:
  156. klon += SuccessValue * 3
  157. '<b><font color = green><<SuccessValue * 3>> clone<<iif(SuccessValue>1,"s","")>> of you springs from you confusing the enemy.</font></b>'
  158. elseif SuccessValue < 0 and klon > 0:
  159. if klon < 3:
  160. klon = 0
  161. else
  162. klon -= 3
  163. end
  164. '<b><font color = red>The spell backfires! Some of your clones disappear.</font></b>'
  165. else
  166. '<b>The spell fizzles. Nothing seems to happen.</b>'
  167. end
  168. end
  169. if $ARGS[0] = 'energo':
  170. ! defence = absorbs damage before health begins to be removed
  171. if SuccessValue > 0:
  172. defence += (100 * SuccessValue)
  173. '<b><font color = green>An energy shield materializes around you, protecting you from your enemies.</font></b>'
  174. elseif SuccessValue < 0:
  175. defenceV += 100
  176. '<b><font color = red>The spell backfires! An energy shield materializes around your enemy, protecting him from you.</font></b>'
  177. else
  178. '<b>The spell fizzles. Nothing seems to happen.</b>'
  179. end
  180. end
  181. if $ARGS[0] = 'haste':
  182. if SuccessValue > 0:
  183. initBonus += (120 * SuccessValue)
  184. '<b><font color = green>Your mind and body seem to race though a sluggish world.</font></b>'
  185. elseif SuccessValue < 0:
  186. initBonusV += 120
  187. '<b><font color = red>The spell backfires! Your enemy seems to move faster.</font></b>'
  188. else
  189. '<b>The spell fizzles. Nothing seems to happen.</b>'
  190. end
  191. end
  192. if $ARGS[0] = 'heal':
  193. if SuccessValue > 0:
  194. pcs_health += (400 * SuccessValue)
  195. '<b><font color = green>Your body surges with life. You feel much stronger.</font></b>'
  196. else
  197. '<b>The spell fizzles. Nothing seems to happen.</b>'
  198. end
  199. end
  200. if $ARGS[0] = 'hand':
  201. if SuccessValue > 0:
  202. strenK = pcs_stren*20*SuccessValue/100
  203. magweapbonus = RAND(pcs_stren*10 - strenK,pcs_stren*10 + strenK)
  204. '<b><font color = green>Your hands now feel more powerful.</font></b>'
  205. elseif SuccessValue < 0:
  206. strenK = pcs_stren*20/100
  207. magweapbonus = 0 - RAND(pcs_stren*10 - strenK,pcs_stren*10 + strenK)
  208. '<b><font color = red>The spell backfires! Your hands seem weaker.</font></b>'
  209. else
  210. '<b>The spell fizzles. Nothing seems to happen.</b>'
  211. end
  212. xgt'atak','player'
  213. end
  214. if $ARGS[0] = 'scaldingtouch':
  215. if SuccessValue > 0:
  216. damTip = 250 * SuccessValue
  217. '<b><font color = green>Flames spring from your hands.</font></b>'
  218. else
  219. '<b>The spell fizzles. Nothing seems to happen.</b>'
  220. end
  221. xgt'atakA','atak'
  222. end
  223. if $ARGS[0] = 'burninghands':
  224. if SuccessValue > 0:
  225. damTip = 2500 * SuccessValue
  226. '<b><font color = green>A torrent of flames jets from your hands.</font></b>'
  227. else
  228. '<b>The spell fizzles. Nothing seems to happen.</b>'
  229. end
  230. xgt'atakA','atak'
  231. end
  232. if $ARGS[0] = 'firebarrier':
  233. if SuccessValue > 0:
  234. defence += (750 * SuccessValue)
  235. '<b><font color = green>A flaming barrier has sprung up between you and your opponent. You now have <<defence>> protection units.</font></b>'
  236. elseif SuccessValue < 0:
  237. defenceV += 750
  238. '<b><font color = red>The spell backfires! A flaming barrier has sprung up between you and your opponent. Your enemy now has <<defence>> protection units.</font></b>'
  239. else
  240. '<b>The spell fizzles. Nothing seems to happen.</b>'
  241. end
  242. end
  243. if $ARGS[0] = 'firestorm':
  244. if SuccessValue > 0:
  245. damTip = 4250 + (2000 * SuccessValue)
  246. bonusSh = 100
  247. '<b><font color = green>Uncountable glowing embers steak down upon your foes.</font></b>'
  248. elseif SuccessValue < 0:
  249. damTip = 2000
  250. pcs_health -= 200
  251. bonusSh = 100
  252. '<b><font color = red>The spell backfires! Uncountable glowing embers steak down upon the battlefield burning everyone.</font></b>'
  253. else
  254. '<b>The spell fizzles. Nothing seems to happen.</b>'
  255. end
  256. xgt'atakA','atak'
  257. end
  258. if $ARGS[0] = 'flameshield':
  259. if SuccessValue > 0:
  260. defence += (2500 * SuccessValue)
  261. '<b><font color = green>A Shield made of Flames interposes itself between you and your enemy. You now have <<defence>> protection units.</font></b>'
  262. elseif SuccessValue < 0:
  263. defenceV += 2500
  264. '<b><font color = red>The spell backfires! A Shield made of Flames interposes itself between you and your enemy. Your enemy now has <<defence>> protection units.</font></b>'
  265. else
  266. '<b>The spell fizzles. Nothing seems to happen.</b>'
  267. end
  268. end
  269. if $ARGS[0] = 'shock':
  270. if SuccessValue > 0:
  271. damTip = (150 * SuccessValue)
  272. eleSh = 1
  273. '<b><font color = green>You build a static electric charge in your hand and zap your opponent.</font></b>'
  274. elseif SuccessValue < 0:
  275. pcs_health -= 50
  276. '<b><font color = red>The spell backfires! You manage to zap yourself with a static charge.</font></b>'
  277. else
  278. '<b>The spell fizzles. Nothing seems to happen.</b>'
  279. end
  280. xgt'atakA','atak'
  281. end
  282. if $ARGS[0] = 'lightning':
  283. if SuccessValue > 0:
  284. damTip = (1500 * SuccessValue)
  285. eleSh = 1
  286. '<b><font color = green>You shoot a lightning bolt from your hand zapping your opponent.</font></b>'
  287. elseif SuccessValue < 0:
  288. pcs_health -= 300
  289. '<b><font color = red>The spell backfires! You manage to zap yourself with lightning.</font></b>'
  290. else
  291. '<b>The spell fizzles. Nothing seems to happen.</b>'
  292. end
  293. xgt'atakA','atak'
  294. end
  295. if $ARGS[0] = 'electricbarrier':
  296. if SuccessValue > 0:
  297. defence += (1500 * SuccessValue)
  298. '<b><font color = green>A wall of dancing lightning springs up around yourself. You now have <<defence>> protection units.</font></b>'
  299. elseif SuccessValue < 0:
  300. defenceV += 1500
  301. '<b><font color = red>The spell backfires! A wall of dancing lightning springs up around your enemy. Your enemy now has <<defence>> protection units.</font></b>'
  302. else
  303. '<b>The spell fizzles. Nothing seems to happen.</b>'
  304. end
  305. end
  306. if $ARGS[0] = '1000birds':
  307. if SuccessValue > 0:
  308. damTip = 2750 + (1000 * SuccessValue)
  309. bonusSh = 30
  310. eleSh = 1
  311. '<b><font color = green>You shoot hundreds of small lightning bolts toward your enemy.</font></b>'
  312. elseif SuccessValue < 0:
  313. damTip = 2000
  314. pcs_health -= 200
  315. bonusSh = 30
  316. eleSh = 1
  317. '<b><font color = red>The spell backfires! Hundreds of small lightning bolts curl toward the battlefield shocking everyone.</font></b>'
  318. else
  319. '<b>The spell fizzles. Nothing seems to happen.</b>'
  320. end
  321. end
  322. if $ARGS[0] = 'dancingsphere':
  323. if SuccessValue > 0:
  324. defence += (5000 * SuccessValue)
  325. '<b><font color = green>A large field of lightning dances around you blocking attacks. You now have <<defence>> protection units.</font></b>'
  326. elseif SuccessValue < 0:
  327. defenceV += 5000
  328. '<b><font color = red>The spell backfires! A large field of lightning dances around you blocking attacks. Your enemy now has <<defence>> protection units.</font></b>'
  329. else
  330. '<b>The spell fizzles. Nothing seems to happen.</b>'
  331. end
  332. end
  333. if $ARGS[0] = 'quicksand':
  334. if SuccessValue > 0:
  335. damTip = 100 * SuccessValue
  336. eleSh = 5
  337. '<b><font color = green>You have trapped your opponent in quicksand.</font></b>'
  338. elseif SuccessValue < 0:
  339. damTip = 100
  340. pcs_health -= 50
  341. eleSh = 5
  342. '<b><font color = red>The spell backfires! You are both trapped in quicksand.</font></b>'
  343. else
  344. '<b>The spell fizzles. Nothing seems to happen.</b>'
  345. end
  346. xgt'atakA','atak'
  347. end
  348. if $ARGS[0] = 'earthshield':
  349. if SuccessValue > 0:
  350. defence += 1500 + (1000 * SuccessValue)
  351. defenceM += 2500
  352. defenceActPar = 1000
  353. defenceActParM = 1000
  354. defenceAct = 10
  355. defenceActM = 10
  356. '<b><font color = green>Tendrils of Earth rise to defend you. You now have <<defence>> protection units.</font></b>'
  357. elseif SuccessValue < 0:
  358. defenceV += 2500
  359. '<b><font color = red>The spell backfires! Tendrils of Earth rise to defend your enemy. Your enemy now has <<defence>> protection units.</font></b>'
  360. else
  361. '<b>The spell fizzles. Nothing seems to happen.</b>'
  362. end
  363. end
  364. if $ARGS[0] = 'abyss':
  365. if SuccessValue > 0:
  366. damTip = 1500 * SuccessValue
  367. eleSh = 5
  368. '<b><font color = green>The Earth opens up beneath your opponents feet, slamming shut damaging him and depriving him of the ability to move.</font></b>'
  369. elseif SuccessValue < 0:
  370. damTip = 1500
  371. pcs_health -= 200
  372. eleSh = 5
  373. '<b><font color = red>The spell backfires! The Earth opens up beneath your opponents feet, slamming shut damaging him and depriving him of the ability to move. You are also caught.</font></b>'
  374. else
  375. '<b>The spell fizzles. Nothing seems to happen.</b>'
  376. end
  377. xgt'atakA','atak'
  378. end
  379. if $ARGS[0] = 'earthguardian':
  380. if SuccessValue > 0:
  381. defence += 5200 + (2000 * SuccessValue)
  382. defenceM += 6250
  383. defenceW += 6250
  384. defenceActPar = 1000
  385. defenceActParM = 1000
  386. defenceActParW = 1000
  387. defenceAct = 15
  388. defenceActM = 15
  389. defenceActW = 15
  390. defAtk = 15
  391. '<b><font color = green>The Earth itself comes alive defending you from attacks. It draws from the power of the land to regenerate itself every round. You now have <<defence>> protection units.</font></b>'
  392. elseif SuccessValue < 0:
  393. defenceV += 2500
  394. '<b><font color = red>The spell backfires! Tendrils of Earth rise to defend your enemy. Your enemy now has <<defence>> protection units.</font></b>'
  395. else
  396. '<b>The spell fizzles. Nothing seems to happen.</b>'
  397. end
  398. end
  399. if $ARGS[0] = 'sando':
  400. if SuccessValue > 0:
  401. damTip = 3000 + (2000 * SuccessValue)
  402. bonusSh = 50
  403. eleSh = 5
  404. '<b><font color = green>Two huge plates of earth colapse together crushing the enemy and depriving him of the ability to move.</font></b>'
  405. elseif SuccessValue < 0:
  406. pcs_health -= 200
  407. '<b><font color = red>The spell backfires! Two huge plates of earth colapse together with crushing force, but the enemy is missed and you are instead caught.</font></b>'
  408. else
  409. '<b>The spell fizzles. Nothing seems to happen.</b>'
  410. end
  411. xgt'atakA','atak'
  412. end
  413. if $ARGS[0] = 'windgust':
  414. if SuccessValue > 0:
  415. damTip = 100 * SuccessValue
  416. bonusSh = 50
  417. '<b><font color = green>You have created a gust of wind.</font></b>'
  418. if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
  419. if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
  420. elseif SuccessValue < 0:
  421. pcs_health -= 50
  422. '<b><font color = red>The spell backfires! You have created a gust of wind, but the enemy is missed and you are instead caught.</font></b>'
  423. if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
  424. if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
  425. else
  426. '<b>The spell fizzles. Nothing seems to happen.</b>'
  427. end
  428. xgt'atakA','atak'
  429. end
  430. if $ARGS[0] = 'pressure':
  431. if SuccessValue > 0:
  432. damTip = 1000 * SuccessValue
  433. bonusSh = 100
  434. '<b><font color = green>You dramatically raised the air pressure.</font></b>'
  435. if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
  436. if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
  437. elseif SuccessValue < 0:
  438. pcs_health -= 200
  439. '<b><font color = red>The spell backfires! You dramatically raised the air pressure, but the enemy is missed and you are instead caught.</font></b>'
  440. if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
  441. if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
  442. else
  443. '<b>The spell fizzles. Nothing seems to happen.</b>'
  444. end
  445. xgt'atakA','atak'
  446. end
  447. if $ARGS[0] = 'vacuum':
  448. if SuccessValue > 0:
  449. defence += (1500 * SuccessValue)
  450. '<b><font color = green>A turbulent sphere of vacuum surrounds you blocking incoming attacks. You now have <<defence>> protection units.</font></b>'
  451. elseif SuccessValue < 0:
  452. defenceV += 1500
  453. '<b><font color = red>The spell backfires! A turbulent sphere of vacuum surrounds your enemy blocking your attacks. Your enemy now has <<defence>> protection units.</font></b>'
  454. else
  455. '<b>The spell fizzles. Nothing seems to happen.</b>'
  456. end
  457. end
  458. if $ARGS[0] = 'vacuumshells':
  459. if SuccessValue > 0:
  460. damTip = 2500 * SuccessValue
  461. bonusSh = 100
  462. '<b><font color = green>Turbulent spheres of vacuum bombard your enemy. The air is full of whistling sounds as the spheres fly by at high speeds over the battlefield.</font></b>'
  463. if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
  464. if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
  465. elseif SuccessValue < 0:
  466. pcs_health -= 200
  467. '<b><font color = red>The spell backfires! Turbulent spheres of vacuum bombard your enemy. The air is full of whistling sounds as the spheres fly by at high speeds over the battlefield, but the enemy is missed and you are instead caught.</font></b>'
  468. if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
  469. if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
  470. else
  471. '<b>The spell fizzles. Nothing seems to happen.</b>'
  472. end
  473. xgt'atakA','atak'
  474. end
  475. if $ARGS[0] = 'devouringvacuum':
  476. if SuccessValue > 0:
  477. defenceV = 0
  478. defenceMV = 0
  479. defenceWV = 0
  480. defenceActParV = 0
  481. defenceActParMV = 0
  482. defenceActV = 0
  483. defenceActMV = 0
  484. defAtkMV = 0
  485. '<b><font color = green>A devouring vacuum sucks away your enemys defenses.</font></b>'
  486. elseif SuccessValue < 0:
  487. defence = 0
  488. defenceM = 0
  489. defenceW = 0
  490. defenceActPar = 0
  491. defenceActParM = 0
  492. defenceAct = 0
  493. defenceActM = 0
  494. defAtkM = 0
  495. '<b><font color = red>The spell backfires! A devouring vacuum sucks away your defenses.</font></b>'
  496. else
  497. '<b>The spell fizzles. Nothing seems to happen.</b>'
  498. end
  499. end
  500. if $ARGS[0] = 'leechmana':
  501. if SuccessValue > 0:
  502. damTip = 100 * SuccessValue
  503. damTipM = 1000
  504. '<b><font color = green>You leech mana from your enemy.</font></b>'
  505. elseif SuccessValue < 0:
  506. pcs_health -= 50
  507. '<b><font color = red>The spell backfires! Ouch!</font></b>'
  508. else
  509. '<b>The spell fizzles. Nothing seems to happen.</b>'
  510. end
  511. xgt'atakA','atak'
  512. end
  513. if $ARGS[0] = 'flood':
  514. if SuccessValue > 0:
  515. damTip = 1000 * SuccessValue
  516. damTipM = 500
  517. '<b><font color = green>A surge of water rises towards your enemy.</font></b>'
  518. elseif SuccessValue < 0:
  519. pcs_health -= 100
  520. '<b><font color = red>The spell backfires! A surge of water rises towards your enemy, but missed and hits you.</font></b>'
  521. else
  522. '<b>The spell fizzles. Nothing seems to happen.</b>'
  523. end
  524. xgt'atakA','atak'
  525. end
  526. if $ARGS[0] = 'blister':
  527. if SuccessValue > 0:
  528. defence += 1500
  529. defenceM += 1500
  530. defenceW += 1500
  531. defenceActPar = 500
  532. defenceActParM = 500
  533. defenceAct = 10
  534. defenceActM = 10
  535. '<b><font color = green>A protective sphere of water surrounds you.</font></b>'
  536. elseif SuccessValue < 0:
  537. defenceV += 1500
  538. '<b><font color = red>The spell backfires! A protective sphere of water surrounds your enemy.</font></b>'
  539. else
  540. '<b>The spell fizzles. Nothing seems to happen.</b>'
  541. end
  542. end
  543. if $ARGS[0] = 'sharkrockets':
  544. if SuccessValue > 0:
  545. damTip = 1500 * SuccessValue
  546. damTipM = 2500
  547. bonusSh = 50
  548. '<b><font color = green>Blobs of Water shaped like sharks fly towards your enemy stiking them.</font></b>'
  549. if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are eliminated.</font></b>'
  550. elseif SuccessValue < 0:
  551. pcs_health -= 100
  552. '<b><font color = red>The spell backfires! Blobs of Water shaped like sharks fly towards your enemy, but missed and hits you.</font></b>'
  553. if klon > 0:klon = 0 & '<b><font color = green>Your clones are eliminated.</font></b>'
  554. else
  555. '<b>The spell fizzles. Nothing seems to happen.</b>'
  556. end
  557. xgt'atakA','atak'
  558. end
  559. if $ARGS[0] = 'greatflood':
  560. if SuccessValue > 0:
  561. defence += 5000
  562. defenceM += 5000
  563. defenceW += 5000
  564. defenceActPar = 500
  565. defenceActParM = 500
  566. defenceAct = 10
  567. defenceActM = 10
  568. defAtkM = 10
  569. '<b><font color = green>You have filled the whole neighborhood with water protecting you and devouring enemy mana.</font></b>'
  570. if klonV > 0:klonV = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
  571. elseif SuccessValue < 0:
  572. defenceV += 1500
  573. '<b><font color = red>The spell backfires! A huge flood of water surrounds your enemy protecting him.</font></b>'
  574. if klon > 0:klon = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
  575. else
  576. '<b>The spell fizzles. Nothing seems to happen.</b>'
  577. end
  578. end
  579. killvar 'SuccessValue'
  580. --- spell ---------------------------------