Added Glamour spell and stub for AlterSelf spell. Spell learned by studying in the library.

locations/spell.qsrc

@@ -309,6 +309,32 @@ if $ARGS[0] = 'shower':
 	end
 end
 
+if $ARGS[0] = 'glamour':
+	if SuccessValue > 0:
+		! Add large bonus to appearance.
+		pcs_apprncbase += 150
+		! Add Timer to remove Appearance bonus after 2 hours
+		!	spellName = 'glamour'
+		!	duration  = 120
+		!	CompCode = 'pcs_apprncbase -= 150' Remove bonus
+		!	TickCode = ''  Do nothing
+		gs 'spellTimer', 'add', 'glamour', 120, 'pcs_apprncbase -= 150', ''
+		'<b><font color = <<$SplTxtColGood>>>You feel gorgeous.  People will love you.</font></b>'
+	else
+		'<b>The spell fizzles.  Nothing seems to happen.</b>'
+	end
+end
+
+if $ARGS[0] = 'alterself':
+	if SuccessValue > 0:
+		! Stop Reputation accumulation.
+		!TODO
+		'<b><font color = <<$SplTxtColGood>>>Your feature change.  Your own mother wouldn''t recognize you.</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

locations/spellList.qsrc

@@ -158,7 +158,14 @@ spellTime['glamour'] = 1
 spellDiff['glamour'] = 30
 $spellName['glamour'] = 'Glamour'
 $spellTarget['glamour'] = 'self'
-$spellDesc['glamour'] = 'Change your appearance.'
+$spellDesc['glamour'] = 'Become undefinablely beautiful.  Your eyes sparkle just so.  Your hair has a perfect luster.  Your curves are undefinablely perfect.'
+!glamour
+spellMana['alterself'] = 500
+spellTime['alterself'] = 1
+spellDiff['alterself'] = 30
+$spellName['alterself'] = 'Alter Self'
+$spellTarget['alterself'] = 'self'
+$spellDesc['alterself'] = 'Change your appearance to that of some other person.'
 !bodymod
 spellMana['bodymod'] = 40
 spellTime['bodymod'] = 30
@@ -468,6 +475,8 @@ $nonComSpells[6] = 'berserk'
 $nonComSpells[7] = 'shower'
 $nonComSpells[8] = 'makeup'
 $nonComSpells[9] = 'cosmetica'
+$nonComSpells[10] = 'glamour'
+!$nonComSpells[11] = 'alterself'
 
 !-------------------------------------------------------------------------------------
 ! Pick Learning Location for Spells
@@ -501,6 +510,8 @@ $librarySpells[0] = 'painblock'
 $librarySpells[1] = 'shower'
 $librarySpells[2] = 'makeup'
 $librarySpells[3] = 'cosmetica'
+$librarySpells[4] = 'glamour'
+!$librarySpells[5] = 'alterself'
 
 
 ! Elemental Spell Groups