[added] Dispose function for worn clothing, will leave Sveta not wearing clothing

locations/clothing.qsrc

@@ -1665,6 +1665,14 @@ if $ARGS[0] = 'strip_all':
 	gs 'clothing', 'strip', $strip_loc
 end
 
+if $ARGS[0] = 'dispose':
+	dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
+	$lastwornclothingtype = 'none'
+	lastwornclothingnumber = 0
+	$clothingworntype = 'none'
+	clothingwornnumber = 0
+end
+
 if $ARGS[0] = 'strip':
 	!$strip_loc = location when stripping outdoors
 	$strip_loc = $ARGS[1]