glife/locations/Nudelake

# Nudelake
$location_type = 'secluded'
'<center><b>nudist beach</b></center>'
'<center><img src="images/img/lake/nudelake.jpg"></center>'
'The nudist beach - clothing optional.'

if $clothingworntype ! 'swimwear' and $clothingworntype ! 'nude':
	minut += 5
	if tanga = 1: remtanga = 1
	tanga = 0
	gs 'clothing', 'strip'
	'You strip naked, enjoying the warm breeze on your bare skin.'
elseif $clothingworntype = 'swimwear':
	act'Strip naked':
		cls
		minut += 5
		if tanga = 1: remtanga = 1
		tanga = 0
		gs 'clothing', 'strip'
		xgt 'Nudelake'
	end
end
gs 'stat'

if hour >= 6 and hour <= 20 and temper >= 15:
	'Here you can <a href="exec:gt ''Nudelake'', ''zagarat''">sunbathe</a> and <a href="exec:gt ''Nudelake'', ''swim''">swim</a>'
	'Also, you can play <a href="exec:gt ''Nudelake'', ''voleybol''">beach volleyball</a>'
elseif hour >= 6 and hour <= 20:
	'Its too cold for any nudist activities.'
else
	'The nudist beach is closed.'
end

act 'Return to the main beach':
	if $clothingworntype = 'nude':gs 'clothing', 'wear_last_worn'
	if remtanga = 1: tanga = 1 & remtanga = 0
	gt 'lake', 'start'
end

if katday ! daystart and kat >= 1:
	'You see Kat on the beach.'

	act 'Approach Kat':gt 'Katlake', 'kat'
end

if $ARGS[0] = 'voleybol':
    $location_type = 'event_outdoors'
	cls
	minut += 1
	'<center><img src="images/img/lake/voleybol.jpg"></center>'
	'You go to the volleyball court.'

	act 'Watch':gt 'Nudelake', 'smotr'
	act 'Leave':gt 'Nudelake'

	act 'Play':
		cla
		*clr
		agil_exp += 1
		react_exp += 1
		speed += 1
		vball_exp += rand(1,3)
		minut += 30
		'<center><img src="images/img/lake/voleybol.jpg"></center>'
		'You go up to the players and ask whether it is possible to join in, they are happy to put you on a team.'

		act 'Finish':gt 'Nudelake'
	end
end

if $ARGS[0] = 'zagarat':
    $location_type = 'event_outdoors'
	cls
	minut += 30
	if pcs_sweat < 35 : pcs_sweat += 5
	pcs_mood += 5
	gs 'stat'
	'<center><img src="images/img/lake/nudezagarat.jpg"></center>'

	if krem = 0:
		pcs_tan += 1
		'You go to the beach and sunbathe.'
	else
		krem -= 1
		pcs_tan += 3
		'You smear sunblock on your body and sunbathe.'
	end

	nzagrand = rand(0, 100)

	if nzagrand >= 60 and nzagrand < 70 and kat > 30 and katkey = 0:gt 'Katlake', 'key'
	if nzagrand >= 70 and nzagrand < 80 and kat = 0 and katday ! daystart:gt 'Katlake'
	if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
	if nzagrand >= 90:gt 'Vnlake2'

	act 'Finish':gt 'Nudelake'
end

if $ARGS[0] = 'swim':
    $location_type = 'event_outdoors'
	cla
	*clr
	cumspclnt = 4
	gs 'cum_cleanup'
	minut += 60
	pcs_sweat = 10 + rand(0,4)
	pcs_mood += 5
	pcs_willpwr += 5

	if pcs_stren < 30:stren_exp += 1 + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'

	'<center><img src="images/img/lake/nudeswim.jpg"></center>'
	'You go for a swim.'

	act 'Finish':gt 'Nudelake'
end

if $ARGS[0] = 'smotr':
    $location_type = 'event_outdoors'
	cls
	minut += 30
	gs 'stat'
	'<center><img src="images/img/lake/voleybol.jpg"></center>'
	'You watch the others play.'

	act 'Leave':gt 'Nudelake'
end

--- Nudelake ---------------------------------