# Katlake
cla
gs 'stat'
'
'
'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':
cla
gs 'stat'
if vnesh < 14:
katday = day
'"Hello" you say, a bit shyly.'
'The girl looked around you scornful look and said nothing'
'"Talk will not work" flashed in your head'
act 'Leave.':gt 'Nudelake'
else
cla
clr
katday = day
telkat += 1
kat = 1
minut += 30
'"Hello" you say a bit shyly.'
'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'
minut += 30
'
'
'See you smiling Kate "<<$name>> 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
katday = day
kat += 1
minut += 30
'You talked for half an hour.'
act 'Leave':gt 'Nudelake'
end
end
if $ARGS[0] = 'voleybol':
cla
clr
*clr
katday = day
kat += 3
minut += 30
agil += 1
react += 1
speed += 1
gs 'stat'
'
'
'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
katday = day
kat += 2
minut += 30
gs 'stat'
'You 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'
'
'
'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.'
'"Good, you are 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 ---------------------------------