068_street 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511
  1. # street
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. gs 'dinam'
  5. '<center><b>Residential Area</b></center>'
  6. *nl
  7. '<center><img src="images/etogame/street.jpg"></center>'
  8. if opusk > 0 and housr > 0:'Near the entrance to the house you live there something written on the wall. It says:<b>"<<$name>> from apartment 69 is a cheap slut!"</b>'
  9. clr
  10. gs 'stat'
  11. gs 'time'
  12. set palMir = 0
  13. set bordysh = 0
  14. set housrA = 0
  15. set palMir = 0
  16. set obdysh = 0
  17. set tanhouse1 = 0
  18. set obMir = 0
  19. set obLoker = 0
  20. set houseob = 0
  21. set borMir = 0
  22. set borLoker = 0
  23. $onobjsel = 'onobjsel'
  24. if gopdeath = 1 and vsehsdaladay ! day:
  25. set over = 6
  26. gt 'gameover'
  27. exit
  28. end
  29. if shantpopala > 0:
  30. cla
  31. *clr
  32. set hour += 8
  33. set cumbelly += 1
  34. set cumpussy += 1
  35. set cumass += 1
  36. set cumlip += 1
  37. set cumface += 1
  38. set cumfrot += 1
  39. set cumanus += 1
  40. set fingal += 1
  41. set guy += 2
  42. set rape += 1
  43. set sex += 1
  44. set bj += 1
  45. set anal += 1
  46. set shantpopala -= 1
  47. '<center><img src="images/img/centr/rape.jpg"></center>'
  48. '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.'
  49. '"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.'
  50. '"No...what? What the hell is going on? I don''t know what you''re talking about!", you try to explain.'
  51. '"Don''t lie to use you stupid bitch.", as he said that, he hits you on your head and you pass out.'
  52. '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.'
  53. 'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.'
  54. '"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.'
  55. '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.'
  56. '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.'
  57. act 'Leave':gt $curloc
  58. exit
  59. end
  60. if workDolgDay <= 0 and workDolg > 0:
  61. cls
  62. gs 'stat'
  63. gs 'time'
  64. '<center><img src="images/sauna/bug.jpg"></center>'
  65. workDisk = 0
  66. '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."'
  67. if money >= workDolg:
  68. money -= workDolg
  69. workDolg = 0
  70. 'You take out your.'
  71. act 'Leave':gt $curloc
  72. exit
  73. else
  74. if money + stolmoney + karta >= workDolg:
  75. money += stolmoney + karta
  76. stolmoney = 0
  77. karta = 0
  78. money -= workDolg
  79. workDolg = 0
  80. '"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.'
  81. act 'Leave':gt 'korr'
  82. exit
  83. else
  84. '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.'
  85. money += stolmoney + karta
  86. stolmoney = 0
  87. karta = 0
  88. workDolg -= money
  89. money = 0
  90. 'Brutes took everything that you have been told. In short, you have a duty to <<workDolg>>. 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.'
  91. workDolg += 10000
  92. act 'Out of the car':
  93. cls
  94. minut += 30
  95. gs 'stat'
  96. '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?"'
  97. 'You frightened nodded, realizing that they are not joking.'
  98. act 'Look around':gt 'saunaroom'
  99. end
  100. end
  101. end
  102. exit
  103. end
  104. if workDiskAtkPlayer = 1:
  105. '<center><img src="images/sauna/car.jpg"></center>'
  106. workDisk = 1
  107. workDiskAtkPlayer = 0
  108. '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.'
  109. if konvert = 0:
  110. workDolg = 200000
  111. workDolgDay = 7
  112. 'Stolen.'
  113. '-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.'
  114. else
  115. konvert = 0
  116. money += 5000
  117. 'You gave the envelope. He warned you that such delays in the future may be harmful to your business relationships.'
  118. end
  119. act 'Leave':gt $curloc
  120. exit
  121. end
  122. if vladimirday=day and vladimirQW=30 and hour >= 16 and week=6:'<a href="exec:gt ''qwmeet2''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'
  123. if vladimirday=day and vladimirQW=40 and hour >= 16 and week=6:'<a href="exec:gt ''qwmeet3''">Before your entrance stands Audi and around the phlegmatic worth waiting for your driver Glory</a>.'
  124. set housrA = 0
  125. if car > 0 and cardrive = 1:
  126. set cardrive = 1
  127. 'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  128. end
  129. if hour >= 8 and hour <= 22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'
  130. if housr = 1:
  131. act '<b>GO HOME</b>':
  132. gorand = rand(0, 100)
  133. if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
  134. gt 'gopnew', 'start'
  135. exit
  136. end
  137. if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
  138. gt 'gopnew', 'start'
  139. exit
  140. end
  141. gt 'korr'
  142. end
  143. end
  144. act 'Wait':
  145. cla
  146. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  147. if waiting <= 0 or waiting > 120:set minut += 15
  148. if waiting > 0 and waiting <= 120:set minut += waiting
  149. act 'Take a look at the clock':gt curloc
  150. end
  151. act 'Take a cab':
  152. cla
  153. *clr
  154. '<center><img src="images/etogame/taxi1.jpg"></center>'
  155. 'You caught a passing taxi.'
  156. '"The drive will cost you <b>250 rubles</b>", the driver says.'
  157. set minut += 5
  158. if $loc!'street':
  159. act 'Go to the Residential Area':
  160. set $loc = 'street'
  161. dynamic $taxi
  162. end
  163. end
  164. if $loc!'down':
  165. act 'Go to the City Center':
  166. set $loc = 'down'
  167. dynamic $taxi
  168. end
  169. end
  170. if $loc!'Nord':
  171. act 'Go to the Northern Area':
  172. set $loc = 'Nord'
  173. dynamic $taxi
  174. end
  175. end
  176. act 'Turn him down and leave':gt '<<$loc>>'
  177. end
  178. if tanga = 0 and ski = 1 and hour > 6 and hour <= 20 or tanga = 0 and glamur = 1 and hour > 6 and hour <= 20:
  179. set nurand = rand(0, 100)
  180. if nurand >= 90:
  181. set manna -= 5
  182. set SUB += 1
  183. set horny += SUB
  184. 'You heard a loud whisper deliberately grandmothers on the bench, "That whore! Walks in a short skirt and no panties, then mandischey shines!"'
  185. 'You blushed in shame after caustic remarks old ladies.'
  186. end
  187. end
  188. if magik >= 1 and mainQW = 0 and StoryLine = 0:
  189. cla
  190. *clr
  191. set mainQW = 1
  192. '<center><img src="images/qwest/main.jpg"></center>'
  193. '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.'
  194. 'Karin closely looks around you, "I felt a burst of energy.''m Not attacking the magician?"'
  195. act 'No':gt 'mainQW'
  196. exit
  197. end
  198. if katkey = 1:'<a href="exec:gt ''katspalnya'', ''start''">Katies</a> apartment'
  199. if hour >= 16 and hour < 22 and dimaQW > 0:'<a href="exec:gt ''dima'', ''start''">Dimas</a> apartment'
  200. if klofQW >= 2:'<a href="exec:gt ''klofdomhouse'', ''start''">Joras</a> apartment'
  201. if hour >= 5 and hour <= 23:'The <a href="exec:gt ''metro'', ''start''">Metro</a> Station is within a 5 minute walk from here.'
  202. if hour >= 8 and hour <= 20:'Not far from your house is a <a href="exec:gt ''shop'', ''start''">Supermarket</a>'
  203. if hour >= 8 and hour <= 20:'<a href="exec:gt ''poli'', ''start''">the clinic</a> isn''t far from your apartement either'
  204. if hour >= 6 and hour <= 9 and military = 1 and week = 6:'There is a <a href="exec:set minut += 60 & gt ''Military'', ''start''">military bus</a> waiting on the other side of the street.'
  205. if hour >= 8 and hour <= 14 and week ! 1:'At the local, but noisy, <a href="exec:gt ''rinok'', ''start''">marketplace</a> you can go for a small shopping trip'
  206. if hour >= 12 and hour <= 22 and week ! 1:'In a side alley, next to the <a href="exec:gt ''kafe'', ''start''">cafe</a>, you can hear the swearing and laughing of some <a href="exec:gt ''gopnew'', ''start''">Gopniks</a>.'
  207. if hour > 22 or hour <= 3:'In one of the parking lots you can hear the swearing and laughing of some <a href="exec:gt ''gopnew'', ''start''">Gopniks</a>.'
  208. if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:'The side door at the <a href="exec:gt ''kafe'', ''work''">cafe</a> open, so work staff can get in begin their shift.'
  209. if clener >= 1 and hour >= 7 and hour <= 22:'There''s a small office building where a <a href="exec:gt ''clener'', ''start''">cleaning lady</a> is needed.'
  210. 'The towns <a href="exec:set minut += 21 & gt ''park'', ''start''">central park</a> is about a 20-minute walk away.'
  211. 'The cities only <a href="exec:set minut += 39 & gt ''lake'', ''start''">lake</a> can be reached from here and is just a 40-minute walk away.'
  212. '24 Hour <a href="exec:$loc=''street'' & gt ''pharmacy'', ''start''">Pharmacy</a>.'
  213. if hour >= 8 and lesbiqw >= 1 and lesbiqw < 3:'<a href="exec:gt ''lesbidomhouse'', ''start''">Natalia Petrovnas</a> Apartment'
  214. if lesbiday ! day and hour >= 8 and (lesbiqw = 3 or lesbiqw = 4):'<a href="exec:gt ''lesbidomhouse'', ''start1''">Mistress''</a> Apartment'
  215. if lesbiday ! day and hour >= 8 and lesbiqw = 5:'<a href="exec:gt ''lesbidomhouse'', ''ev15''">Mistress''</a> Apartment'
  216. if lesbiday ! day and hour >= 8 and lesbiqw = 6:'The <a href="exec:gt ''lesbidomhouse'', ''ev22''">Perverts''</a> Apartment'
  217. if lesbiday ! day and hour >= 8 and lesbiqw = 7:'<a href="exec:gt ''lesbidomhouse'', ''ev25''">Mistress''</a> Apartment'
  218. if lesbiday ! day and hour >= 8 and lesbiqw = 8:'<a href="exec:gt ''lesbidomhouse'', ''ev28''">Mistress''</a> Apartment'
  219. if lesbiday ! day and hour >= 8 and lesbiqw = 9:'<a href="exec:gt ''lesbidomhouse'', ''ev29''">Mistress''</a> Apartment'
  220. if lesbiday = day and hour >= 8:'You can only visit your Mistress once a day!'
  221. 'In the courtyard of the house you live in, you can find the <a href="exec:gt ''trashplace''">Wastebaskets</a>'
  222. if SNarkPriton > 0:'<a href="exec:minut += 5 & gt ''narkopriton''">The Drug House</a> is clearly recognizeable by the syringes and the trash that lies in front of it.'
  223. if IrinaQW >= 1:'<a href="exec:gt ''IrinaRoom'', ''start''">Irenes</a> Apartment is not far away from yours.'
  224. if hour >= 8 and hour <= 23 or saunaWorkWhore > 0 or workDisk = 2:'<a href="exec:minut += 10 & gt ''sauna''">The Sauna</a> is a 10 minute walk away. Rumors say the sauna is just the front for a brothel.'
  225. if hour = meethour:
  226. if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</b>'
  227. if svidanieB = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</b>'
  228. if svidanieC = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</b>'
  229. end
  230. set streetrand = rand(0, 100)
  231. if streetrand = 40 and hour <= 3:
  232. cla
  233. *clr
  234. '<center><img src="images/etogame/street.jpg"></center>'
  235. '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."'
  236. act 'Useless to resist':
  237. cla
  238. *clr
  239. !set money += 500
  240. set $nameV = 'Rapist'
  241. set sex += 1
  242. set guy += 1
  243. set vagina += 1
  244. '<center><img src="images/picV/dogging.jpg"></center>'
  245. if prezik > 0:
  246. set protect = 1
  247. set prezik -= 1
  248. '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.'
  249. end
  250. '"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.'
  251. if horny >= 90:
  252. set horny = 0
  253. set manna += 15
  254. set willpower += 15
  255. set orgasm += 1
  256. '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.'
  257. end
  258. if protect ! 1:
  259. !не защищенный секс
  260. set finrand = rand(0, 1)
  261. if finrand = 0:
  262. !внутрь
  263. set cumpussy += 1
  264. 'Man groaned and you feel like jet of sperm hit you inside your body.'
  265. if tabletki <= 0 and mesec <= 0:
  266. gs 'preg'
  267. set manna -= 15
  268. set willpower -= 15
  269. 'Hell, because after all, you can fly, you thought with horror.'
  270. end
  271. end
  272. if finrand = 1:
  273. !наружу
  274. set cumass += 1
  275. '<<$nameV>> groaned and removing a member of you finished on your ass.'
  276. end
  277. end
  278. if protect > 0:
  279. set protect = 0
  280. '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.'
  281. end
  282. act 'Leave':gt 'street'
  283. end
  284. act 'Fight':
  285. cla
  286. set $nameV = 'Rapist'
  287. !Статы
  288. set strenV = 100
  289. set speedV = 50
  290. set agilV = 40
  291. set reactV = 40
  292. set vitalV = 50
  293. set intelV = 10
  294. set willV = 10
  295. !Навыки
  296. set magikV = 100
  297. set boxingV = 50
  298. set shootV = 100
  299. !Параметры
  300. set healthV = vitalV * 10 + strenV * 5
  301. set mannaV = intelV * 10 + magikV * 10
  302. set willpowerV = willV * 10
  303. set BonusAtakV = 0
  304. set BonusDefV = 0
  305. !программа действий
  306. set program = 0
  307. set RapistFight = 1
  308. if spellavtoklon = 1:set klon = 3
  309. if spellbefshild = 1:set defence = 500
  310. gt 'fight', 'start'
  311. end
  312. exit
  313. end
  314. set streetrand = rand(0, 100)
  315. if streetrand = 50 and money >= 1000 and daystart >= 10 and hour <= 3:
  316. cla
  317. *clr
  318. '<center><img src="images/etogame/street.jpg"></center>'
  319. 'Suddenly you are attacked by a robber'
  320. act 'Don''t fight, just give him your money':
  321. cla
  322. money = 0
  323. clr
  324. gs 'stat'
  325. 'He took all the money you had on your hand'
  326. act 'Leave':gt 'street'
  327. end
  328. act 'Stand up to him and fight back':
  329. cla
  330. 'The robber throws heavy insults at you.'
  331. act 'Fight':
  332. set $nameV = 'Rapist'
  333. !Статы
  334. set strenV = 100
  335. set speedV = 50
  336. set agilV = 40
  337. set reactV = 40
  338. set vitalV = 50
  339. set intelV = 10
  340. set willV = 10
  341. !Навыки
  342. set magikV = 100
  343. set boxingV = 50
  344. set shootV = 100
  345. !Параметры
  346. set healthV = vitalV * 10 + strenV * 5
  347. set mannaV = intelV * 10 + magikV * 10
  348. set willpowerV = willV * 10
  349. set BonusAtakV = 0
  350. set BonusDefV = 0
  351. !программа действий
  352. set program = 0
  353. set RapistFight = 1
  354. if spellavtoklon = 1:set klon = 3
  355. if spellbefshild = 1:set defence = 500
  356. gt 'fight', 'start'
  357. end
  358. end
  359. exit
  360. end
  361. set streetrand = rand(0, 100)
  362. if streetrand = 60 and money >= 1000 and daystart >= 10 and hour <= 3:
  363. cla
  364. *clr
  365. '<center><img src="images/etogame/street.jpg"></center>'
  366. 'You have been robbed. A thief grapped your purse and ran away.'
  367. act 'Not run, I did not catch':
  368. cla
  369. money = 0
  370. clr
  371. gs 'stat'
  372. act 'That jackass':gt 'street'
  373. end
  374. act 'Catch this asswipe and then fuck him up':
  375. if speed < 55 or agil < 55 or vital < 55:
  376. cla
  377. money = 0
  378. clr
  379. gs 'stat'
  380. act 'He was faster than you and you lost sight of him':gt 'street'
  381. end
  382. if speed >= 60 and agil >= 60 and vital >= 60:
  383. set $nameV = 'Rapist'
  384. !Статы
  385. set strenV = 100
  386. set speedV = 50
  387. set agilV = 40
  388. set reactV = 40
  389. set vitalV = 50
  390. set intelV = 10
  391. set willV = 10
  392. !Навыки
  393. set magikV = 100
  394. set boxingV = 50
  395. set shootV = 100
  396. !Параметры
  397. set healthV = vitalV * 10 + strenV * 5
  398. set mannaV = intelV * 10 + magikV * 10
  399. set willpowerV = willV * 10
  400. set BonusAtakV = 0
  401. set BonusDefV = 0
  402. !программа действий
  403. set program = 0
  404. set RapistFight = 1
  405. if spellavtoklon = 1:set klon = 3
  406. if spellbefshild = 1:set defence = 500
  407. gt 'fight', 'start'
  408. end
  409. end
  410. exit
  411. end
  412. if streetrand >= 10 and bfa < 1:
  413. set vnerand = rand(0, 300)
  414. if vnerand <= vnesh:
  415. gs'boy'
  416. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
  417. 'The guy introduced himself as <<$boy>> and asked for your telefonchik.'
  418. act 'Tell him your phone':
  419. cla
  420. gs 'boyfrend', 'start'
  421. set stopboy = 0
  422. '<<$boyA>> record your phone and left.'
  423. act 'complete the walk':gt'street'
  424. end
  425. end
  426. end
  427. dynamic $din_street_cum
  428. --- street ---------------------------------