street_event 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441
  1. # street_event
  2. !{$arg[0]='down','street','Nord' for trigger position. if call this with gs, $curloc work the same.
  3. 1. location indepent events, list: rape, rob, hijack, ask phonenumber, no pantie&skirt, $street_cum, $mobile_check
  4. all events were only in [street], except shantpopala duplicate in [street][down].
  5. original event chance in [street]:
  6. streetev_rape=10
  7. streetev_rob=1
  8. streetev_hijack=1
  9. streetev_bf=90
  10. streetev_pantie=10
  11. shantpopala: 100% if shantpopala>0
  12. 2. home-related events: check if player live here (workDolgDay, vladimirday, magik >= 1 and mainQW = 0, hour = meethour).
  13. [street]: housr=1 for korr
  14. [down]:tanwork = 1 for house, student > 0 for dorm
  15. [Nord]:none for now. use (train station) as position, if no home in city.
  16. Known issue: boyfriend/vladimir may wait you in both place, if you rent house in [street] and study in university/work in Tanya
  17. set streetrand=-1 for exit --> in outer location, gs'street_event','home' & if streetrand=-1:exit
  18. }
  19. streetev_home = 0
  20. if $ARGS[0] = 'street':
  21. $streetev_title = '<center><b>Residential Area</b><br><img src="images/etogame/street.jpg"></center>'
  22. streetev_rape = 5
  23. streetev_rob = 3
  24. streetev_hijack = 2
  25. streetev_bf = 50
  26. streetev_pantie = 10
  27. streetev_mistmeet = 15
  28. if housr = 1:
  29. streetev_home = 1
  30. $streetev_home = 'your apartment'
  31. end
  32. elseif $ARGS[0] = 'down':
  33. $streetev_title = '<center><b>City center</b><br><img src="images/etogame/down.JPG"></center>'
  34. streetev_rape = 0
  35. streetev_rob = 1
  36. streetev_hijack = 6
  37. streetev_bf = 90
  38. streetev_pantie = 20
  39. streetev_mistmeet = 20
  40. if tanwork = 1 or student > 0:
  41. streetev_home = 1
  42. $streetev_home = 'your home'
  43. end
  44. elseif $ARGS[0] = 'Nord':
  45. $streetev_title = '<center><b>Northern region</b><br><img src="images/etogame/nord.jpg"></center>'
  46. streetev_rape = 8
  47. streetev_rob = 5
  48. streetev_hijack = 1
  49. streetev_bf = 30
  50. streetev_pantie = 5
  51. streetev_mistmeet = 5
  52. if housr = 0 and tanwork = 0 and student = 0:
  53. streetev_home = 1
  54. $streetev_home = 'the train station'
  55. end
  56. else
  57. $streetev_title = '<center><b>in dark</b>'
  58. streetev_rape = 10
  59. streetev_rob = 1
  60. streetev_hijack = 1
  61. streetev_bf = 90
  62. streetev_pantie = 10
  63. end
  64. if lesbiday >= daystart + 21 and RAND(0,100) < streetev_mistmeet and lesbiQW >= 11 and hour >= 8 and hour < 21 and tanga = 1 and month > 2 and month ! 12 and sub > 0:gt 'lesbimistress', 'mistmeet'
  65. if flag_rape_1 = 1:
  66. flag_rape_1 = 0
  67. 'You stopped while you see light from streets. Breath and wincing from the pain in the pussy, thought: «Go home and immediately go to bed, no one will notice, and I won`t tell anyone», - decided you: «if I do not fly from this monster.'
  68. elseif flag_rape_1 = 2:
  69. flag_rape_1 = 0
  70. 'You woke up from the thoughts in the center of streets. You strange your behavior, yet you got raped. But you had fun and not even particularly worried about it. Well, just a slight concern about the orgasm. You even like it. '
  71. end
  72. streetrand = rand(0, 100)
  73. if streetrand < streetev_rape and hour <= 3:
  74. cla
  75. *clr
  76. '<<$streetev_title>>'
  77. '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."'
  78. act 'Useless to resist':
  79. gs 'dinsexFX'
  80. cla
  81. *clr
  82. dynamic $CatName, 'Rapist'
  83. dick = rand (8, 20)
  84. silavag = 0
  85. pose = 3
  86. guy += 1
  87. '<center><img src="images/picV/dogging.jpg"></center>'
  88. if prezik > 0:
  89. protect = 2
  90. prezik -= 1
  91. 'You give him a condom. "At least wear protection asshole. I don''t want a bastards child.", you tell him. He nods in silence, then puts it on.'
  92. end
  93. dynamic $vagstart2
  94. '"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.'
  95. dynamic $vagend
  96. act 'Leave':gt $curloc
  97. end
  98. act 'Fight':
  99. cla
  100. $boy = 'Rapist'
  101. !!stats
  102. strenV = 100
  103. speedV = 50
  104. agilV = 40
  105. reactV = 40
  106. vitalV = 50
  107. intelV = 10
  108. willV = 10
  109. !!skills
  110. magikV = 100
  111. boxingV = 50
  112. shootV = 100
  113. !!parameters
  114. healthV = vitalV * 10 + strenV * 5
  115. mannaV = intelV * 10 + magikV * 10
  116. willpowerV = willV * 10
  117. BonusAtakV = 0
  118. BonusDefV = 0
  119. !!Programme of Action
  120. program = 0
  121. RapistFight = 1
  122. if spellavtoklon = 1:klon = 3
  123. if spellbefshild = 1:defence = 500
  124. gt 'fight', 'start'
  125. end
  126. streetrand=-1 & exit
  127. end
  128. streetrand = rand(0, 100)
  129. if streetrand < streetev_rob and money >= 1000 and daystart >= 10 and hour <= 3:
  130. cla
  131. *clr
  132. '<<$streetev_title>>'
  133. 'Suddenly you are attacked by a robber'
  134. act 'Don''t fight, just give him your money':
  135. cla
  136. clr
  137. money = 0
  138. gs 'stat'
  139. 'He took all the money you had on you'
  140. act 'Leave':gt $curloc
  141. end
  142. act 'Fight':
  143. cla
  144. 'The robber throws heavy insults at you.'
  145. act 'Fight':
  146. $boy = 'Robber'
  147. !!stats
  148. strenV = 100
  149. speedV = 50
  150. agilV = 40
  151. reactV = 40
  152. vitalV = 50
  153. intelV = 10
  154. willV = 10
  155. !!skills
  156. magikV = 100
  157. boxingV = 50
  158. shootV = 100
  159. !!parameters
  160. healthV = vitalV * 10 + strenV * 5
  161. mannaV = intelV * 10 + magikV * 10
  162. willpowerV = willV * 10
  163. BonusAtakV = 0
  164. BonusDefV = 0
  165. !!Programme of Action
  166. program = 0
  167. RapistFight = 1
  168. if spellavtoklon = 1:klon = 3
  169. if spellbefshild = 1:defence = 500
  170. gt 'fight', 'start'
  171. end
  172. end
  173. streetrand = -1 & exit
  174. end
  175. streetrand = rand(0, 100)
  176. if streetrand < streetev_hijack and money >= 1000 and daystart >= 10 and hour <= 3:
  177. cla
  178. *clr
  179. '<<$streetev_title>>'
  180. 'You have been robbed. A thief grapped your purse and ran away.'
  181. act 'Leave it, I can''t catch him':
  182. cla
  183. clr
  184. money = 0
  185. gs 'stat'
  186. act 'That jackass':gt $curloc
  187. end
  188. act 'Catch this asswipe and then fuck him up':
  189. if speed < 55 or agil < 55 or vital < 55:
  190. cla
  191. money = 0
  192. clr
  193. gs 'stat'
  194. act 'He was faster than you and you lost sight of him':gt $curloc
  195. else
  196. $boy = 'Rapist'
  197. !!stats
  198. strenV = 100
  199. speedV = 50
  200. agilV = 40
  201. reactV = 40
  202. vitalV = 50
  203. intelV = 10
  204. willV = 10
  205. !!skills
  206. magikV = 100
  207. boxingV = 50
  208. shootV = 100
  209. !!parameters
  210. healthV = vitalV * 10 + strenV * 5
  211. mannaV = intelV * 10 + magikV * 10
  212. willpowerV = willV * 10
  213. BonusAtakV = 0
  214. BonusDefV = 0
  215. !!Programme of Action
  216. program = 0
  217. RapistFight = 1
  218. if spellavtoklon = 1:klon = 3
  219. if spellbefshild = 1:defence = 500
  220. gt 'fight', 'start'
  221. end
  222. end
  223. streetrand=-1 & exit
  224. end
  225. streetrand = rand(0, 100)
  226. if streetrand < streetev_bf and bfa < 1:
  227. vnerand = rand(0, 1200)
  228. if vnerand <= vnesh:
  229. gs 'boy'
  230. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
  231. 'The guy introduces himself as <<$boy>> and asked for your telephone number.'
  232. act 'Tell him your number':
  233. cla
  234. gs 'boyfrend', 'start'
  235. stopboy = 0
  236. '<<$boyA>> takes your number and leaves.'
  237. act 'complete the walk':gt $curloc
  238. end
  239. end
  240. end
  241. if shantpopala > 0:
  242. cla
  243. *clr
  244. hour += 8
  245. spafinloc = 14
  246. gs 'cum_manage'
  247. spafinloc = 4
  248. gs 'cum_manage'
  249. spafinloc = 12
  250. gs 'cum_manage'
  251. spafinloc = 11
  252. gs 'cum_manage'
  253. spafinloc = 7
  254. gs 'cum_manage'
  255. spafinloc = 3
  256. gs 'cum_manage'
  257. fingal += 1
  258. guy += 2
  259. rape += 1
  260. sex += 1
  261. bj += 1
  262. anal += 1
  263. shantpopala -= 1
  264. '<center><img src="images/img/centr/rape.jpg"></center>'
  265. '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.'
  266. '"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.'
  267. '"No...what? What the hell is going on? I don''t know what you''re talking about!", you try to explain.'
  268. '"Don''t lie to use you stupid bitch.", as he said that, he hits you on your head and you pass out.'
  269. '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.'
  270. 'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.'
  271. '"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.'
  272. '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.'
  273. '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.'
  274. act 'Leave':gt $curloc
  275. streetrand=-1 & exit
  276. end
  277. if tanga = 0 and PCloSkirt > 2 and hour > 6 and hour <= 20:
  278. nurand = rand(0, 100)
  279. if nurand >= streetev_pantie:
  280. manna -= 5
  281. SUB += 1
  282. horny += SUB
  283. 'You hear a deliberately loud whisper from grandmothers on the bench, "That whore! Walks in a short skirt and no panties, everyone can see her ass!"'
  284. 'You blush in shame from the old ladies caustic remarks.'
  285. end
  286. end
  287. gs 'events', 'street_cum'
  288. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  289. !start home-related events check
  290. if streetev_home = 1:
  291. if workDolgDay <= 0 and workDolg > 0:
  292. cls
  293. gs 'stat'
  294. gs 'outdoors'
  295. workDisk = 0
  296. '<center><img src="images/sauna/bug.jpg"></center>'
  297. 'Near the entrance to your home 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 debts."'
  298. if money >= workDolg:
  299. money -= workDolg
  300. workDolg = 0
  301. 'You give the money to the guys, they count it.'
  302. act 'Leave':gt $curloc
  303. streetrand=-1 & exit
  304. else
  305. if money + stolmoney + karta >= workDolg:
  306. money += stolmoney + karta
  307. stolmoney = 0
  308. karta = 0
  309. money -= workDolg
  310. workDolg = 0
  311. '"I have enough at home. Follow me.", you say, going up to your apartment. You quickly rush inside, take the money out of the drawer and go back to pay them. They count it, look at each other nod, then leave.'
  312. act 'Leave':gt $curloc
  313. streetrand=-1 & exit
  314. else
  315. money += stolmoney + karta
  316. stolmoney = 0
  317. karta = 0
  318. workDolg -= money
  319. money = 0
  320. workDolg += 10000
  321. 'You tell them that you don''t have enough money. They smack you, push you into your apartment and search everything. They find your stash and plunder it.'
  322. 'The brutes take everything that you have. Then explain your situation. In short, you have a dubt of <<workDolg>>. Your debt has grown by 10k, and since you can not pay off, they will help you. The brutes drag you into the car and throw you into the back seat. You are driven somewhere.'
  323. act 'Out of the car':
  324. cls
  325. minut += 30
  326. gs 'stat'
  327. 'You are at the sauna. The brutes drag you into a room and start to explain. "You''re going to live here and work until you have cleared your debt. All clear? Try to contact the authorities or escape, we''ll put a bullet in your head and bury you in the woods, understand?"'
  328. 'Your frightened and nod, realizing that they are not joking.'
  329. act 'Look around':gt 'saunaroom'
  330. end
  331. end
  332. end
  333. streetrand=-1 & exit
  334. end
  335. if workDiskAtkPlayer = 1:
  336. workDisk = 1
  337. workDiskAtkPlayer = 0
  338. '<center><img src="images/sauna/car.jpg"></center>'
  339. 'You are grabed and thrown into the back seat of the car. Right and left of you sit two angry Indian men. In the front seat - the porn studio manager. "Where is the envelope?" he demands.'
  340. if konvert = 0:
  341. workDolg = 200000
  342. workDolgDay = 7
  343. '"Stolen."'
  344. '"WHAT! But how could this happen! Do you realise, what you have done?! I''ll give you until next Friday. In my office, you bring me 200,000 <b>₽</b>. If not - Pain itself."'
  345. else
  346. konvert = 0
  347. money += 5000
  348. 'You give the envelope. He warns you that such delays in the future may be harmful to your business relationships.'
  349. end
  350. act 'Leave':gt $curloc
  351. streetrand=-1 & exit
  352. end
  353. if vladimirday = daystart and vladimirQW = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet2''">Before your entrance sits an Audi and standing beside it waits your indifferent driver Glory</a>.'
  354. if vladimirday = daystart and vladimirQW = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet3''">Before your entrance sits an Audi and standing beside it waits your indifferent driver Glory</a>.'
  355. if magik >= 1 and mainQW = 0 and StoryLine = 0:
  356. cla
  357. *clr
  358. mainQW = 1
  359. '<center><img src="images/qwest/main.jpg"></center>'
  360. 'At the entrance you see Karin and Juugo. Karin adjusts glasses and looks around, Juugo seems to have his head in the clouds and a strange look on his face as his tattoos are not visible.'
  361. 'Karin closely looks around you, "I felt a burst of energy. Were you attacked by a magician?"'
  362. act 'No':gt 'mainQW'
  363. streetrand=-1 & exit
  364. end
  365. if hour = meethour:
  366. if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boyA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
  367. if svidanieB = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boyA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
  368. if svidanieC = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boyA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
  369. end
  370. end
  371. !end home-related events
  372. --- street_event ---------------------------------