# metro
if $ARGS[0] = 'start':
CLOSE ALL
if sound = 0:PLAY 'sound/metro.mp3',30
'Metro station'
if $loc = 'street':
'Residential area'
'
'
elseif $loc = 'down':
'Center'
'
'
elseif $loc = 'Nord':
'Northern region'
'
'
else
'
'
end
!''
'Subway fare costs 16 ₽.'
minut += 5
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 (16 ₽)':
$loc = 'street'
gt 'metro', 'vagon'
end
end
if $loc ! 'down':
act 'Go to the City Center (16 ₽)':
$loc = 'down'
gt 'metro', 'vagon'
end
end
if $loc ! 'Nord':
act 'Go to the City Industrial Area (16 ₽)':
$loc = 'Nord'
gt 'metro', 'vagon'
end
end
end
act 'Get off the subway':
minut += 15
gt '<<$loc>>'
end
if pusher = 1 and dealer = 0:
'You see a tall, emaciated man leaning against the wall next to tracks. Looking very shady.
He notices you looking and beckons you closer.'
act 'Talk to the man':gt 'metro', 'dealer'
dealer = 1
elseif dealer ! 0:
'You see dealer lurking around the station.'
act 'Buy drugs':gt 'metro', 'shop'
end
end
if $ARGS[0] = 'vagon':
cla
clr
CLOSE ALL
if sound = 0:PLAY 'sound/metro1.mp3',30
money -= 16
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Subway car'
if hour < 5 or hour > 10 and hour < 15 or hour > 24:
'
'
'In the car are just a few passengers vacantly reading magazines and papers.'
elseif hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
'
'
'In the car there are lots of people all standing like statues, trying not to make eye conteact with each other.'
frotrand = rand(0, 100)
if frotrand >= 90 - (frot * 10) and frot < 3:
'FROT 1 <>'
gt 'frot', 'a'
elseif frotrand >= 90 - (frot * 10) and frot >= 3 and spdirtyc = 0 and PCloSkirt > 0:
'FROT 2 <>'
tipfrot = rand(0, 2)
if tipfrot = 0:gt 'frot', 'b'
if tipfrot = 1:gt 'frot', 'd1'
if tipfrot = 2:gt 'frot', 'c'
!!gt 'frot', 'b'
elseif frotrand >= 90 - (frot * 10) and frot >= 3 and spdirtyc = 0 and PCloSkirt = 0:
'FROT 3 <>'
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 ! daystart:'You notice in the subway Timothy, your neighbor.'
end
end
if spdirtyc > 0 or spdirtyv > 0:
if hour >= 7 and hour <= 21:
manna -= 10
'Several passengers are shocked, looking at where you are cum smeared.'
end
end
act 'Get out of the car':gt 'metro', 'start'
end
if $ARGS[0] = 'shop':
cls
'What''s it gonna be?'
'Small box filled with red and blue pills. There are 20 pieces inside.'
if money >= 1000:
'Buy neuroboosters 1000 ₽'
else
'Buy neuroboosters 1000 ₽ (You do not have enough money)'
end
'Uses left: <>'
'Nondescript box with 10 orange pills inside.'
if money >= 1000:
'Buy steroids 500 ₽'
else
'Buy steroids 500 ₽ (You do not have enough money)'
end
'Uses left: <>'
'Paste tube with two pictures of a woman. In latter one she sports enormous bust.'
if money >= 1000:
'Buy breast cream 500 ₽'
else
'Buy breast cream 500 ₽ (You do not have enough money)'
end
'Uses left: <>'
if MagikDostup = 0:
'Packet of pink chewing gums. There are 10 in one package.'
if money >= 1000:
'Buy aphrodisiacs 200 ₽'
else
'Buy aphrodisiacs 200 ₽ (You do not have enough money)'
end
'Uses left: <>'
end
act 'back':gt 'metro','start'
end
if $ARGS[0] = 'dealer':
cls
'He sizes you up with suspicion.
"Hey miss, saw you buying Lady in the park."
He clears his throat and spits onto the tracks. "That shit will mess you up."
He opens his coat and you flinch thinking he is going to flash you, but instead you see he is wearing a business suit beneath.
He gestures at numerous pockets lining insides of his coat. They are filled to bursting with various packages, pills and ampoules.
"Here, my product is much better. Great times and guaranteed not to kill you."'
act 'Continue':gt 'metro','shop'
end
--- metro ---------------------------------