1
0

street_event 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459
  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, pcs_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/locations/city/residential/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/locations/city/citycenter/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>City industrial region</b><br><img src="images/locations/city/industrial/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></center>'
  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. gs 'npcgeneratec', 0, 'Rapist', rand(18,45)
  79. gs 'boyStat', $npclastgenerated
  80. act 'Useless to resist':
  81. gs 'dinsexFX'
  82. cla
  83. *clr
  84. pose = 3
  85. guy += 1
  86. '<center><img src="images/shared/sex/vag/doggy/dogging.jpg"></center>'
  87. if prezik > 0:
  88. protect = 2
  89. dynamic $prezik
  90. '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.'
  91. end
  92. dynamic $vagstart2
  93. '"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.'
  94. gs 'arousal', 'vaginal', 10, 'sub'
  95. gs 'stat'
  96. dynamic $vagend
  97. gs 'arousal', 'end'
  98. gs 'stat'
  99. act 'Leave':gt $curloc
  100. end
  101. act 'Fight':
  102. cla
  103. !!stats
  104. strenV = 100
  105. speedV = 50
  106. agilV = 40
  107. reactV = 40
  108. vitalV = 50
  109. intelV = 10
  110. willV = 10
  111. !!skills
  112. magikV = 100
  113. boxingV = 50
  114. shootV = 100
  115. !!parameters
  116. healthV = vitalV * 10 + strenV * 5
  117. mannaV = intelV * 10 + magikV * 10
  118. willpowerV = willV * 10
  119. BonusAtakV = 0
  120. BonusDefV = 0
  121. !!Programme of Action
  122. program = 0
  123. RapistFight = 1
  124. if spellavtoklon = 1:klon = 3
  125. if spellbefshild = 1:defence = 500
  126. gt 'fight', 'start'
  127. end
  128. if succubusQW = 5:
  129. !!Used if this was a random encounter instead of active hunting
  130. Act 'Lure him in and feed (this can take a lot of time)':
  131. cla
  132. 'You wait until he has dragged you almost to the bushes before turning on him.'
  133. act 'Continue': gt 'succubus', 'RapistFight'
  134. end
  135. end
  136. streetrand=-1 & exit
  137. end
  138. streetrand = rand(0, 100)
  139. if streetrand < streetev_rob and money >= 1000 and daystart >= 10 and hour <= 3:
  140. cla
  141. *clr
  142. '<<$streetev_title>>'
  143. 'Suddenly you are attacked by a robber'
  144. act 'Don''t fight, just give him your money':
  145. cla
  146. clr
  147. money = 0
  148. gs 'stat'
  149. 'He took all the money you had on you'
  150. act 'Leave':gt $curloc
  151. end
  152. act 'Fight':
  153. cla
  154. 'The robber throws heavy insults at you.'
  155. act 'Fight':
  156. gs 'npcgeneratec', 0, 'Robber', rand(18,45)
  157. gs 'boyStat', $npclastgenerated
  158. !!stats
  159. strenV = 100
  160. speedV = 50
  161. agilV = 40
  162. reactV = 40
  163. vitalV = 50
  164. intelV = 10
  165. willV = 10
  166. !!skills
  167. magikV = 100
  168. boxingV = 50
  169. shootV = 100
  170. !!parameters
  171. healthV = vitalV * 10 + strenV * 5
  172. mannaV = intelV * 10 + magikV * 10
  173. willpowerV = willV * 10
  174. BonusAtakV = 0
  175. BonusDefV = 0
  176. !!Programme of Action
  177. program = 0
  178. RapistFight = 1
  179. if spellavtoklon = 1:klon = 3
  180. if spellbefshild = 1:defence = 500
  181. gt 'fight', 'start'
  182. end
  183. end
  184. streetrand = -1 & exit
  185. end
  186. streetrand = rand(0, 100)
  187. if streetrand < streetev_hijack and money >= 1000 and daystart >= 10 and hour <= 3:
  188. cla
  189. *clr
  190. '<<$streetev_title>>'
  191. 'You have been robbed. A thief grapped your purse and ran away.'
  192. act 'Leave it, I can''t catch him':
  193. cla
  194. clr
  195. money = 0
  196. gs 'stat'
  197. act 'That jackass':gt $curloc
  198. end
  199. act 'Catch this asswipe and then fuck him up':
  200. if pcs_react < 55 or pcs_agil < 55 or pcs_vital < 55:
  201. cla
  202. money = 0
  203. clr
  204. gs 'stat'
  205. act 'He was faster than you and you lost sight of him':gt $curloc
  206. else
  207. gs 'npcgeneratec', 0, 'Purse Snatcher', rand(18,45)
  208. gs 'boyStat', $npclastgenerated
  209. !!stats
  210. strenV = 100
  211. speedV = 50
  212. agilV = 40
  213. reactV = 40
  214. vitalV = 50
  215. intelV = 10
  216. willV = 10
  217. !!skills
  218. magikV = 100
  219. boxingV = 50
  220. shootV = 100
  221. !!parameters
  222. healthV = vitalV * 10 + strenV * 5
  223. mannaV = intelV * 10 + magikV * 10
  224. willpowerV = willV * 10
  225. BonusAtakV = 0
  226. BonusDefV = 0
  227. !!Programme of Action
  228. program = 0
  229. RapistFight = 1
  230. if spellavtoklon = 1:klon = 3
  231. if spellbefshild = 1:defence = 500
  232. gt 'fight', 'start'
  233. end
  234. end
  235. streetrand=-1 & exit
  236. end
  237. streetrand = rand(0, 100)
  238. if streetrand < streetev_bf and bfa < 1:
  239. vnerand = rand(0, 1200)
  240. if vnerand <= pcs_apprnc:
  241. gs 'boy'
  242. 'To you came <<$boybody>> <<$boybod>> <<$boyface>>. he <<$boyClo>>'
  243. 'The guy introduces himself as <<$boydesc>> and asked for your telephone number.'
  244. act 'Tell him your number':
  245. cla
  246. gs 'boyfrend', 'start'
  247. stopboy = 0
  248. '<<$boydescA>> takes your number and leaves.'
  249. act 'complete the walk':gt $curloc
  250. end
  251. end
  252. end
  253. if shantpopala > 0:
  254. cla
  255. *clr
  256. hour += 8
  257. spafinloc = 14
  258. gs 'cum_manage'
  259. spafinloc = 4
  260. gs 'cum_manage'
  261. spafinloc = 12
  262. gs 'cum_manage'
  263. spafinloc = 11
  264. gs 'cum_manage'
  265. spafinloc = 7
  266. gs 'cum_manage'
  267. spafinloc = 3
  268. gs 'cum_manage'
  269. fingal += 1
  270. guy += 2
  271. rape += 1
  272. shantpopala -= 1
  273. '<center><img src="images/locations/city/shared/sex/rape.jpg"></center>'
  274. '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.'
  275. '"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.'
  276. '"No...what? What the hell is going on? I don''t know what you''re talking about!", you try to explain.'
  277. '"Don''t lie to use you stupid bitch.", as he said that, he hits you on your head and you pass out.'
  278. '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.'
  279. 'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.'
  280. '"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.'
  281. '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.'
  282. '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.'
  283. gs 'arousal', 'bj', 40, 'group', 'rough', 'sub'
  284. gs 'arousal', 'vaginal', 40, 'group', 'rough', 'sub'
  285. gs 'arousal', 'anal', 40, 'group', 'rough', 'sub'
  286. minut -= 40
  287. gs 'arousal', 'end'
  288. gs 'stat'
  289. act 'Leave':gt $curloc
  290. streetrand=-1 & exit
  291. end
  292. if tanga = 0 and PCloSkirt > 2 and hour > 6 and hour <= 20:
  293. nurand = rand(0, 100)
  294. if nurand >= streetev_pantie:
  295. pcs_mood -= 5
  296. SUB += 1
  297. pcs_horny += SUB
  298. gs 'stat'
  299. '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!"'
  300. 'You blush in shame from the old ladies caustic remarks.'
  301. end
  302. end
  303. gs 'events', 'street_cum'
  304. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  305. !start home-related events check
  306. if streetev_home = 1:
  307. if workDolgDay <= 0 and workDolg > 0:
  308. cls
  309. gs 'stat'
  310. workDisk = 0
  311. '<center><img src="images/locations/city/residential/street/bug.jpg"></center>'
  312. '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."'
  313. if money >= workDolg:
  314. money -= workDolg
  315. workDolg = 0
  316. 'You give the money to the guys, they count it.'
  317. act 'Leave':gt $curloc
  318. streetrand=-1 & exit
  319. else
  320. if money + stolmoney + karta >= workDolg:
  321. money += stolmoney + karta
  322. stolmoney = 0
  323. karta = 0
  324. money -= workDolg
  325. workDolg = 0
  326. '"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.'
  327. act 'Leave':gt $curloc
  328. streetrand=-1 & exit
  329. else
  330. money += stolmoney + karta
  331. stolmoney = 0
  332. karta = 0
  333. workDolg -= money
  334. money = 0
  335. workDolg += 10000
  336. '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.'
  337. 'The brutes take everything that you have. Then explain your situation. In short, you have a debt 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.'
  338. act 'Out of the car':
  339. cls
  340. minut += 30
  341. gs 'stat'
  342. '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?"'
  343. 'Your frightened and nod, realizing that they are not joking.'
  344. act 'Look around':gt 'saunaroom'
  345. end
  346. end
  347. end
  348. streetrand=-1 & exit
  349. end
  350. if workDiskAtkPlayer = 1:
  351. workDisk = 1
  352. workDiskAtkPlayer = 0
  353. '<center><img src="images/locations/city/residential/street/car.jpg"></center>'
  354. '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.'
  355. if konvert = 0:
  356. workDolg = 200000
  357. workDolgDay = 7
  358. '"Stolen."'
  359. '"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."'
  360. else
  361. konvert = 0
  362. money += 5000
  363. 'You give the envelope. He warns you that such delays in the future may be harmful to your business relationships.'
  364. end
  365. act 'Leave':gt $curloc
  366. streetrand=-1 & exit
  367. end
  368. 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>.'
  369. 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>.'
  370. if pcs_magik >= 1 and mainQW = 0 and StoryLine = 0:
  371. cla
  372. *clr
  373. mainQW = 1
  374. '<center><img src="images/locations/city/citycenter/lab/event/main.jpg"></center>'
  375. 'At the entrance you see Tatiana and Juugo. Tatiana 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.'
  376. 'Tatiana closely looks around you, "I felt a burst of energy. Were you attacked by a magician?"'
  377. act 'No':gt 'mainQW'
  378. streetrand=-1 & exit
  379. end
  380. if hour = meethour:
  381. if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boydescA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
  382. if svidanieB = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boydescA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
  383. if svidanieC = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boydescA>></a> waits next to the entrance to <<$streetev_home>>.</b>'
  384. end
  385. end
  386. !end home-related events
  387. --- street_event ---------------------------------