# liamel
$metka = $ARGS[0]
$loc = $CURLOC
gs'dinam'
'
Quiet Street'
''
'Pretty, quiet street of the old town'
CLOSE ALL
clr
gs'stat'
gs 'outdoors'
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
'shop'
'Close by is a narrow street looping between houses.'
'A street runs straight to the Town center.'
'A street leading to the High Street.'
if hour >= 10 and hour <= 22: 'A tiny cafe displays a street sign outside it''s door.'
if housr = 2:
act 'Go home':gt'korr2x'
end
act 'Stand':
cla
waiting = input ("How many minutes to wait? (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 housr = 2 and hour = meethour:
if svidanieA = 1:'Near the entrance you expect <<$boyA>>'
if svidanieB = 1:'Near the entrance you expect <<$boyB>>'
if svidanieC = 1:'Near the entrance you expect <<$boyC>>'
end
streetrand = RAND(0,100)
if streetrand >= 10 and bfa < 1:
vnerand = RAND(0,1200)
if vnerand <= vnesh:
gs'boy'
'To you came <<$boybody>> <<$boybod>> <<$boyface>>. It <<$boyClo>>'
'The guy introduced himself as <<$boy>> and I asked for your telefonchik.'
act 'Tell him your phone':
cla
gs'boyfrend','start'
stopboy = 0
'<<$boyA>> record your phone and left.'
act 'Complete outing':gt $locM, $metkaM
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 'liamel'
end
--- liamel ---------------------------------