[Fixed] Glamour spell running out caused massive appearance drop

locations/AppearanceSystem.qsrc

@@ -34,6 +34,7 @@ if $args[0] = 'UpdateBaseAppearance':
 
 	! Calculte base appearance
 	pcs_apprncbase = skinBonus + bodyShapeBonus + attributeBonus - visibleAgePenalty - teethPenalty + supnatvnesh
+	if glamouractive = 1: pcs_apprncbase += 150
 
 end
 

locations/spell.qsrc

@@ -335,12 +335,13 @@ if $ARGS[0] = 'glamour':
 	if SuccessValue > 0:
 		! Add large bonus to appearance.
 		pcs_apprncbase += 150
+		glamouractive = 1
 		! 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', ''
+		gs 'spellTimer', 'add', 'glamour', 120, 'glamouractive = 0 & gs ''AppearanceSystem'', ''UpdateBaseAppearance''', ''
 		msg '<b><font color = <<$SplTxtColGood>>>You feel gorgeous. People will love you.</font></b>'
 		gs 'stat' 
 	else