# Katlake
cla
gs 'stat'
'<center><img src="images/img/Lake/kat.jpg"></center>'
'You get bored and you start to examine the other beachgoers, far from you is beautiful girl.'

act 'Ignore her':gt 'Nudelake'

act 'Approach her':
	cla
	'You walk up to a girl and try to start a conversation.'

	act 'Greet':gt 'Katlake', 'znakomstvo'
end

if $ARGS[0] = 'znakomstvo':
	cla
	gs 'stat'

	if vnesh < 56:
		katday = daystart
		'"Hello" you say, a bit shyly.'
		'The girl looks at you scornfully and says nothing'
		'You think to yourself, "That went well, can''t blame her though I do look a bit rough."'

		act 'Leave.':gt 'Nudelake'
	else
		cla
		clr
		katday = daystart
		telkat += 1
		kat = 1
		minut += 30
		'"Hello" you say a bit shyly.'
		'The girl looks you up and down, smiles and says, "Hi."'
		'She looks at you still slightly smiling and waits. You frantically try to think of what to say, blushing you can''t think of anything.'
		'The girls smile widens and she decides to take matters into her own hands, "I''m Katja, but friends can call me Kat and what''s your name?"'
		'"<<$name>>" you exhale with relief. The conversation continues much better and you chat for another half hour.'

		act 'Leave.':gt 'Nudelake'
	end
end

if $ARGS[0] = 'kat':
	cla
	clr
	*clr
	gs 'stat'
	minut += 30
	'<center><img src="images/img/Lake/kat.jpg"></center>'
	'You see Kat smiling, "Hi <<$name>>, how''s it going?"'

	act 'Leave':gt 'Nudelake'
	act 'Suggest playing volleyball':gt 'Katlake', 'voleybol'
	act 'Suggest a walk':gt 'Katlake', 'walk'

	act 'Chat':
		cla
		clr
		katday = daystart
		kat += 1
		minut += 30
		'You talk for half an hour.'

		act 'Leave':gt 'Nudelake'
	end
end

if $ARGS[0] = 'voleybol':
	cla
	clr
	*clr
	katday = daystart
	kat += 3
	minut += 30
	agil += 1
	react += 1
	speed += 1
	gs 'stat'
	'<center><img src="images/img/Lake/voleybol.jpg"></center>'
	'You go with Kate to the volleyball court and join in a game. When something goes wrong Kate encourages you clapping a hand on your bare ass, her hand stays on your buttocks slightly longer than expected and squeezes gently.'

	act 'Finish':gt 'Nudelake'
end

if $ARGS[0] = 'walk':
	cla
	katday = daystart
	kat += 2
	minut += 30
	gs 'stat'
	'You and Kat walk along the beach, chatting merrily.'
	kwalrand = rand(0, 100)

	if kwalrand >= 80 and kwalrand < 90 and kat > 20:gt 'Kwlake1'
	if kwalrand >= 90 and kat > 20:gt 'Kwlake2'

	act 'Finish':gt 'Nudelake'
end


if $ARGS[0] = 'key':
	cla
	clr
	*clr
	katkey = 1
	kat += 10
	minut += 60
	gs 'stat'
	'<center><img src="images/img/Lake/sun.jpg"></center>'
	'You sunbathe, when suddenly you become ill, dizzy, nauseated. You try to get up and loss consciousness.'
	'"Now, now, wait a little." You hear Katjas voice in the darkness.'
	'You feel the cool darkness slowly retreat and you open your eyes. Before you stands Kat.'
	'"Good, you are finally awake." Says Kat. You look around, you have a wet towel on your head, and you yourself are lying in the shade under a tree.'
	'"What happened to me?" You ask.'
	'"What? Sunstroke, that''s what." Katya retorts.'
	'"I saw you had passed out and brought you here, you should stay with me to make sure you''re OK." She continues.'
	'"I feel better, I am going home." You try to argue.'
	'"No! You might look a bit better, but I''ve had to watch over you like a chicken with an egg, three times I ran to the sea and soaked the towel, I dragged you to the shade, and you still look ill. I''m not giving you a choice here, I''m your nurse and I know better."'
	'After this tirade you agree, after all your health is important.'

	act 'Go with Kat.':if $clothingworntype = 'nude':gs 'clothing', 'wear_last_worn' & gt 'kathouse0'
end

--- Katlake ---------------------------------