# liames

$metka = ''
$loc = 'liames'
$location_type = 'public_outdoors'
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.'
if hour >= 10 and hour <= 22: 'A <a href="exec:GT ''liamelkafe'',''start''">tiny cafe</a> displays a street sign outside its door.'
if hour >= 8 and hour <= 17 and exhibitionQW > 3:'The <a href="exec:GT ''exhibitionistshop'',''start''">exhibitionist shop</a> is just down a small side street from here.'

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

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

act 'Kill some time looking at the shops':
	cla
	waiting = input ("How many minutes do you wish to spend looking around the shops? (Not more 120 minutes)")

	if waiting <= 0 or waiting > 120:
		minut = minut + 15
	elseif waiting > 0 and waiting <= 120:
		minut = minut + waiting
	end

	act 'Consult a watch':gt curloc
end

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:
		cls
		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':
		cls
		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':
		cls
		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 ---------------------------------