# katspalnya
$sexloc = $CURLOC
if $ARGS[0]='start':
cls
gs'stat'
$metkaM = $ARGS[0]
$locM = $CURLOC
'<center><B><font color=maroon>Katie room</font></B></center>'
'<center><img src="img/SleepingQuarter/Kathouse/bedroom.jpg"></center>'

if hour >= 18 and hour < 23:'Sitting on the couch <a href="exec:gt''katspalnya'',''kat''">katya</a> watching TV'
if hour >= 23 or hour < 6:'In bed asleep <a href="exec:gt''katspalnya'',''katslip''">katya</a>.'
'The large room in the middle stands a huge bed, with a small side couch.'
act'Get_Away':gt'street'
end

if $ARGS[0]='katslip':
cla
clr
*clr
set minut+=30
if katjob=0 and kat>60:gt 'katspalnya','katjobs'
'<center><img src="img/Kathouse/kat.jpg"></center>'
'Kate rubs his eyes "Hi".'
act 'move_away':gt 'katspalnya','start'
if kat>50: act 'sex':gt 'lezbsex','start'
end

if $ARGS[0]='kat':
cla
clr
*clr
set minut+=30
if katjob=0 and kat>60:gt 'katspalnya','katjobs'
'<center><img src="img/Kathouse/kat.jpg"></center>'
'See you smiling Kate "Hi".'
act 'move_away':gt 'katspalnya','start'
if kat>50: act 'sex':gt 'lezbsex','start'
act 'chat':
	 cla
	 clr
	 if telkat=0: set telkat=1
	 set kat += 1
	 set minut+=30
	 '<center><img src="img/Kathouse/kat.jpg"></center>'
	 'You talked for half an hour.'
	 act 'End_Up':gt 'katspalnya','start'
end
end

if $ARGS[0]='katjobs':
cla
clr
*clr
set katjob=1
set minut+=30
'<center><img src="img/Kathouse/kat.jpg"></center>'
'"Svetsik if you want I can talk to the head doctor and you take a job at the clinic".'
act '"But I`m not a nurse."':
	 cla
	 '"but, I`m not a nurse." You have tried to argue.
	 "oh, Come, you start with what something unpretentious, ligation will do. And there you will learn, Life safety in school because it was."
	 "Yes_I_Am, there_were." otveteli you, Thinking about what you have at that time was not interested in dressing.
	 "Anyway, I`ll talk and you yourself want to see come, want not."'
	 act '"Ok."':gt'katspalnya','start'
end
end

--- katspalnya ---------------------------------

