# youry
$roomyour = {
	set $nameV = 'Yuri'
	$boy = $nameV
	set dick = 18
	set silavag = 2
	harakBoy = 1
	NoGuy = 1
	gtGuy = 1
	finance = 1

	act 'On the bed':gt 'BDsex', 'start'
}

set minut += 5
'<center><b><font color="maroon">Flat George</font></b></center>'
'<center><img src="images/peter/peterdoor.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)

act 'Leave':
	cla
	set minut += 5
	gt 'nord'
end

act 'Ring the doorbell':
	cla

	if hour > 16:
		'You rang the doorbell. The door opened very quickly, stood on the threshold Yuri. He invited you to enter.'

		act 'Login to Jury':
			cls
			minut += 15
			gs 'stat'
			'You entered the apartment to Yuri, he held you in the hall and sat on a chair. Went into the kitchen and priens bottle of champagne with grapes.'

			act 'Drinking with Yuri':
				cls
				minut += 15
				gs 'stat'
				'You are listening to as Yuri praises your sex skills drank champagne. Yuri suggested we go to bed.'
				dynamic $roomyour
			end
		end

		exit
	else
		'You rang the doorbell, but nobody answered you.'
	end

	act 'Away from the door':gt $curloc
end

--- youry ---------------------------------