Fix purse from beut. schoolgirl start

The purse from character creation for a beautiful schoolgirl is now added to
the wardrobe. This way it can be removed and put on again.

locations/preSYS

@@ -510,6 +510,7 @@ if $ARGS[0] = 'charselect':
 				falselashesmink = 2
 				$currentpursetype = 'fashionista'
 				currentpursenumber = 9
+				dynamic $currentpursetype + '_purses[' + currentpursenumber + '] = 1'
 				bag = 1
 				if menu_option = 1:dynamic $menu_addoldmenu
 				if menu_option = 0:gs 'obj_din', 'new'