Reduce Combat spell Damage and Shielding. Spells are no longer one-shot kills, unless opponent is weak. Shielding no longer makes you completely invulnerable on a single casting.

locations/fight.qsrc

@@ -495,6 +495,7 @@ if $ARGS[0] = 'Attack':
 			'It is a devastating blow. <<$fightAtk["DefenderName"]>> is stunned.'
 		end
 		dynamic '<<$fightAtk_TargetType>>_stun[<<fightAtk_TargetNumber>>] += 1'
+		dynamic '<<$fightAtk_TargetType>>_timer[<<fightAtk_TargetNumber>>] += AttackTime[<<fightAtk_Type>>]'
 	!! Very hard hit
 	elseif fightAtk['TargetHealthLoss'] > 50:
 		if $fightAtk_TargetType = 'pcs' and fightAtk_TargetNumber = 0:

locations/spell.qsrc

@@ -515,7 +515,7 @@ end
 
 if $ARGS[0] = 'scaldingtouch':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 250 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100 * SuccessValue
 		'<b><font color = <<$SplTxtColGood>>>Flames spring from your hands.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -524,7 +524,7 @@ end
 
 if $ARGS[0] = 'burninghands':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2500 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 250 * SuccessValue
 		'<b><font color = <<$SplTxtColGood>>>A torrent of flames jets from your hands.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -533,7 +533,7 @@ end
 
 if $ARGS[0] = 'firebarrier':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 750
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 200
 		'<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>'
@@ -542,11 +542,11 @@ end
 
 if $ARGS[0] = 'firestorm':
 	if SuccessValue > 0:
-		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 4250 + (2000 * SuccessValue)
+		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, (200 * SuccessValue)
 		'<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
+		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 200
+		dynamic $spellFunc['ApplyDamageToAll'], $CasterType, 100
 		'<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>'
@@ -555,7 +555,7 @@ end
 
 if $ARGS[0] = 'flameshield':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 2500
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 250
 		'<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>'
@@ -564,7 +564,7 @@ end
 
 if $ARGS[0] = 'shock':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 150 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100 * SuccessValue
 		'<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
@@ -576,10 +576,10 @@ end
 
 if $ARGS[0] = 'lightning':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 200 * SuccessValue
 		'<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
+		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 100
 		'<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>'
@@ -588,7 +588,7 @@ end
 
 if $ARGS[0] = 'electricbarrier':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 1500
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 250
 		'<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>'
@@ -597,12 +597,12 @@ end
 
 if $ARGS[0] = '1000birds':
 	if SuccessValue > 0:
-		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 2750 + (1000 * SuccessValue)
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2750 + (1000 * SuccessValue)
+		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, (100 * SuccessValue)
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, (100 * SuccessValue)
 		'<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
+		dynamic $spellFunc['ApplyDamageToAll'], $TargetType, 100
+		dynamic $spellFunc['ApplyDamageToAll'], $CasterType, 100
 		'<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>'
@@ -611,7 +611,7 @@ end
 
 if $ARGS[0] = 'dancingsphere':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 5000
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 500
 		'<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>'
@@ -633,7 +633,7 @@ end
 
 if $ARGS[0] = 'earthshield':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 1000 + 1500
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 100 + 250
 		'<b><font color = <<$SplTxtColGood>>>Tendrils of Earth rise to defend you.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -642,10 +642,10 @@ end
 
 if $ARGS[0] = 'abyss':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 250 * SuccessValue
 		'<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', $TargetType, TargetNumber, 250
 		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 200
 		'<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
@@ -655,7 +655,7 @@ end
 
 if $ARGS[0] = 'earthguardian':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 2000 +5200
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 500
 		'<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>'
@@ -664,10 +664,10 @@ end
 
 if $ARGS[0] = 'sando':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 3000 + (2000 * SuccessValue)
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, (250 * SuccessValue)
 		'<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
+		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
 		'<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>'
@@ -693,7 +693,7 @@ end
 
 if $ARGS[0] = 'pressure':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1000 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 200 * SuccessValue
 		'<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
@@ -710,7 +710,7 @@ end
 
 if $ARGS[0] = 'vacuum':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 1500
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', SuccessValue * 250
 		'<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>'
@@ -719,7 +719,7 @@ end
 
 if $ARGS[0] = 'vacuumshells':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 2500 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 250 * SuccessValue
 		'<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
@@ -747,7 +747,7 @@ if $ARGS[0] = 'leechmana':
 	if SuccessValue > 0:
 		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 100
 		damTipM = 1000
-		dynamic $spellFunc['UpdateAttrib'], 'mana', $CasterType, CasterNumber, '+', 1000
+		dynamic $spellFunc['UpdateAttrib'], 'mana', $CasterType, CasterNumber, '+', 100
 		'<b><font color = <<$SplTxtColGood>>>You leech mana from your enemy.</font></b>'
 	elseif SuccessValue < 0:
 		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 50
@@ -759,7 +759,7 @@ end
 
 if $ARGS[0] = 'flood':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1000 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 200 * SuccessValue
 		'<b><font color = <<$SplTxtColGood>>>A surge of water rises towards your enemy.</font></b>'
 	elseif SuccessValue < 0:
 		gs 'fight', 'applyDamage', $CasterType, CasterNumber, 100
@@ -771,7 +771,7 @@ end
 
 if $ARGS[0] = 'blister':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', 1500
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', 500
 		'<b><font color = <<$SplTxtColGood>>>A protective sphere of water surrounds you.</font></b>'
 	else
 		'<b>The spell fizzles.  Nothing seems to happen.</b>'
@@ -780,7 +780,7 @@ end
 
 if $ARGS[0] = 'sharkrockets':
 	if SuccessValue > 0:
-		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 1500 * SuccessValue
+		gs 'fight', 'applyDamage', $TargetType, TargetNumber, 150 * SuccessValue
 		'<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
@@ -793,7 +793,7 @@ end
 
 if $ARGS[0] = 'greatflood':
 	if SuccessValue > 0:
-		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', 5000
+		dynamic $spellFunc['UpdateAttrib'], 'shield', $TargetType, TargetNumber, '+', 1000
 		'<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