# Katlake
!if $ARGS[0] = 'start':
!gs 'stat'
cla
gs 'stat'
'<center><img src="images\img\Lake\kat.jpg"></center>'
'You get bored and you start to examine other vacationers far from you is beautiful girl.'
act 'Do not approach': gt 'Nudelake'
	act 'Step up':
	cla
	'You walk up to a girl and trying to have a conversation.'
	act '"Hi."': gt 'Katlake','znakomstvo'
end

if $ARGS[0] = 'znakomstvo':
gs 'stat'
cla
	if vnesh < 14:
		set katday = day
		'"Hello" is a bit shy you say.'
		'The girl looked around you scornful look and said nothing'
		'"Talk will not work" flashed in your head'
		act 'Leave.': gt 'Nudelake'
		end
	if vnesh >= 14:
		set katday = day
		set telkat += 1
		set kat = 1
		cla
		clr
		set minut += 30
		'"Hello" is a bit shy you say.'
		'Girl looks you up and down, smiles and says, "Hi."'
		'She looks at you with a slight smile and waits. You frantically trying to think of what to say, blushing trying to squeeze out a word.'
		'Girl notices your flour and decides to take matters into their own hands, "I Katia, for friends Kate and what´s your name?"'
		'"<<$name>>" you exhale with relief. Continue the conversation went much better and you chatted for another half hour.'
		act 'Leave.': gt 'Nudelake'
		end
end

if $ARGS[0] = 'kat':
cla
clr
*clr
gs 'stat'
set minut += 30
'<center><img src="images\img\Lake\kat.jpg"></center>'
'See you smiling Kate "Svetsik Hi how´s it going."'
act 'Leave': gt 'Nudelake'
act 'Offer to play volleyball': gt 'Katlake','voleybol'
act 'Suggest a walk': gt 'Katlake','walk'
act 'Chat':
	cla
	clr
	set katday = day
	set kat += 1
	set minut += 30
	'You talked for half an hour.'
	act 'Leave': gt 'Nudelake'
end
end

if $ARGS[0] = 'voleybol':
gs 'stat'
cla
*clr
clr
set katday = day
set kat += 3
set minut += 30
set agil += 1
set react += 1
set speed += 1
'<center><img src="images\img\Lake\voleybol.jpg"></center>'
'You can go to Kate volleyball court and Join of playing. When something goes wrong Kate encourages you clapping a hand over your bare ass, with her hand on his buttocks slightly delayed slightly squeezing it.'
act 'Finish': gt 'Nudelake'
end

if $ARGS[0] = 'walk':
cla
gs 'stat'
set katday = day
set kat += 2
set minut += 30
'You Kat walk along the beach, chatting merrily.'
set 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
gs 'stat'
set katkey = 1
set kat += 10
set minut += 60
'<center><img src="images\img\Lake\sun.jpg"></center>'
'You sunbathe, you suddenly become ill, dizzy, nauseated you. You tried to get up and lost consciousness.'
'"Now, now, wait a little." where you hear that voice from the darkness Katie.'
'You feel the cool darkness slowly razveevaetsya and you open your eyes. Before you face the Cat.'
'"Well, finally, awake." says Kate. 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, what, sunstroke, that´s what." meets Katya.'
'"And now comes to life and went to me, today I´ll stay," she continued.'
'"I feel better, I am going home," you tried to argue.'
'"No, well, you better it a look, I´m with her noshus like a chicken with egg, three times ran a towel drenched, dragged by his shadow, and she still vykobenivaetsya. All I said to me it means to me, I still nurse and I know better "'
'After this tirade mind you do not become'
act 'Go with Kate.': gt 'kathouse0'
end

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