1
0

street_event.qsrc 86 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846
  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. shantpopala: 100% if shantpopala>0
  11. 2. home-related events: check if player live here (workDolgDay, vladimirday, pcs_magik >= 1 and mainQW = 0, hour = meethour).
  12. [street]: home_owned[1] > 0 for korr
  13. [down]:tanwork = 1 for house, student > 0 for dorm
  14. [Nord]:none for now. use (train station) as position, if no home in city.
  15. Known issue: boyfriend/vladimir may wait you in both place, if you rent house in [street] and study in university/work in Tanya
  16. ie. gt'street_event','home'
  17. }
  18. streetevent_hour = hour
  19. streetev_home = 0
  20. !!not sure what all this if and elseif below is for, but the images need to be changed to our new images for if it is day, night, winter etc. If they are going to be used. Since it has image calls.
  21. if $ARGS[0] = 'street':
  22. $streetev_title = '<center><b>Residential Area</b></center>'
  23. streetev_rob = 1
  24. streetev_hijack = 1
  25. streetev_bf = 50
  26. streetev_mistmeet = 15
  27. if home_owned[1] > 0:
  28. streetev_home = 1
  29. $streetev_home = 'near the entrance to your apartment block'
  30. end
  31. elseif $ARGS[0] = 'down':
  32. $streetev_title = '<center><b>City center</b></center>'
  33. streetev_rob = 0
  34. streetev_hijack = 2
  35. streetev_bf = 90
  36. streetev_mistmeet = 20
  37. if tanwork = 1:
  38. streetev_home = 1
  39. $streetev_home = 'near the entrance to your home'
  40. end
  41. elseif $ARGS[0] = 'Nord':
  42. $streetev_title = '<center><b>City industrial region</b></center>'
  43. streetev_rob = 2
  44. streetev_hijack = 0
  45. streetev_bf = 30
  46. streetev_mistmeet = 5
  47. if home_owned[1] = 0 and tanwork = 0 and student = 0:
  48. streetev_home = 0
  49. $streetev_home = 'by the train station'
  50. end
  51. elseif $ARGS[0] = 'pavResidential':
  52. $streetev_title = '<center><b>Pavlovsk residential area</b></center>'
  53. streetev_rob = 1
  54. streetev_hijack = 1
  55. streetev_bf = 50
  56. streetev_mistmeet = 15
  57. if home_owned[2] = 1:
  58. streetev_home = 1
  59. $streetev_home = 'outside your apartment block'
  60. end
  61. elseif $ARGS[0] = 'pavCommercial':
  62. $streetev_title = '<center><b>Pavlovsk high street</b></center>'
  63. streetev_rob = 0
  64. streetev_hijack = 2
  65. streetev_bf = 90
  66. streetev_mistmeet = 20
  67. if home_owned[1] = 0 and tanwork = 0 and student = 0:
  68. streetev_home = 0
  69. $streetev_home = 'on the high street'
  70. end
  71. elseif $ARGS[0] = 'pavIndustrial':
  72. $streetev_title = '<center><b>Pavlovsk Industrial District</b></center>'
  73. streetev_rob = 2
  74. streetev_hijack = 0
  75. streetev_bf = 30
  76. streetev_mistmeet = 5
  77. elseif $ARGS[0] = 'island':
  78. $streetev_title = '<center><b>Island</b></center>'
  79. streetev_rob = 0
  80. streetev_hijack = 2
  81. streetev_bf = 90
  82. streetev_mistmeet = 20
  83. if student > 0:
  84. streetev_home = 1
  85. $streetev_home = 'near the entrance to your dorm'
  86. end
  87. else
  88. $streetev_title = '<center><b>in dark</b></center>'
  89. streetev_rape = 10
  90. streetev_rob = 1
  91. streetev_hijack = 1
  92. streetev_bf = 90
  93. end
  94. if $currentpursetype = 'dolls' or $currentpursetype = 'kats':
  95. if streetev_rob > streetev_hijack:
  96. streetev_rob += 1
  97. else
  98. streetev_hijack += 1
  99. end
  100. elseif $currentpursetype = 'fashionista':
  101. if streetev_rob > streetev_hijack:
  102. streetev_rob += 2
  103. else
  104. streetev_hijack += 2
  105. end
  106. elseif $currentpursetype = 'boutique':
  107. if streetev_rob > streetev_hijack:
  108. streetev_rob += 3
  109. else
  110. streetev_hijack += 3
  111. end
  112. end
  113. if money >= 2500:
  114. if streetev_rob > streetev_hijack:
  115. streetev_rob += money / 2500
  116. else
  117. streetev_hijack += money / 2500
  118. end
  119. end
  120. !!The chance to get robbed is capped at 10%
  121. if streetev_rob > 10: streetev_rob = 10
  122. if streetev_hijack > 10: streetev_hijack = 10
  123. if $ARGS[1] = 'extras':
  124. if rand(0, 100) < streetev_bf and pcs_lover < 3 and streetbfhour ! hour:
  125. streetbfhour = hour
  126. vnerand = rand(0, 1200)
  127. !! 5% chance to meet a girl if no previous lesbian experience, up to a max of 25% with lots of experience
  128. lesbian_lover = (rand(1,100) <= 25 - (20/(lesbian + 1)))
  129. if vnerand <= pcs_apprnc and lesbian_lover:
  130. gt 'dateF', 'start'
  131. elseif vnerand <= pcs_apprnc:
  132. gt 'dateM', 'start'
  133. end
  134. end
  135. if streetev_home = 1:
  136. if vladimirday = daystart and vladimirQW = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet'',''2''">There''s an Audi parked in front of your building and standing beside it you notice Vladimir</a>.'
  137. if vladimirday = daystart and vladimirQW = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet'',''3''">There''s an Audi parked in front of your building and standing beside it you notice Vladimir</a>.'
  138. if hour = meethour[0]:
  139. if svidanie[0] = 1:'<b><a href="exec:lover_number = 0 & gt ''lover_meet'', ''start''"><<$loverdesc[0]>></a> is waiting <<$streetev_home>>.</b>'
  140. end
  141. if hour = meethour[1]:
  142. if svidanie[1] = 1:'<b><a href="exec:lover_number = 1 & gt ''lover_meet'', ''start''"><<$loverdesc[1]>></a> is waiting <<$streetev_home>>.</b>'
  143. end
  144. if hour = meethour[2]:
  145. if svidanie[2] = 1:'<b><a href="exec:lover_number = 2 & gt ''lover_meet'', ''start''"><<$loverdesc[2]>></a> is waiting <<$streetev_home>>.</b>'
  146. end
  147. end
  148. !! Divorce Party
  149. if (hour > 9 or hour < 3) and $loc ! 'pavIndustrial' and divorce_party = 0 and hotcat > 4 and rand(1,100) > 95:
  150. *clr & cla
  151. menu_off = 1
  152. gs 'stat'
  153. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/limo.jpg"></center>'
  154. *nl
  155. 'You''re walking down the street when a car speeds past you. It''s nothing to be particularly interested in until it suddenly comes to a squealing stop ahead. You slow your pace and watch it idle for a few moments, only just now noticing the muffled music coming from inside it as you near it. The window rolls down and the sound of an obnoxious pop song spills out, followed by a woman. Her whole top half is leaning out the car window which almost leads to her falling out, but a pair of hands from inside the car steady her. "Ah fucking shit tits...<i>fuck</i>," she curses as she spills the drink in her hand onto the sidewalk. "Hey...hey you! Come here for a s-sec," she calls to you with a beckoning wave of her free hand.'
  156. act '"Uhm..."':
  157. *clr & cla
  158. minut += 5
  159. gs 'stat'
  160. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/limo.jpg"></center>'
  161. *nl
  162. 'Understandably you hesitate but she picks up on that and shakes her head wildly, "Don''t worry, I''m not gonna, like, shnatch you up or a-anything, I just gotta queshtion!" If it wasn''t obvious before, it''s clear now that the woman is drunk. But that doesn''t mean she''s a bad person, and judging from the limo chauffeuring her and her friends around, you could think of worse people to kidnap you. You walk over to her and she welcomes you with an excited giggle. "I''m Marta," she introduces herself. "And you see my friend here?" She moves to give you a peek into the limo filled with two other women and points out the one in red before continuing. "That''s Eva and her lying, whore of a husband had been cheating on her with some...some cheap, loose pussy, dog faced CUNT!" she shouts angrily before taking a deep breath. "So she divorced his sorry ass and now she''s a free who deserves ONLY the best things in life! And you know what one of those things is?" she asks and you awkwardly shake your head.'
  163. *nl
  164. '"It''s to make out with a pretty little thing like you," Marta grins and gives you (a very poor attempt at) a wink. "So? What do you say? Wanna give her a little kiss?"'
  165. act 'Keep walking': gt $loc, $metka
  166. act 'Agree':
  167. divorce_party = 1
  168. *clr & cla
  169. gs 'arousal', 'kiss', 5
  170. gs 'stat'
  171. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/makeout.jpg"></center>'
  172. *nl
  173. 'You look behind her and see Eva blushing, trying to hide behind the rim of her cup as she takes a drink. She''s actually really pretty and younger than you thought. You''re not sure why her husband would cheat on her, but you''re not going to pass up the opportunity to have some fun with her. "You''re right, she does deserve the <i>best</i> and I can give her just that," you purr with a knowing smile.'
  174. *nl
  175. 'In an instant, the other women are cheering and giggling as they lead Eva to the window. She tries to reluctantly argue against this, but she makes no real effort to stop them. "Uhm...hi?" she says sheepishly, her eyes avoiding yours as she bites her lip nervously. "My name is Eva..."'
  176. '"Oh, I know..." Your hand cups her cheek gently and you guide her head back, her gaze now meeting yours. "I''m <<$pcs_nickname>>," you say before leaning in to kiss her. As soon as your lips meet, any resistance she had before melts away. Her lips part and your tongues intertwine. You can taste the sweet alcohol she had been drinking as she eagerly presses against you with a soft moan. When you finally pull away, Eva is breathless with a dazed yet satisfied look.'
  177. '"Holy shit that was <i>amazing</i>!" Marta laughs as Eva collapses back into the car seat. Marta is back at the window with a wide grin, "Look, I even caught it on camera!" She holds up her phone and you see a shaky but still rather clear video of the two of you making out. "Hey, you know what, why don''t you come out with us? I know Eva would love to have you come!" Marta winks again, obviously hinting at the double meaning there.'
  178. act 'Refuse and leave':
  179. gs 'arousal', 'end'
  180. gt $loc, $metka
  181. end
  182. act 'Join them':
  183. *clr & cla
  184. alko += 3
  185. pcs_horny += 5
  186. minut += 15
  187. gs 'stat'
  188. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/drinks.jpg"></center>'
  189. *nl
  190. 'As soon as you enter the limo, Marta is shoving a red cup filled with a strong, yet sweet mixed drink into your hands. "C''mon, have a drink!" You have a feeling she won''t take no for an answer, so you start drinking with everyone else. You spend your time getting to know everyone, learning that the other woman is called Alla. Marta often leads the conversation so you just sit back and enjoy her antics, and while you do, you sometimes catch Eva eying you hungrily. It isn''t long before you arrive at the club. You don''t recognize the area and you start to wonder where you are exactly, but you''re given no time to dwell on it as you''re ushered past the long line of people waiting and led through the club to a private room upstairs.'
  191. *nl
  192. 'Just outside the door, Marta stops everyone. "And now, what you''ve all been waiting for..."'
  193. '"You''re the only one that knows what''s going on, you didn''t tell us anything!" Alla points out.'
  194. '"Okay, what <i>I''ve</i> been waiting for," Marta teases before slowly opening the door.'
  195. act 'Go inside':
  196. *clr & cla
  197. minut += 5
  198. pcs_horny += 10
  199. gs 'stat'
  200. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/d3.jpg"></center>'
  201. *nl
  202. '"Oh my God, Marta!" Eva exclaims as her and Alla squeal with delight at the sight of a tall, dark and handsome man standing in the middle of the room, proudly displaying his bulging erection as it presses against his briefs. "A male stripper? Really?!"'
  203. '"That''s right! This is Yefim and he''s gonna make sure you forget you were ever married," Marta tells Eva before sitting her down in front of the man who begins to straddle her. The three of you surround the two of them, clapping and cheering as he dances and grinds against Eva, his erection just a few inches from her face. While Eva is being coy about it, you can''t help but think about just what he''s packing in those briefs.'
  204. *nl
  205. '"Look at him, he''s hard just for you!"'
  206. '"Why not give him a <i>hand</i>, Eva!"'
  207. '"Don''t just leave him like that!"'
  208. *nl
  209. 'You end up so distracted by your thoughts that you almost don''t feel Marta nudging you. "We gotta get her in the mood, <<$pcs_nickname>>."'
  210. act 'Help Eva relax':
  211. *clr & cla
  212. minut += 5
  213. pcs_horny += 10
  214. gs 'stat'
  215. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/d4.jpg"></center>'
  216. *nl
  217. 'You place your hands on Eva''s shoulders, "Don''t worry, just relax..." you whisper against her ear as your hands slide down to her chest. You massage her tits gently through her top, smiling when you hear her let out a breathy moan. Feeling her nipples start to poke through the thin fabric, you lightly trace your finger around each one until they''re stiff and hard. "See, isn''t this fun?" Slowly, you pull open Eva''s dress to expose her bare chest. A quick hard pinch to her nipples causes her to whimper and squirm as you continue to play with her tits.'
  218. *nl
  219. 'Marta and Alla are quick to catch on. Following your lead, they start to pull and tug not just on her clothes, but also on Yefim''s red briefs until his cock is freed and twitching eagerly in Eva''s face.'
  220. *nl
  221. '"Don''t you want to have a little taste?" Yefim asks while stroking his dick teasingly. Eva doesn''t need any more convincing. She leans forward and runs her tongue along the underside of his shaft before her lips wrap around the tip. Bobbing her head, she swallows every inch of this stranger''s cock with ease as you and the others watch. "Hey babe, don''t get too carried away, we just started," Marta giggles as she gently pushes Yefim away from her friend, his cock coming free from Eva''s mouth with a wet pop. Marta leads him to the couch where she has him lay down before kneeling beside him and calling Eva over.'
  222. act 'Watch':
  223. *clr & cla
  224. gs 'arousal', 'masturbate', 10
  225. gs 'stat'
  226. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/d5.jpg"></center>'
  227. *nl
  228. 'The two of them wrap their lips around each side of Yefim''s throbbing cock, sliding up and down, nibbling and sucking on every veiny inch. You feel the heat between your legs growing as you watch one focus on the reddened tip while the other kisses a trail down to his balls. He throws his head back and lets out a grunt, one of his hands gripping the back of Eva''s head as she laps up the leaking precum.'
  229. *nl
  230. 'Overwhelmed by your lust, you rub your legs together, itching to touch yourself. You look around the room and are relieved to see Alla had the same idea as you as she''s sitting down with her legs spread, playing with herself while watching her friends. Without hesitation, you slide your own hand between your legs and shiver as your fingers glide along your slick folds, spreading them to find your clit. You follow the same pace as Eva and Marta, when they slowly kiss along his length, flicking the tips of their tongue along his glans, you take your time with long, hard against your clit. As soon as you see he''s had enough of their teasing and forces Marta to deep throat him fast and hard, fucking her mouth while Eva watches, you begin fingering yourself frantically. You''re edging closer and closer but you get an amazing idea when you see him throw his head back and groan loudly.'
  231. act 'Sit on his face':
  232. *clr & cla
  233. minut += 15
  234. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/d6.jpg"></center>'
  235. *nl
  236. '"Want to put that mouth to better use?" You tease with a smile as you present your dripping wet pussy to Yefim. Licking his lips, he pulls you over and helps you straddle his face. He grips your thighs and holds you in place as his tongue delves between your swollen pussy lips. You tremble and gasp, his tongue expertly flicking and massaging your clit when he isn''t playing with your labia. You grind your hips down as the pleasure builds, crying out as you cum on his tongue. Your pussy clenches and your body tenses as you ride out the bliss.'
  237. *nl
  238. '"Alright, that''s enough," You hear Marta say. She watches you slide off his face with a smirk, taking a moment to admire how wet his lips are with your juices before turning her attention to Eva. "I don''t think he can hold out much longer, so why don''t we end this with a <i>bang</i>!" You don''t know when Alla finished, but she''s here pulling Eva aside to undress her. When they''re done, Yefim switches spots with Eva, with her now on her back. "Now keep those legs spread, babe," Marta says as Yefim positions himself between her legs.'
  239. $orgasm_or = 'yes'
  240. gs 'arousal', 'end'
  241. gs 'stat'
  242. act 'Enjoy the show':
  243. *clr & cla
  244. minut += 15
  245. gs 'stat'
  246. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/d7.jpg"></center>'
  247. *nl
  248. '"Fuck, you''re tight..." Yefim growls as he slides the first few inches of his cock inside her.'
  249. 'Eva inhales sharply as he slowly fills her. "Oh <i>fuck</i>!" she pants heavily as he sets a rhythm of steady, shallow thrusts.'
  250. 'Marta can''t keep from smiling as she watches her dear friend enjoying herself. "I know, it''s been awhile since you''ve been properly fucked..." she coos. "But like I said earlier...he''s going to fuck you until you can''t remember that bastard''s name."'
  251. 'Hearing this, Yefim pulls Eva''s hips down hard to slam into his, burying balls deep inside her in one stroke. She lets out a strangled moan as he pulls out to slam back into her again and again. Eva can barely manage a word out as she gasps and moans beneath him. You and the girls watch excitedly as he continues to pound into her with renewed vigor, having angled his hips to hit her sweet spot until her walls clench around him and she cums hard with a strained cry. Yefim thrusts a few more times before pulling out and shooting his load all over her flushed and sweaty body.'
  252. *nl
  253. '"Wow, you even managed to reach her tits," Marta amazes while pointing out the cum splattered across Eva''s chest. Yefim just chuckles and collapses back against the couch in exhaustion much like how Eva lay breathless and limp next to him, basking in the aftermath. "Well I think we need something to remember this night forever," Marta suggests before pulling out her phone. Carefully, you all help Eva to sit up and gather around her. "Say ''Jizz''!"'
  254. act 'Pose':
  255. *clr & cla
  256. minut += 15
  257. gs 'stat'
  258. '<center><img <<$set_imgh>> src="images/locations/shared/divorcee/d8.jpg"></center>'
  259. 'You all take a few to catch your breath and relax before cleaning yourselves up. "Hey, you were great tonight! I''m so glad we met you," Marta grins as she gives you a quick hug. "If you''re ready, I can drop you back home."'
  260. 'You nod and say your thanks and goodbyes to Yefim before heading back to the limo. The ride back is a lot quieter than earlier, with Eva and Marta sleeping against each other while Alla makes small talk with you until you arrive back home. With a small, tired smile, Alla hugs you goodbye and you take one last look at Marta and Eva before getting out.'
  261. act 'Leave': gt $loc, $metka
  262. end
  263. end
  264. end
  265. end
  266. end
  267. end
  268. end
  269. end
  270. end
  271. end
  272. end
  273. if $ARGS[1] = 'main':
  274. if lesbiday + 21 <= daystart and RAND(0,100) < streetev_mistmeet and lesbiQW >= 11 and hour >= 8 and hour < 21 and $pantyworntype ! 'none' and month > 2 and month ! 12 and sub > 0:gt 'lesbimistress', 'mistmeet'
  275. streetrand = rand(0, 100)
  276. !!start of old random street events that can always happen.
  277. !!Changing this event some and rewriting parts of it. I also want to change how often and when it can happen, based on clothes, time and if drunk. If drunk double the odds and for time it can happen from 24:00 to 04:00. This gets checked last after any other events could happen.
  278. !!town(pav or pushkin) normal clothes 1 in 50, if drunk 1 in 25. slutty clothes(clothes that cover everything but very short skirts revealing tops etc) 1 in 30, if drunk 1 in 15. bimbo/exhibitionist clothes 1 in 20, if drunk 1 in 10. naked 1 in 5, if drunk 1 in 2
  279. !!city normal clothes 1 in 40, if drunk 1 in 20. slutty clothes(clothes that cover everything but short skirts revealing tops etc) 1 in 20, if drunk 1 in 10, bimbo/exhibitionist clothes 1 in 10, if drunk 1 in 5. naked 1 in 2, if drunk always
  280. if $loc = 'pavResidential' or $loc = 'pavCommercial':
  281. if $clothingworntype = 'nude':
  282. if alko >= 6:
  283. streetev_rape = 50
  284. else
  285. streetev_rape = 20
  286. end
  287. elseif $clothingworntype = 'exhibit' or PCloBimbo = 1:
  288. if alko >= 6:
  289. streetev_rape = 10
  290. else
  291. streetev_rape = 5
  292. end
  293. elseif PCloExhibit > 30:
  294. if alko >= 6:
  295. streetev_rape = 3
  296. else
  297. streetev_rape = 6
  298. end
  299. else
  300. if alko >= 6:
  301. streetev_rape = 2
  302. else
  303. streetev_rape = 4
  304. end
  305. end
  306. else
  307. if $clothingworntype = 'nude':
  308. if alko >= 6:
  309. streetev_rape = 50
  310. else
  311. streetev_rape = 20
  312. end
  313. elseif $clothingworntype = 'exhibit' or PCloBimbo = 1:
  314. if alko >= 6:
  315. streetev_rape = 20
  316. else
  317. streetev_rape = 10
  318. end
  319. elseif PCloExhibit > 30:
  320. if alko >= 6:
  321. streetev_rape = 10
  322. else
  323. streetev_rape = 5
  324. end
  325. else
  326. if alko >= 6:
  327. streetev_rape = 2
  328. else
  329. streetev_rape = 5
  330. end
  331. end
  332. end
  333. if streetrand < streetev_rape and hour <= 3 and streetev_day ! daystart:
  334. *clr & cla
  335. menu_off = 1
  336. streetev_day = daystart
  337. '<<$streetev_title>>'
  338. '<center><img src="images/locations/shared/street/rapist.jpg"></center>'
  339. 'As you walk down the street, a man jumps out of the shadows and suddenly grabs you, as you''re caught off-guard he manages to drag you into a nearby alleyway. You try to scream but his strong hand covers your mouth. You attempt to get free but his other arm wraps around your waist and lifts you off the grounds, as he drags you further down the alleyway. Once in the alley he throws you violently to the ground, knocking the wind out of you, stunning you for a moment. "You better not scream bitch or I will make this a lot worse."'
  340. gs 'npcgeneratec', 0, 'Rapist', rand(18,45)
  341. gs 'boyStat', $npclastgenerated
  342. gs 'stat'
  343. act 'Submit to the rape':
  344. gs 'dinsexFX'
  345. *clr & cla
  346. pose = 3
  347. guy += 1
  348. '<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dogging.jpg"></center>'
  349. '<center><img src="images/locations/shared/street/alleynight.jpg"></center>'
  350. if $clothingworntype ! 'nude':
  351. 'You meekly don''t move or cry out. In the faint light you can see him grin as you obey him. "That''s right be a good little bitch and I''ll take it easy on you." He says as he unbuttons his pants and pulls out his rock hard cock. Without another word he grabs you and drags you to your feet, he turns you around, so your face is against the wall and he starts pulling your clothes aside to give him access.'
  352. else
  353. 'You meekly don''t move or cry out. In the faint light you can see him grin as you obey him. "Yeah I knew you wanted this, walking around naked, you were hoping some man would take you. Well you''re going to get your wish bitch." He says as he unbuttons his pants and pulls out his rock hard dick. Without another word he grabs you and drags you to your feet, he turns you around, so your face is against the wall.'
  354. end
  355. act 'Stay silent':
  356. cla
  357. *nl
  358. dynamic $vagstart2
  359. '"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.'
  360. gs 'arousal', 'vaginal', 10, 'sub'
  361. gs 'cum_call','',$boy,1
  362. gs 'arousal', 'end'
  363. gs 'stat'
  364. act 'Leave':gt $loc
  365. end
  366. act 'Please don''t get me pregnant':
  367. cla
  368. *nl
  369. if prezik > 0:
  370. protect = 2
  371. dynamic $prezik
  372. '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.'
  373. else
  374. 'You don''t have a condom and he just laughs at you'
  375. end
  376. dynamic $vagstart2
  377. '"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.'
  378. gs 'arousal', 'vaginal', 10, 'sub'
  379. gs 'cum_call','',$boy,1
  380. gs 'arousal', 'end'
  381. gs 'stat'
  382. act 'Leave':gt $loc
  383. end
  384. end
  385. act 'Attempt to escape':
  386. if pcs_run < 10:
  387. peshimraperand = rand(0, 11)
  388. elseif pcs_run < 30:
  389. peshimraperand = rand(0, 20)
  390. elseif pcs_run < 50:
  391. peshimraperand = rand(0, 30)
  392. elseif pcs_run < 70:
  393. peshimraperand = rand(0, 40)
  394. elseif pcs_run < 90:
  395. peshimraperand = rand(0, 50)
  396. elseif pcs_run < 110:
  397. peshimraperand = rand(0, 60)
  398. elseif pcs_run < 130:
  399. peshimraperand = rand(0, 70)
  400. elseif pcs_run < 150:
  401. peshimraperand = rand(0, 80)
  402. elseif pcs_run < 170:
  403. peshimraperand = rand(0, 90)
  404. else
  405. peshimraperand = 11
  406. end
  407. if peshimraperand <= 10:
  408. cla
  409. 'You try to run away, but you''re not quick enough and he catches you. He drags you back into an alley.'
  410. dynamic $vagstart2
  411. '"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.'
  412. gs 'arousal', 'vaginal', 10, 'sub'
  413. gs 'cum_call','',$boy,1
  414. gs 'arousal', 'end'
  415. gs 'stat'
  416. act 'Leave':gt $loc
  417. else
  418. *clr & cla
  419. '<center><img src="images/locations/shared/street/alleynight.jpg"></center>'
  420. 'You manage to lose him and get to a safer well lit area.'
  421. act 'Continue':gt $loc
  422. end
  423. end
  424. act 'Fight':
  425. cla
  426. !!stats
  427. strenV = 100
  428. speedV = 50
  429. agilV = 40
  430. reactV = 40
  431. vitalV = 50
  432. intelV = 10
  433. willV = 10
  434. !!skills
  435. magikV = 100
  436. boxingV = 50
  437. shootV = 100
  438. !!parameters
  439. healthV = vitalV * 10 + strenV * 5
  440. mannaV = intelV * 10 + magikV * 10
  441. willpowerV = willV * 10
  442. BonusAtakV = 0
  443. BonusDefV = 0
  444. !!Programme of Action
  445. program = 0
  446. RapistFight = 1
  447. if spellavtoklon = 1:klon = 3
  448. if spellbefshild = 1:defence = 500
  449. gt 'fight', 'start'
  450. end
  451. if succubusQW = 5:
  452. !!Used if this was a random encounter instead of active hunting
  453. act 'Lure him in and feed (this can take a lot of time)':
  454. cla
  455. 'You wait until he has dragged you into the alley before turning on him.'
  456. act 'Continue': gt 'succubus', 'RapistFight'
  457. end
  458. end
  459. exit
  460. end
  461. streetrand = rand(0, 100)
  462. if streetrand < streetev_rob and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_rob_day ! daystart:
  463. *clr & cla
  464. menu_off = 1
  465. streetev_day = daystart
  466. gs 'stat'
  467. '<<$streetev_title>>'
  468. '<center><img src="images/locations/shared/street/mugger.jpg"></center>'
  469. 'Suddenly a man wearing a hoodie steps out from a darkened doorway in your path. He has one hand in his pocket and the other he extends towards you. You can''t see his face as he says. "Give me all your money bitch and you won''t get hurt."'
  470. act 'Attempt to escape':
  471. '<center><img src="images/locations/shared/street/alleynight.jpg"></center>'
  472. if pcs_run < 10:
  473. peshimraperand = rand(0, 11)
  474. elseif pcs_run < 30:
  475. peshimraperand = rand(0, 20)
  476. elseif pcs_run < 50:
  477. peshimraperand = rand(0, 30)
  478. elseif pcs_run < 70:
  479. peshimraperand = rand(0, 40)
  480. elseif pcs_run < 90:
  481. peshimraperand = rand(0, 50)
  482. elseif pcs_run < 110:
  483. peshimraperand = rand(0, 60)
  484. elseif pcs_run < 130:
  485. peshimraperand = rand(0, 70)
  486. elseif pcs_run < 150:
  487. peshimraperand = rand(0, 80)
  488. elseif pcs_run < 170:
  489. peshimraperand = rand(0, 90)
  490. else
  491. peshimraperand = 11
  492. end
  493. if peshimraperand <= 10:
  494. *clr & cla
  495. 'He drags you back into an alley.'
  496. money = 0
  497. gs 'stat'
  498. 'You try to run away, but you''re not quick enough and he catches you. He grabs your purse and rummages in it. Knocking most of the contents out on the ground. Once he has your money he throws the purse back at you and then takes off running. You try to calm yourself down as you squat to gather your stuff back up and put them back in your purse.'
  499. act 'Leave':gt $loc
  500. else
  501. cla
  502. 'You manage to lose him and get to a safer well lit area.'
  503. act 'Continue':gt $loc
  504. end
  505. end
  506. act 'Don''t fight, just give him your money':
  507. cla
  508. money = 0
  509. gs 'stat'
  510. 'You quickly open your purse, as you do he grabs it from you and rummages in it. Knocking most of the contents out on the ground. Once he has your money he throws the purse back at you and then takes off running. You try to calm yourself down as you squat to gather your stuff back up and put them back in your purse.'
  511. act 'Leave':gt $loc
  512. end
  513. act 'Fight':
  514. cla
  515. 'You clutch your purse to your body and tell him. "Fuck you asshole!" He snarls and lunges at you.'
  516. act 'Defend yourself':
  517. cla
  518. gs 'npcgeneratec', 0, 'Robber', rand(18,45)
  519. gs 'boyStat', $npclastgenerated
  520. !!stats
  521. strenV = 100
  522. speedV = 50
  523. agilV = 40
  524. reactV = 40
  525. vitalV = 50
  526. intelV = 10
  527. willV = 10
  528. !!skills
  529. magikV = 100
  530. boxingV = 50
  531. shootV = 100
  532. !!parameters
  533. healthV = vitalV * 10 + strenV * 5
  534. mannaV = intelV * 10 + magikV * 10
  535. willpowerV = willV * 10
  536. BonusAtakV = 0
  537. BonusDefV = 0
  538. !!Programme of Action
  539. program = 0
  540. if rand(0,10) < 5:
  541. RapistFight = 1
  542. else
  543. ThiefFight = 1
  544. end
  545. if spellavtoklon = 1:klon = 3
  546. if spellbefshild = 1:defence = 500
  547. gt 'fight', 'start'
  548. end
  549. end
  550. exit
  551. elseif streetrand >= streetev_rob and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_rob_day ! daystart:
  552. streetev_rob_day = daystart
  553. end
  554. streetrand = rand(0, 100)
  555. if streetrand < streetev_hijack and daystart >= 10 and hour >= 6 and hour < 20 and streetev_day ! daystart and bag = 1 and streetev_hijack_day ! daystart:
  556. *clr & cla
  557. menu_off = 1
  558. gs'stat'
  559. streetev_day = daystart
  560. '<<$streetev_title>>'
  561. '<center><img src="images/locations/shared/street/pursesnatch.jpg"></center>'
  562. 'As you are walking down the street minding your own business, you are suddenly jerked sideways and nearly pulled off your feet. As you stumble to regain your balance you realize a man has just snatched your purse from you and is running away with it.'
  563. act 'It''s only money': money = 0 & gt $loc
  564. act 'Chase him':
  565. *clr & cla
  566. if pcs_run + pcs_stam < rand(120,250):
  567. money = 0
  568. gs 'stat'
  569. '<<$streetev_title>>'
  570. '<center><img src="images/locations/shared/street/purselose.jpg"></center>'
  571. 'You chase after him, screaming at him to stop or anyone to stop him. But he quickly out paces you and soon you lose sight of him. After a couple of blocks of not seeing him anymore you stop and lean against the wall to catch your breath.'
  572. act 'Continue': gt $loc
  573. else
  574. gs 'npcgeneratec', 0, 'Purse Snatcher', rand(18,45)
  575. gs 'boyStat', $npclastgenerated
  576. !!stats
  577. strenV = 100
  578. speedV = 50
  579. agilV = 40
  580. reactV = 40
  581. vitalV = 50
  582. intelV = 10
  583. willV = 10
  584. !!skills
  585. magikV = 100
  586. boxingV = 50
  587. shootV = 100
  588. !!parameters
  589. healthV = vitalV * 10 + strenV * 5
  590. mannaV = intelV * 10 + magikV * 10
  591. willpowerV = willV * 10
  592. BonusAtakV = 0
  593. BonusDefV = 0
  594. !!Programme of Action
  595. program = 0
  596. ThiefFight = 1
  597. if spellavtoklon = 1:klon = 3
  598. if spellbefshild = 1:defence = 500
  599. '<<$streetev_title>>'
  600. '<center><img src="images/locations/shared/street/pursechase.jpg"></center>'
  601. 'You chase after him, screaming at him to stop or anyone to stop him. All that working out is paying off, you are gaining on him. He keeps glancing back as you get closer, he turns and ducks down an alley when you are nearly on top of him. He leaps over an overturned trash can, obviously still hoping to get away from you. You easily leap over it as well and a few steps later you tackle him, sending both of you rolling on the ground. You both get back to your feet at the same time, realising he can''t escape he lunges at you.'
  602. act 'Fight':gt 'fight', 'start'
  603. end
  604. end
  605. exit
  606. elseif streetrand >= streetev_hijack and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_hijack_day ! daystart:
  607. streetev_hijack_day = daystart
  608. end
  609. !!end of old random street events that can always happen
  610. !!start of story street events that happen only if other events have happened.
  611. if shantpopala > 0:
  612. *clr & cla
  613. menu_off = 1
  614. hour += 8
  615. spafinloc = 14
  616. gs 'cum_manage'
  617. spafinloc = 4
  618. gs 'cum_manage'
  619. spafinloc = 12
  620. gs 'cum_manage'
  621. spafinloc = 11
  622. gs 'cum_manage'
  623. spafinloc = 7
  624. gs 'cum_manage'
  625. spafinloc = 3
  626. gs 'cum_manage'
  627. fingal += 1
  628. guy += 2
  629. rape += 1
  630. shantpopala -= 1
  631. '<center><img src="images/locations/shared/street/kidnap.jpg"></center>'
  632. 'As you walk down the sidewalk, you hear the screeching of tires, you quickly move to the far side of the sidewalk afraid a car is about to hit you. As you turn your head to the noise, you see a black jeep sliding to a stop next to you. Before the jeep even comes to a complete stop two large men jump out and start running towards you. You are stunned for a moment unsure what''s going on, then you turn to run, but before you make it five steps one of them grabs you, calling out to the other man to help out as well. They quickly drag you over to the jeep and throw you in the back.'
  633. '"You''re doing this for a living? Taking pictures of naked people in the park?", one of them shouts, holding one of the pictures to your face you took a while back, trying to blackmail them.'
  634. '"No... what? What the hell is going on? I don''t know what you''re talking about!", you try to feign innocence.'
  635. '"Don''t lie you stupid bitch, we know it was you." He says just before he hits you with something in the head, knocking you out.'
  636. '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.'
  637. 'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.'
  638. '"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 start getting an evil grin on their face.'
  639. '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. You try to resist, but the tape hindered you from moving. Not long after, everything faded to black and you lost your consciousness again.'
  640. '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 speed away in their black jeep. The main road 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.'
  641. gs 'arousal', 'bj', 40, 'group', 'rough', 'sub'
  642. gs 'arousal', 'vaginal', 40, 'group', 'rough', 'sub'
  643. gs 'arousal', 'anal', 40, 'group', 'rough', 'sub'
  644. minut -= 40
  645. gs 'arousal', 'end'
  646. gs 'stat'
  647. act 'Leave':gt $loc
  648. exit
  649. end
  650. !!end of old street events that start from other stories.
  651. !!start of old street events outside of home only, chained from other story events.
  652. if streetev_home = 1:
  653. if workDolgDay <= 0 and workDolg > 0:
  654. cls
  655. menu_off = 1
  656. gs 'stat'
  657. workDisk = 0
  658. '<center><img src="images/locations/city/residential/street/bug.jpg"></center>'
  659. 'As you approach the entrance to your apartment you see two large guys approaching you, they seem to be carrying guns. As they get closer to you, one of them says. "It''s time for you to pay back your debts."'
  660. if money >= workDolg:
  661. money -= workDolg
  662. workDolg = 0
  663. 'You quickly dig into your purse and pull out the money handing it over. One of them grabs if from you and starts counting it. Once he sees it is all there he just grunts and they both turn around and leave.'
  664. act 'Leave':gt $loc
  665. exit
  666. else
  667. if money + stolmoney + karta >= workDolg:
  668. money += stolmoney + karta
  669. stolmoney = 0
  670. karta = 0
  671. money -= workDolg
  672. workDolg = 0
  673. '"I have the money up in my apartment. 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 take the money and count it, then look at each other nod and leave.'
  674. act 'Leave':gt $loc
  675. exit
  676. else
  677. money += stolmoney + karta
  678. stolmoney = 0
  679. karta = 0
  680. workDolg -= money
  681. money = 0
  682. workDolg += 10000
  683. 'You tell them that you don''t have enough money. They smack you, push you into your apartment, rummaging through your stuff. They find your stash and take it.'
  684. '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 cannot pay it off, as your job obviously doesn''t pay well enough, they decide they''ll help you out with that. The brutes drag you out of the apartment and down to the street and throw you into the back seat of the car. They get in and one of them sits next to you and the other in the drivers seat. He starts the car and drive away. They refuse to answer any of your questions, you have no choice but to sit quietly and see where they take you.'
  685. act 'Out of the car':
  686. cls
  687. minut += 30
  688. gs 'stat'
  689. '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. Got it? Try to contact the authorities or escape, we''ll put a bullet in your head and bury you in the woods, understand?"'
  690. 'You become frightened as they''re convincing, so you just nod.'
  691. act 'Look around':gt 'sauna', 'saunaroom'
  692. end
  693. end
  694. end
  695. exit
  696. end
  697. if workDiskAtkPlayer = 1:
  698. menu_off = 1
  699. workDisk = 1
  700. workDiskAtkPlayer = 0
  701. gs 'stat'
  702. '<center><img src="images/locations/city/residential/street/car.jpg"></center>'
  703. 'You are grabbed and thrown into the back seat of the car. Right and left of you there are two angry Indian men sitting. In the front seat, the porn studio manager turns around, "Where is the envelope?" he demands.'
  704. if konvert = 0:
  705. workDolg = 200000
  706. workDolgDay = 7
  707. '"It''s stolen."'
  708. '"WHAT! But how could this happen! Do you realize, what you have done?! You own me 200,000 <b>₽</b>, bring it to my office, you have until next Friday. If you fail to do so, prepare yourself for a world of hurt."'
  709. else
  710. konvert = 0
  711. money += 5000
  712. 'You give the envelope. He warns you that such delays in the future may be harmful to your business relationships.'
  713. end
  714. act 'Leave':gt $loc
  715. exit
  716. end
  717. if pcs_magik >= 1 and mainQW = 0 and StoryLine = 0:
  718. *clr & cla
  719. menu_off = 1
  720. mainQW = 1
  721. gs 'stat'
  722. '<center><img src="images/locations/city/citycenter/lab/event/main.jpg"></center>'
  723. 'In front of your building you see Tatiana and Gustav. Tatiana adjusts her glasses and looks around, while Gustav seems to be distracted looking around with a strange look on his face as his tattoos are not visible.'
  724. 'Tatiana looks at you closely, "I felt a burst of energy. Were you attacked by a magician?"'
  725. act 'No':gt 'mainQW'
  726. exit
  727. end
  728. end
  729. !!end home-related events
  730. !!street incidental events
  731. if streetrand > 90:
  732. streetrand = rand(0,100)
  733. if streetrand > 98:
  734. if hour >= 8 and hour < 22:
  735. *clr & cla
  736. menu_off = 1
  737. minut += 5
  738. gs 'stat'
  739. '<<$streetev_title>>'
  740. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarb'+ rand(1,2) +'.jpg"></center>'
  741. 'As you walk down the sidewalk, you notice a man playing a guitar, he has his guitar case open and you can see some money in it already. Several other people have stopped to listen to him play, he isn''t half bad.'
  742. act 'Ignore':gt $loc
  743. act 'Listen':
  744. cla
  745. minut += 5
  746. minut += 10
  747. pcs_mood += 10
  748. gs 'stat'
  749. *nl
  750. 'You stop and listen to him play several songs, he really is pretty good. You wonder why he is playing on the street, perhaps the old adage about starving artist applies to musicians as well.'
  751. act 'Leave':gt $loc
  752. if money > 50:
  753. act 'Give him money':
  754. cla
  755. minut += 5
  756. money -= 50
  757. pcs_mood += 10
  758. gs 'stat'
  759. *nl
  760. 'You reach into your purse and pull out some money, you drop it into his case. He looks up at you and smiles and nods his head, but keeps playing. With your good deed done you go on your way.'
  761. act 'Leave':gt $loc
  762. end
  763. end
  764. end
  765. else
  766. gt $loc
  767. end
  768. elseif streetrand > 96:
  769. if hour >= 8 and hour < 22:
  770. *clr & cla
  771. menu_off = 1
  772. minut += 5
  773. gs 'stat'
  774. '<<$streetev_title>>'
  775. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarg1.jpg"></center>'
  776. 'As you walk down the sidewalk, you notice a girl playing a guitar, she has her guitar case open and you can see some money in it already. Several other people have stopped to listen to her play, she isn''t half bad.'
  777. act 'Leave':gt $loc
  778. act 'Listen':
  779. *clr & cla
  780. minut += 10
  781. pcs_mood += 10
  782. gs 'stat'
  783. '<<$streetev_title>>'
  784. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarg1.jpg"></center>'
  785. 'You stop and listen to her play several songs, she really is pretty good. You wonder why she is playing on the street, perhaps the old adage about starving artist applies to musicians as well.'
  786. act 'Leave':gt $loc
  787. if money > 50:
  788. act 'Give her money':
  789. *clr & cla
  790. minut += 5
  791. money -= 50
  792. pcs_mood += 10
  793. gs 'stat'
  794. '<<$streetev_title>>'
  795. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarg1.jpg"></center>'
  796. 'You reach into your purse and pull out some money, you drop it into her case. She looks up at you and smiles and nods her head, but keeps playing. With your good deed done you go on your way.'
  797. act 'Leave':gt $loc
  798. end
  799. end
  800. end
  801. else
  802. gt $loc
  803. end
  804. elseif streetrand > 94:
  805. if hour >= 8 and hour < 22:
  806. *clr & cla
  807. menu_off = 1
  808. minut += 5
  809. gs 'stat'
  810. '<<$streetev_title>>'
  811. '<center><img <<$set_imgh>> src="images/locations/shared/street/violinb1.jpg"></center>'
  812. 'As you walk down the sidewalk, you notice a man playing a violin, he has his violin case open and you can see some money in it already. Several other people have stopped to listen to him play, he isn''t half bad.'
  813. act 'Leave':gt $loc
  814. act 'Listen':
  815. *clr & cla
  816. minut += 10
  817. pcs_mood += 10
  818. gs 'stat'
  819. '<<$streetev_title>>'
  820. '<center><img <<$set_imgh>> src="images/locations/shared/street/violinb1.jpg"></center>'
  821. 'You stop and listen to him play several songs, he really is pretty good. You wonder why he is playing on the street, perhaps the old adage about starving artist applies to musicians as well.'
  822. act 'Leave':gt $loc
  823. if money > 50:
  824. act 'Give him money':
  825. *clr & cla
  826. minut += 5
  827. money -= 50
  828. pcs_mood += 10
  829. gs 'stat'
  830. '<<$streetev_title>>'
  831. '<center><img <<$set_imgh>> src="images/locations/shared/street/violinb1.jpg"></center>'
  832. 'You reach into your purse and pull out some money, you drop it into his case. He looks up at you and smiles and nods his head, but keeps playing. With your good deed done you go on your way.'
  833. act 'Leave':gt $loc
  834. end
  835. end
  836. end
  837. else
  838. gt $loc
  839. end
  840. elseif streetrand > 92:
  841. if hour >= 8 and hour < 22:
  842. *clr & cla
  843. menu_off = 1
  844. minut += 5
  845. gs 'stat'
  846. '<<$streetev_title>>'
  847. '<center><img <<$set_imgh>> src="images/locations/shared/street/violing1.jpg"></center>'
  848. 'As you walk down the sidewalk, you notice a girl playing a violin, she has her violin case open and you can see some money in it already. Several other people have stopped to listen to her play, she isn''t half bad.'
  849. act 'Leave':gt $loc
  850. act 'Listen':
  851. *clr & cla
  852. minut += 10
  853. pcs_mood += 10
  854. gs 'stat'
  855. '<<$streetev_title>>'
  856. '<center><img <<$set_imgh>> src="images/locations/shared/street/violing1.jpg"></center>'
  857. 'You stop and listen to her play several songs, she really is pretty good. You wonder why she is playing on the street, perhaps the old adage about starving artist applies to musicians as well.'
  858. act 'Leave':gt $loc
  859. if money > 50:
  860. act 'Give her money':
  861. *clr & cla
  862. minut += 5
  863. money -= 50
  864. pcs_mood += 10
  865. gs 'stat'
  866. '<<$streetev_title>>'
  867. '<center><img <<$set_imgh>> src="images/locations/shared/street/violing1.jpg"></center>'
  868. 'You reach into your purse and pull out some money, you drop it into her case. She looks up at you and smiles and nods her head, but keeps playing. With your good deed done you go on your way.'
  869. act 'Leave':gt $loc
  870. end
  871. end
  872. end
  873. else
  874. gt $loc
  875. end
  876. elseif streetrand > 90:
  877. minut += 5
  878. if hour >= 8 and hour < 18:
  879. *clr & cla
  880. menu_off = 1
  881. gs 'stat'
  882. '<<$streetev_title>>'
  883. '<center><img <<$set_imgh>> src="images/locations/shared/street/artist.jpg"></center>'
  884. 'As you walk down the street you see a woman sitting in a chair with a sign saying "Will draw portrait for 50 <b>₽</b>"'
  885. act 'Leave':gt $loc
  886. act 'Get your portrait done':
  887. *clr & cla
  888. minut += 30
  889. money -= 50
  890. pcs_mood += 10
  891. gs 'stat'
  892. '<<$streetev_title>>'
  893. '<center><img <<$set_imgh>> src="images/locations/shared/street/artist.jpg"></center>'
  894. 'You stop next to her and smile. "I would like you to draw me please." She gives you a friendly smile in return pointing towards the other chair. "Please take a seat." Which she follows with a glance to the can sitting next to the chair, you understand and pull out the money and put it in the can. You sit for a while as she draws your portrait, after some time she is finished and shows it to you. It is really very good and might make a good gift to give someone. You thank her for it and go on your way.'
  895. act 'Leave':gt $loc
  896. end
  897. else
  898. gt $loc
  899. end
  900. elseif streetrand > 88:
  901. *clr & cla
  902. menu_off = 1
  903. minut += 5
  904. gs 'stat'
  905. '<<$streetev_title>>'
  906. '<center><img <<$set_imgh>> src="images/locations/shared/street/assgrab.jpg"></center>'
  907. 'As you walk down the street you feel a hand grab your ass and squeeze it hard. You jerk away and look over your shoulder and you see a guy grinning at you.'
  908. act 'Ignore':gt $loc
  909. act 'Slap him':
  910. *clr & cla
  911. '<<$streetev_title>>'
  912. '<center><img <<$set_imgh>> src="images/locations/shared/street/slapb.jpg"></center>'
  913. 'You turn around and as you do, you swing your hand palm open and deliver a hard smack to his face. The pop is loud enough to draw attention and the guy recoils from it rubbing his face, seemingly surprised you smacked him. "Don''t touch me asshole." With that you turn and continue on your way.'
  914. act 'Leave':gt $loc
  915. end
  916. elseif streetrand > 86:
  917. *clr & cla
  918. menu_off = 1
  919. minut += 5
  920. gs 'stat'
  921. '<<$streetev_title>>'
  922. '<center><img <<$set_imgh>> src="images/locations/shared/street/beatup.jpg"></center>'
  923. 'As you walk down the street you pass a man that is badly beaten lying unconscious on the sidewalk. You stop a moment unsure what to do, but everyone else just ignores it. Not being sure what you could do to help, you continue on your way and wonder what happened to him.'
  924. act 'Continue':gt $loc
  925. elseif streetrand > 84:
  926. if hour >= 9:
  927. menu_off = 1
  928. !!first one is dress with panties
  929. if PCloSkirt > 0 and $pantyworntype ! 'none' and CloOnePiece = 1:
  930. !!all the getting partially stripped ones from 09:00 till 24:00
  931. *clr & cla
  932. minut += 5
  933. '<<$streetev_title>>'
  934. '<center><video autoplay loop src="images/locations/shared/street/bottomed1.mp4"></video></center>'
  935. 'As you walk down the street you are suddenly pushed forward hard. You nearly lose your balance and only barely catch yourself. While you are half bent over and trying to recover you feel someone yank up your dress and yank down your panties, exposing your ass and pussy for everyone to see. You quickly regain your balance, as you do. You pull up your panties and smooth your dress back in place, by that time whoever did it is long gone.'
  936. if exhibitionist_lvl = 1:
  937. gs 'exhibitionism', 2
  938. pcs_mood += 10
  939. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
  940. elseif exhibitionist_lvl > 1:
  941. pcs_mood -= 2
  942. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You''re annoyed with the prankster, worrying that the elastic on your panties might have been stretched in the act but otherwise feel unembarrassed and continue on your way.'
  943. else
  944. pcs_mood -= 10
  945. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You blush bright red and hurry on your way.'
  946. end
  947. gs 'stat'
  948. act 'Continue':gt $loc
  949. !!dress without panties
  950. elseif PCloSkirt > 0 and $pantyworntype = 'none' and CloOnePiece = 1:
  951. *clr & cla
  952. minut += 5
  953. '<<$streetev_title>>'
  954. '<center><video autoplay loop src="images/locations/shared/street/sharkdress.mp4"></video></center>'
  955. 'As you walk down the street someone comes up behind you and grabs the top of your dress and yanks it down around your ankles. Which leaves you standing stark naked with only your dress around your ankles. You quickly squat down and grab your dress, pulling it back up and into place, by that time who ever did it is long gone.'
  956. if exhibitionist_lvl = 1:
  957. gs 'exhibitionism', 3
  958. pcs_mood += 10
  959. 'You look around and notice several people staring at you, you are sure they''ve seen seen. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
  960. elseif exhibitionist_lvl > 1:
  961. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You swear loudly, worrying less about how you were just exposed in the street and more about whether the prankster might have damaged your clothing. Satisfied that it appears to be unharmed, you continue on your way, albeit a little more annoyed than you were before.'
  962. else
  963. pcs_mood -= 10
  964. 'You look around and notice several people staring at you, you are sure they seen. You blush bright red and hurry on your way.'
  965. end
  966. gs 'stat'
  967. act 'Continue':gt $loc
  968. !!skirt with panties
  969. elseif PCloSkirt > 0 and $pantyworntype ! 'none':
  970. *clr & cla
  971. minut += 5
  972. '<<$streetev_title>>'
  973. '<center><video autoplay loop src="images/locations/shared/street/bottomeds'+ rand(1,2) +'.mp4"></video></center>'
  974. 'As you walk down the street someone comes up behind you and grabs your skirt and panties, yanking them down. Your skirt ends up around your ankles and your panties half way down your thighs. Which leaves your ass and pussy on fully display to everyone around. You quickly pull up your panties and then squat down and grab your skirt, pulling it back up and into place, by that time whoever did it is long gone.'
  975. if exhibitionist_lvl = 1:
  976. gs 'exhibitionism', 2
  977. pcs_mood += 10
  978. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
  979. elseif exhibitionist_lvl > 1:
  980. pcs_mood -= 2
  981. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You swear loudly, worrying less about how your pussy was just exposed in the street and more about whether the prankster might have damaged your panties and skirt. Satisfied that they appear to be unharmed, you continue on your way, albeit a little more annoyed than you were before.'
  982. else
  983. pcs_mood -= 10
  984. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You blush bright red and hurry on your way.'
  985. end
  986. gs 'stat'
  987. act 'Continue':gt $loc
  988. !!if one of the above isn''t true then this is what happens
  989. else
  990. *clr & cla
  991. minut += 5
  992. '<<$streetev_title>>'
  993. '<center><video autoplay loop src="images/locations/shared/street/topped'+ rand(1,2) +'.mp4"></video></center>'
  994. 'As you walk down the street someone comes up behind you and grabs your top, yanking it down. Which leaves your tits on full display to everyone around. You quickly pull up your top backup, by that time whoever did it is long gone.'
  995. if exhibitionist_lvl = 1:
  996. gs 'exhibitionism', 2
  997. pcs_mood += 10
  998. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
  999. elseif exhibitionist_lvl > 1:
  1000. pcs_mood -= 2
  1001. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You swear loudly, worrying less about how your tits were just flashed to everyone in the street and more about whether the prankster might have damaged your top. Satisfied that it appears to be unharmed, you continue on your way, albeit a little more annoyed than you were before.'
  1002. else
  1003. pcs_mood -= 10
  1004. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You blush bright red and hurry on your way.'
  1005. end
  1006. gs 'stat'
  1007. act 'Continue':gt $loc
  1008. end
  1009. else
  1010. gt $loc
  1011. end
  1012. elseif streetrand > 82:
  1013. if PCloSkirt > 0 and $pantyworntype ! 'none':
  1014. *clr & cla
  1015. menu_off = 1
  1016. minut += 5
  1017. gs 'stat'
  1018. '<<$streetev_title>>'
  1019. '<center><video autoplay loop src="images/locations/shared/street/breeze.mp4"></video></center>'
  1020. 'As you walk down the street a strong breeze suddenly blows down the street, which causes your skirt to blow up. Which exposes your panty clad ass to everyone on the street. You quickly push it back down, but as soon as you let go the breeze blows it right back up, you fight against the breeze for almost a minute before it finally stops.'
  1021. if exhibitionist_lvl = 1:
  1022. gs 'exhibitionism', 1
  1023. pcs_mood += 10
  1024. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You can''t help but smile, loving the attention even if it wasn''t your idea, you casually continue on your way, but with an extra bit of sway in your hips.'
  1025. elseif exhibitionist_lvl > 1:
  1026. pcs_mood -= 2
  1027. 'You look around and notice several people staring at you. <i>What''re they staring for? It''s just underwear...</i> you think to yourself and continue on your way.'
  1028. else
  1029. pcs_mood -= 10
  1030. 'You look around and notice several people staring at you, you are sure they''ve seen everything. You blush bright red and hurry on your way.'
  1031. end
  1032. gs 'stat'
  1033. act 'Continue':gt $loc
  1034. else
  1035. gt $loc
  1036. end
  1037. elseif streetrand > 80:
  1038. cla
  1039. if hour >= 9 or hour < 2:
  1040. *clr & cla
  1041. menu_off = 1
  1042. gs 'stat'
  1043. '<<$streetev_title>>'
  1044. '<center><video autoplay loop src="images/locations/shared/street/couple1.mp4"></video></center>'
  1045. 'As you walk down the street you see a couple making out passionately the guy reaches around and starts squeezing the girls ass. You can''t help but watch them as you walk by, feeling your own arousal growing.'
  1046. gs 'arousal', 'voyeur', 5
  1047. gs 'arousal', 'end'
  1048. gs 'stat'
  1049. act 'Continue':gt $loc
  1050. else
  1051. gt $loc
  1052. end
  1053. elseif streetrand > 78:
  1054. cla
  1055. if hour >= 9 or hour < 2:
  1056. *clr & cla
  1057. menu_off = 1
  1058. gs 'stat'
  1059. '<<$streetev_title>>'
  1060. '<center><img <<$set_imgh>> src="images/locations/shared/street/lesbians.jpg"></center>'
  1061. 'As you walk down the street you see a couple of girls making out passionately. You can''t help but watch them as you walk by, feeling your own arousal growing.'
  1062. gs 'arousal', 'voyeur', 5
  1063. gs 'arousal', 'end'
  1064. gs 'stat'
  1065. act 'Continue':gt $loc
  1066. else
  1067. gt $loc
  1068. end
  1069. elseif streetrand > 76:
  1070. if hour >= 7 and hour < 22:
  1071. *clr & cla
  1072. menu_off = 1
  1073. minut += 5
  1074. pcs_horny += 5
  1075. gs 'stat'
  1076. '<<$streetev_title>>'
  1077. '<center><img <<$set_imgh>> src="images/locations/shared/street/lostkey.jpg"></center>'
  1078. 'As you pass by an alleyway you glance down and see a woman wearing a very nice dress with nice high heels trying to jimmy a window. A few moments later she slides the window open and then crawls through the window, giving a nice view of her ass as she does. Once inside she quickly shuts the window, as you continue on, you wonder if maybe she lost her keys. Or maybe she was just a very well dressed burglar.'
  1079. act 'Continue':gt $loc
  1080. else
  1081. gt $loc
  1082. end
  1083. elseif streetrand > 74:
  1084. *clr & cla
  1085. menu_off = 1
  1086. minut += 5
  1087. gs 'stat'
  1088. '<<$streetev_title>>'
  1089. '<center><img <<$set_imgh>> src="images/locations/shared/street/fightb.jpg"></center>'
  1090. 'As you walk down the street two guys just ahead of you start pushing each other, seconds later they are throwing punches. The fight escalates quickly.'
  1091. act 'Ignore it':gt $loc
  1092. act 'Stop and watch':
  1093. *clr & cla
  1094. minut += 5
  1095. gs 'stat'
  1096. '<<$streetev_title>>'
  1097. '<center><img <<$set_imgh>> src="images/locations/shared/street/fightb.jpg"></center>'
  1098. 'You love a good fight, so you like many others stop and watch them fight it out, it goes on for a while as they trade blows. One of them finally gets the upper hand and gets the other one down and starts beating him, he doesn''t stop until one of his friends pull him off. With the fight over, everyone leaves. You can hear police sirens and decide it is time to leave yourself.'
  1099. act 'Leave':gt $loc
  1100. end
  1101. elseif streetrand > 72:
  1102. *clr & cla
  1103. menu_off = 1
  1104. minut += 5
  1105. gs 'stat'
  1106. '<<$streetev_title>>'
  1107. if $loc = 'pavCommercial' or $loc = 'pavResidential':
  1108. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/fightg1.jpg"></center>'
  1109. else
  1110. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/fightg1.jpg"></center>'
  1111. end
  1112. 'As you walk down the street two girls just ahead of you start pushing each other, one of them slaps the other. The fight escalates quickly, with hair pulling, scratching and even some kicks and punches, along with a slew of verbal insults hurled at each other.'
  1113. act 'Ignore it':gt $loc
  1114. act 'Stop and watch':
  1115. *clr & cla
  1116. minut += 5
  1117. '<<$streetev_title>>'
  1118. if $loc = 'pavCommercial' or $loc = 'pavResidential':
  1119. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/fightg1.jpg"></center>'
  1120. else
  1121. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/fightg1.jpg"></center>'
  1122. end
  1123. 'You love a good fight, so you like many others you stop and watch them fight it out, it goes on for a while as they trade blows. One of them finally gets the upper hand and gets the other one down and starts beating her, once the girl on bottom stops fighting back the winner starts ripping her clothes off, once she has the bottom girl completely naked she gets up and hurls a few more insults before walking away. With the fight over, everyone leaves. The girl that lost tries to gather up her torn clothes and put them back on as she loudly weeps.'
  1124. act 'Leave':gt $loc
  1125. act 'Help her':
  1126. cla
  1127. minut += 5
  1128. *nl
  1129. 'You help her up and try help her the best you can to get her clothes back in place. She wipes her eyes thanking you, then gives you a quick hug before she hurries away.'
  1130. act 'Leave':gt $loc
  1131. end
  1132. end
  1133. elseif streetrand > 70:
  1134. if hour >= 9 and hour < 22:
  1135. *clr & cla
  1136. menu_off = 1
  1137. gs 'stat'
  1138. '<<$streetev_title>>'
  1139. if month >= 11 or month <= 3:
  1140. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlflashw'+ rand(1,2) +'.jpg"></center>'
  1141. else
  1142. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlfash1.jpg"></center>'
  1143. end
  1144. 'As you walk down the street you pass a woman wearing a long coat. All of a sudden she flashes you with a huge grin on her face. She flashes several other people as well, she seems to be enjoying the attention she is getting.'
  1145. gs 'arousal', 'voyeur', 5
  1146. act 'Continue':gt $loc
  1147. if exhibitionist_lvl > 0:
  1148. act 'Flash her back':
  1149. *clr & cla
  1150. gs 'exhibitionism', 1
  1151. '<<$streetev_title>>'
  1152. if PCloSkirt > 0:
  1153. '<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/' + rand(1,12) + '.jpg"></center>'
  1154. 'You grin at her as she flashes you and you lift your shirt flashing your tits back at her, which makes her laugh.'
  1155. else
  1156. '<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/' + rand(1,14) + '.jpg"></center>'
  1157. 'You grin at her as she flashes you and you lift your shirt flashing your tits back at her, which makes her laugh.'
  1158. end
  1159. gs 'stat'
  1160. act 'Continue':gt $loc
  1161. end
  1162. end
  1163. else
  1164. gt $loc
  1165. end
  1166. elseif streetrand > 68:
  1167. if hour >= 12 or hour < 2:
  1168. *clr & cla
  1169. menu_off = 1
  1170. minut += 5
  1171. gs 'stat'
  1172. '<<$streetev_title>>'
  1173. '<center><img <<$set_imgh>> src="images/locations/shared/street/girls1.jpg"></center>'
  1174. if hotcat > 5:
  1175. pcs_mood += 20
  1176. 'As you walk down the street you pass a group of girls. You hear them start talking about you as you pass by. "I love her outfit, she really knows how to dress." "I know, look at her shoes, they are just perfect." "What about her makeup? I wish I could do mine that good." They keep talking about you until they are out of earshot. You can''t help but smile and feel great after that.'
  1177. act 'Continue':gt $loc
  1178. else
  1179. pcs_mood -= 20
  1180. 'As you walk down the street you pass a group of girls. You hear them start talking about you as you pass by. "Oh my god, look at her outfit. Does she really think that she can pull that off with a body like that?" "I know and look at her hair, has she even heard of a brush?" You feel your cheeks burning as they continue to make fun of you.'
  1181. act 'Ignore them':gt $loc
  1182. act 'Tell them off':
  1183. *clr & cla
  1184. '<<$streetev_title>>'
  1185. '<center><img <<$set_imgh>> src="images/locations/shared/street/girls1.jpg"></center>'
  1186. 'You spin around to face them. "Just what''s your problem bitches?" One of the girls steps up to you. "You best back yourself up bitch before I smack the shit out of you."'
  1187. act 'Hurry away in shame':gt $loc
  1188. act 'Bring it Bitch!':
  1189. *clr & cla
  1190. '<<$streetev_title>>'
  1191. $boydesc = 'The group of girls'
  1192. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlgang.jpg"></center>'
  1193. 'You give her a small shove, to force her to step back. "Bring it on then, bitch." The words barely leave your mouth before she jumps you, soon all of her friends join in, leaving you to fight them all.'
  1194. !!stats
  1195. strenV = 100
  1196. speedV = 50
  1197. agilV = 60
  1198. reactV = 60
  1199. vitalV = 60
  1200. intelV = 10
  1201. willV = 10
  1202. !!skills
  1203. magikV = 100
  1204. boxingV = 50
  1205. shootV = 100
  1206. !!parameters
  1207. healthV = vitalV * 30 + strenV * 15
  1208. mannaV = intelV * 10 + magikV * 10
  1209. willpowerV = willV * 10
  1210. BonusAtakV = 0
  1211. BonusDefV = 0
  1212. !!Programme of Action
  1213. program = 0
  1214. BitchFight = 1
  1215. if spellavtoklon = 1:klon = 3
  1216. if spellbefshild = 1:defence = 500
  1217. gt 'fight', 'start'
  1218. end
  1219. end
  1220. end
  1221. else
  1222. gt $loc
  1223. end
  1224. elseif streetrand > 66:
  1225. if hour >= 9 and hour <= 20:
  1226. *clr & cla
  1227. menu_off = 1
  1228. minut += 5
  1229. gs 'stat'
  1230. '<<$streetev_title>>'
  1231. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyerman.jpg"></center>'
  1232. 'As you walk down the street you run across a man handing out flyers, as you get near him. He waves you over, "Hello there young lady, would you like to earn a little extra money? All you have to do is take some of these flyers and hand them out for half an hour and I will pay you 50 <b>₽</b>. What do you say?"'
  1233. act 'No thanks':gt $loc
  1234. act 'Distribute flyers to earn money (50 <b>₽</b>)':
  1235. *clr & cla
  1236. minut += 30
  1237. money += 50
  1238. pcs_mood -= 5
  1239. gs 'stat'
  1240. '<<$streetev_title>>'
  1241. if month >= 11 or month <= 3:
  1242. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyerw.jpg"></center>'
  1243. else
  1244. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyer.jpg"></center>'
  1245. end
  1246. 'For thirty minutes you stand on the street, chatting up random people, trying to give them one of your flyers. After that you are paid 50 <b>₽</b> for your effort by the man and he offers you the same deal to hand out more.'
  1247. act 'Distribute flyers to earn money (50 <b>₽</b>)':
  1248. *clr & cla
  1249. minut += 30
  1250. money += 50
  1251. pcs_mood -= 5
  1252. gs 'stat'
  1253. '<<$streetev_title>>'
  1254. if month >= 11 or month <= 3:
  1255. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyerw.jpg"></center>'
  1256. else
  1257. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyer.jpg"></center>'
  1258. end
  1259. 'For thirty minutes you stand on the street, chatting up random people, trying to give them one of your flyers. After that you are paid 50 <b>₽</b> for your effort by the man and he offers you the same deal to hand out more.'
  1260. act 'Leave':gt $loc
  1261. end
  1262. act 'Leave':gt $loc
  1263. end
  1264. else
  1265. gt $loc
  1266. end
  1267. elseif streetrand > 64:
  1268. clr & cla
  1269. menu_off = 1
  1270. minut += 5
  1271. gs 'stat'
  1272. '<<$streetev_title>>'
  1273. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1274. 'As you walk down the street you pass a girl sitting on a barrel just inside of an alleyway, holding up a sign saying that she is homeless, pleading for help.'
  1275. act 'Ignore her':gt $loc
  1276. if money >= 50:
  1277. act 'Give her 50':
  1278. *clr & cla
  1279. money -= 50
  1280. pcs_mood += 10
  1281. gs 'stat'
  1282. '<<$streetev_title>>'
  1283. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1284. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heart warming smile.'
  1285. act 'Leave':gt $loc
  1286. end
  1287. end
  1288. if money >= 100:
  1289. act 'Give her 100':
  1290. *clr & cla
  1291. money -= 100
  1292. pcs_mood += 10
  1293. gs 'stat'
  1294. '<<$streetev_title>>'
  1295. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1296. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heart warming smile.'
  1297. act 'Leave':gt $loc
  1298. end
  1299. end
  1300. if money >= 250:
  1301. act 'Give her 250':
  1302. *clr & cla
  1303. money -= 250
  1304. pcs_mood += 10
  1305. gs 'stat'
  1306. '<<$streetev_title>>'
  1307. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1308. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heart warming smile.'
  1309. act 'Leave':gt $loc
  1310. end
  1311. end
  1312. if money >= 500:
  1313. act 'Give her 500':
  1314. *clr & cla
  1315. money -= 500
  1316. pcs_mood += 10
  1317. gs 'stat'
  1318. '<<$streetev_title>>'
  1319. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1320. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heart warming smile.'
  1321. act 'Leave':gt $loc
  1322. end
  1323. end
  1324. if money >= 1000:
  1325. act 'Give her 1000':
  1326. *clr & cla
  1327. money -= 1000
  1328. '<<$streetev_title>>'
  1329. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1330. pcs_mood += 10
  1331. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heart warming smile.'
  1332. act 'Leave':gt $loc
  1333. end
  1334. end
  1335. elseif streetrand > 62:
  1336. if hour >= 8 and hour < 20:
  1337. *clr & cla
  1338. menu_off = 1
  1339. minut += 5
  1340. gs 'stat'
  1341. '<<$streetev_title>>'
  1342. if month >= 11 or month <= 3:
  1343. '<center><img <<$set_imgh>> src="images/locations/shared/street/nakedgw1.jpg"></center>'
  1344. else
  1345. '<center><img <<$set_imgh>> src="images/locations/shared/street/nakedg'+ rand(1,3) +'.jpg"></center>'
  1346. end
  1347. 'As you walk down the street you pass a naked young woman, she seems to be loving the attention she is getting. Otherwise she is acting like any other person on the street.'
  1348. gs 'arousal', 'voyeur', 5
  1349. gs 'arousal', 'end'
  1350. gs 'stat'
  1351. act 'Leave':gt $loc
  1352. else
  1353. gt $loc
  1354. end
  1355. elseif streetrand > 60:
  1356. if hour >= 8 and hour < 20:
  1357. *clr & cla
  1358. menu_off = 1
  1359. minut += 5
  1360. gs 'stat'
  1361. '<<$streetev_title>>'
  1362. '<center><img <<$set_imgh>> src="images/locations/shared/street/nakedgmbike.jpg"></center>'
  1363. 'As you walk down the street a motorcycle drives by slowly, several people are taking pictures. The man driving waves at them, while behind him sits a naked girl only wearing a motorcycle helmet. A few moments later the traffic clears up a bit and they zoom off.'
  1364. gs 'arousal', 'voyeur', 5
  1365. gs 'arousal', 'end'
  1366. act 'Leave':gt $loc
  1367. else
  1368. gt $loc
  1369. end
  1370. elseif streetrand > 58:
  1371. if hour >= 9:
  1372. *clr & cla
  1373. menu_off = 1
  1374. minut += 5
  1375. gs 'stat'
  1376. '<<$streetev_title>>'
  1377. '<center><img <<$set_imgh>> src="images/locations/shared/street/nopanties.jpg"></center>'
  1378. 'As you walk down the street you pass a young girl sitting on the sidewalk with some friends next to her. You throw a glance at her and surprisingly see her spread the legs revealing her bare pussy to you, all while smiling.'
  1379. gs 'arousal', 'voyeur', 5
  1380. gs 'arousal', 'end'
  1381. act 'Leave':gt $loc
  1382. else
  1383. gt $loc
  1384. end
  1385. elseif streetrand > 56:
  1386. if hour >= 8 and hour < 18:
  1387. *clr & cla
  1388. menu_off = 1
  1389. minut += 5
  1390. gs 'stat'
  1391. '<<$streetev_title>>'
  1392. '<center><img <<$set_imgh>> src="images/locations/shared/street/splitsread.jpg"></center>'
  1393. 'As you walk down the street you pass a young girl reading a magazine, all of a sudden she lifts her foot, doing a standing split. You look at her in confusement, wondering why she''s behaving oddly. As you''re about to step up to her, it''s like she woke up from a daze, she blushes and quickly runs away from you.'
  1394. act 'Leave':gt $loc
  1395. else
  1396. gt $loc
  1397. end
  1398. elseif streetrand > 54:
  1399. if hour >= 12 or hour < 3:
  1400. *clr & cla
  1401. menu_off = 1
  1402. minut += 5
  1403. gs 'stat'
  1404. '<<$streetev_title>>'
  1405. '<center><img <<$set_imgh>> src="images/locations/shared/street/teens.jpg"></center>'
  1406. 'As you walk down the street you pass a group of teens. Just as you are about to pass them, one of the boys calls out. "Hey! Want a beer?" He says as he offers you a beer.'
  1407. act 'Decline':
  1408. *clr & cla
  1409. '<<$streetev_title>>'
  1410. '<center><img <<$set_imgh>> src="images/locations/shared/street/teens.jpg"></center>'
  1411. 'You shake your head no and mumble thanks but no thanks and continue on your way.'
  1412. act 'Leave':gt $loc
  1413. end
  1414. act 'Join them':
  1415. *clr & cla
  1416. minut += 30
  1417. pcs_mood += 20
  1418. alko += 1
  1419. cumspclnt = 2
  1420. gs 'cum_cleanup'
  1421. pcs_breath = 0
  1422. gs'stat'
  1423. '<<$streetev_title>>'
  1424. '<center><img <<$set_imgh>> src="images/locations/shared/street/teens.jpg"></center>'
  1425. 'You stop a moment and consider it then walk over and take the offered beer. You sit and talk with them for a while and drink the beer. After a bit you decide you should be on your way, you thank them for the beer and say goodbye as you head out.'
  1426. act 'Leave':gt $loc
  1427. end
  1428. else
  1429. gt $loc
  1430. end
  1431. elseif $loc ! 'pavResidential' and $loc ! 'pavCommercial':
  1432. !!City only scenes, these can only happen in the city
  1433. if streetrand > 52:
  1434. *clr & cla
  1435. menu_off = 1
  1436. minut += 5
  1437. gs 'stat'
  1438. '<<$streetev_title>>'
  1439. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1440. 'As you walk down the street you pass a young girl sitting on the sidewalk with some bags next to her, with a cat in her lap and a sign saying that she is homeless, pleading for help.'
  1441. act 'Ignore her':gt $loc
  1442. if money >= 50:
  1443. act 'Give her 50':
  1444. *clr & cla
  1445. money -= 50
  1446. pcs_mood += 20
  1447. gs 'stat'
  1448. '<<$streetev_title>>'
  1449. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1450. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heartwarming smile, as she hugs her cat close to her and whispers to him that they will get to eat tonight.'
  1451. act 'Leave':gt $loc
  1452. if money >= 5000:
  1453. act 'Give her another 5000':
  1454. *clr & cla
  1455. money -= 5000
  1456. pcs_mood += 50
  1457. gs 'stat'
  1458. '<<$streetev_title>>'
  1459. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1460. 'You open your purse up and pull out the money you can spare and hand it to her. She breaks down and cries when she see''s how much money you gave her. She gets up and hugs you tightly with one arm, while holding her cat with the other, thanking you over and over. She smells like she hasn''t bathed for a while, but you don''t mind. She finally lets go of you and as you walk away, she hugs her cat and you hear her tall him that tonight they will sleep indoors and eat.'
  1461. act 'Leave':gt $loc
  1462. end
  1463. end
  1464. end
  1465. end
  1466. if money >= 100:
  1467. act 'Give her 100':
  1468. *clr & cla
  1469. money -= 100
  1470. pcs_mood += 20
  1471. gs 'stat'
  1472. '<<$streetev_title>>'
  1473. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1474. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heartwarming smile, as she hugs her cat close to her and whispers to him that they will get to eat tonight.'
  1475. act 'Leave':gt $loc
  1476. if money >= 5000:
  1477. act 'Give her another 5000':
  1478. *clr & cla
  1479. money -= 5000
  1480. pcs_mood += 50
  1481. gs 'stat'
  1482. '<<$streetev_title>>'
  1483. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1484. 'You open your purse up and pull out the money you can spare and hand it to her. She breaks down and cries when she see''s how much money you gave her. She gets up and hugs you tightly with one arm, while holding her cat with the other, thanking you over and over. She smells like she hasn''t bathed for a while, but you don''t mind. She finally lets go of you and as you walk away, she hugs her cat and you hear her tall him that tonight they will sleep indoors and eat.'
  1485. act 'Leave':gt $loc
  1486. end
  1487. end
  1488. end
  1489. end
  1490. if money >= 250:
  1491. act 'Give her 250':
  1492. *clr & cla
  1493. money -= 250
  1494. pcs_mood += 20
  1495. gs 'stat'
  1496. '<<$streetev_title>>'
  1497. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1498. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heartwarming smile, as she hugs her cat close to her and whispers to him that they will get to eat tonight.'
  1499. act 'Leave':gt $loc
  1500. if money >= 5000:
  1501. act 'Give her another 5000':
  1502. *clr & cla
  1503. '<<$streetev_title>>'
  1504. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1505. money -= 5000
  1506. pcs_mood += 50
  1507. gs 'stat'
  1508. 'You open your purse up and pull out the money you can spare and hand it to her. She breaks down and cries when she see''s how much money you gave her. She gets up and hugs you tightly with one arm, while holding her cat with the other, thanking you over and over. She smells like she hasn''t bathed for a while, but you don''t mind. She finally lets go of you and as you walk away, she hugs her cat and you hear her tall him that tonight they will sleep indoors and eat.'
  1509. act 'Leave':gt $loc
  1510. end
  1511. end
  1512. end
  1513. end
  1514. if money >= 500:
  1515. act 'Give her 500':
  1516. *clr & cla
  1517. money -= 500
  1518. pcs_mood += 20
  1519. gs 'stat'
  1520. '<<$streetev_title>>'
  1521. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1522. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heartwarming smile, as she hugs her cat close to her and whispers to him that they will get to eat tonight.'
  1523. act 'Leave':gt $loc
  1524. if money >= 5000:
  1525. act 'Give her another 5000':
  1526. *clr & cla
  1527. money -= 5000
  1528. pcs_mood += 50
  1529. gs 'stat'
  1530. '<<$streetev_title>>'
  1531. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1532. 'You open your purse up and pull out the money you can spare and hand it to her. She breaks down and cries when she see''s how much money you gave her. She gets up and hugs you tightly with one arm, while holding her cat with the other, thanking you over and over. She smells like she hasn''t bathed for a while, but you don''t mind. She finally lets go of you and as you walk away, she hugs her cat and you hear her tall him that tonight they will sleep indoors and eat.'
  1533. act 'Leave':gt $loc
  1534. end
  1535. end
  1536. end
  1537. end
  1538. if money >= 1000:
  1539. act 'Give her 1000':
  1540. *clr & cla
  1541. money -= 1000
  1542. pcs_mood += 20
  1543. gs 'stat'
  1544. '<<$streetev_title>>'
  1545. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1546. 'You open your purse up and pull out the money you can spare and hand it to her. She thanks you profusely and gives you a heartwarming smile, as she hugs her cat close to her and whispers to him that they will get to eat tonight.'
  1547. act 'Leave':gt $loc
  1548. if money >= 5000:
  1549. act 'Give her another 5000':
  1550. *clr & cla
  1551. money -= 5000
  1552. pcs_mood += 50
  1553. gs 'stat'
  1554. '<<$streetev_title>>'
  1555. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1556. 'You open your purse up and pull out the money you can spare and hand it to her. She breaks down and cries when she see''s how much money you gave her. She gets up and hugs you tightly with one arm, while holding her cat with the other, thanking you over and over. She smells like she hasn''t bathed for a while, but you don''t mind. She finally lets go of you and as you walk away, she hugs her cat and you hear her tall him that tonight they will sleep indoors and eat.'
  1557. act 'Leave':gt $loc
  1558. end
  1559. end
  1560. end
  1561. end
  1562. elseif streetrand > 50:
  1563. if month >= 11 or month <= 3:
  1564. *clr & cla
  1565. menu_off = 1
  1566. minut += 5
  1567. gs 'stat'
  1568. '<<$streetev_title>>'
  1569. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/homeless.jpg"></center>'
  1570. 'As you walk down the street you pass a couple of homeless men laying on a metro gate, using it for warmth in the freezing conditions.'
  1571. act 'Ignore her':gt $loc
  1572. else
  1573. gt $loc
  1574. end
  1575. elseif streetrand > 48:
  1576. if hour >= 8 or hour < 2:
  1577. *clr & cla
  1578. menu_off = 1
  1579. minut += 5
  1580. gs 'stat'
  1581. '<<$streetev_title>>'
  1582. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/gay.jpg"></center>'
  1583. 'As you walk down the street you pass a couple of boys holding hands and occasionally kissing, soon a few other guys come over and start harassing them, calling them all sorts of names.'
  1584. act 'Leave':gt $loc
  1585. else
  1586. gt $loc
  1587. end
  1588. elseif streetrand > 46:
  1589. if (month >= 11 or month <= 3) and hour >= 6 and hour < 18:
  1590. *clr & cla
  1591. menu_off = 1
  1592. minut += 5
  1593. gs 'stat'
  1594. '<<$streetev_title>>'
  1595. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/sell.jpg"></center>'
  1596. 'As you walk down the street you pass an old couple all bundled up again the cold, they have several jars and other homemade food items, along with a couple of household items and jewelry, they are trying to sell.'
  1597. act 'Leave':gt $loc
  1598. else
  1599. gt $loc
  1600. end
  1601. else
  1602. gt $loc
  1603. end
  1604. else
  1605. !!these can only happen in Pav or old town.
  1606. if streetrand > 52:
  1607. if hour >= 12 or hour < 4:
  1608. *clr & cla
  1609. menu_off = 1
  1610. minut += 5
  1611. gs 'stat'
  1612. '<<$streetev_title>>'
  1613. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/hookers.jpg"></center>'
  1614. 'As you walk down the street you see a couple of half-naked women standing on a corner, they approach cars that slow down or men that walk by. It is clear they are prostitutes trying to find customers.'
  1615. act 'Leave':gt $loc
  1616. else
  1617. gt $loc
  1618. end
  1619. elseif streetrand > 50:
  1620. if (month >= 11 or month <= 3) and hour >= 8 and hour < 18:
  1621. *clr & cla
  1622. menu_off = 1
  1623. minut += 5
  1624. gs 'stat'
  1625. '<<$streetev_title>>'
  1626. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/nakedmarket.jpg"></center>'
  1627. 'As you walk down the street you pass a young girl standing in front of a table, covered in varies items, in front of a house. Despite the cold she is completely naked, other than her boots and hat. She is calling for people to come over and take a look at the items for sale. You must admit her technique seems to be working, she and her items are getting a lot of attention.'
  1628. act 'Ignore her':gt $loc
  1629. act 'Browse her wares':
  1630. *clr & cla
  1631. '<<$streetev_title>>'
  1632. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/nakedmarket.jpg"></center>'
  1633. 'You walk over and look over several of the items she has for sale.'
  1634. tovpay1 = rand(3, 8) * 100
  1635. 'She has some cosmetics for <<tovpay1>> <b>₽</b>.'
  1636. if money >= tovpay1:
  1637. act 'Buy the cosmetics (<<tovpay1>> <b>₽</b>)':
  1638. cls
  1639. minut += 15
  1640. money -= tovpay1
  1641. kosmetica += rand(10, 40)
  1642. gs 'stat'
  1643. gt $loc
  1644. end
  1645. end
  1646. tovpay2 = rand(3, 9) * 10
  1647. 'She has lip balm for <<tovpay2>> <b>₽</b>.'
  1648. if money >= tovpay2:
  1649. act 'Buy the lipbalm (<<tovpay2>> <b>₽</b>)':
  1650. cls
  1651. minut += 15
  1652. lipbalm += 20
  1653. money -= tovpay2
  1654. gt $loc
  1655. end
  1656. end
  1657. tovpay3 = rand(2, 5) * 100
  1658. 'She has some vitamins for <<tovpay3>> <b>₽</b>.'
  1659. if money >= tovpay3:
  1660. act 'Buy the vitamins for (<<tovpay3>> <b>₽</b>)':
  1661. cls
  1662. minut += 15
  1663. vitamin += 20
  1664. money -= tovpay3
  1665. gt $loc
  1666. end
  1667. end
  1668. 'She has a romance novel (300 <b>₽</b>)'
  1669. if money >= 300:
  1670. act 'Buy the romance novel (300 <b>₽</b>)':
  1671. cls
  1672. minut += 15
  1673. money -= 300
  1674. w_book += 1
  1675. gt $loc
  1676. end
  1677. end
  1678. act 'Leave':gt $loc
  1679. end
  1680. else
  1681. gt $loc
  1682. end
  1683. elseif streetrand > 48:
  1684. if hour >= 8 and hour < 18:
  1685. *clr
  1686. cla
  1687. menu_off = 1
  1688. minut += 5
  1689. gs 'stat'
  1690. '<<$streetev_title>>'
  1691. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/yardsale.jpg"></center>'
  1692. 'As you walk down the street you pass several tables full of varies items, it seems several people have got together and set up an impromptu market here.'
  1693. act 'Ignore it':gt $loc
  1694. act 'Browse the wares':
  1695. *clr & cla
  1696. '<<$streetev_title>>'
  1697. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/nakedmarket.jpg"></center>'
  1698. 'You walk over and look over several of the items they have for sale.'
  1699. tovpay1 = rand(3, 8) * 100
  1700. 'They have some cosmetics for <<tovpay1>> <b>₽</b>.'
  1701. if money >= tovpay1:
  1702. act 'Buy the cosmetics (<<tovpay1>> <b>₽</b>)':
  1703. cls
  1704. minut += 15
  1705. money -= tovpay1
  1706. kosmetica += rand(10, 40)
  1707. gs 'stat'
  1708. gt $loc
  1709. end
  1710. end
  1711. tovpay2 = rand(3, 9) * 10
  1712. 'They have lip balm for <<tovpay2>> <b>₽</b>.'
  1713. if money >= tovpay2:
  1714. act 'Buy the lipbalm (<<tovpay2>> <b>₽</b>)':
  1715. cls
  1716. minut += 15
  1717. lipbalm += 20
  1718. money -= tovpay2
  1719. gt $loc
  1720. end
  1721. end
  1722. tovpay3 = rand(2, 5) * 100
  1723. 'They have some vitamins for <<tovpay3>> <b>₽</b>.'
  1724. if money >= tovpay3:
  1725. act 'Buy the vitamins for (<<tovpay3>> <b>₽</b>)':
  1726. cls
  1727. minut += 15
  1728. vitamin += 20
  1729. money -= tovpay3
  1730. gt $loc
  1731. end
  1732. end
  1733. 'They have a romance novel (300 <b>₽</b>)'
  1734. if money >= 300:
  1735. act 'Buy the romance novel (300 <b>₽</b>)':
  1736. cls
  1737. minut += 15
  1738. money -= 300
  1739. w_book += 1
  1740. gt $loc
  1741. end
  1742. end
  1743. act 'Leave': gt $loc
  1744. end
  1745. else
  1746. gt $loc
  1747. end
  1748. elseif streetrand > 46 and $pantyworntype = 'none' and PCloSkirt > 2 and hour > 6 and hour <= 20:
  1749. if exhibitionist_lvl = 0: pcs_mood -= 2
  1750. pcs_horny += pcs_exhib/5
  1751. *clr & cla
  1752. menu_off = 1
  1753. minut += 5
  1754. gs 'stat'
  1755. '<<$streetev_title>>'
  1756. '<center><img src="images/locations/shared/street/oldladies.jpg"></center>'
  1757. 'As you walk by a group of old women sitting on a bench next to one of the buildings, you overhear them talking loudly in your direction. "Look at that whore! She is walking around in a short skirt and no panties, everyone can see her ass!" Another one responds to the first. "She should be ashamed of herself, even whores have more decency than her."'
  1758. if $loc ! 'pavResidential' and $loc ! 'pavCommercial':
  1759. 'Then a third joins in. "Her mother is the one that should be ashamed, what kind of mother raises a daughter that acts like that?"'
  1760. else
  1761. 'Then a third joins in. "Well what would you expect from a daughter of Natasha, the apple doesn''t fall far from the tree." The other murmur in agreement.'
  1762. end
  1763. if pcs_inhib >= 50:
  1764. '<i>What? So now it''s a crime to prefer going commando now?</i> you think to yourself in annoyance as you continue passing by.'
  1765. elseif exhibitionist_lvl = 0:
  1766. 'You blush in shame from the old ladies caustic remarks and hurry on your way.'
  1767. end
  1768. act 'Continue':gt $loc
  1769. else
  1770. gt $loc
  1771. end
  1772. end
  1773. else
  1774. gt $loc
  1775. end
  1776. end
  1777. --- street_event ---------------------------------