Added spells:

"Cure Disease": removes STDs
"Cure Wounds": heals some pain/damage (like a doctor visit)
"Greater Cure Wounds": removes all pain/damage (high cost and difficulty)

locations/spell.qsrc

@@ -92,6 +92,50 @@ if $ARGS[0] = 'painblock':
 	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'
+		'<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')

locations/spellList.qsrc

@@ -42,6 +42,24 @@ spellTime['regenerate'] = 1
 spellDiff['regenerate'] = 5
 $spellName['regenerate'] = "Regenerate"
 $spellDesc['regenerate'] = "Slowly regain health over time."
+!curedisease
+spellMana['curedisease'] = 10000
+spellTime['curedisease'] = 30
+spellDiff['curedisease'] = 25
+$spellName['curedisease'] = "Cure Disease"
+$spellDesc['curedisease'] = "Your body will burn itself free of any diseases you may have."
+!curewounds
+spellMana['curewounds'] = 10000
+spellTime['curewounds'] = 30
+spellDiff['curewounds'] = 25
+$spellName['curewounds'] = "Cure Wounds"
+$spellDesc['curewounds'] = "You feel your body's wounds begin to heal."
+!curewounds2
+spellMana['curewounds2'] = 100000
+spellTime['curewounds2'] = 60
+spellDiff['curewounds2'] = 75
+$spellName['curewounds2'] = "Greater Cure Wounds"
+$spellDesc['curewounds2'] = "You feel your body heal to perfection."
 !painblock
 spellMana['painblock'] = 1000
 spellTime['painblock'] = 1
@@ -331,10 +349,13 @@ $combatSpells[34] = 'greatflood'
 ! List of Non-Combat Spells for use in Menu
 $nonComSpells[0] = 'heal'
 $nonComSpells[1] = 'regenerate'
-$nonComSpells[2] = 'painblock'
-$nonComSpells[3] = 'berserk'
-$nonComSpells[4] = 'shower'
-$nonComSpells[5] = 'cosmetica'
+$nonComSpells[2] = 'curedisease'
+$nonComSpells[3] = 'curewounds'
+$nonComSpells[4] = 'curewounds2'
+$nonComSpells[5] = 'painblock'
+$nonComSpells[6] = 'berserk'
+$nonComSpells[7] = 'shower'
+$nonComSpells[8] = 'cosmetica'
 
 
 ! Basic Spells
@@ -346,10 +367,13 @@ $basicSpells[4] = 'multiclone'
 $basicSpells[5] = 'energo'
 $basicSpells[6] = 'haste'
 $basicSpells[7] = 'regenerate'
-$basicSpells[8] = 'painblock'
-$basicSpells[9] = 'berserk'
-$basicSpells[10] = 'shower'
-$basicSpells[11] = 'cosmetica'
+$basicSpells[8] = 'curedisease'
+$basicSpells[9] = 'curewounds'
+$basicSpells[10] = 'curewounds2'
+$basicSpells[11] = 'painblock'
+$basicSpells[12] = 'berserk'
+$basicSpells[13] = 'shower'
+$basicSpells[14] = 'cosmetica'
 
 
 ! Elemental Spell Groups