glife/locations/kotovdom

# kotovdom
!new from 1.2.3 fix2
if $ARGS[0] = 'walk':
	cls
	minut += 5
	kotov_bj_times = 0
	anal_no = 0
	gs'stat'
	'<center><b><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></b></center>'
	i = rand(1,2)
	if i = 1:'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovpr.jpg"></center>'
	if i = 2:'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovpr.gif"></center>'
	''
	'You smile and occasionally glance at Vitek when he walks you home, neither of you saying much on the way there.'
	'When you climb to the second floor of your apartment building and reach the door, Vitek hugs you tightly in his powerful arms. He kisses you passionately, and his hands grope your butt roughly.'
	'For a moment you wonder if he''s going to want to have sex with you right here in the stairwell, but as soon as you think that he lets you go. He grins and says: "I''ll see you soon, kitten. Don''t miss me too much!" before turning around and walking down the stairs.'
	act 'Say goodbye':gt'pod_ezd','etaj_2'
end

if $ARGS[0] = 'kotov_kom':
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon><<$npcName[9]>> <<$npcSurName[9]>></font></b></center>'
	'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovdom/vann.jpg"></center>'
	''
	if sweat >= 1:'Vitek looks up at you from his bed and says: "You''re all sweaty, kitten. You should go take a shower before going home."'
	if sweat < 1:'"Are you ready?" he asks, looking up at you from the bed. Seeing that you are, he gets up from the bed and puts on some clothes while he says: "Come on, I''ll walk you home."'

	if sweat < 1: act 'Walk home with Vitek': gt 'kotovdom', 'walk'
	if sweat >= 1: act 'Nod and look for the bathroom':gt 'kotovdom', 'kotovkom'
end

if $ARGS[0] = 'vann':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon>Bathroom</font></b></center>'
	'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovdom/vann.jpg"></center>'
	''
	'Vitek''s old bathroom. It doesn''t look like much, but the shower works just fine.'

	act 'Wash in the shower (0:15)':
		cla
		*clr
		minut += 15
		horny += 1
		hapri = 0
		mop = 1
		sweat = -3

		dynamic $showerdin
		if frost > 0:frost = 0

		'<center><img src="images/pics/dush.jpg"></center>'
		act 'Dry off and get dressed again':gt 'kotovdom', 'vann'
	end

	act 'Go to the hallway':gt 'kotovdom','kor'
end

if $ARGS[0] = 'kor':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon>Hallway</font></b></center>'
	'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovdom/kor.jpg"></center>'
	''
	act 'Go to Vitek''s bedroom': gt 'kotovdom','kotovkom'
	act 'Go to the bathroom': gt 'kotovdom','vann'
	act 'Go to the kitchen': gt 'kotovdom','kuh'
end

if $ARGS[0] = 'kotovkom':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon>Vitek''s bedroom</font></b></center>'
	'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovdom/kotovkom.jpg"></center>'
	''
	'<a href="exec:gt ''kotovdom'', ''kotov_kom''">Vitek</a> is lying on his bed, watching TV.'
	act 'Go to the hallway':gt 'kotovdom','kor'
end

if $ARGS[0] = 'kuh':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cls
	minut += 5
	gs'stat'
	'<center><b><font color = maroon>Kitchen</font></b></center>'
	'<center><img src="images/qwest/alter/ev/Kotovsexsyst/kotovdom/kuh.jpg"></center>'
	''
	act 'Go to the hallway':gt 'kotovdom','kor'
end

--- kotovdom ---------------------------------