1
0

street_event.qsrc 71 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673
  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 = 3
  24. streetev_hijack = 2
  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 = 1
  34. streetev_hijack = 6
  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 = 5
  44. streetev_hijack = 1
  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 = 3
  54. streetev_hijack = 2
  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 = 1
  64. streetev_hijack = 6
  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] = 'island':
  72. $streetev_title = '<center><b>Island</b></center>'
  73. streetev_rob = 1
  74. streetev_hijack = 6
  75. streetev_bf = 90
  76. streetev_mistmeet = 20
  77. if student > 0:
  78. streetev_home = 1
  79. $streetev_home = 'near the entrance to your dorm'
  80. end
  81. else
  82. $streetev_title = '<center><b>in dark</b></center>'
  83. streetev_rape = 10
  84. streetev_rob = 1
  85. streetev_hijack = 1
  86. streetev_bf = 90
  87. end
  88. if $ARGS[1] = 'extras':
  89. if rand(0, 100) < streetev_bf and pcs_lover < 3 and streetbfhour ! hour:
  90. streetbfhour = hour
  91. vnerand = rand(0, 1200)
  92. !! 5% chance to meet a girl if no previous lesbian experience, up to a max of 25% with lots of experience
  93. lesbian_lover = (rand(1,100) <= 25 - (20/(lesbian + 1)))
  94. if vnerand <= pcs_apprnc and lesbian_lover:
  95. gt 'dateF', 'start'
  96. elseif vnerand <= pcs_apprnc:
  97. gt 'dateM', 'start'
  98. end
  99. end
  100. if streetev_home = 1:
  101. 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>.'
  102. 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>.'
  103. if hour = meethour[0]:
  104. if svidanie[0] = 1:'<b><a href="exec:lover_number = 0 & gt ''lover_meet'', ''start''"><<$loverdesc[0]>></a> is waiting <<$streetev_home>>.</b>'
  105. end
  106. if hour = meethour[1]:
  107. if svidanie[1] = 1:'<b><a href="exec:lover_number = 1 & gt ''lover_meet'', ''start''"><<$loverdesc[1]>></a> is waiting <<$streetev_home>>.</b>'
  108. end
  109. if hour = meethour[2]:
  110. if svidanie[2] = 1:'<b><a href="exec:lover_number = 2 & gt ''lover_meet'', ''start''"><<$loverdesc[2]>></a> is waiting <<$streetev_home>>.</b>'
  111. end
  112. end
  113. end
  114. if $ARGS[1] = 'main':
  115. 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'
  116. streetrand = rand(0, 100)
  117. !!start of old random street events that can always happen.
  118. !!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.
  119. !!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
  120. !!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
  121. if $loc = 'pavResidential' or $loc = 'pavCommercial':
  122. if $clothingworntype = 'nude':
  123. if alko >= 6:
  124. streetev_rape = 50
  125. else
  126. streetev_rape = 20
  127. end
  128. elseif $clothingworntype = 'exhibit' or PCloBimbo = 1:
  129. if alko >= 6:
  130. streetev_rape = 10
  131. else
  132. streetev_rape = 5
  133. end
  134. elseif PCloExhibit > 30:
  135. if alko >= 6:
  136. streetev_rape = 3
  137. else
  138. streetev_rape = 6
  139. end
  140. else
  141. if alko >= 6:
  142. streetev_rape = 2
  143. else
  144. streetev_rape = 4
  145. end
  146. end
  147. else
  148. if $clothingworntype = 'nude':
  149. if alko >= 6:
  150. streetev_rape = 50
  151. else
  152. streetev_rape = 20
  153. end
  154. elseif $clothingworntype = 'exhibit' or PCloBimbo = 1:
  155. if alko >= 6:
  156. streetev_rape = 20
  157. else
  158. streetev_rape = 10
  159. end
  160. elseif PCloExhibit > 30:
  161. if alko >= 6:
  162. streetev_rape = 10
  163. else
  164. streetev_rape = 5
  165. end
  166. else
  167. if alko >= 6:
  168. streetev_rape = 2
  169. else
  170. streetev_rape = 5
  171. end
  172. end
  173. end
  174. if streetrand < streetev_rape and hour <= 3 and streetev_day ! daystart:
  175. *clr & cla
  176. menu_off = 1
  177. streetev_day = daystart
  178. '<<$streetev_title>>'
  179. '<center><img src="images/locations/shared/street/rapist.jpg"></center>'
  180. '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."'
  181. gs 'npcgeneratec', 0, 'Rapist', rand(18,45)
  182. gs 'boyStat', $npclastgenerated
  183. gs 'stat'
  184. act 'Submit to the rape':
  185. gs 'dinsexFX'
  186. *clr & cla
  187. pose = 3
  188. guy += 1
  189. '<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dogging.jpg"></center>'
  190. '<center><img src="images/locations/shared/street/alleynight.jpg"></center>'
  191. if $clothingworntype ! 'nude':
  192. '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.'
  193. else
  194. '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.'
  195. end
  196. act 'Stay silent':
  197. cla
  198. *nl
  199. dynamic $vagstart2
  200. '"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.'
  201. gs 'arousal', 'vaginal', 10, 'sub'
  202. gs 'cum_call','',$boy,1
  203. gs 'arousal', 'end'
  204. gs 'stat'
  205. act 'Leave':gt $loc
  206. end
  207. act 'Please don''t get me pregnant':
  208. cla
  209. *nl
  210. if prezik > 0:
  211. protect = 2
  212. dynamic $prezik
  213. '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.'
  214. else
  215. 'You don''t have a condom and he just laughs at you'
  216. end
  217. dynamic $vagstart2
  218. '"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.'
  219. gs 'arousal', 'vaginal', 10, 'sub'
  220. gs 'cum_call','',$boy,1
  221. gs 'arousal', 'end'
  222. gs 'stat'
  223. act 'Leave':gt $loc
  224. end
  225. end
  226. act 'Attempt to escape':
  227. if pcs_run < 10:
  228. peshimraperand = rand(0, 11)
  229. elseif pcs_run < 30:
  230. peshimraperand = rand(0, 20)
  231. elseif pcs_run < 50:
  232. peshimraperand = rand(0, 30)
  233. elseif pcs_run < 70:
  234. peshimraperand = rand(0, 40)
  235. elseif pcs_run < 90:
  236. peshimraperand = rand(0, 50)
  237. elseif pcs_run < 110:
  238. peshimraperand = rand(0, 60)
  239. elseif pcs_run < 130:
  240. peshimraperand = rand(0, 70)
  241. elseif pcs_run < 150:
  242. peshimraperand = rand(0, 80)
  243. elseif pcs_run < 170:
  244. peshimraperand = rand(0, 90)
  245. else
  246. peshimraperand = 11
  247. end
  248. if peshimraperand <= 10:
  249. cla
  250. 'You try to run away, but you''re not quick enough and he catches you. He drags you back into an alley.'
  251. dynamic $vagstart2
  252. '"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.'
  253. gs 'arousal', 'vaginal', 10, 'sub'
  254. gs 'cum_call','',$boy,1
  255. gs 'arousal', 'end'
  256. gs 'stat'
  257. act 'Leave':gt $loc
  258. else
  259. *clr & cla
  260. '<center><img src="images/locations/shared/street/alleynight.jpg"></center>'
  261. 'You manage to lose him and get to a safer well lit area.'
  262. act 'Continue':gt $loc
  263. end
  264. end
  265. act 'Fight':
  266. cla
  267. !!stats
  268. strenV = 100
  269. speedV = 50
  270. agilV = 40
  271. reactV = 40
  272. vitalV = 50
  273. intelV = 10
  274. willV = 10
  275. !!skills
  276. magikV = 100
  277. boxingV = 50
  278. shootV = 100
  279. !!parameters
  280. healthV = vitalV * 10 + strenV * 5
  281. mannaV = intelV * 10 + magikV * 10
  282. willpowerV = willV * 10
  283. BonusAtakV = 0
  284. BonusDefV = 0
  285. !!Programme of Action
  286. program = 0
  287. RapistFight = 1
  288. if spellavtoklon = 1:klon = 3
  289. if spellbefshild = 1:defence = 500
  290. gt 'fight', 'start'
  291. end
  292. if succubusQW = 5:
  293. !!Used if this was a random encounter instead of active hunting
  294. act 'Lure him in and feed (this can take a lot of time)':
  295. cla
  296. 'You wait until he has dragged you into the alley before turning on him.'
  297. act 'Continue': gt 'succubus', 'RapistFight'
  298. end
  299. end
  300. exit
  301. end
  302. streetrand = rand(0, 100)
  303. if streetrand < streetev_rob and money >= 1000 and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1:
  304. !!I would like this one only to happen from 20:00 till 06:00 as the times it can happen.
  305. *clr & cla
  306. menu_off = 1
  307. streetev_day = daystart
  308. gs 'stat'
  309. '<<$streetev_title>>'
  310. '<center><img src="images/locations/shared/street/mugger.jpg"></center>'
  311. '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."'
  312. act 'Attempt to escape':
  313. '<center><img src="images/locations/shared/street/alleynight.jpg"></center>'
  314. if pcs_run < 10:
  315. peshimraperand = rand(0, 11)
  316. elseif pcs_run < 30:
  317. peshimraperand = rand(0, 20)
  318. elseif pcs_run < 50:
  319. peshimraperand = rand(0, 30)
  320. elseif pcs_run < 70:
  321. peshimraperand = rand(0, 40)
  322. elseif pcs_run < 90:
  323. peshimraperand = rand(0, 50)
  324. elseif pcs_run < 110:
  325. peshimraperand = rand(0, 60)
  326. elseif pcs_run < 130:
  327. peshimraperand = rand(0, 70)
  328. elseif pcs_run < 150:
  329. peshimraperand = rand(0, 80)
  330. elseif pcs_run < 170:
  331. peshimraperand = rand(0, 90)
  332. else
  333. peshimraperand = 11
  334. end
  335. if peshimraperand <= 10:
  336. *clr & cla
  337. 'He drags you back into an alley.'
  338. money = 0
  339. gs 'stat'
  340. '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.'
  341. act 'Leave':gt $loc
  342. else
  343. cla
  344. 'You manage to lose him and get to a safer well lit area.'
  345. act 'Continue':gt $loc
  346. end
  347. end
  348. act 'Don''t fight, just give him your money':
  349. cla
  350. money = 0
  351. gs 'stat'
  352. '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.'
  353. act 'Leave':gt $loc
  354. end
  355. act 'Fight':
  356. cla
  357. 'You clutch your purse to your body and tell him. "Fuck you asshole!" He snarls and lunges at you.'
  358. act 'Defend yourself':
  359. cla
  360. gs 'npcgeneratec', 0, 'Robber', rand(18,45)
  361. gs 'boyStat', $npclastgenerated
  362. !!stats
  363. strenV = 100
  364. speedV = 50
  365. agilV = 40
  366. reactV = 40
  367. vitalV = 50
  368. intelV = 10
  369. willV = 10
  370. !!skills
  371. magikV = 100
  372. boxingV = 50
  373. shootV = 100
  374. !!parameters
  375. healthV = vitalV * 10 + strenV * 5
  376. mannaV = intelV * 10 + magikV * 10
  377. willpowerV = willV * 10
  378. BonusAtakV = 0
  379. BonusDefV = 0
  380. !!Programme of Action
  381. program = 0
  382. RapistFight = 1
  383. if spellavtoklon = 1:klon = 3
  384. if spellbefshild = 1:defence = 500
  385. gt 'fight', 'start'
  386. end
  387. end
  388. exit
  389. end
  390. streetrand = rand(0, 100)
  391. if streetrand < streetev_hijack and money >= 1000 and daystart >= 10 and (hour >= 6 or hour < 20) and streetev_day ! daystart and bag = 1:
  392. !!this one takes the place of the above mugging if the hours are 06:00 till 20:00
  393. *clr & cla
  394. menu_off = 1
  395. gs'stat'
  396. streetev_day = daystart
  397. '<<$streetev_title>>'
  398. '<center><img src="images/locations/shared/street/pursesnatch.jpg"></center>'
  399. '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.'
  400. act 'It''s only money':
  401. *clr & cla
  402. money = 0
  403. gs 'stat'
  404. act 'That jackass':gt $loc
  405. end
  406. act 'Chase him':
  407. *clr & cla
  408. if pcs_run + pcs_stam < rand(120,250):
  409. money = 0
  410. gs 'stat'
  411. '<<$streetev_title>>'
  412. '<center><img src="images/locations/shared/street/purselose.jpg"></center>'
  413. '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.'
  414. act 'Continue': gt $loc
  415. else
  416. gs 'npcgeneratec', 0, 'Purse Snatcher', rand(18,45)
  417. gs 'boyStat', $npclastgenerated
  418. !!stats
  419. strenV = 100
  420. speedV = 50
  421. agilV = 40
  422. reactV = 40
  423. vitalV = 50
  424. intelV = 10
  425. willV = 10
  426. !!skills
  427. magikV = 100
  428. boxingV = 50
  429. shootV = 100
  430. !!parameters
  431. healthV = vitalV * 10 + strenV * 5
  432. mannaV = intelV * 10 + magikV * 10
  433. willpowerV = willV * 10
  434. BonusAtakV = 0
  435. BonusDefV = 0
  436. !!Programme of Action
  437. program = 0
  438. RapistFight = 1
  439. if spellavtoklon = 1:klon = 3
  440. if spellbefshild = 1:defence = 500
  441. '<<$streetev_title>>'
  442. '<center><img src="images/locations/shared/street/pursechase.jpg"></center>'
  443. '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 a alley when you are nearly on top of him. He leaps over a overturned trash can, obviously still hoping to get away from you. You easily leap of it as well and a few steps later you tackle him, sending both of you rolling on the ground. As you regain your feet you see he has as well, just as he lunges at you.'
  444. act 'Fight':gt 'fight', 'start'
  445. end
  446. end
  447. exit
  448. end
  449. !!end of old random street events that can always happen
  450. !!start of story street events that happen only if other events have happened.
  451. if shantpopala > 0:
  452. *clr & cla
  453. menu_off = 1
  454. hour += 8
  455. spafinloc = 14
  456. gs 'cum_manage'
  457. spafinloc = 4
  458. gs 'cum_manage'
  459. spafinloc = 12
  460. gs 'cum_manage'
  461. spafinloc = 11
  462. gs 'cum_manage'
  463. spafinloc = 7
  464. gs 'cum_manage'
  465. spafinloc = 3
  466. gs 'cum_manage'
  467. fingal += 1
  468. guy += 2
  469. rape += 1
  470. shantpopala -= 1
  471. '<center><img src="images/locations/shared/street/kidnap.jpg"></center>'
  472. '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.'
  473. '"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.'
  474. '"No... what? What the hell is going on? I don''t know what you''re talking about!", you try to feign innocence.'
  475. '"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.'
  476. '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.'
  477. 'You notice that the blokes, who captured you sit next to you and seem to have a break, some of them are smoking.'
  478. '"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.'
  479. '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.'
  480. '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.'
  481. gs 'arousal', 'bj', 40, 'group', 'rough', 'sub'
  482. gs 'arousal', 'vaginal', 40, 'group', 'rough', 'sub'
  483. gs 'arousal', 'anal', 40, 'group', 'rough', 'sub'
  484. minut -= 40
  485. gs 'arousal', 'end'
  486. gs 'stat'
  487. act 'Leave':gt $loc
  488. exit
  489. end
  490. !!end of old street events that start from other stories.
  491. !!start of old street events outside of home only, chained from other story events.
  492. if streetev_home = 1:
  493. if workDolgDay <= 0 and workDolg > 0:
  494. cls
  495. menu_off = 1
  496. gs 'stat'
  497. workDisk = 0
  498. '<center><img src="images/locations/city/residential/street/bug.jpg"></center>'
  499. '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."'
  500. if money >= workDolg:
  501. money -= workDolg
  502. workDolg = 0
  503. '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.'
  504. act 'Leave':gt $loc
  505. exit
  506. else
  507. if money + stolmoney + karta >= workDolg:
  508. money += stolmoney + karta
  509. stolmoney = 0
  510. karta = 0
  511. money -= workDolg
  512. workDolg = 0
  513. '"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.'
  514. act 'Leave':gt $loc
  515. exit
  516. else
  517. money += stolmoney + karta
  518. stolmoney = 0
  519. karta = 0
  520. workDolg -= money
  521. money = 0
  522. workDolg += 10000
  523. '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.'
  524. '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.'
  525. act 'Out of the car':
  526. cls
  527. minut += 30
  528. gs 'stat'
  529. '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?"'
  530. 'You become frightened as they''re convincing, so you just nod.'
  531. act 'Look around':gt 'sauna', 'saunaroom'
  532. end
  533. end
  534. end
  535. exit
  536. end
  537. if workDiskAtkPlayer = 1:
  538. menu_off = 1
  539. workDisk = 1
  540. workDiskAtkPlayer = 0
  541. gs 'stat'
  542. '<center><img src="images/locations/city/residential/street/car.jpg"></center>'
  543. '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.'
  544. if konvert = 0:
  545. workDolg = 200000
  546. workDolgDay = 7
  547. '"It''s stolen."'
  548. '"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."'
  549. else
  550. konvert = 0
  551. money += 5000
  552. 'You give the envelope. He warns you that such delays in the future may be harmful to your business relationships.'
  553. end
  554. act 'Leave':gt $loc
  555. exit
  556. end
  557. if pcs_magik >= 1 and mainQW = 0 and StoryLine = 0:
  558. *clr & cla
  559. menu_off = 1
  560. mainQW = 1
  561. gs 'stat'
  562. '<center><img src="images/locations/city/citycenter/lab/event/main.jpg"></center>'
  563. '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.'
  564. 'Tatiana looks at you closely, "I felt a burst of energy. Were you attacked by a magician?"'
  565. act 'No':gt 'mainQW'
  566. exit
  567. end
  568. end
  569. !!end home-related events
  570. !!street incidental events
  571. if streetrand > 90:
  572. streetrand = rand(0,100)
  573. if streetrand > 98:
  574. if hour >= 8 and hour < 22:
  575. *clr & cla
  576. menu_off = 1
  577. minut += 5
  578. gs 'stat'
  579. '<<$streetev_title>>'
  580. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarb'+ rand(1,2) +'.jpg"></center>'
  581. '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.'
  582. act 'Ignore':gt $loc
  583. act 'Listen':
  584. cla
  585. minut += 5
  586. minut += 10
  587. pcs_mood += 10
  588. gs 'stat'
  589. *nl
  590. '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.'
  591. act 'Leave':gt $loc
  592. if money > 50:
  593. act 'Give him money':
  594. cla
  595. minut += 5
  596. money -= 50
  597. pcs_mood += 10
  598. gs 'stat'
  599. *nl
  600. '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.'
  601. act 'Leave':gt $loc
  602. end
  603. end
  604. end
  605. else
  606. gt $loc
  607. end
  608. elseif streetrand > 96:
  609. if hour >= 8 and hour < 22:
  610. *clr & cla
  611. menu_off = 1
  612. minut += 5
  613. gs 'stat'
  614. '<<$streetev_title>>'
  615. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarg1.jpg"></center>'
  616. '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.'
  617. act 'Leave':gt $loc
  618. act 'Listen':
  619. *clr & cla
  620. minut += 10
  621. pcs_mood += 10
  622. gs 'stat'
  623. '<<$streetev_title>>'
  624. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarg1.jpg"></center>'
  625. '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.'
  626. act 'Leave':gt $loc
  627. if money > 50:
  628. act 'Give her money':
  629. *clr & cla
  630. minut += 5
  631. money -= 50
  632. pcs_mood += 10
  633. gs 'stat'
  634. '<<$streetev_title>>'
  635. '<center><img <<$set_imgh>> src="images/locations/shared/street/guitarg1.jpg"></center>'
  636. '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.'
  637. act 'Leave':gt $loc
  638. end
  639. end
  640. end
  641. else
  642. gt $loc
  643. end
  644. elseif streetrand > 94:
  645. if hour >= 8 and hour < 22:
  646. *clr & cla
  647. menu_off = 1
  648. minut += 5
  649. gs 'stat'
  650. '<<$streetev_title>>'
  651. '<center><img <<$set_imgh>> src="images/locations/shared/street/violinb1.jpg"></center>'
  652. '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.'
  653. act 'Leave':gt $loc
  654. act 'Listen':
  655. *clr & cla
  656. minut += 10
  657. pcs_mood += 10
  658. gs 'stat'
  659. '<<$streetev_title>>'
  660. '<center><img <<$set_imgh>> src="images/locations/shared/street/violinb1.jpg"></center>'
  661. '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.'
  662. act 'Leave':gt $loc
  663. if money > 50:
  664. act 'Give him money':
  665. *clr & cla
  666. minut += 5
  667. money -= 50
  668. pcs_mood += 10
  669. gs 'stat'
  670. '<<$streetev_title>>'
  671. '<center><img <<$set_imgh>> src="images/locations/shared/street/violinb1.jpg"></center>'
  672. '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.'
  673. act 'Leave':gt $loc
  674. end
  675. end
  676. end
  677. else
  678. gt $loc
  679. end
  680. elseif streetrand > 92:
  681. if hour >= 8 and hour < 22:
  682. *clr & cla
  683. menu_off = 1
  684. minut += 5
  685. gs 'stat'
  686. '<<$streetev_title>>'
  687. '<center><img <<$set_imgh>> src="images/locations/shared/street/violing1.jpg"></center>'
  688. '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.'
  689. act 'Leave':gt $loc
  690. act 'Listen':
  691. *clr & cla
  692. minut += 10
  693. pcs_mood += 10
  694. gs 'stat'
  695. '<<$streetev_title>>'
  696. '<center><img <<$set_imgh>> src="images/locations/shared/street/violing1.jpg"></center>'
  697. '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.'
  698. act 'Leave':gt $loc
  699. if money > 50:
  700. act 'Give her money':
  701. *clr & cla
  702. minut += 5
  703. money -= 50
  704. pcs_mood += 10
  705. gs 'stat'
  706. '<<$streetev_title>>'
  707. '<center><img <<$set_imgh>> src="images/locations/shared/street/violing1.jpg"></center>'
  708. '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.'
  709. act 'Leave':gt $loc
  710. end
  711. end
  712. end
  713. else
  714. gt $loc
  715. end
  716. elseif streetrand > 90:
  717. minut += 5
  718. if hour >= 8 and hour < 18:
  719. *clr & cla
  720. menu_off = 1
  721. gs 'stat'
  722. '<<$streetev_title>>'
  723. '<center><img <<$set_imgh>> src="images/locations/shared/street/artist.jpg"></center>'
  724. '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>"'
  725. act 'Leave':gt $loc
  726. act 'Get your portrait done':
  727. *clr & cla
  728. minut += 30
  729. money -= 50
  730. pcs_mood += 10
  731. gs 'stat'
  732. '<<$streetev_title>>'
  733. '<center><img <<$set_imgh>> src="images/locations/shared/street/artist.jpg"></center>'
  734. '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.'
  735. act 'Leave':gt $loc
  736. end
  737. else
  738. gt $loc
  739. end
  740. elseif streetrand > 88:
  741. *clr & cla
  742. menu_off = 1
  743. minut += 5
  744. gs 'stat'
  745. '<<$streetev_title>>'
  746. '<center><img <<$set_imgh>> src="images/locations/shared/street/assgrab.jpg"></center>'
  747. '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.'
  748. act 'Ignore':gt $loc
  749. act 'Slap him':
  750. *clr & cla
  751. '<<$streetev_title>>'
  752. '<center><img <<$set_imgh>> src="images/locations/shared/street/slapb.jpg"></center>'
  753. '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.'
  754. act 'Leave':gt $loc
  755. end
  756. elseif streetrand > 86:
  757. *clr & cla
  758. menu_off = 1
  759. minut += 5
  760. gs 'stat'
  761. '<<$streetev_title>>'
  762. '<center><img <<$set_imgh>> src="images/locations/shared/street/beatup.jpg"></center>'
  763. '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.'
  764. act 'Continue':gt $loc
  765. elseif streetrand > 84:
  766. if hour >= 9:
  767. menu_off = 1
  768. !!first one is dress with panties
  769. if PCloSkirt > 0 and $pantyworntype ! 'none' and CloOnePiece = 1:
  770. !!all the getting partially stripped ones from 09:00 till 24:00
  771. *clr & cla
  772. minut += 5
  773. '<<$streetev_title>>'
  774. '<center><video autoplay loop src="images/locations/shared/street/bottomed1.mp4"></video></center>'
  775. '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.'
  776. if exhibitionist_lvl = 1:
  777. gs 'exhibitionism', 2
  778. pcs_mood += 10
  779. '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.'
  780. elseif exhibitionist_lvl > 1:
  781. pcs_mood -= 2
  782. '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.'
  783. else
  784. pcs_mood -= 10
  785. '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.'
  786. end
  787. gs 'stat'
  788. act 'Continue':gt $loc
  789. !!dress without panties
  790. elseif PCloSkirt > 0 and $pantyworntype = 'none' and CloOnePiece = 1:
  791. *clr & cla
  792. minut += 5
  793. '<<$streetev_title>>'
  794. '<center><video autoplay loop src="images/locations/shared/street/sharkdress.mp4"></video></center>'
  795. '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.'
  796. if exhibitionist_lvl = 1:
  797. gs 'exhibitionism', 3
  798. pcs_mood += 10
  799. '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 a extra bit of sway in your hips.'
  800. elseif exhibitionist_lvl > 1:
  801. '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.'
  802. else
  803. pcs_mood -= 10
  804. 'You look around and notice several people staring at you, you are sure they seen. You blush bright red and hurry on your way.'
  805. end
  806. gs 'stat'
  807. act 'Continue':gt $loc
  808. !!skirt with panties
  809. elseif PCloSkirt > 0 and $pantyworntype ! 'none':
  810. *clr & cla
  811. minut += 5
  812. '<<$streetev_title>>'
  813. '<center><video autoplay loop src="images/locations/shared/street/bottomeds'+ rand(1,2) +'.mp4"></video></center>'
  814. '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.'
  815. if exhibitionist_lvl = 1:
  816. gs 'exhibitionism', 2
  817. pcs_mood += 10
  818. '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.'
  819. elseif exhibitionist_lvl > 1:
  820. pcs_mood -= 2
  821. '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.'
  822. else
  823. pcs_mood -= 10
  824. '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.'
  825. end
  826. gs 'stat'
  827. act 'Continue':gt $loc
  828. !!if one of the above isn''t true then this is what happens
  829. else
  830. *clr & cla
  831. minut += 5
  832. '<<$streetev_title>>'
  833. '<center><video autoplay loop src="images/locations/shared/street/topped'+ rand(1,2) +'.mp4"></video></center>'
  834. '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.'
  835. if exhibitionist_lvl = 1:
  836. gs 'exhibitionism', 2
  837. pcs_mood += 10
  838. '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.'
  839. elseif exhibitionist_lvl > 1:
  840. pcs_mood -= 2
  841. '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.'
  842. else
  843. pcs_mood -= 10
  844. '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.'
  845. end
  846. gs 'stat'
  847. act 'Continue':gt $loc
  848. end
  849. else
  850. gt $loc
  851. end
  852. elseif streetrand > 82:
  853. if PCloSkirt > 0 and $pantyworntype ! 'none':
  854. *clr & cla
  855. menu_off = 1
  856. minut += 5
  857. gs 'stat'
  858. '<<$streetev_title>>'
  859. '<center><video autoplay loop src="images/locations/shared/street/breeze.mp4"></video></center>'
  860. '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.'
  861. if exhibitionist_lvl = 1:
  862. gs 'exhibitionism', 1
  863. pcs_mood += 10
  864. '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.'
  865. elseif exhibitionist_lvl > 1:
  866. pcs_mood -= 2
  867. '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.'
  868. else
  869. pcs_mood -= 10
  870. '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.'
  871. end
  872. gs 'stat'
  873. act 'Continue':gt $loc
  874. else
  875. gt $loc
  876. end
  877. elseif streetrand > 80:
  878. cla
  879. if hour >= 9 or hour < 2:
  880. *clr & cla
  881. menu_off = 1
  882. gs 'stat'
  883. '<<$streetev_title>>'
  884. '<center><video autoplay loop src="images/locations/shared/street/couple1.mp4"></video></center>'
  885. '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.'
  886. gs 'arousal', 'voyeur', 5
  887. gs 'arousal', 'end'
  888. gs 'stat'
  889. act 'Continue':gt $loc
  890. else
  891. gt $loc
  892. end
  893. elseif streetrand > 78:
  894. cla
  895. if hour >= 9 or hour < 2:
  896. *clr & cla
  897. menu_off = 1
  898. gs 'stat'
  899. '<<$streetev_title>>'
  900. '<center><img <<$set_imgh>> src="images/locations/shared/street/lesbians.jpg"></center>'
  901. '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.'
  902. gs 'arousal', 'voyeur', 5
  903. gs 'arousal', 'end'
  904. gs 'stat'
  905. act 'Continue':gt $loc
  906. else
  907. gt $loc
  908. end
  909. elseif streetrand > 76:
  910. if hour >= 7 and hour < 22:
  911. *clr & cla
  912. menu_off = 1
  913. minut += 5
  914. pcs_horny += 5
  915. gs 'stat'
  916. '<<$streetev_title>>'
  917. '<center><img <<$set_imgh>> src="images/locations/shared/street/lostkey.jpg"></center>'
  918. '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.'
  919. act 'Continue':gt $loc
  920. else
  921. gt $loc
  922. end
  923. elseif streetrand > 74:
  924. *clr & cla
  925. menu_off = 1
  926. minut += 5
  927. gs 'stat'
  928. '<<$streetev_title>>'
  929. '<center><img <<$set_imgh>> src="images/locations/shared/street/fightb.jpg"></center>'
  930. '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.'
  931. act 'Ignore it':gt $loc
  932. act 'Stop and watch':
  933. *clr & cla
  934. minut += 5
  935. gs 'stat'
  936. '<<$streetev_title>>'
  937. '<center><img <<$set_imgh>> src="images/locations/shared/street/fightb.jpg"></center>'
  938. '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.'
  939. act 'Leave':gt $loc
  940. end
  941. elseif streetrand > 72:
  942. *clr & cla
  943. menu_off = 1
  944. minut += 5
  945. gs 'stat'
  946. '<<$streetev_title>>'
  947. if $loc = 'pavCommercial' or $loc = 'pavResidential':
  948. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/fightg1.jpg"></center>'
  949. else
  950. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/fightg1.jpg"></center>'
  951. end
  952. '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.'
  953. act 'Ignore it':gt $loc
  954. act 'Stop and watch':
  955. *clr & cla
  956. minut += 5
  957. '<<$streetev_title>>'
  958. if $loc = 'pavCommercial' or $loc = 'pavResidential':
  959. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/fightg1.jpg"></center>'
  960. else
  961. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/fightg1.jpg"></center>'
  962. end
  963. '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.'
  964. act 'Leave':gt $loc
  965. act 'Help her':
  966. cla
  967. minut += 5
  968. *nl
  969. '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.'
  970. act 'Leave':gt $loc
  971. end
  972. end
  973. elseif streetrand > 70:
  974. if hour >= 9 and hour < 22:
  975. *clr & cla
  976. menu_off = 1
  977. gs 'stat'
  978. '<<$streetev_title>>'
  979. if month >= 11 or month <= 3:
  980. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlflashw'+ rand(1,2) +'.jpg"></center>'
  981. else
  982. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlfash1.jpg"></center>'
  983. end
  984. '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.'
  985. gs 'arousal', 'voyeur', 5
  986. act 'Continue':gt $loc
  987. if exhibitionist_lvl > 0:
  988. act 'Flash her back':
  989. *clr & cla
  990. gs 'exhibitionism', 1
  991. '<<$streetev_title>>'
  992. if PCloSkirt > 0:
  993. '<center><img <<$set_imgh>> src="images/pc/flashing/dress/outside/tits/' + rand(1,12) + '.jpg"></center>'
  994. 'You grin at her as she flashes you and you lift your shirt flashing your tits back at her, which makes her laugh.'
  995. else
  996. '<center><img <<$set_imgh>> src="images/pc/flashing/pants/outside/tits/' + rand(1,14) + '.jpg"></center>'
  997. 'You grin at her as she flashes you and you lift your shirt flashing your tits back at her, which makes her laugh.'
  998. end
  999. gs 'stat'
  1000. act 'Continue':gt $loc
  1001. end
  1002. end
  1003. else
  1004. gt $loc
  1005. end
  1006. elseif streetrand > 68:
  1007. if hour >= 12 or hour < 2:
  1008. *clr & cla
  1009. menu_off = 1
  1010. minut += 5
  1011. gs 'stat'
  1012. '<<$streetev_title>>'
  1013. '<center><img <<$set_imgh>> src="images/locations/shared/street/girls1.jpg"></center>'
  1014. if hotcat > 5:
  1015. pcs_mood += 20
  1016. '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.'
  1017. act 'Continue':gt $loc
  1018. else
  1019. pcs_mood -= 20
  1020. '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.'
  1021. act 'Ignore them':gt $loc
  1022. act 'Tell them off':
  1023. *clr & cla
  1024. '<<$streetev_title>>'
  1025. '<center><img <<$set_imgh>> src="images/locations/shared/street/girls1.jpg"></center>'
  1026. '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."'
  1027. act 'Hurry away in shame':gt $loc
  1028. act 'Bring it Bitch!':
  1029. *clr & cla
  1030. '<<$streetev_title>>'
  1031. $boydesc = 'The group of girls'
  1032. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlgang.jpg"></center>'
  1033. '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.'
  1034. !!stats
  1035. strenV = 100
  1036. speedV = 50
  1037. agilV = 60
  1038. reactV = 60
  1039. vitalV = 60
  1040. intelV = 10
  1041. willV = 10
  1042. !!skills
  1043. magikV = 100
  1044. boxingV = 50
  1045. shootV = 100
  1046. !!parameters
  1047. healthV = vitalV * 30 + strenV * 15
  1048. mannaV = intelV * 10 + magikV * 10
  1049. willpowerV = willV * 10
  1050. BonusAtakV = 0
  1051. BonusDefV = 0
  1052. !!Programme of Action
  1053. program = 0
  1054. BitchFight = 1
  1055. if spellavtoklon = 1:klon = 3
  1056. if spellbefshild = 1:defence = 500
  1057. gt 'fight', 'start'
  1058. end
  1059. end
  1060. end
  1061. else
  1062. gt $loc
  1063. end
  1064. elseif streetrand > 66:
  1065. if hour >= 9 and hour <= 20:
  1066. *clr & cla
  1067. menu_off = 1
  1068. minut += 5
  1069. gs 'stat'
  1070. '<<$streetev_title>>'
  1071. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyerman.jpg"></center>'
  1072. '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?"'
  1073. act 'No thanks':gt $loc
  1074. act 'Distribute flyers to earn money (50 <b>₽</b>)':
  1075. *clr & cla
  1076. minut += 30
  1077. money += 50
  1078. pcs_mood -= 5
  1079. gs 'stat'
  1080. '<<$streetev_title>>'
  1081. if month >= 11 or month <= 3:
  1082. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyerw.jpg"></center>'
  1083. else
  1084. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyer.jpg"></center>'
  1085. end
  1086. '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.'
  1087. act 'Distribute flyers to earn money (50 <b>₽</b>)':
  1088. *clr & cla
  1089. minut += 30
  1090. money += 50
  1091. pcs_mood -= 5
  1092. gs 'stat'
  1093. '<<$streetev_title>>'
  1094. if month >= 11 or month <= 3:
  1095. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyerw.jpg"></center>'
  1096. else
  1097. '<center><img <<$set_imgh>> src="images/locations/shared/street/flyer.jpg"></center>'
  1098. end
  1099. '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.'
  1100. act 'Leave':gt $loc
  1101. end
  1102. act 'Leave':gt $loc
  1103. end
  1104. else
  1105. gt $loc
  1106. end
  1107. elseif streetrand > 64:
  1108. clr & cla
  1109. menu_off = 1
  1110. minut += 5
  1111. gs 'stat'
  1112. '<<$streetev_title>>'
  1113. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1114. '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.'
  1115. act 'Ignore her':gt $loc
  1116. if money >= 50:
  1117. act 'Give her 50':
  1118. *clr & cla
  1119. money -= 50
  1120. pcs_mood += 10
  1121. gs 'stat'
  1122. '<<$streetev_title>>'
  1123. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1124. '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.'
  1125. act 'Leave':gt $loc
  1126. end
  1127. end
  1128. if money >= 100:
  1129. act 'Give her 100':
  1130. *clr & cla
  1131. money -= 100
  1132. pcs_mood += 10
  1133. gs 'stat'
  1134. '<<$streetev_title>>'
  1135. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1136. '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.'
  1137. act 'Leave':gt $loc
  1138. end
  1139. end
  1140. if money >= 250:
  1141. act 'Give her 250':
  1142. *clr & cla
  1143. money -= 250
  1144. pcs_mood += 10
  1145. gs 'stat'
  1146. '<<$streetev_title>>'
  1147. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1148. '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.'
  1149. act 'Leave':gt $loc
  1150. end
  1151. end
  1152. if money >= 500:
  1153. act 'Give her 500':
  1154. *clr & cla
  1155. money -= 500
  1156. pcs_mood += 10
  1157. gs 'stat'
  1158. '<<$streetev_title>>'
  1159. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1160. '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.'
  1161. act 'Leave':gt $loc
  1162. end
  1163. end
  1164. if money >= 1000:
  1165. act 'Give her 1000':
  1166. *clr & cla
  1167. money -= 1000
  1168. '<<$streetev_title>>'
  1169. '<center><img <<$set_imgh>> src="images/locations/shared/street/homelessg.jpg"></center>'
  1170. pcs_mood += 10
  1171. '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.'
  1172. act 'Leave':gt $loc
  1173. end
  1174. end
  1175. elseif streetrand > 62:
  1176. if hour >= 8 and hour < 20:
  1177. *clr & cla
  1178. menu_off = 1
  1179. minut += 5
  1180. gs 'stat'
  1181. '<<$streetev_title>>'
  1182. if month >= 11 or month <= 3:
  1183. '<center><img <<$set_imgh>> src="images/locations/shared/street/nakedgw1.jpg"></center>'
  1184. else
  1185. '<center><img <<$set_imgh>> src="images/locations/shared/street/nakedg'+ rand(1,3) +'.jpg"></center>'
  1186. end
  1187. '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.'
  1188. gs 'arousal', 'voyeur', 5
  1189. gs 'arousal', 'end'
  1190. gs 'stat'
  1191. act 'Leave':gt $loc
  1192. else
  1193. gt $loc
  1194. end
  1195. elseif streetrand > 60:
  1196. if hour >= 8 and hour < 20:
  1197. *clr & cla
  1198. menu_off = 1
  1199. minut += 5
  1200. gs 'stat'
  1201. '<<$streetev_title>>'
  1202. '<center><img <<$set_imgh>> src="images/locations/shared/street/nakedgmbike.jpg"></center>'
  1203. '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.'
  1204. gs 'arousal', 'voyeur', 5
  1205. gs 'arousal', 'end'
  1206. act 'Leave':gt $loc
  1207. else
  1208. gt $loc
  1209. end
  1210. elseif streetrand > 58:
  1211. if hour >= 9:
  1212. *clr & cla
  1213. menu_off = 1
  1214. minut += 5
  1215. gs 'stat'
  1216. '<<$streetev_title>>'
  1217. '<center><img <<$set_imgh>> src="images/locations/shared/street/nopanties.jpg"></center>'
  1218. '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.'
  1219. gs 'arousal', 'voyeur', 5
  1220. gs 'arousal', 'end'
  1221. act 'Leave':gt $loc
  1222. else
  1223. gt $loc
  1224. end
  1225. elseif streetrand > 56:
  1226. if hour >= 8 and hour < 18:
  1227. *clr & cla
  1228. menu_off = 1
  1229. minut += 5
  1230. gs 'stat'
  1231. '<<$streetev_title>>'
  1232. '<center><img <<$set_imgh>> src="images/locations/shared/street/splitsread.jpg"></center>'
  1233. '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.'
  1234. act 'Leave':gt $loc
  1235. else
  1236. gt $loc
  1237. end
  1238. elseif streetrand > 54:
  1239. if hour >= 12 or hour < 3:
  1240. *clr & cla
  1241. menu_off = 1
  1242. minut += 5
  1243. gs 'stat'
  1244. '<<$streetev_title>>'
  1245. '<center><img <<$set_imgh>> src="images/locations/shared/street/teens.jpg"></center>'
  1246. '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.'
  1247. act 'Decline':
  1248. *clr & cla
  1249. '<<$streetev_title>>'
  1250. '<center><img <<$set_imgh>> src="images/locations/shared/street/teens.jpg"></center>'
  1251. 'You shake your head no and mumble thanks but no thanks and continue on your way.'
  1252. act 'Leave':gt $loc
  1253. end
  1254. act 'Join them':
  1255. *clr & cla
  1256. minut += 30
  1257. pcs_mood += 20
  1258. alko += 1
  1259. cumspclnt = 2
  1260. gs 'cum_cleanup'
  1261. pcs_breath = 0
  1262. gs'stat'
  1263. '<<$streetev_title>>'
  1264. '<center><img <<$set_imgh>> src="images/locations/shared/street/teens.jpg"></center>'
  1265. '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.'
  1266. act 'Leave':gt $loc
  1267. end
  1268. else
  1269. gt $loc
  1270. end
  1271. elseif $loc ! 'pavResidential' and $loc ! 'pavCommercial':
  1272. !!City only scenes, these can only happen in the city
  1273. if streetrand > 52:
  1274. *clr & cla
  1275. menu_off = 1
  1276. minut += 5
  1277. gs 'stat'
  1278. '<<$streetev_title>>'
  1279. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1280. '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.'
  1281. act 'Ignore her':gt $loc
  1282. if money >= 50:
  1283. act 'Give her 50':
  1284. *clr & cla
  1285. money -= 50
  1286. pcs_mood += 20
  1287. gs 'stat'
  1288. '<<$streetev_title>>'
  1289. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1290. '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.'
  1291. act 'Leave':gt $loc
  1292. if money >= 5000:
  1293. act 'Give her another 5000':
  1294. *clr & cla
  1295. money -= 5000
  1296. pcs_mood += 50
  1297. gs 'stat'
  1298. '<<$streetev_title>>'
  1299. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1300. '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.'
  1301. act 'Leave':gt $loc
  1302. end
  1303. end
  1304. end
  1305. end
  1306. if money >= 100:
  1307. act 'Give her 100':
  1308. *clr & cla
  1309. money -= 100
  1310. pcs_mood += 20
  1311. gs 'stat'
  1312. '<<$streetev_title>>'
  1313. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1314. '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.'
  1315. act 'Leave':gt $loc
  1316. if money >= 5000:
  1317. act 'Give her another 5000':
  1318. *clr & cla
  1319. money -= 5000
  1320. pcs_mood += 50
  1321. gs 'stat'
  1322. '<<$streetev_title>>'
  1323. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1324. '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.'
  1325. act 'Leave':gt $loc
  1326. end
  1327. end
  1328. end
  1329. end
  1330. if money >= 250:
  1331. act 'Give her 250':
  1332. *clr & cla
  1333. money -= 250
  1334. pcs_mood += 20
  1335. gs 'stat'
  1336. '<<$streetev_title>>'
  1337. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1338. '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.'
  1339. act 'Leave':gt $loc
  1340. if money >= 5000:
  1341. act 'Give her another 5000':
  1342. *clr & cla
  1343. '<<$streetev_title>>'
  1344. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1345. money -= 5000
  1346. pcs_mood += 50
  1347. gs 'stat'
  1348. '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.'
  1349. act 'Leave':gt $loc
  1350. end
  1351. end
  1352. end
  1353. end
  1354. if money >= 500:
  1355. act 'Give her 500':
  1356. *clr & cla
  1357. money -= 500
  1358. pcs_mood += 20
  1359. gs 'stat'
  1360. '<<$streetev_title>>'
  1361. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1362. '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.'
  1363. act 'Leave':gt $loc
  1364. if money >= 5000:
  1365. act 'Give her another 5000':
  1366. *clr & cla
  1367. money -= 5000
  1368. pcs_mood += 50
  1369. gs 'stat'
  1370. '<<$streetev_title>>'
  1371. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1372. '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.'
  1373. act 'Leave':gt $loc
  1374. end
  1375. end
  1376. end
  1377. end
  1378. if money >= 1000:
  1379. act 'Give her 1000':
  1380. *clr & cla
  1381. money -= 1000
  1382. pcs_mood += 20
  1383. gs 'stat'
  1384. '<<$streetev_title>>'
  1385. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1386. '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.'
  1387. act 'Leave':gt $loc
  1388. if money >= 5000:
  1389. act 'Give her another 5000':
  1390. *clr & cla
  1391. money -= 5000
  1392. pcs_mood += 50
  1393. gs 'stat'
  1394. '<<$streetev_title>>'
  1395. '<center><img <<$set_imgh>> src="images/locations/shared/street/girlcat.jpg"></center>'
  1396. '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.'
  1397. act 'Leave':gt $loc
  1398. end
  1399. end
  1400. end
  1401. end
  1402. elseif streetrand > 50:
  1403. if month >= 11 or month <= 3:
  1404. *clr & cla
  1405. menu_off = 1
  1406. minut += 5
  1407. gs 'stat'
  1408. '<<$streetev_title>>'
  1409. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/homeless.jpg"></center>'
  1410. '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.'
  1411. act 'Ignore her':gt $loc
  1412. else
  1413. gt $loc
  1414. end
  1415. elseif streetrand > 48:
  1416. if hour >= 8 or hour < 2:
  1417. *clr & cla
  1418. menu_off = 1
  1419. minut += 5
  1420. gs 'stat'
  1421. '<<$streetev_title>>'
  1422. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/gay.jpg"></center>'
  1423. '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.'
  1424. act 'Leave':gt $loc
  1425. else
  1426. gt $loc
  1427. end
  1428. elseif streetrand > 46:
  1429. if (month >= 11 or month <= 3) and hour >= 6 and hour < 18:
  1430. *clr & cla
  1431. menu_off = 1
  1432. minut += 5
  1433. gs 'stat'
  1434. '<<$streetev_title>>'
  1435. '<center><img <<$set_imgh>> src="images/locations/shared/street/city/sell.jpg"></center>'
  1436. '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.'
  1437. act 'Leave':gt $loc
  1438. else
  1439. gt $loc
  1440. end
  1441. else
  1442. gt $loc
  1443. end
  1444. else
  1445. !!these can only happen in Pav or old town.
  1446. if streetrand > 52:
  1447. if hour >= 12 or hour < 4:
  1448. *clr & cla
  1449. menu_off = 1
  1450. minut += 5
  1451. gs 'stat'
  1452. '<<$streetev_title>>'
  1453. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/hookers.jpg"></center>'
  1454. '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.'
  1455. act 'Leave':gt $loc
  1456. else
  1457. gt $loc
  1458. end
  1459. elseif streetrand > 50:
  1460. if (month >= 11 or month <= 3) and hour >= 8 and hour < 18:
  1461. *clr & cla
  1462. menu_off = 1
  1463. minut += 5
  1464. gs 'stat'
  1465. '<<$streetev_title>>'
  1466. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/nakedmarket.jpg"></center>'
  1467. '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.'
  1468. act 'Ignore her':gt $loc
  1469. act 'Browse her wares':
  1470. *clr & cla
  1471. '<<$streetev_title>>'
  1472. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/nakedmarket.jpg"></center>'
  1473. 'You walk over and look over several of the items she has for sale.'
  1474. tovpay1 = rand(3, 8) * 100
  1475. 'She has some cosmetics for <<tovpay1>> <b>₽</b>.'
  1476. if money >= tovpay1:
  1477. act 'Buy the cosmetics (<<tovpay1>> <b>₽</b>)':
  1478. cls
  1479. minut += 15
  1480. money -= tovpay1
  1481. kosmetica += rand(10, 40)
  1482. gs 'stat'
  1483. gt $loc
  1484. end
  1485. end
  1486. tovpay2 = rand(3, 9) * 10
  1487. 'She has lip balm for <<tovpay2>> <b>₽</b>.'
  1488. if money >= tovpay2:
  1489. act 'Buy the lipbalm (<<tovpay2>> <b>₽</b>)':
  1490. cls
  1491. minut += 15
  1492. lipbalm += 20
  1493. money -= tovpay2
  1494. gt $loc
  1495. end
  1496. end
  1497. tovpay3 = rand(2, 5) * 100
  1498. 'She has some vitamins for <<tovpay3>> <b>₽</b>.'
  1499. if money >= tovpay3:
  1500. act 'Buy the vitamins for (<<tovpay3>> <b>₽</b>)':
  1501. cls
  1502. minut += 15
  1503. vitamin += 20
  1504. money -= tovpay3
  1505. gt $loc
  1506. end
  1507. end
  1508. 'She has a romance novel (300 <b>₽</b>)'
  1509. if money >= 300:
  1510. act 'Buy the romance novel (300 <b>₽</b>)':
  1511. cls
  1512. minut += 15
  1513. money -= 300
  1514. w_book += 1
  1515. gt $loc
  1516. end
  1517. end
  1518. act 'Leave':gt $loc
  1519. end
  1520. else
  1521. gt $loc
  1522. end
  1523. elseif streetrand > 48:
  1524. if hour >= 8 and hour < 18:
  1525. *clr
  1526. cla
  1527. menu_off = 1
  1528. minut += 5
  1529. gs 'stat'
  1530. '<<$streetev_title>>'
  1531. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/yardsale.jpg"></center>'
  1532. '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.'
  1533. act 'Ignore it':gt $loc
  1534. act 'Browse the wares':
  1535. *clr & cla
  1536. '<<$streetev_title>>'
  1537. '<center><img <<$set_imgh>> src="images/locations/shared/street/town/nakedmarket.jpg"></center>'
  1538. 'You walk over and look over several of the items they have for sale.'
  1539. tovpay1 = rand(3, 8) * 100
  1540. 'They have some cosmetics for <<tovpay1>> <b>₽</b>.'
  1541. if money >= tovpay1:
  1542. act 'Buy the cosmetics (<<tovpay1>> <b>₽</b>)':
  1543. cls
  1544. minut += 15
  1545. money -= tovpay1
  1546. kosmetica += rand(10, 40)
  1547. gs 'stat'
  1548. gt $loc
  1549. end
  1550. end
  1551. tovpay2 = rand(3, 9) * 10
  1552. 'They have lip balm for <<tovpay2>> <b>₽</b>.'
  1553. if money >= tovpay2:
  1554. act 'Buy the lipbalm (<<tovpay2>> <b>₽</b>)':
  1555. cls
  1556. minut += 15
  1557. lipbalm += 20
  1558. money -= tovpay2
  1559. gt $loc
  1560. end
  1561. end
  1562. tovpay3 = rand(2, 5) * 100
  1563. 'They have some vitamins for <<tovpay3>> <b>₽</b>.'
  1564. if money >= tovpay3:
  1565. act 'Buy the vitamins for (<<tovpay3>> <b>₽</b>)':
  1566. cls
  1567. minut += 15
  1568. vitamin += 20
  1569. money -= tovpay3
  1570. gt $loc
  1571. end
  1572. end
  1573. 'They have a romance novel (300 <b>₽</b>)'
  1574. if money >= 300:
  1575. act 'Buy the romance novel (300 <b>₽</b>)':
  1576. cls
  1577. minut += 15
  1578. money -= 300
  1579. w_book += 1
  1580. gt $loc
  1581. end
  1582. end
  1583. act 'Leave': gt $loc
  1584. end
  1585. else
  1586. gt $loc
  1587. end
  1588. elseif streetrand > 46 and $pantyworntype = 'none' and PCloSkirt > 2 and hour > 6 and hour <= 20:
  1589. if exhibitionist_lvl = 0: pcs_mood -= 2
  1590. pcs_horny += pcs_exhib/5
  1591. *clr & cla
  1592. menu_off = 1
  1593. minut += 5
  1594. gs 'stat'
  1595. '<<$streetev_title>>'
  1596. '<center><img src="images/locations/shared/street/oldladies.jpg"></center>'
  1597. '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."'
  1598. if $loc ! 'pavResidential' and $loc ! 'pavCommercial':
  1599. '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?"'
  1600. else
  1601. '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.'
  1602. end
  1603. if pcs_inhib >= 50:
  1604. '<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.'
  1605. elseif exhibitionist_lvl = 0:
  1606. 'You blush in shame from the old ladies caustic remarks and hurry on your way.'
  1607. end
  1608. act 'Continue':gt $loc
  1609. else
  1610. gt $loc
  1611. end
  1612. end
  1613. else
  1614. gt $loc
  1615. end
  1616. end
  1617. --- street_event ---------------------------------