# metro
if $ARGS[0] = 'start':
'
Metro station'
if $loc = 'street':'Residential area'
if $loc = 'down':'Center'
if $loc = 'Nord':'Northern region'
''
'Subway fare costs 16 rubles.'
set minut += 15
clr
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
if workDisk = 3 and konvert = 1:
badrand = rand(0, 100)
if badrand >= 80:konvert = 0
end
if money >= 16:
if $loc!'street':
act 'Go to the residential area':
set $loc = 'street'
gt 'metro', 'vagon'
end
end
if $loc!'down':
act 'Go to the center':
set $loc = 'down'
gt 'metro', 'vagon'
end
end
if $loc!'Nord':
act 'Go to the northern area':
set $loc = 'Nord'
gt 'metro', 'vagon'
end
end
end
act 'Get off the subway':
set minut += 15
gt '<<$loc>>'
end
end
if $ARGS[0] = 'vagon':
cla
'Subway car'
clr
set money -= 16
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
if hour < 5 or hour > 10 and hour < 15 or hour > 24:
''
'In the car just a few passengers sadly examines advertising in the car.'
end
if hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
''
'In the car, a lot of people all standing like statues without paying the slightest attention to others.'
set frotrand = rand(0, 100)
if frotrand >= 90 - (frot * 10) and frot < 3:gt 'frot', 'a'
if frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 1 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 1:
set tipfrot = rand(0, 1)
if tipfrot = 0:gt 'frot', 'b'
if tipfrot = 1:gt 'frot', 'd1'
!gt 'frot', 'b'
end
if frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 0 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 0:
set tipfrot = rand(0, 2)
if tipfrot =0:gt 'frot', 'c'
if tipfrot =1:gt 'frot', 'd'
if tipfrot =2:gt 'frot', 'e'
end
end
if sosedQW >= 1:
if hour = 7 or hour = 15:
sosedMetroRand = rand(0, 100)
if sosedMetroRand >= 60 and sosedMetroDay ! day:'You notice in the subway Timothy, your neighbor.'
end
end
if cumfrot > 0 or cumface > 0:
if hour >= 7 and hour <= 21:
manna -= 10
'Several passengers were hatched at you looking at where you cum smeared.'
end
end
act 'Get out of the car':gt 'metro', 'start'
end
--- metro ---------------------------------