glife/locations/126_Nudelake

# Nudelake
gs 'stat'
'<center><B>nudist beach</B></center>'
'<center><img src="images\img\Lake\Nudelake.jpg"></center>'
'Here you can walk naked and no one will blame you.'
if hour >= 6 and hour <= 20:
'Here you can <a href="exec:gt ''Nudelake'',''zagarat''">tanning</a> and <a href="exec:gt ''Nudelake'',''swim''">swim</a>'
'And, you can play <a href="exec:gt ''Nudelake'',''voleybol''">beach volleyball</a>'
end

act 'Go to the main beach': gt 'lake','start'
if katday ! day and kat >= 1:
	'You see at the beach Cat.'
	act 'Approach the Cat':
		gt 'Katlake','kat'
		end
	end

if $ARGS[0] = 'voleybol':
cls
set minut += 1
'<center><img src="images\img\Lake\voleybol.jpg"></center>'
'You came to the volleyball court.'
act 'Watch': gt 'Nudelake','smotr'
act 'Leave': gt 'Nudelake'
act 'Play':
	cla
	*clr
	set agil += 1
	set react += 1
	set speed += 1
	set 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, you will be happy to take the team.'
	act 'Finish': gt 'Nudelake'
end
end


if $ARGS[0] = 'zagarat':
set minut += 30
cls
gs 'stat'
'<center><img src="images\img\Lake\nudezagarat.jpg"></center>'
set sweat += 1
set manna += 5
if krem = 0:
	set tan += 1
	'You went to the beach to sunbathe.'
	end
if krem > 0:
	set krem -= 1
	set tan += 3
	'You smeared body sunblock and went to sunbathe.'
	end
set nzagrand = RAND(0,100)
if kat > 30 and katkey = 0 and nzagrand >= 60 and nzagrand < 70: gt 'Katlake','key'
if nzagrand >= 80 and nzagrand < 90: gt 'Vnlake1'
if nzagrand >= 90: gt 'Vnlake2'
if katday ! day and kat = 0 and nzagrand >= 70 and nzagrand < 80: gt 'Katlake'
act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'swim':
cla
*clr
set cumpussy = 0
set cumbelly = 0
set cumass = 0
set cumlip = 0
set cumface = 0
set cumfrot = 0
set minut += 60
if sweat > -3: set sweat = -3
set manna += 5
set willpower += 5
if stren < 30: set stren += 1
'<center><img src="images\img\Lake\nudeswim.jpg"></center>'
'You went for a swim.'
act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'smotr':
set minut += 30
cls
gs 'stat'
'<center><img src="images\img\Lake\voleybol.jpg"></center>'
'You see how others play.'
act 'Leave': gt 'Nudelake'
end
--- Nudelake ---------------------------------