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

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

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

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

act 'Ring the doorbell':
	cla

	if hour > 16:
		'You rang the doorbell. The door opened very quickly and Yuri was standing on the threshold. He invited you in.'

		act 'Login to Jury':
			cls
			minut += 15
			gs 'stat'
			'You entered Yuris apartment, went in the living room and sat on a chair. Yuri went into the kitchen and brought a  bottle of champagne and two glasses.'

			act 'Drinking with Yuri':
				cls
				minut += 15
				gs 'stat'
				'Yuri praised your sex skills as you drank the champagne. Then Yuri suggested you 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 ---------------------------------