glife/locations/backwater

# 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 and hanterknowday < day:
    cla
	*clr
	minut += 5
    gs 'stat'
    '<center><B>Backwater</B></center>'
	'<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 clothesAtLocation = 1 and clearclothes = 0 :
	    act'Get dressed':
		    cls
			minut += 5
			tanga = flag_tanga
			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.'
		    act'Further':gt 'backwater'
		end    
    else
        act'Hide':
            cls
            minut += 1
		    '<center><img src="images/locations/gadukino/hunters/swampbackwaternude2.jpg"></center>'
		    'Covering your Breasts and crotch you jump into the nearest bush. In your state of fear and confusion, you start scanning the area but you don''t see anyone there. You quickly run back towards the cabin.'
		    act'Further':gt 'swamp_yard'
		end
    end
    act'Stay naked':
        cls
        hanterslut += 1
        hanterknowday = day
        gs'stat'
        '<center><img src="images/locations/gadukino/hunters/swampbackwaternude3.jpg"></center>'
        'You decide that you have nothing to be afraid of, and continue on completely nude. The hunter looks at you for a minute or so, all of a sudden you hear a "Hmph", him turning around and going away.'
        act'Further':gt 'backwater'
    end
	exit
end  

!start location
'<center><B>Backwater</B></center>'
	
if month >= 4 and month <= 10:
	if hour >= 6 and hour < 22:
		'<center><img src="images/locations/gadukino/hunters/backwater.jpg"></center>'
	else
		'<center><img src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
	end
else
	if hour >= 8 and hour < 18:
		'<center><img src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
	else
		'<center><img src="images/locations/gadukino/hunters/backwater_winter_night.jpg"></center>'
	end
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 clothesAtLocation = 1:'Your clothes lie on the shore.'

!re-arrange it, there should be no logic error now by illume
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			 								
				minut+=5
				flag_tanga = tanga
				tanga = 0			
				if hantersRape = 1: hantersRape = 2
				 
				if CloSkirtShortness > 0:
					'<center><img src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
				else
					'<center><img src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'			
				end
				gs 'clothing', 'strip', $CURLOC
				'You do not hesitate getting undressed, not caring if anyone is watching.'
				act'Back':gt'backwater'		
			else
				cla
				*clr
				'<center><img src="images/locations/gadukino/hunters/noundress.jpg"></center>'
				'You hesitate getting undressed, what if someone suddenly sees you?'
				act'Back':gt'backwater'
			end
		end
	end
else
	if $clothingworntype ! 'nude':
		act 'Pick up your clothes':
			cla
			*clr
			gs 'clothing', 'recover_lost_clothes', $CURLOC
			'You pick up your clothes laying on the ground.'
			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

if $clothingworntype = 'nude':
    act 'Wash self':
		cla
		*clr
		dynamic $showerdin
		face_write = 0
		body_write = 0
		minut += 30
		pcs_mood += 10
		pcs_willpwr += 5
		if hantersRape = 1: hantersRape = 2
		    
        if tanga = 0:
		    '<center><img src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'  
		else
		    '<center><img src="images/locations/gadukino/hunters/backwaterswim3.jpg"></center>'
        end
		'You washed yourself in the creek.'

		act 'Further':gt 'backwater'     
    end
	if dirtyclothes = 1 and clothesAtLocation = 1:
		act 'Wash your clothes':
			cla
			*clr
			if hantersRape = 1: hantersRape = 2
			minut += 60
			dirtyclothes = 0
			cumspclnt = 6 & gs 'cum_cleanup'	        
			gs 'stat'
				
			'<center><img src="images/locations/gadukino/hunters/backwaterwash.jpg"></center>'
			'You get undressed and wash your dirty clothes. Unfortunately the clothes didn''t get fully clean because of the cold water.'
			!fix logic by illume
	        act 'Hang the clothes in the hut':
	            cla
		        *clr
	            minut += 5
	            clearclothes = 5	            
				gs 'clothing','recover_lost_clothes',$CURLOC, 1
				gs 'clothing', 'strip', 'swamphouse'
	            if $clothingworntype = 'nude':
	                '<center><img src="images/locations/gadukino/hunters/basinwash1.jpg"></center>'
	            else
	                '<center><img src="images/locations/gadukino/village/Washclothes2.jpg"></center>'
	            end        
	            'You hang the clothes near the stove so they could dry.'
	            
	            act 'Further':gt $locM, $metkaM
	        end
            if month >= 5 and month <= 9:
	            act 'Hang clothes on the clothesline':
	                cla
		            *clr
	                minut += 10
	                clearclothes = 3
	                gs 'clothing','recover_lost_clothes',$CURLOC, 1
					gs 'clothing', 'strip', 'clothesline_swamp'
	                if $clothingworntype = 'nude':
	                    '<center><img src="images/locations/gadukino/hunters/basinwash2.jpg"></center>'
	                else
	                    '<center><img src="images/locations/gadukino/village/Washclothes2.jpg"></center>'
	                end
	                'You hang the clothes on the clothesline to dry.'
	            
	                act 'Further':gt'swamp_yard'
	            end	
            end			
		end
	end
else
	!not nude
	if dirtyclothes = 1 and temper >= 10:
		act 'Clean your dirty clothes':
			cla
			*clr
			if hantersRape = 1: hantersRape = 2
			minut += 30
			dirtyclothes = 0
			cumspclnt = 6 & gs 'cum_cleanup'	        
			gs 'stat'
			
			'<center><img src="images/locations/gadukino/hunters/backwaterwash2.jpg"></center>'
			'You start undressing as you enter the water thinking you''ll be able to clean your dirty clothes. Unfortunately you don''t seem able to get the clothes clean because you didn''t want to get undressed not wanting to freeze your butt off in the cold water.'
			
			act 'Further':gt'swamp_yard'		        
		end
	end   	
	if arrsize('sparrvol') > 0:	
		act 'Wash off sperm':
			cla
			*clr
			dynamic $showerdin
			lubonus = 0
			pcs_sweat -= 1
			minut += 10
			if hantersRape = 1: hantersRape = 2
			'<center><img src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
			'You carefully wash off the sperm in the creek.'
			act 'Further':gt 'backwater'
		end
	end
	if spdirtyc > 0:
		act 'Clean the sperm off your clothes':
			cla
			cumspclnt = 6 & gs 'cum_cleanup'
			minut += 5
			if hantersRape = 1: hantersRape = 2
			gs'stat'
			'<center><img src="images/locations/gadukino/hunters/cumwash.jpg"></center>'
			'You clean the cum stains off your clothes.'
				act 'Finish':gt 'backwater'
		end
	end
	if temper >= 10:
		act 'Wash your face':
			cla
			*clr
			pcs_makeup = 1
			cumspclnt = 9
			gs 'cum_cleanup'
			cumspclnt = 11
			gs 'cum_cleanup'		
			cumspclnt = 13
			gs 'cum_cleanup'
			if pcs_sweat > 19 : pcs_sweat -= 5
			'<center><img src="images/pc/facewash.jpg"></center>'
			*nl
			'You clean your face and get rid of any trace of cum.'
			face_write = 0
			
			'<center><img src="images/pc/facewash.jpg"></center>'
			'You carefully wash your face, removing your makeup.'
			minut += 5
			gs'stat'

			act 'Further':gt 'backwater'		

			if hantersRape = 1: hantersRape = 2
		end		
	end
end

act 'Go':minut += 5 & gt'swamp_yard'

if hantersRape = 2:
    cla
	*clr
	minut += 5
	hantersRape = 3
	gs 'stat'
	
	'<center><img src="images/locations/gadukino/sex/hunter/backwaterrelax.jpg"></center>'
	'You sit down by the shore, resting.'
	
	act 'Further':gt 'hanters', 'start'
end


--- backwater ---------------------------------