Fix some bugs with wrong target numbers being used for multi combat.

locations/fight.qsrc

@@ -1,6 +1,25 @@
 # fight
+!{  To Use Fight:
+	1) Initialize fight to make sure previous fighter are cleared out.
+	2) Add Opponents and Allies
+	3) Set Fight Ending
+	4) Start Fight
 
-!! Variables to be set before fight - in brackets so you can copy/paste
+	Example:
+	Let''s make a fight where Tatiana helps us beat Kisame and a bandit
+
+		gs 'fight','initFight'
+
+		gs 'fight_npcdata', 'tatiana', 'pcs'
+		gs 'fight_npcdata', 'kisame', 'opp'
+		gs 'fight_npcdata', 'bandit', 'opp'
+
+		fightEnding = 2
+
+		gt 'fight', 'start'
+}
+
+!! Variables to be set for each participant before fight - in brackets so you can copy/paste
 !!{
 $opp_name[0] = <<name of opponent>>
 $opp_image[0] = opponent image ie. '<img <<$set_imgh>> src="images/characters/city/tobi/tobi.jpg">'
@@ -9,7 +28,7 @@ opp_run[0] = Opponent running skill used for player escape
 opp_wrstlng[0] = Wrestling skill
 opp_kick[0] = Kicking
 opp_punch[0] = Power punch
-opp_jab[0] = Ligth punch
+opp_jab[0] = Light punch
 opp_stren[0] = Strengh
 opp_agil[0] = Agility
 opp_vital[0] = vitality
@@ -161,7 +180,11 @@ if $ARGS[0] = 'applyDamage':
 				<<$fightAppDam['TargetType']>>_shield[<<fightAppDam['TargetNumber']>>] = 0
 				""<<$fightAppDam['TargetName']>> losses <<fightAppDam['Shield']>> defense.""
 			end
-			<<$fightAppDam['TargetType']>>_health -= <<fightAppDam['OverShieldDamage']>>
+			if <<$fightAppDam['TargetType']>>_health[<<fightAppDam['TargetNumber']>>] > <<fightAppDam['OverShieldDamage']>>:
+				<<$fightAppDam['TargetType']>>_health[<<fightAppDam['TargetNumber']>>] -= <<fightAppDam['OverShieldDamage']>>
+			else
+				<<$fightAppDam['TargetType']>>_health[<<fightAppDam['TargetNumber']>>] = 0
+			end
 			""<<$fightAppDam['TargetName']>> losses <<fightAppDam['OverShieldDamage']>> health.""
 		end
 	"
@@ -250,7 +273,8 @@ if $ARGS[0] = 'findActiveTimer':
 		!Skip round if char is stunned
 		if pcs_stun[i] > 0:
 			pcs_stun[i] -= 1
-		else
+		!Skip anyone with no Health
+		elseif pcs_health[i] > 0:
 			if pcs_timer[i] < fightTimLow:
 				fightTimLow = pcs_timer[i]
 				fightTimNum = i
@@ -267,7 +291,8 @@ if $ARGS[0] = 'findActiveTimer':
 		!Skip round if char is stunned
 		if opp_stun[i] > 0:
 			opp_stun[i] -= 1
-		else
+		!Skip anyone with no Health
+		elseif opp_health[i] > 0:
 			if opp_timer[i] < fightTimLow:
 				fightTimLow = opp_timer[i]
 				fightTimNum = i
@@ -317,10 +342,10 @@ if $ARGS[0] = 'printStats':
 	end
 
 	'<b><<$fightPStats["Name"]>></b> life <b><font color = red><<fightPStats["Health"]>></font></b>, mana <b><font color = blue><<fightPStats["Mana"]>></font></b>, willpower <b><font color = green><<fightPStats["Willpower"]>></font></b>'
-	if fightPStats['Shield'] > 0:'<b><font color = red>Protection <<fightPStats["Shield"]>> units</font></b>'
-	if fightPStats['Clone'] > 0:'<b><font color = red>Clones active <<fightPStats["Clone"]>> </font></b>'
-	if fightPStats['Fog'] > 0:'<b><font color = red>Obscuring Fog <<fightPStats["Fog"]>> units</font></b>'
-	if fightPStats['Stun'] > 0:'<b><font color = red>Stunned <<fightPStats["Stun"]>> rounds</font></b>'
+	if fightPStats['Shield'] > 0:'<b><font color = purple>Protection <<fightPStats["Shield"]>> units</font></b>'
+	if fightPStats['Clone'] > 0:'<b><font color = purple>Clones active <<fightPStats["Clone"]>> </font></b>'
+	if fightPStats['Fog'] > 0:'<b><font color = purple>Obscuring Fog <<fightPStats["Fog"]>> units</font></b>'
+	if fightPStats['Stun'] > 0:'<b><font color = purple>Stunned <<fightPStats["Stun"]>> rounds</font></b>'
 	'<b>= = = = = = = = = = = = = = = = = = = = = = = = = = = = =</b>'
 
 	killvar 'i'
@@ -472,7 +497,7 @@ if $ARGS[0] = 'Attack':
 			end
 		else
 			'Its a glancing blow, but still hurts.'
-		end	
+		end
 	end
 	dynamic "<<$fightAtk_AttackerType>>_timer += AttackTime[fightAtk_Type]"
 	cla
@@ -561,11 +586,11 @@ if $ARGS[0] = 'fightAlgorithm':
 		!Physical attack if nothing else can be done.
 		if ActionMade = 0:
 			if rand(0,dyneval('result=<<$AttackerType>>_kick[<<AttackerNumber>>]')) > 40:
-				gs 'fight', 'Attack', 'Kick', $TargetType, AttackerNumber, TargetNumber
+				gs 'fight', 'Attack', 'Kick', $TargetType, TargetNumber, AttackerNumber
 			elseif rand(0,dyneval('result=<<$AttackerType>>_punch[<<AttackerNumber>>]')) > 40:
-				gs 'fight', 'Attack', 'Hard Punch', $TargetType, AttackerNumber, TargetNumber
+				gs 'fight', 'Attack', 'Hard Punch', $TargetType, TargetNumber, AttackerNumber
 			else
-				gs 'fight', 'Attack', 'Jab', $TargetType, AttackerNumber, TargetNumber
+				gs 'fight', 'Attack', 'Jab', $TargetType, TargetNumber, AttackerNumber
 			end
 		end
 	!!This should never happen
@@ -600,15 +625,15 @@ if $ARGS[0] = 'player':
 				$op_name_000000 = $opp_name[fightAvailTarg[i]]
 				dynamic "
 					act 'Kick <<$op_name_000000>>':
-						gs 'fight', 'Attack', 'Kick', 'opp', 0, <<fightAvailTarg[i]>>
+						gs 'fight', 'Attack', 'Kick', 'opp', <<fightAvailTarg[i]>>, 0
 					end
 
 					act 'Punch <<$op_name_000000>> hard':
-						gs 'fight', 'Attack', 'Hard Punch', 'opp', 0, <<fightAvailTarg[i]>>
+						gs 'fight', 'Attack', 'Hard Punch', 'opp', <<fightAvailTarg[i]>>, 0
 					end
 
 					act 'Jab <<$op_name_000000>>':
-						gs 'fight', 'Attack', 'Jab', 'opp', 0, <<fightAvailTarg[i]>>
+						gs 'fight', 'Attack', 'Jab', 'opp', <<fightAvailTarg[i]>>, 0
 					end
 				"
 				killvar '$op_name_000000'

locations/lab.qsrc

@@ -68,6 +68,7 @@ if $ARGS[0] = 'start':
 			gt 'fight', 'start'
 		end
 	end
+
 	
 	!!!Has to be adjusted to match TatianaMissionQW value for latest mission (see 'tatiana_missions')
 	TatianaMissionTotal = 2

locations/spell.qsrc

@@ -15,6 +15,8 @@
 !	 ARGS[4] = Caster party member number
 
 SuccessValue = $ARGS[1]
+$SplTxtColGood = 'green'
+$SplTxtColBad = 'red'
 
 ! ARGS for Combat Spells if Applicable
 $TargetType = $ARGS[2]
@@ -32,6 +34,8 @@ else
 	! Others are assumed to be enemy targets
 	if $TargetType = 'pcs':
 		$CasterType = 'opp'
+		$SplTxtColGood = 'red'
+		$SplTxtColBad = 'green'
 	elseif $TargetType = 'opp':
 		$CasterType = 'pcs'
 	else
@@ -177,7 +181,7 @@ if $ARGS[0] = 'regenerate':
 			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>'
+		'<b><font color = <<$SplTxtColGood>>>Your body surges with life. You feel better already.</font></b>'
 		killvar 'regenVal'
 		killvar 'regenArrIdx'
 	else
@@ -188,7 +192,7 @@ end
 if $ARGS[0] = 'painblock':
 	if SuccessValue > 0:
 		pain['killer'] = 1
-		'<b><font color = green>Your pain recedes into a dull throb.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>Your pain recedes into a dull throb.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -211,7 +215,7 @@ if $ARGS[0] = 'curedisease':
 		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>'
+		'<b><font color = <<$SplTxtColGood>>>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
@@ -222,7 +226,7 @@ if $ARGS[0] = 'curewounds':
 		! 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>'
+		'<b><font color = <<$SplTxtColGood>>>You feel yourself coursing with life.  You feel better already.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -233,7 +237,7 @@ if $ARGS[0] = 'curewounds2':
 		! 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>'
+		'<b><font color = <<$SplTxtColGood>>>You feel yourself coursing with life.  All pain is gone.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -281,7 +285,7 @@ if $ARGS[0] = 'berserk':
 			}
 			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>'
+		'<b><font color = <<$SplTxtColGood>>>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
@@ -299,7 +303,7 @@ if $ARGS[0] = 'shower':
 		pcs_sweat = 10
 		! Brush Teeth
 		pcs_breath = 1
-		'<b><font color = green>You feel clean and refreshed.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You feel clean and refreshed.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -332,7 +336,7 @@ if $ARGS[0] = 'makeup':
 
 		killvar 'MakeupArg'
 		killvar '$MakeupArg'
-		'<b><font color = green>makeup is applied to your face.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>makeup is applied to your face.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -379,7 +383,7 @@ if $ARGS[0] = 'cosmetica':
 			end
 		end
 
-		'<b><font color = green>You feel beautiful.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You feel beautiful.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -393,7 +397,7 @@ end
 if $ARGS[0] = 'fog':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'fog', $TargetType, TargetNumber, '+', 10 * SuccessValue
-		'<b><font color = green>A Fog materializes around, obscuring <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> from enemies.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A Fog materializes around, obscuring <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> from enemies.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -402,10 +406,10 @@ end
 if $ARGS[0] = 'clone':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '+', SuccessValue
-		'<b><font color = green><<SuccessValue>> clone<<iif(SuccessValue>1,"s","")>> springs from <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> confusing enemies.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>><<SuccessValue>> clone<<iif(SuccessValue>1,"s","")>> springs from <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> confusing enemies.</font></b>'
 	elseif SuccessValue < 0 and dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '-', 1
-		'<b><font color = red>The spell backfires! A <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> clone disappears.</font></b>'
+		'<b><font color = <<$SplTxtColBad>>>The spell backfires! A <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> clone disappears.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -415,7 +419,7 @@ if $ARGS[0] = 'stun':
 	if SuccessValue > 0:
 		stunner = 1
 		dynamic $spellFunc['UpdateAttrib'], 'stun', $TargetType, TargetNumber, '+', rand(2,5)+ SuccessValue
-		'<b><font color = green><<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> is stunned.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>><<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> is stunned.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -424,10 +428,10 @@ end
 if $ARGS[0] = 'weapon':
 	!{if SuccessValue > 0:
 		magweapbonus = weapbonus * 4 * SuccessValue
-		'<b><font color = green>Your Weapon now feels more powerful.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
+		'<b><font color = <<$SplTxtColBad>>>The spell backfires! Your weapon seems weaker.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -438,14 +442,14 @@ end
 if $ARGS[0] = 'wind':
 	if SuccessValue = 2:
 		dynamic $spellFunc['UpdateAttrib'], 'fog', $TargetType, TargetNumber, '=', 0
-		'<b><font color = green>A wind blows through the area eliminating the fog around <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> from the battlefield.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A wind blows through the area eliminating the fog around <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> from the battlefield.</font></b>'
 	elseif SuccessValue = 1:
 		dynamic $spellFunc['UpdateAttrib'], 'fog', $TargetType, TargetNumber, '=', 0
 		dynamic $spellFunc['UpdateAttrib'], 'fog', $CasterType, CasterNumber, '=', 0
-		'<b><font color = green>A wind blows through the area eliminating all fog on the battlefield.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A wind blows through the area eliminating all fog on the battlefield.</font></b>'
 	elseif SuccessValue = -1:
 		dynamic $spellFunc['UpdateAttrib'], 'fog', $CasterType, CasterNumber, '=', 0
-		'<b><font color = red>A wind blows through the area eliminating the fog around <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> from the battlefield.</font></b>'
+		'<b><font color = <<$SplTxtColBad>>>A wind blows through the area eliminating the fog around <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> from the battlefield.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -454,14 +458,14 @@ end
 if $ARGS[0] = 'multiclone':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '+', SuccessValue * 3
-		'<b><font color = green><<SuccessValue * 3>> clone<<iif(SuccessValue>1,"s","")>> of <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> springs forth confusing the enemy.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>><<SuccessValue * 3>> clone<<iif(SuccessValue>1,"s","")>> of <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> springs forth confusing the enemy.</font></b>'
 	elseif SuccessValue < 0 and klon > 0:
 		if dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') < 3:
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '=', 0
 		else
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '-', 3
 		end
-		'<b><font color = red>The spell backfires! Some clones of <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> disappear.</font></b>'
+		'<b><font color = <<$SplTxtColBad>>>The spell backfires! Some clones of <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> disappear.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -470,7 +474,7 @@ end
 if $ARGS[0] = 'energo':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 100
-		'<b><font color = green>An energy shield materializes around <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>>, granting protection from enemies.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>An energy shield materializes around <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>>, granting protection from enemies.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -479,7 +483,7 @@ end
 if $ARGS[0] = 'haste':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'init', $TargetType, TargetNumber, '+', SuccessValue * 120
-		'<b><font color = green><<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> feels mind and body race though a sluggish world.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>><<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> feels mind and body race though a sluggish world.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -488,7 +492,7 @@ end
 if $ARGS[0] = 'heal':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'health', $TargetType, TargetNumber, '+', SuccessValue * 400
-		'<b><font color = green><<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> surges with life, feeling much stronger.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>><<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>> surges with life, feeling much stronger.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -500,7 +504,7 @@ if $ARGS[0] = 'hand':
 		TargetStrenDelta = TargetStren*20*SuccessValue/100
 		TargetStrenBase  = TargetStren*10
 		dynamic $spellFunc['UpdateAttrib'], 'stren', $TargetType, TargetNumber, '=', RAND(TargetStrenBase - TargetStrenDelta,TargetStrenBase + TargetStrenDelta)
-		'<b><font color = green>Power flows from the hands of <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>>.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>Power flows from the hands of <<dyneval($spellFunc["GetCombatantName"], $TargetType, TargetNumber)>>.</font></b>'
 		killvar 'TargetStren'
 		killvar 'TargetStrenDelta'
 		killvar 'TargetStrenBase'
@@ -512,7 +516,7 @@ 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>'
+		'<b><font color = <<$SplTxtColGood>>>Flames spring from your hands.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -521,7 +525,7 @@ 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>'
+		'<b><font color = <<$SplTxtColGood>>>A torrent of flames jets from your hands.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -530,7 +534,7 @@ end
 if $ARGS[0] = 'firebarrier':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 750
-		'<b><font color = green>A flaming barrier has sprung up between you and your opponents.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A flaming barrier has sprung up between you and your opponents.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -539,11 +543,11 @@ end
 if $ARGS[0] = 'firestorm':
 	if SuccessValue > 0:
 		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 4250 + (2000 * SuccessValue)
-		'<b><font color = green>Uncountable glowing embers steak down upon the foes of <<dyneval($spellFunc["GetCombatantName"], $CasterType, CasterNumber)>>.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>Uncountable glowing embers steak down upon the foes of <<dyneval($spellFunc["GetCombatantName"], $CasterType, CasterNumber)>>.</font></b>'
 	elseif SuccessValue < 0:
 		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 2000
 		dynamic $spellFunc['ApplyDamageToAll'], $CasterType, 200
-		'<b><font color = red>The spell backfires! Uncountable glowing embers steak down upon the battlefield burning everyone.</font></b>'
+		'<b><font color = <<$SplTxtColBad>>>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
@@ -552,7 +556,7 @@ end
 if $ARGS[0] = 'flameshield':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 2500
-		'<b><font color = green>A Shield made of Flames interposes itself between <<dyneval($spellFunc["GetCombatantName"], $CasterType, CasterNumber)>> and the enemy.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A Shield made of Flames interposes itself between <<dyneval($spellFunc["GetCombatantName"], $CasterType, CasterNumber)>> and the enemy.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -561,10 +565,10 @@ end
 if $ARGS[0] = 'shock':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 150 * SuccessValue
-		'<b><font color = green>You build a static electric charge in your hand and zap your opponent.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
+		'<b><font color = <<$SplTxtColBad>>>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
@@ -573,10 +577,10 @@ end
 if $ARGS[0] = 'lightning':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
-		'<b><font color = green>You shoot a lightning bolt from your hand zapping your opponent.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
+		'<b><font color = <<$SplTxtColBad>>>The spell backfires! You manage to zap yourself with lightning.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -585,7 +589,7 @@ end
 if $ARGS[0] = 'electricbarrier':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 1500
-		'<b><font color = green>A wall of dancing lightning springs up around yourself.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A wall of dancing lightning springs up around yourself.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -595,11 +599,11 @@ if $ARGS[0] = '1000birds':
 	if SuccessValue > 0:
 		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 2750 + (1000 * SuccessValue)
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2750 + (1000 * SuccessValue)
-		'<b><font color = green>You shoot hundreds of small lightning bolts toward your enemy.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You shoot hundreds of small lightning bolts toward your enemy.</font></b>'
 	elseif SuccessValue < 0:
 		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 2000
 		dynamic $spellFunc['ApplyDamageToAll'], $CasterType, 200
-		'<b><font color = red>The spell backfires! Hundreds of small lightning bolts curl toward the battlefield shocking everyone.</font></b>'
+		'<b><font color = <<$SplTxtColBad>>>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
@@ -608,7 +612,7 @@ end
 if $ARGS[0] = 'dancingsphere':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 5000
-		'<b><font color = green>A large field of lightning dances around you blocking attacks.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A large field of lightning dances around you blocking attacks.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -617,11 +621,11 @@ end
 if $ARGS[0] = 'quicksand':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100 * SuccessValue
-		'<b><font color = green>You have trapped your opponent in quicksand.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You have trapped your opponent in quicksand.</font></b>'
 	elseif SuccessValue < 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100
 		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
-		'<b><font color = red>The spell backfires! You are both trapped in quicksand.</font></b>'
+		'<b><font color = <<$SplTxtColBad>>>The spell backfires! You are both trapped in quicksand.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -630,7 +634,7 @@ end
 if $ARGS[0] = 'earthshield':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 1000 + 1500
-		'<b><font color = green>Tendrils of Earth rise to defend you.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>Tendrils of Earth rise to defend you.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -639,11 +643,11 @@ end
 if $ARGS[0] = 'abyss':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
-		'<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>'
+		'<b><font color = <<$SplTxtColGood>>>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
-		'<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>'
+		'<b><font color = <<$SplTxtColBad>>>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
@@ -652,7 +656,7 @@ end
 if $ARGS[0] = 'earthguardian':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 2000 +5200
-		'<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>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -661,10 +665,10 @@ end
 if $ARGS[0] = 'sando':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 3000 + (2000 * SuccessValue)
-		'<b><font color = green>Two huge plates of earth colapse together crushing the enemy and depriving him of the ability to move.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
+		'<b><font color = <<$SplTxtColBad>>>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
@@ -673,14 +677,14 @@ end
 if $ARGS[0] = 'windgust':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100 * SuccessValue
-		'<b><font color = green>You have created a gust of wind.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You have created a gust of wind.</font></b>'
 		if dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy clones are vaporized.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy clones are vaporized.</font></b>'
 		end
 		if dyneval('result=<<$TargetType>>_fog[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'fog', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy Fog is torn to shreds by the wind.</font></b>'
 		end
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -690,14 +694,14 @@ end
 if $ARGS[0] = 'pressure':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1000 * SuccessValue
-		'<b><font color = green>You dramatically raised the air pressure.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You dramatically raised the air pressure.</font></b>'
 		if dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy clones are vaporized.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy clones are vaporized.</font></b>'
 		end
 		if dyneval('result=<<$TargetType>>_fog[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'fog', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy Fog is torn to shreds by the wind.</font></b>'
 		end
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -707,7 +711,7 @@ end
 if $ARGS[0] = 'vacuum':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 1500
-		'<b><font color = green>A turbulent sphere of vacuum surrounds you blocking incoming attacks. You now have <<defence>> protection units.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A turbulent sphere of vacuum surrounds you blocking incoming attacks. You now have <<defence>> protection units.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -716,14 +720,14 @@ end
 if $ARGS[0] = 'vacuumshells':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2500 * SuccessValue
-		'<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>'
+		'<b><font color = <<$SplTxtColGood>>>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 dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy clones are vaporized.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy clones are vaporized.</font></b>'
 		end
 		if dyneval('result=<<$TargetType>>_fog[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'fog', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy Fog is torn to shreds by the wind.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy Fog is torn to shreds by the wind.</font></b>'
 		end
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -733,7 +737,7 @@ end
 if $ARGS[0] = 'devouringvacuum':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '=', 0
-		'<b><font color = green>A devouring vacuum sucks away your enemys defenses.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A devouring vacuum sucks away your enemys defenses.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -744,10 +748,10 @@ if $ARGS[0] = 'leechmana':
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100
 		damTipM = 1000
 		dynamic $spellFunc['UpdateAttrib'], 'mana', $CasterType, CasterNumber, '+', 1000
-		'<b><font color = green>You leech mana from your enemy.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
+		'<b><font color = <<$SplTxtColBad>>>The spell backfires! Ouch!</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -756,10 +760,10 @@ end
 if $ARGS[0] = 'flood':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1000 * SuccessValue
-		'<b><font color = green>A surge of water rises towards your enemy.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>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>'
+		'<b><font color = <<$SplTxtColBad>>>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
@@ -768,7 +772,7 @@ end
 if $ARGS[0] = 'blister':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', 1500
-		'<b><font color = green>A protective sphere of water surrounds you.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>A protective sphere of water surrounds you.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
 	end
@@ -777,10 +781,10 @@ end
 if $ARGS[0] = 'sharkrockets':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
-		'<b><font color = green>Blobs of Water shaped like sharks fly towards your enemy stiking them.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>Blobs of Water shaped like sharks fly towards your enemy stiking them.</font></b>'
 		if dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy clones are vaporized.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy clones are vaporized.</font></b>'
 		end
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -790,10 +794,10 @@ end
 if $ARGS[0] = 'greatflood':
 	if SuccessValue > 0:
 		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', 5000
-		'<b><font color = green>You have filled the whole neighborhood with water protecting you and devouring enemy mana.</font></b>'
+		'<b><font color = <<$SplTxtColGood>>>You have filled the whole neighborhood with water protecting you and devouring enemy mana.</font></b>'
 		if dyneval('result=<<$TargetType>>_clone[<<TargetNumber>>]') > 0:
 			dynamic $spellFunc['UpdateAttrib'], 'clone', $TargetType, TargetNumber, '=', 0
-			'<b><font color = green>Enemy clones are vaporized.</font></b>'
+			'<b><font color = <<$SplTxtColGood>>>Enemy clones are vaporized.</font></b>'
 		end
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'