# liames

$metka = ''
$loc = 'liames'
$location_type = 'public_outdoors'
$menu_loc = 'liames'
$menu_arg = ''
menu_off = 0
CLOSE ALL
clr
gs'stat'
set palMir=0
set bordysh=0
set housrA=0
set palMir=0
set obdysh=0
set tanhouse1=0
set obMir=0
set obLoker=0
set houseob=0
set borMir=0
set borLoker=0
set minut+=10

'<center><B>High street</B></center>'
'<center><img <<$set_imgh>> src="images/locations/oldtown/liames.jpg" ></center>'
'Not so much of a street, more of a connection of several streets including cafes and shops.'
'A street runs straight to the <a href="exec:gt ''liam'',''start''">Town center</a>.'
'Street leads to the Old Town <a href="exec:gt ''parks'',''start''">park</a>.'
if hour >= 8 and hour <= 20:
	'A small <a href="exec:gt ''larek'',''start''">shop</a> is currently open.'
else
	'There is a small local shop that is open 8:00 - 20:00 everyday. Currently closed.'
end

if hour >= 10 and hour <= 22:
	'A <a href="exec:gt ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside its door.'
else
	'The tiny cafe here is close currently, it is open every day 10:00 - 22:00'
end

if exhibitionQW > 3:
	if week < 7 and hour >= 8 and hour <= 18:
		'<a href="exec:gt ''exhibitionistshop'',''start''">Expression of You</a> is just down a small side street from here.'
	else
		'Expression of You is open Mon - Sat, 8:00 - 18:00'
	end
end

if home_owned[4] = 1: act '<b>Go home</b>':gt'korr2x'

if hour >= 8 and hour <= 17 and exhibitionQW = 3: act 'Search for the shop on the card from Kseniya': gt 'exhibitionistshop', 'start'

act 'wait':gs 'obj_din', 'wait'

if home_owned[4] = 1 and hour = meethour:
	if svidanie[0] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 0 & gt ''lover_meet'',''start''"><<$loverdesc[0]>></a></b>'
	if svidanie[1] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 1 & gt ''lover_meet'',''start''"><<$loverdesc[1]>></a></b>'
	if svidanie[2] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 2 & gt ''lover_meet'',''start''"><<$loverdesc[2]>></a></b>'
end

streetrand = RAND(0,100)
if streetrand >= 60 and pcs_lover < 3:
	vnerand = RAND(0,1200)
	if vnerand <= pcs_apprnc:
		gs'boy'
		'To you came <<$boybody>> <<$boybod>> <<$boyface>>. It <<$boyClo>>'
		'The guy introduced himself as <<$boydesc>> and I asked for your telephone number.'

		act 'Tell him your telephone number':
			cla
			gs'boyfrend', 'start'
			stopboy = 0
			'<<$boydesc>> record your phone and left.'
			act 'Complete outing':gt 'liames'
		end
	end
end

if stallionQ = 3:
	*clr
	cla
	'There is a rumbling in your stomach, you need to use the restroom. Luckily there appears to be a public restroom tucked into the corner of a building. Unluckily, the female one has a sign saying it is out of order.'
	act 'Use the Men''s Restroom':gt 'stallion','start'
	act 'Hold it':stallionQ = 1 & gt 'liames'
end


temp = RAND(1,100)
if temp >= 90:
	*clr & cla
	minut += 5
	gs'stat'
	'<center><img <<$set_imgh>> src="images/locations/oldtown/liamhud1.jpg"></center>'

	'You have seen both a sitting area-the artist, here the artist girl came and sat opposite him,and the artist began to paint it'

	act 'Further':gt'liames'
end


if hour >= 15 and hour <= 22 and tusa = 0:
	act'Local Hangout':
		*clr & cla
		gs'stat'
		gs'dibodi'
		minut += 20
		tusa = 1
		'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
		'Local youth get-together.'
		act 'Discovering':gt 'dibodi', 'sgtusa'
	end
end



if hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! daystart:
	act'Local Hangout':
		*clr & cla
		gs'stat'
		gs'dibodi'
		minut += 20
		'<center><img <<$set_imgh>> src="images/locations/oldtown/photo.jpg"></center>'
		'You came to talking to girls and boys and greeted you.'
		'In response you too greeted them.'

		if $pantyworntype = 'none' and sttan = 0:
			'- A <<$pcs_nickname>> campaign wears panties - said one of the boys.'
			act 'And she trusted you with this?':gt 'dibodi', 'sotusa'
		end

!!		if sttan = 1 and $pantyworntype = 'none':
!!			'- <<$pcs_nickname>>, and again without panties, - said one of the boys - Pussy pokezh?'
!!			'- And yet to show? - you said - How do I want and go.'
!!			act 'Further':gt'etoexhib','pos2'
!!		end

!!		if sttan = 1 and $pantyworntype ! 'none':
!!			'- Vav <<$pcs_nickname>> truselya put.'
!!			act 'Answer':gt'etoexhib','pos3'
!!		end

		act'Escape':gt 'liames'
	end
end

--- liames ---------------------------------