Added functionaty to 'lose' clothes when you strip outdoors. Changed a couple of inconsistencies when I encountered them.

glife-notepad++

@@ -778,6 +778,7 @@
             <File name="locations\_statcheck" />
 
             <File name="locations\_stock_item" />
+            <File name="locations\lost_clothes_here" />
         </Folder>
     </Project>
 </NotepadPlus>

glife.qproj

@@ -39,6 +39,7 @@
       <Location name="$attributes_coat"/>
       <Location name="$attributes_swimwear"/>
       <Location name="$attributes_burlesque"/>
+      <Location name="lost_clothes_here"/>
     </Folder>
     <Folder name="Stats">
       <Location name="DNA"/>

locations/backwater

@@ -1,14 +1,16 @@
 # backwater
 
+
 $location_type = 'secluded'
 $metka = $ARGS[0]
 $loc = $CURLOC
 gs 'gadukino_event', 'sound'
 cls
 gs'stat'
+clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
 
 !events before everything
-if $clothingworntype = 'nude' and hantersKnowSlut = 0 and hanters = 1 and hour > 8 and hour < 20:
+if $clothingworntype = 'nude' and hantersKnowSlut = 0 and hanters = 1 and hour > 8 and hour < 20 and hanterknowday < day:
     cla
 	*clr
 	minut += 5
@@ -17,13 +19,12 @@ if $clothingworntype = 'nude' and hantersKnowSlut = 0 and hanters = 1 and hour >
 	'<center><img src="images/locations/gadukino/hunters/hunter_looks.jpg"></center>'
 	'While cleaning yourself in the backwater, you suddenly get the feeling that you are not alone here. Turning around, you see one of the hunters. He''s just standing there watching you, his camouflage is almost indistinguishable compared to the bushes and trees.'    
 		
-	if clothesbackwater = 1 and clearclothes = 0 and $lastwornclothingtype ! 'nude':
+	if clothesAtLocation = 1 and clearclothes = 0 :
 	    act'Get dressed':
 		    cls
-			clothesbackwater = 0
 			minut += 5
 			tanga = flag_tanga
-			gs 'clothing', 'wear_last_worn'
+			gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
 
 		    '<center><img src="images/locations/gadukino/hunters/swampbackwaternude1.jpg"></center>'
 		    'Noticing the hunter, you rush over to your clothes and begin dressed yourself in panic. As you get fully dressed, you look over your shoulder, expecting the hunter standing there, but there is no one there.'
@@ -68,17 +69,15 @@ else
 end
 
 'A small creek with relatively clean water. If the weather is warm you can clean yourself up. Also, if your clothes are dirty you can wash them here.'
-if clothesbackwater = 1:'Your clothes lie on the shore.'
+if clothesAtLocation = 1:'Your clothes lie on the shore.'
 
 !re-arrange it, there should be no logic error now by illume
-if clothesbackwater = 0:
+if clothesAtLocation = 0:
 	if $clothingworntype ! 'nude' and temper >= 15:
 		act'Undress':
 			if hantersKnowSlut > 0 or hanters = 0 or hour < 8 or hour >= 20 or modelfoto > 0 or film > 0 or pcs_dancero > 0 or stripdancesum > 0 or pcs_exhibition > 0 or guy > 4 or girl > 2:
 				cla
-				*clr			 
-				!clothing remains on location
-				clothesbackwater = 1
+				*clr			 								
 				minut+=5
 				flag_tanga = tanga
 				tanga = 0			
@@ -89,7 +88,7 @@ if clothesbackwater = 0:
 				else
 					'<center><img src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'			
 				end
-				gs 'clothing', 'strip'	
+				gs 'clothing', 'strip', $CURLOC
 				'You do not hesitate getting undressed, not caring if anyone is watching.'
 				act'Back':gt'backwater'		
 			else
@@ -102,19 +101,24 @@ if clothesbackwater = 0:
 		end
 	end
 else
-	if $clothingworntype = 'nude':
+	if $clothingworntype ! 'nude':
 		act 'Pick up your clothes':
 			cla
 			*clr
-			clothesbackwater = 0
+			gs 'clothing', 'recover_lost_clothes', $CURLOC
 			'You pick up your clothes laying on the ground.'
-			act 'Get dressed':
-				gs 'clothing', 'wear_last_worn'
-				clothesbackwater = 0
-				tanga = flag_tanga
-				gt $loc, $metka
-			end
+			gt $loc, $metka
+		end
+	else
+		act 'Get dressed':
+			cla
+			*clr
+			gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
+			tanga = flag_tanga			
+			'You pick up your clothes laying on the ground and get dressed.'
+			gt $loc, $metka
 		end
+		
 	end
 end
 
@@ -139,7 +143,7 @@ if $clothingworntype = 'nude':
 
 		act 'Further':gt 'backwater'     
     end
-	if dirtyclothes = 1:
+	if dirtyclothes = 1 and clothesAtLocation = 1:
 		act 'Wash your clothes':
 			cla
 			*clr
@@ -156,10 +160,9 @@ if $clothingworntype = 'nude':
 	            cla
 		        *clr
 	            minut += 5
-	            clearclothes = 5
-	            clearclothesH = 1
-				clothesswamphouse = 1
-				clothesbackwater = 0
+	            clearclothes = 5	            
+				gs 'clothes','recover_lost_clothes',$CURLOC, 1
+				gs 'clothes', 'strip', 'swamphouse'
 	            if $clothingworntype = 'nude':
 	                '<center><img src="images/locations/gadukino/hunters/basinwash1.jpg"></center>'
 	            else
@@ -175,9 +178,8 @@ if $clothingworntype = 'nude':
 		            *clr
 	                minut += 10
 	                clearclothes = 3
-	                clearclothesH = 0
-					clothesswamphouse = 1
-	                clothesbackwater = 0
+	                gs 'clothes','recover_lost_clothes',$CURLOC, 1
+					gs 'clothes', 'strip', 'clothesline_swamp'
 	                if $clothingworntype = 'nude':
 	                    '<center><img src="images/locations/gadukino/hunters/basinwash2.jpg"></center>'
 	                else
@@ -278,5 +280,6 @@ if hantersRape = 2:
 	act 'Further':gt 'hanters'
 end
 
+
 --- backwater ---------------------------------
 

locations/cikl

@@ -1107,5 +1107,16 @@ if Mira_no < 0: Mira_no = 0
 if catout ! 0: catout = 0
 if feedcat ! 0: feedcat = 0
 
+loc_count = ARRSIZE('$CloLosLoc')
+i = loc_count - 1
+:loopCloLoc	
+	$CloLoc = $CloLosLoc[i]
+	CloLostOn = CloLosDay[$CloLoc]
+	if CloLostOn + RAND(7,14) < daystart :		
+		gs 'clothing', 'recover_lost_clothes', $CloLoc, 2			
+	end
+	i -=1
+if i > -1 :jump 'loopCloLoc'
+
 --- cikl ---------------------------------
 

locations/clothing

@@ -1,6 +1,8 @@
 # clothing
 
 
+
+
 $clothing_list_line = {
 	!! a single line in a clothing list (wardrobe, etc)
 	!! ARGS 0 - action type (wardrobe, sell, resize, store, forsale)
@@ -57,7 +59,7 @@ $clothing_list_line = {
 		if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $ARGS[1] = 'school' and ARGS[2] = 6:
 			$RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wear</a></TD>'
 		elseif ($ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear') and dyneval('RESULT = <<$ARGS[1]>>H[<<ARGS[2]>>]') > 0:
-			if $ARGS[1] ! 'exercise' and CloStyle ! 5 and (dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') < (pcs_hips - 8) or dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') > (pcs_hips + 8)):
+			if $ARGS[1] ! 'exercise' and CloStyle ! 5 and (dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') < (pcs_hips - 8) or dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') > (pcs_hips + 8)) or (ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1):
 				$RESULT += '</TD>'
 			else
 				$RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wear</a></TD>'
@@ -101,10 +103,7 @@ if $ARGS[0] = 'view_clothing_list':
 	!! ARGS 2 - brothel flag (brothel)
 
 	!access locker means you are out of swamp and find road now, disable effect, and get all cloth back
-	dirtyclothes = 0
-	clothesswamphouse = 0
-	clothesbackwater = 0
-	clothesforest = 0
+	dirtyclothes = 0	
 	swamp_clothes = 0
 	
 	act 'Leave':gt $loc, $metka
@@ -381,6 +380,8 @@ if $ARGS[0] = 'view_clothing_item':
 		
 			if CloExhibit > pcs_exhibition:
 				'You don''t feel confident enough to wear an outfit this revealing.'
+			elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
+				'You lost these clothes somewhere, maybe you can find them again?.'				
 			else
 				act 'Wear':
 					gs 'clothing', 'wear', $ARGS[2], ARGS[3]
@@ -449,6 +450,7 @@ if $ARGS[0] = 'view_clothing_item':
 end
 
 if $ARGS[0] = 'strip':
+	!$ARGS[1] = location when stripping outdoors
 	if $clothingworntype = 'nude': exit
 	cumspclnt = 6
 	gs 'cum_cleanup'
@@ -457,9 +459,23 @@ if $ARGS[0] = 'strip':
 	else
 		last_vid = 0
 	end
+	
 	if $clothingworntype = 'school':schtype = clothingwornnumber
-	$lastwornclothingtype = $clothingworntype
-	lastwornclothingnumber = clothingwornnumber
+		
+	if $ARGS[1] ! '' :	
+		DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=''<<$ARGS[1]>>'''		
+		$CloLosLoc[] = $ARGS[1]			
+		$CloLosTyp[$ARGS[1]] = $clothingworntype		
+		CloLosNum[$ARGS[1]] = clothingwornnumber
+		CloLosDay[$ARGS[1]] = daystart
+		KILLVAR '$lastwornclothingtype'
+		KILLVAR 'lastwornclothingnumber'
+	else
+		$lastwornclothingtype = $clothingworntype
+		lastwornclothingnumber = clothingwornnumber
+	end
+	
+
 	$clothingworntype = 'nude'
 	clothingwornnumber = 0
 	CloQuality = 0
@@ -494,7 +510,41 @@ if $ARGS[0] = 'strip':
 	! WD: Bimbo look
 	cloth_vid = 0
 	exhibiHideNewCloth = 0
+end
+
 
+if $ARGS[0] = 'recover_lost_clothes':
+	!$ARGS[1] = location
+	!ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
+	$cloLoc = $ARGS[1]
+	cloAction = ARGS[2]
+	
+	$clothType = $CloLosTyp[$cloLoc]		
+	clothNumber = CloLosNum[$cloLoc]
+	dayLost = CloLosDay[$cloLoc]
+		
+	DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
+	findLocInd = ARRPOS('$CloLosTyp', $clothType)
+	KILLVAR '$CloLosTyp', findLocInd
+	findLocInd = ARRPOS('CloLosNum', clothNumber)
+	KILLVAR 'CloLosNum', findLocInd		
+	findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
+	KILLVAR 'CloLosDay', findLocInd
+	findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
+	KILLVAR '$CloLosLoc', findLocationIndex
+	KILLVAR 'findLocInd'
+	
+	if cloAction = 1:
+		gs 'clothing', 'wear', $clothType, clothNumber
+		if dayLost < daystart and  $cloLoc ! 'swamphouse' : dirtyclothes = 1
+	elseif cloAction = 2 :
+		dynamic $clothType + 'S[<<clothNumber>>] = 1'
+	end
+	
+	KILLVAR '$cloLoc'
+	KILLVAR 'cloAction'
+	KILLVAR '$clothType'
+	KILLVAR 'clothNumber'
 end
 
 if $ARGS[0] = 'wear':
@@ -614,5 +664,6 @@ if $ARGS[0] = 'wear_last_worn':
 	gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
 end
 
+
 --- clothing ---------------------------------
 

locations/clothing_QV

@@ -207,6 +207,8 @@ if $ARGS[0] = 'change':
 		'You are wearing this outfit.'
 	elseif CloExhibit > pcs_exhibition:
 		'You don''t feel confident enough to wear an outfit this revealing.'
+	elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
+		'You lost these clothes somewhere, maybe you can find them again?.'
 	else
 		act 'Wear this outfit':
 			gs 'clothing', 'wear', $ARGS[1], ARGS[2]

locations/gadforest

@@ -1,10 +1,12 @@
 # gadforest
 
+
 if $ARGS[0] = '1':
 	!out skirt
 	$location_type = 'secluded'
     $metka = $ARGS[0]
     $loc = $CURLOC
+    clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
     gs 'gadukino_event', 'sound'
     cls
     gs'stat'
@@ -49,7 +51,7 @@ if $ARGS[0] = '1':
     end
     if forestpicnic = 1:'On the edge of the forest you see people. Apparently they are having a family <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
     if MiraLoc = 3:'Near you wandering in the forest is <a href="exec: gt ''Miroslava'' ">Mira</a>.'
-    if clothesforest = 1:'On the ground lay your clothes.'
+    if clothesAtLocation = 1:'On the ground lay your clothes.'
     if findvel = 2:'Near the tree is your old <a href="exec:gt ''bicycle'',''forest''">bike</a>.'
     if goforest < 10:'You don''t know this forest very well, it''s best if you don''t wander too far.'
     
@@ -63,19 +65,17 @@ if $ARGS[0] = '1':
     if foresteventrand = 8 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_2boys'
     if foresteventrand = 9 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_3boys' 
     
-    if $clothingworntype ! 'nude' and clothforest = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3:
+    if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3:
 	    act'Strip naked':
 		    if forestpicnic = 0:
 			    cla
 			    *clr
-			    !the clothing remains in the woods
-			    clothesforest = 1
 			    minut+=5
 			    flag_tanga = tanga
 			    tanga = 0
 			    if CloSkirtShortness = 0:'<center><img src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
                 if CloSkirtShortness > 0:'<center><img src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'				    
-                gs 'clothing', 'strip'
+                gs 'clothing', 'strip', $CURLOC
 				'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.'
 				
 			    act'Back':gt'gadforest','1'			
@@ -89,15 +89,14 @@ if $ARGS[0] = '1':
 		    end
 	    end
     end
-    if clothesforest = 1 and $clothingworntype = 'nude':
+    if clothesAtLocation = 1 and $clothingworntype = 'nude':
 		act 'Dress':
 			cla
 			*clr
-			clothesforest = 0
 			swamp_clothes = 0
 			minut += 5
 			tanga = flag_tanga
-			gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
 			if CloSkirtShortness = 0:'<center><img src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
              if CloSkirtShortness > 0:'<center><img src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
 			'You change into your clothes.'	
@@ -105,11 +104,11 @@ if $ARGS[0] = '1':
 		end    
     end
     !if he had gone from the forest and put in another place    
-    if clothesforest = 1 and $clothingworntype ! 'nude':
-		act 'To pick up the abandoned clothing':
+    if clothesAtLocation = 1 and $clothingworntype ! 'nude':
+		act 'Pick up the abandoned clothing':
 			cla
 			*clr
-			clothesforest = 0
+			gs 'clothing', 'recover_lost_clothes', $CURLOC
 			'You pick up your clothes.'
 			act 'Back': gt 'gadforest','1'
 		end    
@@ -217,7 +216,7 @@ if $ARGS[0] = '1':
     end    
     act 'Out of the woods':
 		if $clothingworntype = 'nude':
-			if clothesforest = 0:
+			if $CloLosTyp[$CURLOC] = '':
 				!no cloth here, it must be broken. There may be a good exhibi or rape event entry point.
 				'You sneak out the woods, hiding your naked body in shadow and moving toward grandparents house.'
 				'You Successfully reach home without witness.'
@@ -553,5 +552,6 @@ if $ARGS[0] = 'torncloth':
 	end
 end
 
+
 --- gadforest ---------------------------------
 

locations/gadforest_event

@@ -1,5 +1,6 @@
 # gadforest_event
 
+
 	!MiaLoc tells us where Mira is Located
 	!----------------------------------------------
 	!MiraLoc = 0 (Mira at home)
@@ -237,11 +238,10 @@ if $ARGS[0] = 'gopforest_mitka':
 	                    gopsawnaked += 1
 	                    if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1
 	                    pcs_horny += 10
-			            clothesforest = 0
 			            swamp_clothes = 0
 			            minut += 5
 			            tanga = flag_tanga
-			            gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			            gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                    gs'stat'
 	                    !gs'time'
 	                    
@@ -315,11 +315,10 @@ if $ARGS[0] = 'gopforest_mitka':
 	                        *clr
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -366,11 +365,10 @@ if $ARGS[0] = 'gopforest_mitka':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -628,11 +626,10 @@ if $ARGS[0] = 'gopforest_kolyamba':
 	                    gopsawnaked += 1
 	                    if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                    
 	                    pcs_horny += 10
-			            clothesforest = 0
 			            swamp_clothes = 0
 			            minut += 5
 			            tanga = flag_tanga
-			            gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			            gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                    gs'stat'
 	                    !gs'time'
 	                    
@@ -693,11 +690,10 @@ if $ARGS[0] = 'gopforest_kolyamba':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -743,11 +739,10 @@ if $ARGS[0] = 'gopforest_kolyamba':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -992,11 +987,10 @@ if $ARGS[0] = 'gopforest_vasyan':
 	                    gopsawnaked += 1
 	                    if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                    
 	                    pcs_horny += 10
-			            clothesforest = 0
 			            swamp_clothes = 0
 			            minut += 5
 			            tanga = flag_tanga
-			            gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			            gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                    gs'stat'
 	                    !gs'time'
 	                    
@@ -1056,11 +1050,10 @@ if $ARGS[0] = 'gopforest_vasyan':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -1106,11 +1099,10 @@ if $ARGS[0] = 'gopforest_vasyan':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -1378,11 +1370,10 @@ if $ARGS[0] = 'gopforest_2boys':
 	                    gopsawnaked += 1
 	                    if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                    
 	                    pcs_horny += 10
-			            clothesforest = 0
 			            swamp_clothes = 0
 			            minut += 5
 			            tanga = flag_tanga
-			            gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			            gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                    gs'stat'
 	                    !gs'time'
 	                    
@@ -1451,11 +1442,10 @@ if $ARGS[0] = 'gopforest_2boys':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -1507,11 +1497,10 @@ if $ARGS[0] = 'gopforest_2boys':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -1764,11 +1753,10 @@ if $ARGS[0] = 'gopforest_3boys':
 	                    gopsawnaked += 1
 	                    if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                    
 	                    pcs_horny += 10
-			            clothesforest = 0
 			            swamp_clothes = 0
 			            minut += 5
 			            tanga = flag_tanga
-			            gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			            gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                    gs'stat'
 	                    !gs'time'
 	                    
@@ -1830,11 +1818,10 @@ if $ARGS[0] = 'gopforest_3boys':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -1882,11 +1869,10 @@ if $ARGS[0] = 'gopforest_3boys':
 	                        gopsawnaked += 1
 	                        if gopsawnaked >= 10:gopsawnaked = 0 & npc_QW['A63'] += 1	                        
 	                        pcs_horny += 10
-			                clothesforest = 0
 			                swamp_clothes = 0
 			                minut += 5
 			                tanga = flag_tanga
-			                gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			                gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 	                        gs'stat'
 	                        !gs'time'
 	                    
@@ -2027,8 +2013,6 @@ if $ARGS[0] = 'nude_event':
 	act'Give in to the temptation':
 	    cla
 		*clr
-	    !the clothing remains in the woods
-		clothesforest = 1
 		minut+=5
 		flag_tanga = tanga
 		tanga = 0
@@ -2038,7 +2022,7 @@ if $ARGS[0] = 'nude_event':
 		if CloSkirtShortness = 0 and MiraLoc ! 3:'<center><img src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
         if CloSkirtShortness > 0 and MiraLoc ! 3:'<center><img src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
 		if MiraLoc = 3:'<center><img src="images/characters/village/mira/miraforest5.jpg"></center>'		    
-        gs 'clothing', 'strip'			    			   			
+        gs 'clothing', 'strip', 'gadforest'			    			   			
 	    if MiraLoc ! 3:'You do not hesitate and quickly get undressed, leaving your clothes in a pile on the forest floor.'
 		if MiraLoc = 3:'Seeing that the resistance stopped, Mira quickly began to undress you, leaving your clothes in a pile on the forest floor.'
 			
@@ -2222,11 +2206,10 @@ if $ARGS[0] = 'picnic':
 		act 'To hide and dress':
 			cla
 			*clr
-			clothesforest = 0
 			swamp_clothes = 0
 			minut += 5
 			tanga = flag_tanga
-			gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 			if CloSkirtShortness = 0:'<center><img src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
             if CloSkirtShortness > 0:'<center><img src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
 			'You changed into your clothes.'	
@@ -2844,5 +2827,6 @@ if $ARGS[0] = 'relax':
     end               
 end
 
+
 --- gadforest_event ---------------------------------
 

locations/hanters

@@ -1,5 +1,6 @@
 # hanters
 
+
 gs'stat'
 
 !$textsexhanter = 'From a member of the unpleasant smells and remains in the mouth tastes foul feces. "-Damn, I had to do an enema." - belatedly dumaeete you.'
@@ -17,7 +18,7 @@ else
     'You see three strangers talking to each other. Each one of them telling all kinds of hunting stories.'
 end
  
-act 'Walk over':gt'swamp_yard'       
+act 'Walk away':gt'swamp_yard'       
 if hantersKnow = 0:
 	act 'Greet them':
 		cls
@@ -734,11 +735,15 @@ if slutgosex = 1 or forest_hantersex = 1 or forest_gopsex = 1:
 	boyCsexa = 0		
     hantslutsex += rand(3,6)
     ! for a break between the sex, is taken away -1 every hour 
-	if slutgosex = 1 or forest_hantersex = 1:clothesbackwater = 1
-	if forest_gopsex = 1:clothesforest = 1
 	flag_tanga = tanga
 	tanga = 0
-    gs 'clothing', 'strip'
+	if forest_gopsex = 1:
+		gs 'clothing', 'strip', 'gadforest'
+	else if if slutgosex = 1 or forest_hantersex = 1 :
+		gs 'clothing', 'strip', 'backwater'
+    else
+		gs 'clothing', 'strip'
+    end
     if hanterandreisex = 0 and temphant = 1:hanterandreisex = 1 & guy += 1
     if hantersergeisex = 0 and temphant = 2:hantersergeisex = 1 & guy += 1
     if hanterigorsex = 0 and temphant = 3:hanterigorsex = 1 & guy += 1
@@ -3780,5 +3785,6 @@ $hanters_talk = {
     end
 }
 
+
 --- hanters ---------------------------------
 

locations/hantersex

@@ -1,5 +1,6 @@
 # hantersex
 
+
 gs'stat'
 !$textsexhanter = 'From a member of the unpleasant smells and remains in the mouth tastes foul feces. " - Damn, I had to do an enema." - belatedly dumaeete you.'
 !sex after of Striptease if he`s not a whore
@@ -417,7 +418,6 @@ if sluthomesex = 1:
 	sluthomesex = 0
     hantslutsex += rand(3,6)
     ! for a break between the sex, is taken away -1 every hour 
-	clothesswamphouse = 1
 	flag_tanga = tanga
 	tanga = 1
 	pcs_dom -= 1
@@ -431,7 +431,7 @@ if sluthomesex = 1:
 	boyBsexa = 0
 	boyCsexa = 0
 	stat['bj'] += 1	
-    gs 'clothing', 'strip'
+    gs 'clothing', 'strip', 'swamphouse'
     if hanterandreisex = 0 and temphant = 1:hanterandreisex = 1 & guy += 1
     if hantersergeisex = 0 and temphant = 2:hantersergeisex = 1 & guy += 1
     if hanterigorsex = 0 and temphant = 3:hanterigorsex = 1 & guy += 1
@@ -3560,5 +3560,6 @@ $hantersexfaint = {
     end    
 }
 
+
 --- hantersex ---------------------------------
 

locations/lost_clothes_here

@@ -0,0 +1,10 @@
+# lost_clothes_here
+
+if CloLosDay[$ARGS[0]] ! 0 and CloLosDay[$ARGS[0]] : 
+	RESULT = 1
+else :
+	RESULT = 0
+end
+
+--- lost_clothes_here ---------------------------------
+

locations/swamp_yard

@@ -1,5 +1,6 @@
 # swamp_yard
 
+
 $location_type = 'secluded'
 $metka = $ARGS[0]
 $loc = $CURLOC
@@ -190,7 +191,7 @@ if hanterhelp = 2 and hantersKnow = 0:
     end
     !swamp_clothes - temporary clothing if he came naked     
     if $clothingworntype = 'nude' and hantersKnowSlut = 0:
-        act 'Take the burlap':
+        act 'Take the burlap and walk away':
             cls 
             hanterhelp = 0
             swamp_clothes = 1
@@ -200,7 +201,7 @@ if hanterhelp = 2 and hantersKnow = 0:
 		    'You thank them and quickly cover yourself with the piece of burlap... It''s not much but it''s at least better than nothing.'
 		    act'Further':gt'swamp_yard'
         end
-        act 'Take the burlap':
+        act 'Take the burlap and stay':
             cls 
             hanterhelp = 0
             swamp_clothes = 1
@@ -356,13 +357,12 @@ if $clothingworntype = 'nude' and swamp_clothes = 0 and hanters = 1 and hour >=
         '<center><img src="images/locations/gadukino/hunters/swampdvornude.jpg"></center>'
 		'Seeing some men in the yard, you try to cover up your private parts...'
 		
-		if clothesswamphouse = 1 and clearclothes = 0 and $lastwornclothingtype ! 'nude':
+		if FUNC('lost_clothes_here','swamphouse') = 1 and clearclothes = 0 and $lastwornclothingtype ! 'nude':
 	        act'Get dressed':
 		        cls
-			    clothesswamphouse = 0
 			    minut += 5
 			    tanga = flag_tanga
-			    gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+			    gs 'clothing', 'recover_lost_clothes', 'swamphouse'
 
 		        '<center><img src="images/locations/gadukino/hunters/swampdvornude1.jpg"></center>'
 		        'You rush inside the hut so you can get dressed.'
@@ -372,8 +372,7 @@ if $clothingworntype = 'nude' and swamp_clothes = 0 and hanters = 1 and hour >=
             act'Dress':
                 cls
                 minut+=5
-           		swamp_clothes = 1
-		        gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+           		swamp_clothes = 1		        
 		        '<center><img src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
 		        'You quickly rush inside the hut and hide behind a piece of burlap... It''s not much, but at least it''s better than nothing.'
 		        act'Further':gt'swamphouse'
@@ -1016,5 +1015,6 @@ $dirty_swamp_yard = {
     act 'Further':dirty_swamp_yard = 0 & gt'swamp_yard'         
 }
 
+
 --- swamp_yard ---------------------------------
 

locations/swamphouse

@@ -1,5 +1,6 @@
 # swamphouse
 
+
 if $ARGS[0] = 'start' or $ARGS[0] = '':
 	$location_type = 'indoors'
 	$metkaM = $ARGS[0]
@@ -15,6 +16,8 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	LColor = RGB(106,90,205)
 	hantslutsexrand = rand(1,3)
 	temp = rand(1,5)
+	clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
+	clothesOnLine = FUNC('lost_clothes_here','clothesline_swamp')
 
 	'<center><H4>Hut</H4></center>'
 	'<center><img src="images/locations/gadukino/hunters/swampizba.jpg"></center>'
@@ -28,8 +31,8 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	if swamp_enema = 1:'You found an enema syringe on the shelf.'
 	'In the other corner you see a small <a href="exec: gs ''swamphouse'', ''stove''">stove</a>. There is running water and some mushrooms so you can cook simple food. You can also warm the water so you can bathe in the basin.'
 	'Beside the stove, there''s a stack of old <a href="exec: gs ''swamphouse'', ''stackmagazines''">magazines</a>, most likely used for ignition.'
-	if clothesswamphouse = 1 and clearclothes = 0:'Your clothes hang on the shelf.'
-	if clearclothes > 0 and clearclothesH = 1: 'Your clothes are drying above the stove.'
+	if clothesAtLocation = 1 and clearclothes = 0:'Your clothes are laying on the shelf.'
+	if clearclothes > 0 and clothesOnLine = 0: 'Your clothes are drying above the stove.'
 	if hour = 20 and hanters = 1 and hantersKnow > 0 or hour = 7 and hanters = 1 and hantersKnow > 0:'The <a href="exec:gs ''swamphouse'', ''hanterstable''">hunters</a> are sitting around the table.'
 	if hour > 20 and hour < 23 and hanters = 1 and hantersKnow > 0:'You see the <a href="exec:gs ''swamphouse'', ''hantersrelax''">hunters</a> hanging in the hut.'
 	if hour = 23 and hanters = 1 and hantersKnow > 0 or hour >= 0 and hour < 7 and hanters = 1 and hantersKnow > 0:'The hunters are sleeping on the couch.'
@@ -73,8 +76,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				*clr
 				if $clothingworntype ! 'nude':
 					flag_tanga = tanga
-					clothesswamphouse = 1
-					gs 'clothing', 'strip'
+					gs 'clothing', 'strip', $CURLOC
 				end
 				swamp_clothes = 0
 				minut+=5
@@ -93,12 +95,29 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			end
 		end
 	end
-	if clothesswamphouse = 1 and clearclothes = 0:
+	if clothesAtLocation = 1 and clearclothes = 0:
+		!clothes are ready
+		if $clothingworntype = 'nude':
+			act 'Get dressed':
+				gs 'recover_lost_clothes', $CURLOC, 1
+				swamp_clothes = 0
+				tanga = flag_tanga
+				gt 'swamphouse', 'start'
+			end
+		else
+			act 'Pick up your clothes':
+				cla
+				*clr
+				gs 'recover_lost_clothes', $CURLOC
+				'You picked up your clothes.'
+				act 'Back': gt $loc, $metka
+			end
+		end
+	elseif clothesOnLine = 1 and clearclothes = 0:
 		!clothes are ready
 		if $clothingworntype = 'nude':
 			act 'Get dressed':
-				gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
-				clothesswamphouse = 0
+				gs 'recover_lost_clothes', 'clothesline_swamp', 1
 				swamp_clothes = 0
 				tanga = flag_tanga
 				gt 'swamphouse', 'start'
@@ -107,7 +126,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			act 'Pick up your clothes':
 				cla
 				*clr
-				clothesswamphouse = 0
+				gs 'recover_lost_clothes', 'clothesline_swamp'
 				'You picked up your clothes.'
 				act 'Back': gt $loc, $metka
 			end
@@ -150,7 +169,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 		end
 	end
 
-	if dirty_swamphouse > 25:act 'Clean the hut':hanterslut -= 1 & gs 'swamphouse', 'dirty_swamphouse'
+	if dirty_swamphouse > 25:act 'Clean the hut':hanterslut -= 1 & dynamic $dirty_swamphouse
 
 	act 'Go outside':hanter_refuse = 0 & minut += 5 & gt'swamp_yard'
 	!sex with Igor
@@ -366,14 +385,13 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			'<center><img src="images/locations/gadukino/hunters/swamphousenude.jpg"></center>'
 			'You hear the hunters nearing the hut, grabbing the handle, about to open the door. You quickly hide your privare parts behind the hands...'
 
-			if clothesswamphouse = 1 and clearclothes = 0:
+			if (clothesAtLocation = 1 or clothesOnLine = 1) and clearclothes = 0:
 				act'Get dressed':
 					cla
 					*clr
-					clothesswamphouse = 0
 					minut += 5
 					tanga = flag_tanga
-					gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
+					gs 'clothing', 'recover_lost_clothes', $CURLOC
 					!tkan_cloth = 0
 
 					'<center><img src="images/locations/gadukino/hunters/swampdvornude1.jpg"></center>'
@@ -386,7 +404,6 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 					*clr
 					minut+=5
 					swamp_clothes = 1
-					gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
 					'<center><img src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
 					'You look around searching for your clothes but can''t seem to find them, instead you hide behind a piece of burlap... It''s better than nothing.'
 					act'Further':gt'swamphouse', 'start'
@@ -666,7 +683,7 @@ if $ARGS[0] = 'basin':
 		    act 'Further':gt 'swamphouse', 'start'
 	    end
     end
-    if hotwater = 1  and dirtyclothes = 1 and $clothingworntype = 'nude' and clothesswamphouse = 1:
+    if hotwater = 1  and dirtyclothes = 1 and ($clothingworntype = 'nude' and clothesAtLocation = 1) or ($clothingworntype ! 'nude' and clothesAtLocation = 0 and clothesOnLine = 0):
 		!fix logic and remove clearclothesH. cloth may only appear in swamphouse or backwater, so fit it. by illume
         act 'Wash your clothes (1:00)':
 	        cla
@@ -681,15 +698,15 @@ if $ARGS[0] = 'basin':
 	            '<center><img src="images/locations/gadukino/hunters/basinwash.jpg"></center>'
 	        else
                 '<center><img src="images/locations/gadukino/new/Washclothes1.jpg"></center>'
-            end
-	        'You undress and wash your dirty clothes.'
+                 'You undress and wash your dirty clothes.'
+            end	       
 
 	        act 'Hang your clothes in the hut':
 	            cla
 		        *clr
 	            minut += 5
 	            clearclothes = 5
-	            clearclothesH = 1
+	            gs 'clothing', 'strip', $CURLOC
 	            if $clothingworntype = 'nude':
 	                '<center><img src="images/locations/gadukino/hunters/basinwash1.jpg"></center>'
 	            else
@@ -699,13 +716,13 @@ if $ARGS[0] = 'basin':
 
 	            act 'Further':gt 'swamphouse', 'start'
 	        end
-            if month >= 5 and month <= 9:
+            if month >= 5 and month <= 9 and clothesOnLine = 0:
 	            act 'Hang the clothes on a clothesline':
 	                cla
 		            *clr
 	                minut += 10
 	                clearclothes = 3
-	                clearclothesH = 0
+					gs 'clothing', 'strip', 'clothesline_swamp'
 
 	                if $clothingworntype = 'nude':
 	                    '<center><img src="images/locations/gadukino/hunters/basinwash2.jpg"></center>'
@@ -1786,7 +1803,7 @@ if $ARGS[0] = 'hantersmokBJ':
 	end
 end
 
-if $ARGS[0] = 'dirty_swamphouse':
+$dirty_swamphouse = {
 	cla
 	*clr
 	if dirty_swamphouse > 10:minut += 60 & pcs_sweat += 10
@@ -1802,7 +1819,9 @@ if $ARGS[0] = 'dirty_swamphouse':
 	'After a while you''ve finished cleaning and put back everything in order again. You''re quite pleased with yourself.'
 
     act 'Further':dirty_swamphouse = 0 & gt'swamphouse', 'start'
-end
+}
+
+
 
 
 --- swamphouse ---------------------------------