glife/locations/spell.qsrc

# spell
! This Location contains the meat of what each spell does to the PC, NPCs, and the environment. Mana costs are handled elsewhere.
! This location should not be called directly.  Should only be called through the "castSpell" location.
!	$ARGS[0] = the name of the spell being cast
!	$ARGS[1] = Spell Success value
!		2  = Critical Success	-> You can make something extra specail happen
!		1  = Success			-> Normal spell effects
!		0  = Failure			-> Spell doesn''t work, probably just fizzles out
!		-1 = Critical Failure	-> Spell backfires.  Something bad (not terrible) should happen
!	$ARGS[n >= 2] = Any extra parameters needed by the spell
!
!	For Combat Spells:
!	$ARGS[2] = Target Type ('opp','pcs')
!	 ARGS[3] = Target party member number
!	 ARGS[4] = Caster party member number

SuccessValue = $ARGS[1]

! ARGS for Combat Spells if Applicable
$TargetType = $ARGS[2]
if $TargetType = 'pcs':
	$CasterType = 'opp'
elseif $TargetType = 'opp':
	$CasterType = 'pcs'
else
	$CasterType = 'pcs'
	$TargetType = 'pcs'
end
TargetNumber = ARGS[3]
CasterNumber = ARGS[3]


if $ARGS[0] = 'teleport':
	! Do the stuff of a Teleport
	!	ARGS[1] = Success/Failure level
	!	ARGS[2] = the Target Location

	$NewLocation = $ARGS[2]

	:RandLocLoop
	$randomLoc = $tpLocations[rand(0,arrsize('$tpLocations') - 1)]
	if $randomLoc = $NewLocation or $randomLoc = $EntryPoint:
		jump 'RandLocLoop'
	end

	if SuccessValue > 0:
		*nl
		"The blur you see just outside the ring seems to shift."
		wait 1000
		if $treeCircArg[$NewLocation] = "":
			gt $treeCircLoc[$NewLocation]
		else
			gt $treeCircLoc[$NewLocation], $treeCircArg[$NewLocation]
		end
	elseif SuccessValue < 0:
		*nl
		"The blur you see just outside the ring seems to shift.  Something did not go right!"
		wait 1000
		if $treeCircArg[$randomLoc] = "":
			gt $treeCircLoc[$randomLoc]
		else
			gt $treeCircLoc[$randomLoc], $treeCircArg[$randomLoc]
		end
	else
		'You feel drained, but the energy fizzles out and nothing happens'
	end

	killvar '$randomLoc'
	killvar '$NewLocation'

	result = ""

end

if $ARGS[0] = 'regenerate':
	if SuccessValue > 0:
		! How much health is gained per minute
		regenVal = 5 * SuccessValue
		! Immediate health gain
		pcs_health += regenVal
		! If Regenerate is already running, we only extend.
		regenArrIdx = arrpos('$spellTimeName','regenerate')
		if regenArrIdx > -1:
			! if it''s found, then update only
			spellComplete[regenArrIdx] = totminut + 120
			$spellCompExec[regenArrIdx] = 'pcs_health += (5 * <<regenVal>>)'
			$spellTickExec[regenArrIdx] = 'pcs_health += <<regenVal>>'
		else
			! Add Timer:
			!	spellName = 'regenerate'
			!	duration  = 120
			!	CompCode = 'pcs_health += (5 * <<regenVal>>)'
			!	TickCode = 'pcs_health += <<regenVal>>'
			gs 'spellTimer', 'add', 'regenerate', 120, 'pcs_health += (5 * <<regenVal>>)', 'pcs_health += <<regenVal>>'
		end

		'<b><font color = green>Your body surges with life. You feel better already.</font></b>'
		killvar 'regenVal'
		killvar 'regenArrIdx'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'painblock':
	if SuccessValue > 0:
		pain['killer'] = 1
		'<b><font color = green>Your pain recedes into a dull throb.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'curedisease':
	if SuccessValue > 0:
		! Cure Diseses
		dynamic $cheatmenu['std_cure']
		! Cause pain where diseases burned out
		pain['head'] += 10
		pain['nose'] += 10
		pain['mouth'] += 10
		pain['lips'] += 10
		pain['throat'] += 10
		pain['asshole'] += 10
		pain['chest'] += 10
		pain['tummy'] += 10
		pain['urethra'] += 10
		pain['vaginal'] += 10
		! You do not feel good
		pcs_mood -= 30
		'<b><font color = green>You burst into a high fever.  You feel terrible, but you know you are now healthy.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'curewounds':
	if SuccessValue > 0:
		! Remove some pain
		gs 'medical_din','healthTreatment'
		gs 'medical_din','healthTreatment'
		'<b><font color = green>You feel yourself coursing with life.  You feel better already.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'curewounds2':
	if SuccessValue > 0:
		! Remove all pain
		killvar 'pain'
		pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
		'<b><font color = green>You feel yourself coursing with life.  All pain is gone.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'berserk':
	if SuccessValue > 0:
		spellArrIdx = arrpos('$spellTimeName','berserk')
		pain['killer'] = 1
		if spellArrIdx > -1:
			! if it''s found, then update only
			spellComplete[spellArrIdx] = totminut + 120
		else
			! Save current Health percentage, since changing these stats will change healthmax
			healthPercent = pcs_health * 100 / healthmax
			staminPercent = pcs_stam * 100 / stammax
			! Boost Stats
			stren_lvl += 200
			stren_lvlst += 200
			stren_muta += 4
			agil_lvl += 200
			agil_lvlst += 200
			agil_muta += 4
			vital_lvl += 200
			vital_lvlst += 200
			vital_muta += 4
			!gs 'stat_sklattrib'
			! Run stats to recalculate max health
			gs 'stat'
			! Update health to be appropiate percentage of new healthmax
			pcs_health = (healthPercent * healthmax / 100) + 1
			pcs_stam = (staminPercent * stammax) + 1
			! Add Timer to remove this effect after tiem period
			$berserkCode={
				! Return Stats to normal
				stren_lvl -= 200
				stren_lvlst -= 200
				stren_muta -= 4
				agil_lvl -= 200
				agil_lvlst -= 200
				agil_muta -= 4
				vital_lvl -= 200
				vital_lvlst -= 200
				vital_muta -= 4
			}
			gs 'spellTimer', 'add', 'berserk', 120, $berserkCode, ''
		end
		'<b><font color = green>You feel a huge adrenalin surge. You begin looking for someone to battle.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	killvar 'spellArrIdx'
	killvar 'berserkCode'
	killvar 'healthPercent'
	killvar 'staminPercent'
end

if $ARGS[0] = 'shower':
	if SuccessValue > 0:
		! Take a Shower
		gs 'cum_cleanup'
		lactation['lactmess'] = 0
		pcs_sweat = 10
		! Brush Teeth
		pcs_breath = 1
		'<b><font color = green>You feel clean and refreshed.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'makeup':
	if SuccessValue > 0:
		! Argument should be 3 digit string representing Makeup to apply
		$MakeupArg = $ARGS[2]
		if $MakeupArg = '': $MakeupArg = '210'
		! Arg[0] = Makeup Amount (0-3)
		MakeupArg[0] = val(mid($MakeupArg,1,1))
		! Arg[1] = Lip Balm application (0-1)
		MakeupArg[1] = val(mid($MakeupArg,2,1))
		! Arg[2] = False lash Application (0-2)
		MakeupArg[2] = val(mid($MakeupArg,3,1))

		! Brush hair
		pcs_hairbsh = 1
		! Apply Makeup
		pcs_makeup = MakeupArg[0]
		! Apply Lipbalm
		pcs_lipbalm += 8*MakeupArg[1]
		! Apply False Lashes
		if MakeupArg[2] = 1 and pcs_lashes < 3:
			pcs_lashes = 3
		elseif MakeupArg[2] = 2 and pcs_lashes < 4:
			pcs_lashes = 4
		end

		killvar 'MakeupArg'
		killvar '$MakeupArg'
		'<b><font color = green>makeup is applied to your face.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'cosmetica':
	if SuccessValue > 0:
		! Take a Shower
		gs 'cum_cleanup'
		lactation['lactmess'] = 0
		pcs_sweat = 10
		! Brush Teeth
		pcs_breath = 1
		! Remove graffiti from self
		body_write = 0
		face_write = 0
		! Enema
		klismaday = daystart
		klismaday1 = 1
		! Brush hair
		pcs_hairbsh = 1
		! Apply Makeup
		pcs_makeup = 3
		!if shave_menu = 0:nothing
		!if shave_menu = 1:legs and pussy
		!if shave_menu = 2:pussy only
		!if shave_menu = 3:legs only
		if shave_menu = 1 or shave_menu = 3:
			! Shave Legs
			pcs_leghair = 0
		end
		if shave_menu = 1 or shave_menu = 2:
			! Shave Pubes
			if pubestyle = 1:
				pcs_pubes = 0
			elseif pubestyle >= 2 and pubestyle <= 7:
				pcs_pubes = 11
			elseif pubestyle = 8:
				pcs_pubes = 16
			elseif pubestyle = 9:
				pcs_pubes = 21
			elseif pubestyle = 10:
				pcs_pubes = 26
			end
		end

		'<b><font color = green>You feel beautiful.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'reset':
	cla
	!Create mist
	'Accumulated mana <<manaReset>> units.'

	act 'Absorb accumulated mana':
		cla
		*clr
		pcs_mana = pcs_mana + manaReset
		manaReset = 0
		xgt'fight','sta'
	end
	act 'Physical attacks':gt'boxing'

	if pcs_magik > 0:
		act 'Magic attacks':gt'magik'
	end
end

if $ARGS[0] = 'unmat':
	cla
	!Create mist
	'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.'
	'Do not allow to pass through the materiality of the body is not getting any impact damage, while slightly reduced longevity spells.'

	if rikudo >= 3000:
		act 'Become a disembodied':
			cla
			*clr
			unmaterial = 31
			rikudo = rikudo + 3000
			manaReset = 0
			xgt'fight','sta'
		end
	elseif rikudo < 3000:
		'You have too little power Rikudo for this spell.'
	end

	act 'Physical attacks':gt'boxing'

	if pcs_magik > 0:
		act 'Magic attacks':gt'magik'
	end
end

if $ARGS[0] = 'fog':
	! tuman  = the amount of fog around you making you harder to hit
	! tumanV = the amount of fog around your opponent making him harder to hit
	if tumanV > 0:
		'It is not possible to call your fog when an existing opponent is already fogged.'
	else
		if SuccessValue > 0:
			tuman += (10 * SuccessValue)
			'<b><font color = green>A Fog materializes around, obscuring you from your enemies.</font></b>'
		elseif SuccessValue < 0:
			tumanV += 10
			'<b><font color = red>The spell backfires! A Fog materializes around your enemy, obscuring him from your view.</font></b>'
		else
			'<b>The spell fizzles.  Nothing seems to happen.</b>'
		end
	end
end

if $ARGS[0] = 'clone':
	! klon = the number of clones that the enemy must destroy before hitting you
	if SuccessValue > 0:
		klon += SuccessValue
		'<b><font color = green><<SuccessValue>> clone<<iif(SuccessValue>1,"s","")>> of you springs from you confusing the enemy.</font></b>'
	elseif SuccessValue < 0 and klon > 0:
		klon -= 1
		'<b><font color = red>The spell backfires! One of your clones disappears.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'stun':
	! stunner = 1 stuns the enemy for 3-6 rounds
	if SuccessValue > 0:
		stunner = 1
		'<b><font color = green>Your enemy is stunned.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atak','player'
end

if $ARGS[0] = 'weapon':
	if SuccessValue > 0:
		magweapbonus = weapbonus * 4 * SuccessValue
		'<b><font color = green>Your Weapon now feels more powerful.</font></b>'
	elseif SuccessValue < 0:
		magweapbonus = weapbonus * -1
		'<b><font color = red>The spell backfires! Your weapon seems weaker.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atak','player'
end

if $ARGS[0] = 'wind':
	! tuman  = the amount of fog around you making you harder to hit
	! tumanV = the amount of fog around your opponent making him harder to hit
	if SuccessValue = 2:
		tumanV = 0
		'<b><font color = green>A wind blows through the area eliminating your enemys fog from the battlefield.</font></b>'
	elseif SuccessValue = 1:
		tumanV = 0
		tuman = 0
		'<b><font color = green>A wind blows through the area eliminating all fog on the battlefield.</font></b>'
	elseif SuccessValue = -1:
		tuman = 0
		'<b><font color = red>A wind blows through the area eliminating your fog from the battlefield.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'multiclone':
	! klon = the number of clones that the enemy must destroy before hitting you
	if SuccessValue > 0:
		klon += SuccessValue * 3
		'<b><font color = green><<SuccessValue * 3>> clone<<iif(SuccessValue>1,"s","")>> of you springs from you confusing the enemy.</font></b>'
	elseif SuccessValue < 0 and klon > 0:
		if klon < 3:
			klon = 0
		else
			klon -= 3
		end
		'<b><font color = red>The spell backfires! Some of your clones disappear.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'energo':
	! defence = absorbs damage before health begins to be removed
	if SuccessValue > 0:
		dynamic '<<$CasterType>>_shield[<<CasterNumber>>] += (100 * SuccessValue)'
		'<b><font color = green>An energy shield materializes around you, protecting you from your enemies.</font></b>'
	elseif SuccessValue < 0:
		dynamic '<<$TargetType>>_shield[<<TargetNumber>>] += 100'
		'<b><font color = red>The spell backfires! An energy shield materializes around your enemy, protecting him from you.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'haste':
	if SuccessValue > 0:
		initBonus += (120 * SuccessValue)
		'<b><font color = green>Your mind and body seem to race though a sluggish world.</font></b>'
	elseif SuccessValue < 0:
		initBonusV += 120
		'<b><font color = red>The spell backfires! Your enemy seems to move faster.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'heal':
	if SuccessValue > 0:
		dynamic 'pcs_health += (400 * SuccessValue)'
		'<b><font color = green>Your body surges with life. You feel much stronger.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'hand':
	if SuccessValue > 0:
		strenK = pcs_stren*20*SuccessValue/100
		magweapbonus = RAND(pcs_stren*10 - strenK,pcs_stren*10 + strenK)
		'<b><font color = green>Your hands now feel more powerful.</font></b>'
	elseif SuccessValue < 0:
		strenK = pcs_stren*20/100
		magweapbonus = 0 - RAND(pcs_stren*10 - strenK,pcs_stren*10 + strenK)
		'<b><font color = red>The spell backfires! Your hands seem weaker.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atak','player'
end

if $ARGS[0] = 'scaldingtouch':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 250 * SuccessValue
		'<b><font color = green>Flames spring from your hands.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'burninghands':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2500 * SuccessValue
		'<b><font color = green>A torrent of flames jets from your hands.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'firebarrier':
	if SuccessValue > 0:
		defence += (750 * SuccessValue)
		'<b><font color = green>A flaming barrier has sprung up between you and your opponent. You now have <<defence>> protection units.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 750
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'firestorm':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 4250 + (2000 * SuccessValue)
		bonusSh = 100
		'<b><font color = green>Uncountable glowing embers steak down upon your foes.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2000
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
		bonusSh = 100
		'<b><font color = red>The spell backfires! Uncountable glowing embers steak down upon the battlefield burning everyone.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'flameshield':
	if SuccessValue > 0:
		defence += (2500 * SuccessValue)
		'<b><font color = green>A Shield made of Flames interposes itself between you and your enemy. You now have <<defence>> protection units.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 2500
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'shock':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 150 * SuccessValue
		eleSh = 1
		'<b><font color = green>You build a static electric charge in your hand and zap your opponent.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
		'<b><font color = red>The spell backfires! You manage to zap yourself with a static charge.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'lightning':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
		eleSh = 1
		'<b><font color = green>You shoot a lightning bolt from your hand zapping your opponent.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 300
		'<b><font color = red>The spell backfires! You manage to zap yourself with lightning.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'electricbarrier':
	if SuccessValue > 0:
		defence += (1500 * SuccessValue)
		'<b><font color = green>A wall of dancing lightning springs up around yourself. You now have <<defence>> protection units.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 1500
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = '1000birds':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2750 + (1000 * SuccessValue)
		bonusSh = 30
		eleSh = 1
		'<b><font color = green>You shoot hundreds of small lightning bolts toward your enemy.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2000
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
		bonusSh = 30
		eleSh = 1
		'<b><font color = red>The spell backfires! Hundreds of small lightning bolts curl toward the battlefield shocking everyone.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'dancingsphere':
	if SuccessValue > 0:
		defence += (5000 * SuccessValue)
		'<b><font color = green>A large field of lightning dances around you blocking attacks. You now have <<defence>> protection units.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 5000
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'quicksand':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100 * SuccessValue
		eleSh = 5
		'<b><font color = green>You have trapped your opponent in quicksand.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
		eleSh = 5
		'<b><font color = red>The spell backfires! You are both trapped in quicksand.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'earthshield':
	if SuccessValue > 0:
		defence += 1500 + (1000 * SuccessValue)
		defenceM += 2500
		defenceActPar = 1000
		defenceActParM = 1000
		defenceAct = 10
		defenceActM = 10
		'<b><font color = green>Tendrils of Earth rise to defend you. You now have <<defence>> protection units.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 2500
		'<b><font color = red>The spell backfires! Tendrils of Earth rise to defend your enemy. Your enemy now has <<defence>> protection units.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'abyss':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
		eleSh = 5
		'<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>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
		eleSh = 5
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'earthguardian':
	if SuccessValue > 0:
		defence += 5200 + (2000 * SuccessValue)
		defenceM += 6250
		defenceW += 6250
		defenceActPar = 1000
		defenceActParM = 1000
		defenceActParW = 1000
		defenceAct = 15
		defenceActM = 15
		defenceActW = 15
		defAtk = 15
		'<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>'
	elseif SuccessValue < 0:
		defenceV += 2500
		'<b><font color = red>The spell backfires! Tendrils of Earth rise to defend your enemy. Your enemy now has <<defence>> protection units.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'sando':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 3000 + (2000 * SuccessValue)
		bonusSh = 50
		eleSh = 5
		'<b><font color = green>Two huge plates of earth colapse together crushing the enemy and depriving him of the ability to move.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'windgust':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100 * SuccessValue
		bonusSh = 50
		'<b><font color = green>You have created a gust of wind.</font></b>'
		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
		if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
		'<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>'
		if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
		if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'pressure':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1000 * SuccessValue
		bonusSh = 100
		'<b><font color = green>You dramatically raised the air pressure.</font></b>'
		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
		if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
		'<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>'
		if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
		if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'vacuum':
	if SuccessValue > 0:
		defence += (1500 * SuccessValue)
		'<b><font color = green>A turbulent sphere of vacuum surrounds you blocking incoming attacks. You now have <<defence>> protection units.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 1500
		'<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>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'vacuumshells':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2500 * SuccessValue
		bonusSh = 100
		'<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>'
		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are vaporized.</font></b>'
		if tumanV > 0:tumanV = 0 & '<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
		'<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>'
		if klon > 0:klon = 0 & '<b><font color = green>Your clones are vaporized.</font></b>'
		if tuman > 0:tuman = 0 & '<b><font color = green>Your Fog is torn to shreds by the wind.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'devouringvacuum':
	if SuccessValue > 0:
		defenceV = 0
		defenceMV = 0
		defenceWV = 0
		defenceActParV = 0
		defenceActParMV = 0
		defenceActV = 0
		defenceActMV = 0
		defAtkMV = 0
		'<b><font color = green>A devouring vacuum sucks away your enemys defenses.</font></b>'
	elseif SuccessValue < 0:
		defence = 0
		defenceM = 0
		defenceW = 0
		defenceActPar = 0
		defenceActParM = 0
		defenceAct = 0
		defenceActM = 0
		defAtkM = 0
		'<b><font color = red>The spell backfires! A devouring vacuum sucks away your defenses.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'leechmana':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100
		damTipM = 1000
		'<b><font color = green>You leech mana from your enemy.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
		'<b><font color = red>The spell backfires! Ouch!</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'flood':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1000 * SuccessValue
		damTipM = 500
		'<b><font color = green>A surge of water rises towards your enemy.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 100
		'<b><font color = red>The spell backfires! A surge of water rises towards your enemy, but missed and hits you.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'blister':
	if SuccessValue > 0:
		defence += 1500
		defenceM += 1500
		defenceW += 1500
		defenceActPar = 500
		defenceActParM = 500
		defenceAct = 10
		defenceActM = 10
		'<b><font color = green>A protective sphere of water surrounds you.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 1500
		'<b><font color = red>The spell backfires! A protective sphere of water surrounds your enemy.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end

if $ARGS[0] = 'sharkrockets':
	if SuccessValue > 0:
		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
		damTipM = 2500
		bonusSh = 50
		'<b><font color = green>Blobs of Water shaped like sharks fly towards your enemy stiking them.</font></b>'
		if klonV > 0:klonV = 0 & '<b><font color = green>Enemy clones are eliminated.</font></b>'
	elseif SuccessValue < 0:
		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 100
		'<b><font color = red>The spell backfires! Blobs of Water shaped like sharks fly towards your enemy, but missed and hits you.</font></b>'
		if klon > 0:klon = 0 & '<b><font color = green>Your clones are eliminated.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
	xgt'atakA','atak'
end

if $ARGS[0] = 'greatflood':
	if SuccessValue > 0:
		defence += 5000
		defenceM += 5000
		defenceW += 5000
		defenceActPar = 500
		defenceActParM = 500
		defenceAct = 10
		defenceActM = 10
		defAtkM = 10
		'<b><font color = green>You have filled the whole neighborhood with water protecting you and devouring enemy mana.</font></b>'
		if klonV > 0:klonV = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
	elseif SuccessValue < 0:
		defenceV += 1500
		'<b><font color = red>The spell backfires! A huge flood of water surrounds your enemy protecting him.</font></b>'
		if klon > 0:klon = 0 & '<b><font color = green>Clones enemy disappeared.</font></b>'
	else
		'<b>The spell fizzles.  Nothing seems to happen.</b>'
	end
end


killvar 'SuccessValue'
killvar '$TargetType'
killvar 'TargetNumber'
killvar '$CasterType'
killvar 'CasterNumber'
--- spell ---------------------------------