dirtyclothes - limit the effect to the forest area

locations/bicycle

@@ -14,106 +14,106 @@ if $ARGS[0] = 'sarai':
 	'You notice an old bike. But it looks like being in a good condition, you can probably ride it without any trouble.'
 	if sunWeather = 0:'You notice an old bike. You would love to take a ride with it but you decide not to while it''s raining.'
 
-    if hour >= 6 and hour <= 20 and sunWeather = 1 and month >= 4 and month <= 10:
-        if findvelday ! daystart:
-	        act 'Ride the bike (1:00)':
-		        cls
-		        findvelday = daystart
-	            minut += 60
-		        run_exp += RAND(0,2)
-		        stren_exp += rand(0,2)
-		        fat -= 5
-		        pcs_mood += 5
-		        pcs_sweat += 2
-		        findvelrand = RAND(0,100)
-		        if $clothingworntype = 'nude':
-			        pcs_horny += 20
-			        pcs_willpwr += 10
-			        gs 'stat'
-			        '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_nude.jpg"></center>'
-			        'You ride nude, avoiding crowded places, exulting from this newfound courage. It''s hard to say what excites you more, fear or desire to be noticed.'
-			        act 'Finish the trip':gt $loc, $metka
-			        exit
-		        end
-		        if CloSkirtShortness > 0 and findvelrand > 70:
-			        if $pantyworntype ! 'none':
-				        pcs_willpwr+=5
-				        gs'stat'
-				        '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_tanga_1.jpg"></center>'
-				        'During your ride you lift your skirt several times, showing a glimpse of your panties to the passers-by.'
-						
+	if hour >= 6 and hour <= 20 and sunWeather = 1 and month >= 4 and month <= 10:
+		if findvelday ! daystart:
+			act 'Ride the bike (1:00)':
+				cls
+				findvelday = daystart
+				minut += 60
+				run_exp += RAND(0,2)
+				stren_exp += rand(0,2)
+				fat -= 5
+				pcs_mood += 5
+				pcs_sweat += 2
+				findvelrand = RAND(0,100)
+				if $clothingworntype = 'nude':
+					pcs_horny += 20
+					pcs_willpwr += 10
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_nude.jpg"></center>'
+					'You ride nude, avoiding crowded places, exulting from this newfound courage. It''s hard to say what excites you more, fear or desire to be noticed.'
+					act 'Finish the trip':gt $loc, $metka
+					exit
+				end
+				if CloSkirtShortness > 0 and findvelrand > 70:
+					if $pantyworntype ! 'none':
+						pcs_willpwr+=5
+						gs'stat'
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_tanga_1.jpg"></center>'
+						'During your ride you lift your skirt several times, showing a glimpse of your panties to the passers-by.'
+
 						gs 'arousal', 'voyeur', 5, 'exhibitionism'
 						gs 'stat'
-						
-			        else
-				        pcs_willpwr += 10
-				        gs'stat'
-				        '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_tanga_2.jpg"></center>'
-				        'During your ride you lift your skirt several times, showing your bare ass to the passers-by.'
-						
+
+					else
+						pcs_willpwr += 10
+						gs'stat'
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_tanga_2.jpg"></center>'
+						'During your ride you lift your skirt several times, showing your bare ass to the passers-by.'
+
 						gs 'arousal', 'voyeur', 10, 'exhibitionism'
 						minut -= 5
 						gs 'stat'
-			        end
-			        act 'Finish the ride':gt $loc, $metka
-					
+					end
+					act 'Finish the ride':gt $loc, $metka
+
 					gs 'arousal', 'end'
 					gs 'stat'
-					
-			        exit
-		        end
-		        if CloSkirtShortness > 0 and findvelrand <= 70:
-			        pcs_willpwr += 5
-			        gs'stat'
-			        '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_2.jpg"></center>'
-			        'You take out the old bike for a ride. You ride by the endless fields enjoying the freedom you''re experiencing.'
-			        act 'Finish the ride':gt $loc, $metka
-			        exit	
-		        end
-		        if CloSkirtShortness = 0:
-			        pcs_willpwr += 5
-			        gs'stat'
-			        '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike.jpg"></center>'
-			        'You ride your bike, enjoying the surrounding country-side.'
-			        act 'Finish the trip':gt $loc, $metka
-			        exit
-		        end
-	        end
-	    end
-	end     
-    if goforest > 0 and sunWeather = 1 and month >= 4 and month <= 10:   
-	    act 'Bike to the forest (0:25)':
-		    cls
-	        minut += 25
-		    pcs_mood += 5
-		    findvel = 2
-		    gs'stat'
-		
-            gs 'bicycle', 'clothes_findvel'
-		    'You jump onto the bike and ride to the forest.'
+
+					exit
+				end
+				if CloSkirtShortness > 0 and findvelrand <= 70:
+					pcs_willpwr += 5
+					gs'stat'
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_2.jpg"></center>'
+					'You take out the old bike for a ride. You ride by the endless fields enjoying the freedom you''re experiencing.'
+					act 'Finish the ride':gt $loc, $metka
+					exit
+				end
+				if CloSkirtShortness = 0:
+					pcs_willpwr += 5
+					gs'stat'
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike.jpg"></center>'
+					'You ride your bike, enjoying the surrounding country-side.'
+					act 'Finish the trip':gt $loc, $metka
+					exit
+				end
+			end
+		end
+	end
+	if goforest > 0 and sunWeather = 1 and month >= 4 and month <= 10:
+		act 'Bike to the forest (0:25)':
+			cls
+			minut += 25
+			pcs_mood += 5
+			findvel = 2
+			gs'stat'
+
+			gs 'bicycle', 'clothes_findvel'
+			'You jump onto the bike and ride to the forest.'
 			gs 'bicycle', 'ridego', 'gadforest','1'
-		end    
+		end
 	end
-    if goswamp = 1 and sunWeather = 1 and month >= 4 and month <= 10:	
-	    act 'Bike to the swamp (1:15)':
-		    cls
-		    minut += 75
-		    run_exp += RAND(0,1)
-		    stren_exp += rand(0,1)
-		    fat -= 1
-		    pcs_mood += 5
-		    pcs_sweat += 1
-		    findvel = 3
-		    gs'stat'
-		    !gs'time'
-		
-            gs 'bicycle', 'clothes_findvel'
-		    'You get on the bike and ride it to the swamp.'
-
-		    gs 'bicycle', 'ridego', 'swamp_yard'
-	    end
+	if goswamp = 1 and sunWeather = 1 and month >= 4 and month <= 10:
+		act 'Bike to the swamp (1:15)':
+			cls
+			minut += 75
+			run_exp += RAND(0,1)
+			stren_exp += rand(0,1)
+			fat -= 1
+			pcs_mood += 5
+			pcs_sweat += 1
+			findvel = 3
+			gs'stat'
+			!gs'time'
+
+			gs 'bicycle', 'clothes_findvel'
+			'You get on the bike and ride it to the swamp.'
+
+			gs 'bicycle', 'ridego', 'swamp_yard'
+		end
 	end
-	act 'Put the bike away': gt'Gadsarai'		
+	act 'Put the bike away': gt'Gadsarai'
 end
 
 if $ARGS[0] = 'forest':
@@ -122,47 +122,48 @@ if $ARGS[0] = 'forest':
 	cla
 	*clr
 	minut += 1
-    gs 'gadukino_event', 'sound'	
+	gs 'gadukino_event', 'sound'
 	gs 'stat'
 	!gs'time'
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
 
 	act 'Bike to the village (0:25)':
-	    if $clothingworntype ! 'nude' or pcs_exhibition > 50:
-		    cls	    
-		    pcs_mood += 10
-		    findvel = 1
-		    minut += 25
+		dirtyclothes = 0 & swamp_clothes = 0
+		if $clothingworntype ! 'nude' or pcs_exhibition > 50:
+			cls
+			pcs_mood += 10
+			findvel = 1
+			minut += 25
 			exhibition_exp += 4
-		    gs'stat'
+			gs'stat'
 
-            gs 'bicycle', 'clothes_findvel'
-		    'You ride your bike out of the forest and return to the village.'		    
+			gs 'bicycle', 'clothes_findvel'
+			'You ride your bike out of the forest and return to the village.'
 			gs 'bicycle', 'ridego', 'Gaddvor'
-	    else
-            cls	    
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
-		    'You take off your clothes and jump on your bike and ride through the forest. You would never be able to do this in the village.'
-		    act 'Further':gt'gadforest','1'
-	    end
+		else
+			cls
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
+			'You take off your clothes and jump on your bike and ride through the forest. You would never be able to do this in the village.'
+			act 'Further':gt'gadforest','1'
+		end
 	end
-    if goswamp = 1:	
-	    act 'Bike to the swamp (0:50)':
-		    cls
-		    minut += 50
-		    pcs_mood += 5
-		    findvel = 3
-		    gs'stat'
-		    !gs'time'
-		
-            gs 'bicycle', 'clothes_findvel'
-		    'You ride your bike to the edge of the swamp.'
-
-		    gs 'bicycle', 'ridego', 'swamp_yard'
-	    end
-	end	
-	act 'Put the bike aside': gt'gadforest','1'	
+	if goswamp = 1:
+		act 'Bike to the swamp (0:50)':
+			cls
+			minut += 50
+			pcs_mood += 5
+			findvel = 3
+			gs'stat'
+			!gs'time'
+
+			gs 'bicycle', 'clothes_findvel'
+			'You ride your bike to the edge of the swamp.'
+
+			gs 'bicycle', 'ridego', 'swamp_yard'
+		end
+	end
+	act 'Put the bike aside': gt'gadforest','1'
 end
 
 if $ARGS[0] = 'swamp':
@@ -171,52 +172,53 @@ if $ARGS[0] = 'swamp':
 	cla
 	*clr
 	minut += 1
-    gs 'gadukino_event', 'sound'
+	gs 'gadukino_event', 'sound'
 	gs 'stat'
 	!gs'time'
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
-	
-	act 'Bike to the village (1:15)':	   
-        if $clothingworntype ! 'nude' or pcs_exhibition > 50:	   
-		    cls
-	        minut += 75
-		    run_exp += RAND(0,1)
-		    stren_exp += rand(0,1)
-		    fat -= 1
-		    pcs_sweat += 1
-		    pcs_mood += 10
-		    findvel = 1
-		    hanters = 0
+
+	act 'Bike to the village (1:15)':
+		dirtyclothes = 0 & swamp_clothes = 0
+		if $clothingworntype ! 'nude' or pcs_exhibition > 50:
+			cls
+			minut += 75
+			run_exp += RAND(0,1)
+			stren_exp += rand(0,1)
+			fat -= 1
+			pcs_sweat += 1
+			pcs_mood += 10
+			findvel = 1
+			hanters = 0
 			exhibition_exp += 4
-		    gs'stat'
-		    !gs'time'
-		
-            gs 'bicycle', 'clothes_findvel'
-		    'You ride your bike out of the swamp and return to the village.'
-			
-		    gs 'bicycle', 'ridego', 'Gaddvor'
-	    else
-            cls	    
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
-		    'You take off your clothes and jump on your bike and ride through the swamp. You would never be able to do this in the village.'
-		    act 'Further':gt'swamp_yard'
-	    end 	
-	end	
+			gs'stat'
+			!gs'time'
+
+			gs 'bicycle', 'clothes_findvel'
+			'You ride your bike out of the swamp and return to the village.'
+
+			gs 'bicycle', 'ridego', 'Gaddvor'
+		else
+			cls
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
+			'You take off your clothes and jump on your bike and ride through the swamp. You would never be able to do this in the village.'
+			act 'Further':gt'swamp_yard'
+		end
+	end
 	act 'Bike to the forest (0:50)':
 		cls
-	    minut += 50
+		minut += 50
 		pcs_mood += 5
-        hanters = 0		    
+		hanters = 0
 		findvel = 2
 		gs'stat'
 		!gs'time'
-		
-        gs 'bicycle', 'clothes_findvel'
+
+		gs 'bicycle', 'clothes_findvel'
 		'You jump onto your bike and ride to the forest.'
 		gs 'bicycle', 'ridego', 'gadforest','1'
 	end
-    act 'Put the bike aside': gt'swamp_yard'		
+	act 'Put the bike aside': gt'swamp_yard'
 end
 
 if $ARGS[0] = 'clothes_findvel':

locations/clothing

@@ -108,10 +108,6 @@ if $ARGS[0] = 'view_clothing_list':
 	!! ARGS 0 - view_clothing_list
 	!! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
 	!! 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	
-	swamp_clothes = 0
 	
 	act 'Leave':gt $loc, $metka
 
@@ -483,10 +479,10 @@ if $ARGS[0] = 'strip':
 	
 	if $clothingworntype = 'school':schtype = clothingwornnumber
 		
-	if $ARGS[1] ! '' :	
+	if $ARGS[1] ! '' :
 		DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$ARGS[1]>>'		
-		$CloLosLoc[] = $ARGS[1]			
-		$CloLosTyp[$ARGS[1]] = $clothingworntype		
+		$CloLosLoc[] = $ARGS[1]
+		$CloLosTyp[$ARGS[1]] = $clothingworntype
 		CloLosNum[$ARGS[1]] = clothingwornnumber
 		CloLosDay[$ARGS[1]] = daystart
 		KILLVAR '$lastwornclothingtype'
@@ -563,8 +559,6 @@ if $ARGS[0] = 'recover_lost_clothes':
 	
 	if cloAction = 1:
 		gs 'clothing', 'wear', $clothType, clothNumber
-!! temporary disabled by rachels. What is the sense of this appendix?
-!!		if dayLost < daystart and $cloLoc ! 'swamphouse' : dirtyclothes = 1
 	elseif cloAction = 2 :
 		dynamic $clothType + 'S[<<clothNumber>>] = 1'
 	end

locations/clothing_QV

@@ -4,9 +4,6 @@ if $ARGS[0] = 'list':
 
 	'<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wardrobe </a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">Storage</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted''">Unwanted</a></TH><TH><a href="exec:gt ''clothing_QV'', ''list''">Pick something to wear</a></TH></center>'
 
-	dirtyclothes = 0	
-	swamp_clothes = 0
-
 	if $clothingworntype ! 'nude':
 		act 'Strip':gt 'clothing_QV', 'strip'
 	end

locations/gadforest

@@ -217,6 +217,7 @@ if $ARGS[0] = '1':
 		end
 	end
 	act 'Out of the woods':
+		dirtyclothes = 0 & swamp_clothes = 0
 		if $clothingworntype = 'nude':
 			if $CloLosTyp[$CURLOC] = '':
 				!no cloth here, it must be broken. There may be a good exhibi or rape event entry point.

locations/gadforestlost

@@ -4,15 +4,16 @@
 if $ARGS[0] = 'forestrescue':
 	!rescue in forest by illume.  I think we need good texts.
 	cls
-    minut += 150
-    lost_girl = 0
+	minut += 150
+	lost_girl = 0
+	dirtyclothes = 0 & swamp_clothes = 0
 	forest_lostday = 0
-    hanters = 0
-    gs 'stat' 
-    
-    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
-    'You wander in the forest trying to find your way out, suddenly you spot a man dressed as a forest ranger.'
-    '"And here is our lost girl." he said wearily, "Your grandfather and grandmother are very worried about you. They asked me to help find you. Follow me, I will take you home."'
+	hanters = 0
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
+	'You wander in the forest trying to find your way out, suddenly you spot a man dressed as a forest ranger.'
+	'"And here is our lost girl." he said wearily, "Your grandfather and grandmother are very worried about you. They asked me to help find you. Follow me, I will take you home."'
 	if $loc = 'gadforestrelax':
 		!rescued during rest
 		if bonfire = 1:
@@ -22,184 +23,185 @@ if $ARGS[0] = 'forestrescue':
 			'Staying in one place is a good idea when you are lost.'
 		end
 	end
-    'You get ready quickly and you follow the forest ranger home.'
-    act 'Further':gt'Gadhouse'
+	'You get ready quickly and you follow the forest ranger home.'
+	act 'Further':gt'Gadhouse'
 end
 if $ARGS[0] = '1':
 	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
 	$location_type = 'secluded'
-    $metka = $ARGS[0]
-     $loc = $CURLOC
-    gs 'gadukino_event', 'sound'
+	$metka = $ARGS[0]
+	 $loc = $CURLOC
+	gs 'gadukino_event', 'sound'
 	cla
 	*clr
 	wolfrand = rand(1,10)
-	hantrand = rand(1,10) 
-    gs'stat'
-    !gs'time'    
-    gs 'gadforestlost', 'gadforestlost'
-    
-    if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'  
-	
-    act 'Look for the road':
-   	    cla
-   	    *clr
-        minut += 60
-        pcs_mood -= 5
-	    goforest += rand(0,1)
-	    lostrand = rand(1,40)
-	    gs 'stat'
-    
-        gs 'gadforestlost', 'lostclothes'
-		if goforest > lostrand: 
-		    act 'Look for the road on':gs 'gadforestlost', 'gadforestlostfinish1'
-        else
-            act 'Look for the road on':gt 'gadforestlost','1'
-        end    		    
-		act 'To take a break':gt 'gadforestrelax'		
-    end 
+	hantrand = rand(1,10)
+	gs'stat'
+	!gs'time'
+	gs 'gadforestlost', 'gadforestlost'
+
+	if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
+
+	act 'Look for the road':
+   		cla
+   		*clr
+		minut += 60
+		pcs_mood -= 5
+		goforest += rand(0,1)
+		lostrand = rand(1,40)
+		gs 'stat'
+
+		gs 'gadforestlost', 'lostclothes'
+		if goforest > lostrand:
+			act 'Look for the road on':gs 'gadforestlost', 'gadforestlostfinish1'
+		else
+			act 'Look for the road on':gt 'gadforestlost','1'
+		end
+		act 'To take a break':gt 'gadforestrelax'
+	end
 	if rand(1,10)> 8: gs 'gadforest', 'torncloth'
-	gs 'gadforestlost', 'searchfood'	
+	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = '2':
 	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
-    $location_type = 'secluded'
+	$location_type = 'secluded'
 	$metka = $ARGS[0]
-    $loc = $CURLOC
-    gs 'gadukino_event', 'sound'
-    cls
-	wolfrand = rand(1,10)    
-    gs'stat'
-    !gs'time'
-    gs 'gadforestlost', 'gadforestlost'
-    
-    if wolfrand <= 2 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
-    if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'     
-	
-    act 'Look for the road':
-   	    cla
-   	    *clr
-        minut += 60
-        pcs_mood -= 5
-	    goforest += rand(0,1)
-	    lostrand = rand(1,120)
-	    gs 'stat'
-    
-        gs 'gadforestlost', 'lostclothes'		
-		if goforest > lostrand: 
-		    act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish2'
-        else
-            act 'Look for the road on':gt 'gadforestlost','2'
+	$loc = $CURLOC
+	gs 'gadukino_event', 'sound'
+	cls
+	wolfrand = rand(1,10)
+	gs'stat'
+	!gs'time'
+	gs 'gadforestlost', 'gadforestlost'
+
+	if wolfrand <= 2 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
+	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
+
+	act 'Look for the road':
+   		cla
+   		*clr
+		minut += 60
+		pcs_mood -= 5
+		goforest += rand(0,1)
+		lostrand = rand(1,120)
+		gs 'stat'
+
+		gs 'gadforestlost', 'lostclothes'
+		if goforest > lostrand:
+			act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish2'
+		else
+			act 'Look for the road on':gt 'gadforestlost','2'
    		end
-		act 'To take a break':gt 'gadforestrelax'		
-    end    		      
+		act 'To take a break':gt 'gadforestrelax'
+	end
 	if rand(1,10)> 7: gs 'gadforest', 'torncloth'
-	gs 'gadforestlost', 'searchfood'	
+	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = '3':
 	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
-    $location_type = 'secluded'
+	$location_type = 'secluded'
 	$metka = $ARGS[0]
-    $loc = $CURLOC
-    gs 'gadukino_event', 'sound'
-    cls
-	wolfrand = rand(1,10)    
-    gs'stat'
-    !gs'time'
-    gs 'gadforestlost', 'gadforestlost'
-    if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
-    if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'    
-	
-    act 'Look for the road':
-   	    cla
-   	    *clr
-        minut += 60
-        pcs_mood -= 5
-	    goforest += rand(0,1)
-	    lostrand = rand(1,180)
-	    gs 'stat'
-    
-        gs 'gadforestlost', 'lostclothes'		
-		if goforest > lostrand: 
-		    act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish3'
-        else
-            act 'Look for the road on':gt 'gadforestlost','3'
+	$loc = $CURLOC
+	gs 'gadukino_event', 'sound'
+	cls
+	wolfrand = rand(1,10)
+	gs'stat'
+	!gs'time'
+	gs 'gadforestlost', 'gadforestlost'
+	if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
+	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
+
+	act 'Look for the road':
+   		cla
+   		*clr
+		minut += 60
+		pcs_mood -= 5
+		goforest += rand(0,1)
+		lostrand = rand(1,180)
+		gs 'stat'
+
+		gs 'gadforestlost', 'lostclothes'
+		if goforest > lostrand:
+			act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish3'
+		else
+			act 'Look for the road on':gt 'gadforestlost','3'
    		end
-		act 'To take a break':gt 'gadforestrelax'		
-    end    		      
+		act 'To take a break':gt 'gadforestrelax'
+	end
 	if rand(1,10)> 6: gs 'gadforest', 'torncloth'
-	gs 'gadforestlost', 'searchfood'	
+	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = '4':
 	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
 	$location_type = 'secluded'
-    $metka = $ARGS[0]
-    $loc = $CURLOC
-    gs 'gadukino_event', 'sound'
-    cls
-	wolfrand = rand(1,10)    
-    gs'stat'
-    !gs'time'
-    gs 'gadforestlost', 'gadforestlost'
-    
-    if wolfrand <= 4 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
-    if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'    
-	
-    act 'Look for the road':
-   	    cla
-   	    *clr
-        minut += 60
-        pcs_mood -= 5
-	    goforest += rand(0,1)
-	    lostrand = rand(1,300)
-	    temp = rand(1,10)
-	    gs 'stat'
-    
-        gs 'gadforestlost', 'lostclothes'		
+	$metka = $ARGS[0]
+	$loc = $CURLOC
+	gs 'gadukino_event', 'sound'
+	cls
+	wolfrand = rand(1,10)
+	gs'stat'
+	!gs'time'
+	gs 'gadforestlost', 'gadforestlost'
+
+	if wolfrand <= 4 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
+	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
+
+	act 'Look for the road':
+   		cla
+   		*clr
+		minut += 60
+		pcs_mood -= 5
+		goforest += rand(0,1)
+		lostrand = rand(1,300)
+		temp = rand(1,10)
+		gs 'stat'
+
+		gs 'gadforestlost', 'lostclothes'
 		act 'Look for the road on ':
-		    if goforest > lostrand: gs 'gadforestlost', 'gadforestlostfinish4'
-		    if goforest < lostrand and temp > 7:gt 'gadforestswamp','1'
-		    if goforest < lostrand and temp <= 7:gt 'gadforestlost','4'
-		end    
-		act 'To take a break':gt 'gadforestrelax'		
-    end
+			if goforest > lostrand: gs 'gadforestlost', 'gadforestlostfinish4'
+			if goforest < lostrand and temp > 7:gt 'gadforestswamp','1'
+			if goforest < lostrand and temp <= 7:gt 'gadforestlost','4'
+		end
+		act 'To take a break':gt 'gadforestrelax'
+	end
 	if rand(1,10)> 7: gs 'gadforest', 'torncloth'
-	gs 'gadforestlost', 'searchfood'	
+	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = 'gadforestlost':
-    '<center><H4>Forest</H4></center>'	
-    if month >= 4 and month <= 10:
-	    if hour >= 6 and hour < 22:
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg"></center>'
-		    'You get lost in the woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
-	    else
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg"></center>'
-		    'You get lost in the woods. The situation becomes even worse, because it''s now night time.'
-		end    
-    else
-	    if hour >= 8 and hour < 18:
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg"></center>'
-		    'You get lost in the winter woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
-	    else
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg"></center>'
-		    'You get lost in the winter woods. The situation becomes even worse, because it''s now night time.'
-	    end
-    end
+	'<center><H4>Forest</H4></center>'
+	if month >= 4 and month <= 10:
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg"></center>'
+			'You get lost in the woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg"></center>'
+			'You get lost in the woods. The situation becomes even worse, because it''s now night time.'
+		end
+	else
+		if hour >= 8 and hour < 18:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg"></center>'
+			'You get lost in the winter woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg"></center>'
+			'You get lost in the winter woods. The situation becomes even worse, because it''s now night time.'
+		end
+	end
 end
 if $ARGS[0] = 'lostclothes':
-    if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg"></center>'
+	if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg"></center>'
 	if $clothingworntype ! 'nude' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_ski0.'+rand(1,4)+'.jpg"></center>'
 	if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_nude0.'+rand(1,4)+'.jpg"></center>'
 	'Within an hour of wandering through the woods you decide....'
 end
 if $ARGS[0] = 'gadforestlostfinish':
-    '<center><H4>Somewhere in the woods</H4></center>'
-    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
-    'You look over and realize that you finally see houses, glad to get out of this alive you rush forward.'
-	!clear lost flags by illume
-    lost_girl = 0
+	'<center><H4>Somewhere in the woods</H4></center>'
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
+	'You look over and realize that you finally see houses, glad to get out of this alive you rush forward.'
+	!clear lost flags by illume, clear dirtyclothes flag by rachels
+	lost_girl = 0
+	dirtyclothes = 0 & swamp_clothes = 0
 	forest_lostday = 0
-    hanters = 0
+	hanters = 0
 	if $clothingworntype = 'nude':
 		act 'Out of the woods':
 			minut += 25
@@ -218,16 +220,16 @@ if $ARGS[0] = 'gadforestlostfinish1':
 	temp = RAND(1,3)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'	
+	!gs'time'
 	gs 'stat'
-	
-    gs 'gadforestlost', 'gadforestlostfinish'
-    ''
-    
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'   
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'    
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' 
-   
+
+	gs 'gadforestlost', 'gadforestlostfinish'
+	''
+
+	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
+
 end
 if $ARGS[0] = 'gadforestlostfinish2':
 	cls
@@ -235,17 +237,17 @@ if $ARGS[0] = 'gadforestlostfinish2':
 	temp = RAND(1,5)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'	
+	!gs'time'
 	gs 'stat'
-	
-    gs 'gadforestlost', 'gadforestlostfinish'
-    ''
-    
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'    
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'    
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' 
+
+	gs 'gadforestlost', 'gadforestlostfinish'
+	''
+
+	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
 	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
-	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow' 
+	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
 end
 if $ARGS[0] = 'gadforestlostfinish3':
 	cls
@@ -253,19 +255,19 @@ if $ARGS[0] = 'gadforestlostfinish3':
 	temp = RAND(1,7)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'	
+	!gs'time'
 	gs 'stat'
-	
-    gs 'gadforestlost', 'gadforestlostfinish'
-    ''
-    
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'    
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'    
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' 
+
+	gs 'gadforestlost', 'gadforestlostfinish'
+	''
+
+	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
 	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
-    if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow' 
+	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
 	if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road'
-	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'      
+	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
 end
 if $ARGS[0] = 'gadforestlostfinish4':
 	cls
@@ -273,49 +275,49 @@ if $ARGS[0] = 'gadforestlostfinish4':
 	temp = RAND(1,9)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'	
+	!gs'time'
 	gs 'stat'
-	
-    gs 'gadforestlost', 'gadforestlostfinish'
-    ''
-    
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'    
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'    
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' 
+
+	gs 'gadforestlost', 'gadforestlostfinish'
+	''
+
+	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
 	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
-    if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
+	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
 	if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road'
 	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
-	if temp = 8:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'      
+	if temp = 8:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
 	if temp = 9 and goswamp = 0:act 'Out of the woods':minut += 15 & gt 'gadforestswamp','1'
-	if temp = 9 and goswamp = 1:act 'Out of the woods':minut += 15 & gt 'swamp'       
-   
+	if temp = 9 and goswamp = 1:act 'Out of the woods':minut += 15 & gt 'swamp'
+
 end
 if $ARGS[0] = 'searchfood':
-    if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10:
-   	    act 'To look for mushrooms and berries':
-   	        cla
-            *clr
-		    minut += 30
-		    new_boletus += rand(1,2)
-		    new_bilberry += rand(1,2)
+	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10:
+   		act 'To look for mushrooms and berries':
+   			cla
+			*clr
+			minut += 30
+			new_boletus += rand(1,2)
+			new_bilberry += rand(1,2)
 			if new_boletus + new_bilberry > 0:
 				boletus += new_boletus
 				bilberry += new_bilberry
 				pcs_mood += 5
-				gs 'stat'	
-				
+				gs 'stat'
+
 				gs 'gadforest', 'clothes1'
-				'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'    
+				'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
 			else
 				pcs_mood -= 5
-		        gs 'gadforest', 'clothes2'
-		        'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.'
+				gs 'gadforest', 'clothes2'
+				'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.'
 			end
-			gs 'stat'			
-		    act 'Further':gt $loc, $metka
-        end
-    end
+			gs 'stat'
+			act 'Further':gt $loc, $metka
+		end
+	end
 end
 
 --- gadforestlost ---------------------------------

locations/swamp_yard

@@ -1020,6 +1020,7 @@ if StoryLine = 1 and lost_girl > 0 and daystart > lost_girl:
 	minut += 150
 	lost_girl = 0
 	forest_lostday = 0
+	dirtyclothes = 0 & swamp_clothes = 0
 	hanters = 0
 	gs 'stat'