[fixed] change to sport clothes and back function

Also added check for default sports clothing set being deleted.

locations/wardrobe.qsrc

@@ -828,6 +828,9 @@ if $ARGS[0] = 'default_entry_delete':
 	$defcoattype[i] = ''
 	defcoatnumber[i] = ''
 	$def_clothing_name[i] = ''
+    if default_sport_number = i: 
+		default_sport_number = 0
+	end
 	gt 'wardrobe', $wloc
 end
 
@@ -893,6 +896,7 @@ if $ARGS[0] = 'default_sport_options':
 				lastworndefpursenumber['sport'] = currentpursenumber
 				$lastworncoattype['sport'] = $coatworntype
 				lastworndefcoatnumber['sport'] = coatwornnumber
+      			gs  'wardrobe', 'default_entry_wear', default_sport_number
 				gt $loc, $loc_arg
 			end
 		else