# street
$metka = $ARGS[0]
$loc = $CURLOC
gs 'dinam'
'
Residential Area'
*nl
'
'
if opusk > 0 and housr > 0:'Near the entrance to the house you live there something written on the wall. It says:"<<$name>> from apartment 69 is a cheap slut!"'
clr
gs 'stat'
gs 'time'
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
$onobjsel = 'onobjsel'
if gopdeath = 1 and vsehsdaladay ! day:
set over = 6
gt 'gameover'
exit
end
if shantpopala > 0:
cla
*clr
set hour += 8
set cumbelly += 1
set cumpussy += 1
set cumass += 1
set cumlip += 1
set cumface += 1
set cumfrot += 1
set cumanus += 1
set fingal += 1
set guy += 2
set rape += 1
set sex += 1
set bj += 1
set anal += 1
set shantpopala -= 1
'
'
'On the street close to you, a black jeep suddenly hit the brakes. You turn your head to see what''s happening and see two large men jump of it and start to run towards you in. Before you can react and run away, they grap you and drag you into the car.'
'"You''re doing this for a living? Taking pictures of naked people in the park?", one of the shouts, holding one of the pictures to your face you''ve made awhile back and sent someone over a social network, hoping they would pay the ransom.'
'"No...what? What the hell is going on? I don''t know what you''re talking about!", you try to explain.'
'"Don''t lie to use you stupid bitch.", as he said that, he hits you on your head and you pass out.'
'You wake up somewhere out of town, you''re tied up and naked. You look down on yourself and notice traces of cum on your body, it also seems like that cum is flowing from your ass and your pussy.'
'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.'
'"Oh, she is finally awake, then the next fuck-cycle will be far more fun.", one of the men said, as he noticed you moving. Some of them are starting to get a evil grin on their face.'
'They got up and came back at you, barely a minute later you wished your were still knocked out, as these jackasses had their ways with. You tried to resist, but the tape hindered you from moving. Not long after, everything faded to black and you lost you consciousness again.'
'You feel groggy as you wake up, but it feels like someone is grapping you by the hair and shouts at you. "Let this be a lesson for you, bitch.", he shouts, then kicks you into the stomach and leaves. As you collapse on the ground holding your stomach in pain, you take a glimpse at the street and see the assholes driving away in their black jeep. The mainroad is about 200m away, you crawl most of the way there, but soon you can walk again and eventually you find your way back to one of the mainstreets.'
act 'Leave':gt $curloc
exit
end
if workDolgDay <= 0 and workDolg > 0:
cls
gs 'stat'
gs 'time'
'
'
workDisk = 0
'Near the entrance to the house you see two large guys, you notice that both are carrying guns. They notice you and walk up to you. "It''s time for you to pay back your depts."'
if money >= workDolg:
money -= workDolg
workDolg = 0
'You take out your.'
act 'Leave':gt $curloc
exit
else
if money + stolmoney + karta >= workDolg:
money += stolmoney + karta
stolmoney = 0
karta = 0
money -= workDolg
workDolg = 0
'"I have enough at home. Follow me.", you say, going up to your apartment. You quickly hush inside, take the money out of the drawer and go back to pay. They count it, look at each other nod, then they leave again.'
act 'Leave':gt 'korr'
exit
else
'You tell them that you don''t have enough money. They smack you, push you into your apartment and search everything. They find you stash and plunder it.'
money += stolmoney + karta
stolmoney = 0
karta = 0
workDolg -= money
money = 0
'Brutes took everything that you have been told. In short, you have a duty to <>. Debt grows by 10 pieces, and since you can not pay off, then we will help you. Brutes dragged you into the car and thrown into the back seat. Car started and you went somewhere.'
workDolg += 10000
act 'Out of the car':
cls
minut += 30
gs 'stat'
'You have come to the sauna. Bandits have been dragged into what that room and started to explain. "You´re going to live here and work until not rasplatishsya debt. All clear? Try that buzz or escape, all we´ll bullet to the head and stabbed in the woods bury, truncated?"'
'You frightened nodded, realizing that they are not joking.'
act 'Look around':gt 'saunaroom'
end
end
end
exit
end
if workDiskAtkPlayer = 1:
'
'
workDisk = 1
workDiskAtkPlayer = 0
'Grab and throw you into the back seat of the car. Right and left of you sit two Ambala. In the front seat - porn studio manager. Where is the envelope - he asked.'
if konvert = 0:
workDolg = 200000
workDolgDay = 7
'Stolen.'
'-WHAT! But how could this happen! You know, in what you got dibs?! Term give you until next Friday. In my office, you bring 200,000. If not - Pingyao itself.'
else
konvert = 0
money += 5000
'You gave the envelope. He warned you that such delays in the future may be harmful to your business relationships.'
end
act 'Leave':gt $curloc
exit
end
if vladimirday=day and vladimirQW=30 and hour >= 16 and week=6:'Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory.'
if vladimirday=day and vladimirQW=40 and hour >= 16 and week=6:'Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory.'
set housrA = 0
if car > 0 and cardrive = 1:
set cardrive = 1
'In the parking lot is worth your <<$car>>.'
end
if hour >= 8 and hour <= 22:'The kiosk selling cigarettes'
if housr = 1:
act 'GO HOME':
gorand = rand(0, 100)
if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
gt 'gopnew', 'start'
exit
end
if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
gt 'gopnew', 'start'
exit
end
gt 'korr'
end
end
act 'Wait':
cla
waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
if waiting <= 0 or waiting > 120:set minut += 15
if waiting > 0 and waiting <= 120:set minut += waiting
act 'Take a look at the clock':gt curloc
end
act 'Take a cab':
cla
*clr
'
'
'You caught a passing taxi.'
'"The drive will cost you 250 rubles", the driver says.'
set minut += 5
if $loc!'street':
act 'Go to the Residential Area':
set $loc = 'street'
dynamic $taxi
end
end
if $loc!'down':
act 'Go to the City Center':
set $loc = 'down'
dynamic $taxi
end
end
if $loc!'Nord':
act 'Go to the Northern Area':
set $loc = 'Nord'
dynamic $taxi
end
end
act 'Turn him down and leave':gt '<<$loc>>'
end
if tanga = 0 and ski = 1 and hour > 6 and hour <= 20 or tanga = 0 and glamur = 1 and hour > 6 and hour <= 20:
set nurand = rand(0, 100)
if nurand >= 90:
set manna -= 5
set SUB += 1
set horny += SUB
'You heard a loud whisper deliberately grandmothers on the bench, "That whore! Walks in a short skirt and no panties, then mandischey shines!"'
'You blushed in shame after caustic remarks old ladies.'
end
end
if magik >= 1 and mainQW = 0 and StoryLine = 0:
cla
*clr
set mainQW = 1
'
'
'At the entrance you see Karin and Juugo. Karin adjusts glasses and looks around, Juugo seems to head in the clouds and not as strange look on his face is not visible tattoos.'
'Karin closely looks around you, "I felt a burst of energy.''m Not attacking the magician?"'
act 'No':gt 'mainQW'
exit
end
if katkey = 1:'Katies apartment'
if hour >= 16 and hour < 22 and dimaQW > 0:'Dimas apartment'
if klofQW >= 2:'Joras apartment'
if hour >= 5 and hour <= 23:'The Metro Station is within a 5 minute walk from here.'
if hour >= 8 and hour <= 20:'Not far from your house is a Supermarket'
if hour >= 8 and hour <= 20:'the clinic isn''t far from your apartement either'
if hour >= 6 and hour <= 9 and military = 1 and week = 6:'There is a military bus waiting on the other side of the street.'
if hour >= 8 and hour <= 14 and week ! 1:'At the local, but noisy, marketplace you can go for a small shopping trip'
if hour >= 12 and hour <= 22 and week ! 1:'In a side alley, next to the cafe, you can hear the swearing and laughing of some Gopniks.'
if hour > 22 or hour <= 3:'In one of the parking lots you can hear the swearing and laughing of some Gopniks.'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:'The side door at the cafe open, so work staff can get in begin their shift.'
if clener >= 1 and hour >= 7 and hour <= 22:'There''s a small office building where a cleaning lady is needed.'
'The towns central park is about a 20-minute walk away.'
'The cities only lake can be reached from here and is just a 40-minute walk away.'
'24 Hour Pharmacy.'
if hour >= 8 and lesbiqw >= 1 and lesbiqw < 3:'Natalia Petrovnas Apartment'
if lesbiday ! day and hour >= 8 and (lesbiqw = 3 or lesbiqw = 4):'Mistress'' Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 5:'Mistress'' Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 6:'The Perverts'' Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 7:'Mistress'' Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 8:'Mistress'' Apartment'
if lesbiday ! day and hour >= 8 and lesbiqw = 9:'Mistress'' Apartment'
if lesbiday = day and hour >= 8:'You can only visit your Mistress once a day!'
'In the courtyard of the house you live in, you can find the Wastebaskets'
if SNarkPriton > 0:'The Drug House is clearly recognizeable by the syringes and the trash that lies in front of it.'
if IrinaQW >= 1:'Irenes Apartment is not far away from yours.'
if hour >= 8 and hour <= 23 or saunaWorkWhore > 0 or workDisk = 2:'The Sauna is a 10 minute walk away. Rumors say the sauna is just the front for a brothel.'
if hour = meethour:
if svidanieA = 1:'<<$boyA>> waits next to the entrance to the house your apartment is in.'
if svidanieB = 1:'<<$boyA>> waits next to the entrance to the house your apartment is in.'
if svidanieC = 1:'<<$boyA>> waits next to the entrance to the house your apartment is in.'
end
set streetrand = rand(0, 100)
if streetrand = 40 and hour <= 3:
cla
*clr
'
'
'Out of the blue you are grapped by a man. He drags you into the closest bush, saying "Honey, you better not scream for help."'
act 'Useless to resist':
cla
*clr
!set money += 500
set $nameV = 'Rapist'
set sex += 1
set guy += 1
set vagina += 1
'
'
if prezik > 0:
set protect = 1
set prezik -= 1
'You give him a condom. "At least wear protection asshole. I don''t want a bastards child.", you tell him. He nods in silence, the puts it on.'
end
'"Get ready, bitch.", he says pushing you onto your knees. He moves behind you and takes you doggy-style. You can feel his hard cock entering your vagina.'
if horny >= 90:
set horny = 0
set manna += 15
set willpower += 15
set orgasm += 1
'Gradually a pleasant warmth and ripple grow in the lower abdomen, then descend upon the feeling you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on elde.'
end
if protect ! 1:
!не защищенный секс
set finrand = rand(0, 1)
if finrand = 0:
!внутрь
set cumpussy += 1
'Man groaned and you feel like jet of sperm hit you inside your body.'
if tabletki <= 0 and mesec <= 0:
gs 'preg'
set manna -= 15
set willpower -= 15
'Hell, because after all, you can fly, you thought with horror.'
end
end
if finrand = 1:
!наружу
set cumass += 1
'<<$nameV>> groaned and removing a member of you finished on your ass.'
end
end
if protect > 0:
set protect = 0
'Guy cums in a condom. Member pulls out of you and removing the condom throws him to the ground, after pulls his pants and leaves.'
end
act 'Leave':gt 'street'
end
act 'Fight':
cla
set $nameV = 'Rapist'
!Статы
set strenV = 100
set speedV = 50
set agilV = 40
set reactV = 40
set vitalV = 50
set intelV = 10
set willV = 10
!Навыки
set magikV = 100
set boxingV = 50
set shootV = 100
!Параметры
set healthV = vitalV * 10 + strenV * 5
set mannaV = intelV * 10 + magikV * 10
set willpowerV = willV * 10
set BonusAtakV = 0
set BonusDefV = 0
!программа действий
set program = 0
set RapistFight = 1
if spellavtoklon = 1:set klon = 3
if spellbefshild = 1:set defence = 500
gt 'fight', 'start'
end
exit
end
set streetrand = rand(0, 100)
if streetrand = 50 and money >= 1000 and daystart >= 10 and hour <= 3:
cla
*clr
'
'
'Suddenly you are attacked by a robber'
act 'Don''t fight, just give him your money':
cla
money = 0
clr
gs 'stat'
'He took all the money you had on your hand'
act 'Leave':gt 'street'
end
act 'Stand up to him and fight back':
cla
'The robber throws heavy insults at you.'
act 'Fight':
set $nameV = 'Rapist'
!Статы
set strenV = 100
set speedV = 50
set agilV = 40
set reactV = 40
set vitalV = 50
set intelV = 10
set willV = 10
!Навыки
set magikV = 100
set boxingV = 50
set shootV = 100
!Параметры
set healthV = vitalV * 10 + strenV * 5
set mannaV = intelV * 10 + magikV * 10
set willpowerV = willV * 10
set BonusAtakV = 0
set BonusDefV = 0
!программа действий
set program = 0
set RapistFight = 1
if spellavtoklon = 1:set klon = 3
if spellbefshild = 1:set defence = 500
gt 'fight', 'start'
end
end
exit
end
set streetrand = rand(0, 100)
if streetrand = 60 and money >= 1000 and daystart >= 10 and hour <= 3:
cla
*clr
'
'
'You have been robbed. A thief grapped your purse and ran away.'
act 'Not run, I did not catch':
cla
money = 0
clr
gs 'stat'
act 'That jackass':gt 'street'
end
act 'Catch this asswipe and then fuck him up':
if speed < 55 or agil < 55 or vital < 55:
cla
money = 0
clr
gs 'stat'
act 'He was faster than you and you lost sight of him':gt 'street'
end
if speed >= 60 and agil >= 60 and vital >= 60:
set $nameV = 'Rapist'
!Статы
set strenV = 100
set speedV = 50
set agilV = 40
set reactV = 40
set vitalV = 50
set intelV = 10
set willV = 10
!Навыки
set magikV = 100
set boxingV = 50
set shootV = 100
!Параметры
set healthV = vitalV * 10 + strenV * 5
set mannaV = intelV * 10 + magikV * 10
set willpowerV = willV * 10
set BonusAtakV = 0
set BonusDefV = 0
!программа действий
set program = 0
set RapistFight = 1
if spellavtoklon = 1:set klon = 3
if spellbefshild = 1:set defence = 500
gt 'fight', 'start'
end
end
exit
end
if streetrand >= 10 and bfa < 1:
set vnerand = rand(0, 300)
if vnerand <= vnesh:
gs 'boy'
'To you came <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
'The guy introduced himself as <<$boy>> and asked for your telefonchik.'
act 'Tell him your phone':
cla
gs 'boyfrend', 'start'
set stopboy = 0
'<<$boyA>> record your phone and left.'
act 'complete the walk':gt 'street'
end
end
end
dynamic $din_street_cum
--- street ---------------------------------