# 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'
'Backwater'
'
'
'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
'
'
'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
'
'
'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'
'
'
'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
'Backwater'
if month >= 4 and month <= 10:
if hour >= 6 and hour < 22:
'
'
else
'
'
end
else
if hour >= 8 and hour < 18:
'
'
else
'
'
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:
'
'
else
'
'
end
gs 'clothing', 'strip', $CURLOC
'You do not hesitate getting undressed, not caring if anyone is watching.'
act'Back':gt'backwater'
else
cla
*clr
'
'
'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:
'
'
else
'
'
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'
'
'
'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':
'
'
else
'
'
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':
'
'
else
''
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'
'
'
'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
'
'
'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'
'
'
'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
'
'
*nl
'You clean your face and get rid of any trace of cum.'
face_write = 0
''
'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'
'
'
'You sit down by the shore, resting.'
act 'Further':gt 'hanters', 'start'
end
--- backwater ---------------------------------