# Katlake

cls
gs 'stat'
'<center><img src="images/img/lake/kat.jpg"></center>'
'The warm rays of sun on your naked body feel nice, but at the same time... you have nothing to do! You get bored just lying there and kill the time by looking around you, examining the other beach-goers.'
'After a few minutes, a beautiful girl lies down near you. She''s truly gorgeous, and you can''t help but stare in her direction every once in a while.'

act 'Ignore her':gt 'Nudelake'

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

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

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

	if vnesh < 56:
		katday = daystart
		'"Erm... hello!" you say, a bit shyly.'
		'The girl wrinkles her nose when she sees you, but says nothing. She keeps giving you a cold stare that indicates that she wants nothing to do with you.'
		'"Damn, that didn''t go well", you think to yourself while you walk away, a bit disheartened. You look at her again from a distance, and notice how perfect she looks. She must spend a lot of time on trying to look good every day... maybe that''s why she didn''t like you?'

		act 'Continue sunbathing until the hour is over':gt 'Nudelake'
	else
		cla
		clr
		katday = daystart
		telkat += 1
		kat = 1
		minut += 30
		'"Erm... hello!" you say, a bit shyly.'
		'The girl takes off her sunglasses and examines your body, top to bottom. Her face breaks out into a small smile and she says: "Hey, you!"'
		'She keeps looking at you with that gorgeous smile of her and waits for you to continue. Damn, she expects you to continue!'
		'You frantically try to think of something to say, and blush when you can''t think of anything.'
		'Her smile widens when she sees how nervous you are, and she decides to help you out: "I''m Katja, but my friends call me Kat! What''s your name?"'
		'"<<$pcs_nickname>>", you exhale with relief. Feeling a lot more at ease, you have a nice conversation with her for another half hour while you enjoy the warmth of the sun together.'
		'Then she has to go, and says: "This was nice! Maybe I''ll see you around here more often?"'

		act 'Finish':gt 'Nudelake'
	end
end

if $ARGS[0] = 'kat':
	cla
	clr
	*clr
	gs 'stat'
	minut += 30
	'<center><img src="images/img/lake/kat.jpg"></center>'
	'Kat already noticed you walking towards her, and gives you a little wave as you approach her.'
	'She smiles: "Hi <<$pcs_nickname>>, how''s it going?"'

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

	act 'Chat with Kat':
		cla
		clr
		katday = daystart
		kat += 1
		minut += 30
		manna += 20
		'Time flies when you lie on the beach with Kat, exchanging stories with her. She is an excellent conversationalist, and you enjoy talking with her.'

		act 'Leave':gt 'Nudelake'
	end
end

if $ARGS[0] = 'voleybol':
	cla
	clr
	*clr
	katday = daystart
	kat += 3
	minut += 30
	pcs_agil += 1
	react += 1
	speed += 1
	gs 'stat'
	'<center><img src="images/img/lake/voleybol.jpg"></center>'
	'"Hey, Kat! Want to go play some volleyball over there? Those girls look like they could use some competition!" you say.'
	'The other girls gladly accept your challenge, happy to play together against others instead of just playing against each other.'
	'You spend the next half hour in a fierce competition, and have a lot of fun playing volleyball with Kat on your team.'
	'At one point when you fumble and miss the ball, Kat slaps your ass playfully. Her hand stays on your buttocks for way longer than you expected, and she squeezes gently before finally letting go. She gives you a goofy smile and focuses on the game again, but for the rest of the game you can''t help but keep thinking of her hand on your ass, and how nice it felt...'

	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 for a half hour, chatting merrily about all kinds of topics.'
	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>'
	'While you''re sunbathing, you suddenly feel very dizzy and nauseated. You try to stand up and get help, but faint before you get very far.'
	''
	'"Take it easy, <<$pcs_nickname>>!" you hear Kat''s voice in the darkness. "You''re safe, just relax!"'
	'You slowly try to open your eyes, and are staring right into Kat''s concerned face when you finally manage.'
	'"Easy now...", she gives you a reassuring smile. You notice you have a damp towel on your head, and that you''re in the shade under a large tree at the edge of the beach. Kat must''ve carried you here.'
	'"Wha... what happened?" you mutter.'
	'Kat gives you a reassuring smile and says: "Sunstroke, that''s what. When I found you, you were passed out on the beach!"'
	'When you try to thank her, she shushes you: "Shh... before you say you''re fine: I''m not letting you go. No offense, but you still look terrible! I had to run to the sea three times to soak the towel again, you were out for quite a while!"'
	'"But I really feel oka-" you try to say, but Kat interrupts you.'
	'She has a caring smile on her face when she says: "I''m not taking no for an answer. You''re coming home with me so I can keep an eye on you, and that''s final!"'
	'You reluctantly agree to let her take you to her home... after all, your health is important and she just saved you!'

	act 'Go with Kat':
		if $clothingworntype = 'nude':gs 'clothing', 'wear_last_worn'
		if remtanga = 1: tanga = 1 & remtanga = 0
		gt 'kathouse0'
	end
end

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