# 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':
'City Center'
'
'
elseif $loc = 'Nord':
'City Industrial Area'
'
'
!!new locations for the metro, you will have to see how the code works and for now the island will be commented out until we add that area of the city
elseif $loc = 'psiklin':
'City Suburbs'
'
'
!!elseif $loc = 'island': !!for now calling it island, will have to check what we name the file.
!!'Vasilievsky Island'
!!'
'
end
'Subway fare costs 16 ₽.'
minut += 5
clr
gs 'stat'
if night_mode = 1:
fcolor = rgb(255, 255, 255)
bcolor = rgb(0, 0, 0)
lcolor = rgb(106, 90, 205)
else
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
end
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'
$metka = ''
money -= 16
gt 'metro', 'vagon'
end
end
if $loc ! 'down':
act 'Go to the City Center (16 ₽)':
$loc = 'down'
$metka = ''
money -= 16
gt 'metro', 'vagon'
end
end
if $loc ! 'Nord':
act 'Go to the City Industrial Area (16 ₽)':
$loc = 'Nord'
$metka = ''
money -= 16
gt 'metro', 'vagon'
end
end
if $loc ! 'psiklin':
act 'Go to the City Suburbs (16 ₽)':
$loc = 'psiklin'
$metka = 'start'
money -= 16
gt 'metro', 'vagon'
end
end
!! if $loc ! 'island':
!! act 'Go to the Vasilievsky Island (16 ₽)':
!! $loc = 'island'
!! $metka = ''
!! money -= 16
!! gt 'metro', 'vagon'
!! end
!! end
end
act 'Leave the Metro station':
minut += 5
gt $loc, $metka
end
if pusher = 1 and dealer = 0:
dealer = 1
'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'
elseif dealer ! 0:
'You see dealer lurking around the station.'
act 'Buy drugs':gt 'metro', 'shop'
end
end
if $ARGS[0] = 'vagon':
cls
CLOSE ALL
if sound = 0:PLAY 'sound/metro1.mp3',30
gs 'stat'
if night_mode = 1:
fcolor = rgb(255, 255, 255)
bcolor = rgb(0, 0, 0)
lcolor = rgb(106, 90, 205)
else
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
end
'Metro car'
if hour < 7 or hour >=22:
if rand(0, 100) >= 70:gt 'metro_events', 'frot'
if rand(0,1) = 0:
metro_busy = 0
else
metro_busy = 1
end
elseif (hour >= 9 and hour < 16) or (hour >= 18 and hour < 22):
if rand(0, 100) >= 80:gt 'metro_events', 'frot'
if rand(0,1) = 0:
metro_busy = 1
else
metro_busy = 2
end
else
if rand(0, 100) >= 90:gt 'metro_events', 'frot'
if rand(0,1) = 0:
metro_busy = 2
else
metro_busy = 3
end
end
if metro_busy = 0:
'
'
'The car is almost completely empty, one or two other passengers are in the car with you. It seems a bit odd and a little creepy seeing the car this empty. You have practically the whole car to yourself and pick the cleanest spot to sit.'
elseif metro_busy = 1:
'
'
'The car is mostly empty, leaving you a choice of seats. You easily find a place for yourself, leaving you plenty of room to get comfortable. The few other people on the car, mind their own business, leaving you to your own thoughts.'
elseif metro_busy = 2:
'>>.jpg)
'
'The car is full of people, all of the seats are taken, but only a few people are forced to stand. You easily find a place for yourself, at least it is not packed, leaving you plenty of room to get comfortable.'
else
'
'
'The car is packed with people, most of them are forced to stand, as there is not enough seats. It is so tightly packed that people are crammed tight up against each other either in the seats or standing up. You manage to squeeze yourself in among the people, you can feel other bodies pressed up tightly against yours, it is very uncomfortable and hot.'
end
if sosedQW >= 1:
if hour = 7 or hour = 15:
sosedMetroRand = rand(0, 100)
if sosedMetroRand >= 60 and sosedMetroDay ! daystart:'You notice your neighbor Timothy, in the metro car.'
end
end
if spdirtyc > 0 or spdirtyv > 0:
if hour >= 7 and hour <= 21:
pcs_mood -= 10
'Several passengers are shocked, looking at the cum smears on you.'
end
end
act 'Get out of the car':
if hour < 7 or hour >=22:
if rand(0, 100) >= 70:gt 'metro_events', 'station'
elseif (hour >= 9 and hour < 16) or (hour >= 18 and hour < 22):
if rand(1,100) >= 80:gt 'metro_events', 'station'
else
if rand(1,100) >= 90:gt 'metro_events', 'station'
end
gt 'metro', 'start'
end
end
if $ARGS[0] = 'shop':
cls
'What''s it gonna be?'
'Small box filled with red and blue pills. There is about two dozen of each pill 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 ampules.
"Here, my product is much better. Great times and guaranteed not to kill you."'
act 'Continue':gt 'metro','shop'
end
--- metro ---------------------------------