[fixed] sports clothing changes to include handbag

locations/purses.qsrc

@@ -248,6 +248,36 @@ if $ARGS[0] = 'descriptions':
 	end
 end
 
+if $ARGS[0] = 'strip':
+	if $currentpursetype = 'none': exit
+
+	$purselastworntype = $currentpursetype
+	purselastwornnumber = currentpursenumber
+	$currentpursetype = 'none'
+	currentpursenumber = 0
+	bag = 0
+end
+
+if $ARGS[0] = 'wear':
+	!! ARGS 0 - action
+	!! ARGS 1 - shoe type name / last worn
+	!! ARGS 2 - shoe index
+
+	if $ARGS[1] = 'last_worn':
+		$currentpursetype = $purselastworntype
+		currentpursenumber = purselastwornnumber
+	else
+		$currentpursetype = $ARGS[1]
+		currentpursenumber = ARGS[2]
+	end
+
+	if $currentpursetype = 'none':
+		bag = 0
+	exit
+	end
+	bag = 1
+end
+
 if $ARGS[0] = 'remove':
 	killvar '$currentpursetype'
 	killvar 'currentpursenumber'

locations/wardrobe.qsrc

@@ -981,7 +981,7 @@ if $ARGS[0] = 'default_sport_options':
 						gs 'bras', 'wear', $lastwornbratype['sport'], lastwornbranumber['sport']
 					end
 					gs 'shoes', 'wear', $shoelastworntype['sport'], shoelastwornnumber['sport']
-					gs 'purses', 'wear', $shoelastworntype['sport'], shoelastwornnumber['sport']
+					gs 'purses', 'wear', $lastwornpursetype['sport'], lastworndefpursenumber['sport']
 					gs 'coats', 'wear', $lastworncoattype['sport'], lastworndefcoatnumber['sport']
 					gt $loc, $loc_arg
 				end