glife/locations/katspalnya

# katspalnya
$sexloc = $CURLOC

if $ARGS[0] = 'start':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	gs 'stat'
	'<center><b><font color="maroon">Guest Katie</font></b></center>'
	'<center><img src="images/img/Kathouse/bedroom.jpg"></center>'

	if hour >= 18 and hour < 23:'Sitting on the couch <a href="exec:gt ''katspalnya'', ''kat''">Kate</a> and watching television'
	if hour >= 23 or hour < 6:'In bed asleep <a href="exec:gt ''katspalnya'', ''katslip''">Kate</a>.'

	'Large room in the middle is a huge bed, a small couch in the side.'

	act 'Leave':gt 'street'
end

if $ARGS[0] = 'katslip':
	cla
	clr
	*clr
	minut += 30

	if katjob = 0 and kat > 60:gt 'katspalnya', 'katjobs'

	'<center><img src="images/img/Kathouse/kat.jpg"></center>'
	'Katya rubs his eyes "Hey how''s it going."'

	act 'Move away':gt 'katspalnya', 'start'

	if kat > 50:act 'Sex':gt 'lezbsex', 'start'
end

if $ARGS[0] = 'kat':
	cla
	clr
	*clr
	minut += 30

	if katjob = 0 and kat > 60:gt 'katspalnya', 'katjobs'

	'<center><img src="images/img/Kathouse/kat.jpg"></center>'
	'Seeing you Katya smiling "Hi how''s it going."'

	act 'Move away':gt 'katspalnya', 'start'

	if kat > 50:act 'Sex':gt 'lezbsex', 'start'

	act 'Chat':
		cla
		clr
		*clr

		if telkat = 0:telkat = 1

		kat += 1
		minut += 30
		'<center><img src="images/img/Kathouse/kat.jpg"></center>'
		'You talked for half an hour.'

		act 'Finish':gt 'katspalnya', 'start'
	end
end

if $ARGS[0] = 'katjobs':
	cla
	clr
	*clr
	katjob = 1
	minut += 30
	'<center><img src="images/img/Kathouse/kat.jpg"></center>'
	'"<<$name>> if you want I can talk to your doctor and heads take to work in the clinic."'

	act '"But I''m not a nurse."':
		cla
		'"But I''m not a nurse." you tried to argue.'
		'"Oh, come on, you start with what some unpretentious, dressing will do. And there you''ll learn, life safety in the school because it was."'
		'"Yes, it was." otveteli you thinking about what you are interested in while not dressings.'
		'"Well, okay, I''ll talk and you yourself want to come see it or not."'

		act '"Good."':gt 'katspalnya', 'start'
	end
end

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