park 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718
  1. # park
  2. $location_type = 'public_outdoors'
  3. if $ARGS[0] = 'start':
  4. CLOSE ALL
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. $metkaM = $ARGS[0]
  8. $locM = $CURLOC
  9. if sound = 0:
  10. if month >=11 and month <= 12 or month >=1 and month <=3:
  11. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
  12. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  13. else
  14. if hour >= 8 and hour <= 23: PLAY 'sound/Park.mp3',30 & PLAY 'sound/street_leto.mp3',30
  15. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  16. end
  17. end
  18. $torchki = {
  19. cls
  20. gs 'stat'
  21. SNarkPriton = 1
  22. 'The junkies look at you with a daunted gaze. They probably thought you are a police officer. Then one of them said, "We don''t sell no drugs. Go to the Drug House, ye can get zome there."'
  23. act 'Walk away from them':gt 'park', 'start'
  24. }
  25. $sexloc = $CURLOC
  26. if WalkInsidePark = 0:WalkInsidePark = 1
  27. cls
  28. gs 'stat'
  29. '<center><b><font color="maroon">Park</font></b></center>'
  30. '<center><img src="images/locations/city/centralpark/park.jpg"></center>'
  31. 'The central park is huge, sandy paths spread out in every direction and every so often you''ll find a bench to sit on. In the summer you''ll see a lot people playing ball, relaxing or have a picnic in the more open areas, while in the winter you''ll meet families with their children sledding down the grass banks.'
  32. 'Despite it''s almost paradise-like appearance, the park can be very dangerous once the sun goes down.'
  33. *nl
  34. 'There is a sign that points into general direction of the city center. You estimate the walk to the city center would take 45 minutes.'
  35. 'The second sign points into the direction of the residential area. If you have to guess, the walk to the residential are should take 20 minutes.'
  36. 'The third sign says city industrial district on it. You know the city industrial District is rather far away from here, you estimate that the walk would take an hour.'
  37. *nl
  38. if hour >= 10 and hour <= 22:'The small café in the park is open, you could sit there and have some food.'
  39. if SNarkPriton = 0:'Near the cafe the <a href="exec:dynamic $torchki">junkies</a> hang out.'
  40. 'There is an all year <a href="exec:gt ''park'', ''luna''">fair</a> at the park which you can visit.'
  41. if car > 0 and cardrive = 5:
  42. cardrive = 5
  43. 'Stands near the park <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
  44. end
  45. if tanga = 0 and PCloSkirt > 2 and hour > 6 and hour <= 20:
  46. nurand = rand(0, 100)
  47. if nurand >= 80:
  48. pcs_mood -= 5
  49. SUB += 1
  50. pcs_horny += SUB
  51. nudity += 1
  52. 'A man walks past you and notices that you didn''t put on any panties. He whistles at you, "Did you forget to put on your underwear today, honey?"'
  53. 'You blush with shame and you try to walk out of his sight as fast as possible.'
  54. end
  55. end
  56. act 'Leave': gt 'park', 'exit'
  57. act 'Walk around the park (1:00)': gt 'parkdin'
  58. if hour >= 10 and hour <= 22 and money >= 100:
  59. act 'Have some food in the cafe (0:30)': gt 'ParkKafe', 'food'
  60. end
  61. if housr = 0 and tanwork = 0 and student = 0:
  62. !nowhere to live in city
  63. if hour >= 20 or hour < 6 :
  64. 'It''s quite dark now, and you have no where to stay. Maybe you should try to sleep on a bench?'
  65. act 'Sleep on a bench': ParkBench = 1 & gt'placer_sex','sleeping_parc_bench'
  66. end
  67. end
  68. act 'Sit on a bench': ParkBench = 1 & gt'placer_sex','sleeping_parc_alco'
  69. if pusher = 1 and hour >= 6 and hour <= 21:
  70. 'There''s a drug dealer casually sitting on one of the benches. He''s trying not to be too suspicious.'
  71. if money >= 2000:
  72. act 'Buy "Pale Lady" (2,000 <b>₽</b>)':
  73. cla
  74. minut += 10
  75. palelady = input ("How many doses you want to buy?")
  76. if palelady * 2000 > money or palelady <= 0:
  77. 'Either tell me how many you want to buy or get lost.'
  78. else
  79. money -= palelady * 2000
  80. dur += palelady
  81. 'You get out your purse and pay him quickly, hoping nobody else saw you giving him money. Then he passes you the doses you''ve paid for and you can savely sniff the stuff at home.'
  82. end
  83. act 'Casually walk away':gt 'park', 'start'
  84. end
  85. else
  86. 'You do not have enough money, not even for one dose.'
  87. end
  88. end
  89. if $clothingworntype = 'exercise' and parkrunday ! daystart:
  90. act 'Jog through the park (1:00)':
  91. cla
  92. *clr
  93. parkrunday = daystart
  94. minut += 60
  95. pcs_mood -= 10
  96. pcs_willpwr -= 10
  97. run_exp += 1
  98. fat -= 8
  99. pcs_sweat += 30
  100. '<center><img src="images/locations/shared/park/parkbeg.jpg"></center>'
  101. 'You randomly take the paths, you run them up and down and about an hour later, you are out of breath and heavily sweating.'
  102. if hour >= 20:
  103. parkrand = rand(0, 10)
  104. if parkrand >= 8:
  105. 'A shade steps out of the shadow from a tree and runs up to you. Before you can react, he hits you and drags you into the bushes. "Relax and enjoy this", he says.'
  106. gs 'npcgeneratec', 0, 'Rapist', rand(18,40)
  107. gs 'boyStat', $npclastgenerated
  108. act 'Fight':
  109. cla
  110. !!stats
  111. strenV = 100
  112. speedV = 50
  113. agilV = 40
  114. reactV = 40
  115. vitalV = 50
  116. intelV = 10
  117. willV = 10
  118. !!skills
  119. magikV = 100
  120. boxingV = 50
  121. shootV = 100
  122. !!parameters
  123. healthV = vitalV * 10 + strenV * 5
  124. mannaV = intelV * 10 + magikV * 10
  125. willpowerV = willV * 10
  126. BonusAtakV = 0
  127. BonusDefV = 0
  128. !!Programme of Action
  129. program = 1
  130. RapistFight = 1
  131. if spellavtoklon = 1:klon = 3
  132. if spellbefshild = 1:defence = 500
  133. gt 'fight', 'start'
  134. end
  135. if succubusQW = 5:
  136. !!Used if this was a random encounter instead of active hunting
  137. Act 'Lure him in and feed (this can take a lot of time)':
  138. cla
  139. 'You wait until he has dragged you almost to the bushes before turning on him.'
  140. act 'Continue': gt 'succubus', 'RapistFight'
  141. end
  142. end
  143. exit
  144. end
  145. end
  146. act 'Complete jog':gt 'park', 'start'
  147. end
  148. end
  149. if hour <= 7 or hour >= 21:
  150. !!Succubus active hunting, can only hunt successfully once a day, but can try until success
  151. If succubusQW = 5 and suchuntday ! daystart:
  152. act 'Go Hunting (this can take a lot of time)': suchunt = 1 & gt 'parkdin'
  153. end
  154. if knowsfairy >= 1 and pcs_magik > 4:
  155. act 'Find a place the Fairy may be': fairylooking = 1 & gt 'parkdin'
  156. end
  157. end
  158. gs 'kseniyaQW', 'events'
  159. if pcs_exhibition >= 35:
  160. act 'Flash your tits':
  161. if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
  162. cls
  163. minut += 5
  164. exhibition_exp += 3
  165. gs 'stat'
  166. '<center><img src="images/shared/sex/exhibitionism/flash_tits.jpg"></center>'
  167. 'You find an area far from where the children play in the park and flash your tits to some passers-by.'
  168. act 'Continue': gt 'park', 'start'
  169. end
  170. end
  171. if pcs_exhibition >= 40:
  172. act 'Flash your pussy':
  173. if pcs_exhibition >= 50 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
  174. cls
  175. minut += 5
  176. exhibition_exp += 5
  177. gs 'stat'
  178. if pcs_pubes >= 10:
  179. '<center><img src="images/shared/sex/exhibitionism/flash_hairy.jpg"></center>'
  180. else
  181. '<center><img src="images/shared/sex/exhibitionism/flash_nohairy.jpg"></center>'
  182. end
  183. 'You find an area far from where the children play in the park and flash your pussy to some passers-by.'
  184. act 'Continue': gt 'park', 'start'
  185. end
  186. end
  187. end
  188. if $ARGS[0] = 'exit':
  189. cla
  190. act 'Cancel': gt 'park', 'start'
  191. act 'Go to the highway near the park':gt 'park', 'whore'
  192. act 'Go to the Residential Area':minut += 20 & gt 'street'
  193. act 'Go to the City center':minut += 45 & gt 'down'
  194. act 'Go to the city industrial region':minut += 60 & gt 'Nord'
  195. end
  196. if $ARGS[0] = 'luna':
  197. cla
  198. *clr
  199. minut += 5
  200. clr
  201. gs 'stat'
  202. '<center><b><font color="maroon">The Fun Fair</font></b></center>'
  203. '<center><img src="images/locations/city/centralpark/luna.jpg"></center>'
  204. 'The fun fair sits in the hearts of the park and attracts families, people on a vacation and loving couples from all over the town. It''s a popular gathering spot and a place to forget your worries for a few hours.'
  205. if vladimirQW = 0 and hour >= 9 and hour <= 20 and week > 5 and pcs_apprnc > 40:'<a href="exec:gt ''qwloc''">There''s a strong looking man staring at you from the fences.</a>.'
  206. if hour >= 9 and hour <= 20:
  207. act 'Distribute flyers to earn money (50 <b>₽</b>) (1:00)':
  208. cla
  209. *clr
  210. minut += 60
  211. money += 50
  212. pcs_mood -= 5
  213. '<center><img src="images/locations/shared/park/flaer.jpg"></center>'
  214. 'For an hour straight, you walked through the park and the fun fair, chatting up random visitors and trying to give them one of your flyers. After that you are being paid 50 <b>₽</b> for your effort.'
  215. act 'Move away':gt 'park', 'luna'
  216. end
  217. if money >= 50:
  218. act 'Eat Shawarma (50 <b>₽</b>)':
  219. cla
  220. *clr
  221. gs 'stat'
  222. minut += 15
  223. pcs_health += 10
  224. pcs_mood += 20
  225. fat += 2
  226. pcs_energy += 30
  227. cumspclnt = 2
  228. gs 'cum_cleanup'
  229. pcs_breath = 0
  230. '<center><img src="images/locations/city/centralpark/luna1.jpg"></center>'
  231. 'You enjoy the shawarma.'
  232. act 'Move away':gt 'park', 'luna'
  233. end
  234. act 'Drink Lemonade (50 <b>₽</b>)':
  235. cla
  236. *clr
  237. gs 'stat'
  238. minut += 5
  239. pcs_health += 10
  240. pcs_mood += 20
  241. fat += 1
  242. water += 40
  243. cumspclnt = 2
  244. gs 'cum_cleanup'
  245. pcs_breath = 0
  246. '<center><img src="images/locations/city/centralpark/luna1.jpg"></center>'
  247. 'You happily drink the refreshing lemonade.'
  248. act 'Move away':gt 'park', 'luna'
  249. end
  250. act 'Ride on the carousel (50 <b>₽</b>)':
  251. cla
  252. *clr
  253. minut += 30
  254. money -= 50
  255. if pcs_sprt < 30:sprt_exp += 1
  256. if pcs_sprt >= 30:sprt_exp += rand(0, 1)
  257. pcs_willpwr += 10
  258. pcs_mood += 10
  259. '<center><img src="images/locations/city/centralpark/karusel.jpg"></center>'
  260. 'You paid 50 <b>₽</b> and sat in the carousel.'
  261. 'You have a great ride, already dazzled.'
  262. act 'move_away':gt 'park','luna'
  263. end
  264. end
  265. if money >= 100:
  266. act 'Shoot some targets (100 <b>₽</b>)':
  267. cla
  268. *clr
  269. minut += 30
  270. money -= 100
  271. '<center><img src="images/locations/city/centralpark/tir.jpg"></center>'
  272. 'You paid 100 <b>₽</b> for ten bullets. If you are able to hit all targets, you can win a teddy bear.'
  273. act 'Shoot':
  274. cla
  275. tirkoef = pcs_agil + pcs_shoot
  276. tirmin = tirkoef * 20 / 100
  277. tirand = rand(tirkoef - tirmin, tirkoef + tirmin)
  278. if tirand >= 80:
  279. mishka += 1
  280. pcs_mood += 5
  281. 'You hit all targets and didn''t even miss once. Congratulations! You''ve won a Teddy Bear.'
  282. elseif tirand < 80 and tirand >= 70:
  283. 'Oh, you''ve only missed once.'
  284. elseif tirand < 70 and tirand >= 60:
  285. 'You were able to hit the target eight times, but you''ve missed twice.'
  286. elseif tirand < 60 and tirand >= 50:
  287. 'You were able to hit the target seven times, but you''ve missed twice.'
  288. elseif tirand < 50 and tirand >= 40:
  289. 'Six times you were able to hit the target, but you''ve missed four times.'
  290. elseif tirand < 40 and tirand >= 30:
  291. 'Five times you were able to hit the target, but you''ve missed five times too.'
  292. elseif tirand < 30 and tirand >= 25:
  293. 'Four times you were able to hit the target, but you''ve missed six times.'
  294. elseif tirand < 25 and tirand >= 20:
  295. 'Three times you were able to hit the target, but you''ve missed seven times.'
  296. elseif tirand < 20 and tirand >= 15:
  297. 'You were able to hit the target twice, but you''ve missed it eight times.'
  298. elseif tirand < 15 and tirand >= 10:
  299. 'You were only able to hit the target once and missed it nine times.'
  300. elseif tirand < 10:
  301. 'You couldn''t even hit the target once.'
  302. end
  303. shoot_exp += 1
  304. act 'Move away':gt 'park', 'luna'
  305. end
  306. end
  307. end
  308. if money >= 20:
  309. act 'Hit the dynamoeter (20 <b>₽</b>)':
  310. cla
  311. *clr
  312. '<center><img src="images/locations/city/centralpark/silomer.jpg"></center>'
  313. 'You''ve paid 20 <b>₽</b> to play Ring-The-Bell.'
  314. act 'Bump':
  315. cla
  316. minut += 30
  317. money -= 20
  318. stKo = pcs_stren * 20/100
  319. damage = rand(pcs_stren - stKo, pcs_stren + stKo)
  320. if pcs_stren < 30: gs 'exercise', 'tier2', 1, 'stren_exp'
  321. if pcs_stren >= 30: gs 'exercise', 'tier1', 1, 'stren_exp'
  322. 'You swung the hammer as hard as you could, but it wasn''t enough for a new record. A LED screen lights up and shows you your score:<<damage>>'
  323. if damage > maxdamage:maxdamage = damage & 'Congratulations! You''ve just a new record!'
  324. act 'Move away':gt 'park', 'luna'
  325. end
  326. end
  327. end
  328. act 'One-Armed Bandit':gt 'park', 'avtomat'
  329. end
  330. act 'Go back to the park':gt 'park', 'start'
  331. end
  332. if $ARGS[0] = 'avtomat':
  333. $location_type = 'event_outdoors'
  334. cla
  335. *clr
  336. clr
  337. gs 'stat'
  338. '<center><img src="images/locations/city/centralpark/avtomat.jpg"></center>'
  339. 'The rules of the game are very simple, throw 5 <b>₽</b> into the slot, pull the lever and with a bit of luck you can win the jackpot of 1.000 <b>₽</b>.'
  340. if money >= 5 and hour <= 20:
  341. act 'Throw in 5 <b>₽</b> and pull the lever':gt 'park', 'avtomat2'
  342. end
  343. act 'Move away from the slot machine':gt 'park', 'luna'
  344. end
  345. if $ARGS[0] = 'avtomat2':
  346. $location_type = 'event_outdoors'
  347. cla
  348. *clr
  349. clr
  350. gs 'stat'
  351. minut += 5
  352. money -= 5
  353. avtrand = rand(0, 100)
  354. if avtrand = 100:
  355. money += 1000
  356. 'Jackpot! You win 1,000 <b>₽</b>.'
  357. elseif avtrand < 100 and avtrand >= 95:
  358. money += 100
  359. 'You win 100 <b>₽</b>.'
  360. elseif avtrand < 95 and avtrand >= 85:
  361. money += 10
  362. 'You win 10 <b>₽</b>.'
  363. elseif avtrand < 85 and avtrand >= 75:
  364. money += 5
  365. 'You win 5 <b>₽</b>.'
  366. elseif avtrand < 75:
  367. 'Unfortunately, you weren''t able to win anything this time.'
  368. end
  369. act 'Try your luck once more':gt 'park', 'avtomat'
  370. end
  371. if $ARGS[0] = 'whore':
  372. $location_type = 'event_outdoors'
  373. cla
  374. *clr
  375. minut += 5
  376. clr
  377. gs 'stat'
  378. '<center><b><font color="maroon">The road near the park</font></b></center>'
  379. if hour >= 16 and hour <= 23:
  380. '<center><img src="images/locations/city/centralpark/park1.jpg"></center>'
  381. 'Along the roadside <a href="exec:gt ''prostitute'', ''start''">Prostitutes</a> are walking and sometimes picked up by a car.'
  382. elseif hour >= 4 and hour < 16:
  383. '<center><img src="images/locations/city/centralpark/glpark.jpg"></center>'
  384. 'Cars passing on the road past the park and there is not seen nothing interesting.'
  385. else
  386. '<center><img src="images/locations/city/centralpark/park1.jpg"></center>'
  387. 'Cars drive on the road past the park and then not see anything interesting.'
  388. end
  389. temp = rand(1, 10)
  390. if pcs_exhibition > 35:
  391. act 'Flash breasts':
  392. cla
  393. *clr
  394. minut += 5
  395. exhibition_exp += 2
  396. !! '<center><img src="images/locations/city/centralpark/parkex.jpg"></center>'
  397. 'You flash your breasts at a random passing car. The thrill is quite exhilarating.'
  398. act 'Go back to the park':gt 'park', 'start'
  399. end
  400. end
  401. act 'Go back to the park':gt 'park', 'start'
  402. end
  403. if $ARGS[0] = 'prost':
  404. cla
  405. *clr
  406. minut += 5
  407. clr
  408. gs 'stat'
  409. '<center><b><font color="maroon">Hooker</font></b></center>'
  410. '<center><img src="images/locations/city/centralpark/park2.jpg"></center>'
  411. if whoreQW = 2:
  412. 'Prostitutes look at you with curiosity.'
  413. elseif whoreQW = 1:
  414. 'Prostitutes look at you with interest.'
  415. act 'Talk':
  416. cla
  417. whoreQW = 2
  418. 'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are free, do not work on anyone, but because of this many problems. Svimi Stella with her friends sometimes beat us and rob and sometimes come petty thugs and rob us of the money. If you want to work here, you have to pay and Stella and Bandyuk . course you cool, you can try to besiege Stella and her friends, but the bandits do not advise contact. And yet, you do not peck on customers, if you nebudesh dressed like a slut, you can buy some clothes in a sex shop. "'
  419. act 'Move away':gt 'park', 'prost'
  420. end
  421. elseif whoreQW = 0:
  422. 'Hey, you''re not one of us, would valyl from our point, and that the teeth will not collect.'
  423. gs 'npcgeneratec', 0, 'Stoned Prostitute', rand(15,30)
  424. gs 'boyStat', $npclastgenerated
  425. act 'Fuck you!':
  426. cla
  427. minut += 15
  428. !!stats
  429. strenV = 20
  430. speedV = 30
  431. agilV = 30
  432. reactV = 30
  433. vitalV = 50
  434. intelV = 10
  435. willV = 10
  436. !!skills
  437. magikV = 10
  438. boxingV = 10
  439. shootV = 10
  440. !!parameters
  441. healthV = vitalV * 10 + strenV * 5
  442. mannaV = intelV * 10 + magikV * 10
  443. willpowerV = willV * 10
  444. BonusAtakV = 0
  445. BonusDefV = 0
  446. !!Programme of Action
  447. program = 0
  448. prostitutFight = 1
  449. if spellavtoklon = 1:klon = 3
  450. if spellbefshild = 1:defence = 500
  451. gt 'fight', 'start'
  452. end
  453. end
  454. if whoreQW > 1 and PCloStyle = 4:
  455. act 'Search client (0:15)':
  456. cla
  457. *clr
  458. minut += 15
  459. whrand = rand(0, 100)
  460. if whrand <= 5:
  461. 'To you black jeep pulled up, opened the window and leaned out healthy brazen face. "Hey slut, it''s time to pay tribute. Shtukar Come here and get out on work."'
  462. if money >= 1000:
  463. act 'Giving money (1,000 <b>₽</b>)':
  464. cla
  465. money -= 1000
  466. 'You gave the money big man in the jeep. He put them in his pocket and left.'
  467. act 'Move away':gt 'park', 'prost'
  468. end
  469. end
  470. act 'Fuck you!':
  471. cla
  472. minut += 15
  473. gs 'npcgeneratec', 0, 'Bandit', rand(18,40)
  474. gs 'boyStat', $npclastgenerated
  475. !!stats
  476. strenV = 200
  477. speedV = 30
  478. agilV = 20
  479. reactV = 20
  480. vitalV = 150
  481. intelV = 10
  482. willV = 10
  483. !!skills
  484. magikV = 10
  485. boxingV = 10
  486. shootV = 10
  487. !!parameters
  488. healthV = vitalV * 10 + strenV * 5
  489. mannaV = intelV * 10 + magikV * 10
  490. willpowerV = willV * 10
  491. BonusAtakV = 0
  492. BonusDefV = 0
  493. !!Programme of Action
  494. program = 0
  495. prostitutFight = 2
  496. if spellavtoklon = 1:klon = 3
  497. if spellbefshild = 1:defence = 500
  498. gt 'fight', 'start'
  499. end
  500. elseif whrand > 5 and whrand <= 60:
  501. minut += 15
  502. stat['bj'] += 1
  503. guy += 1
  504. money += 500
  505. pcs_throat += 1
  506. '<center><img src="images/locations/highway/sex/car.jpg"></center>'
  507. 'To you a car drove up and a man sitting behind the wheel asked how much it would cost the vacuum. You called a standard fee of 500 <b>₽</b>. He agreed and opened Passenger door for you.'
  508. if prezik > 0:'You got a condom and put it in your mouth, then bent over his pants and put his client condom on the penis with his mouth.'
  509. 'You clasped lips member client and began to suck it, caress the tongue and try to take it as deep as possible.'
  510. gs 'npcgeneratec', 0, 'Client', rand(15,30)
  511. gs 'boyStat', $npclastgenerated
  512. if prezik = 0:
  513. swallow += 1
  514. spafinloc = 12
  515. gs 'cum_manage'
  516. 'Client started cumming in your mouth, you continued to suck and swallow his hot, tart sperm.'
  517. dynamic $venerasiak
  518. elseif prezik > 0:
  519. dynamic $prezik
  520. 'Client finished in a condom.'
  521. end
  522. 'After the client has finished you off immediately dropped out of the car.'
  523. act 'Go to the panel':gt 'park', 'prost'
  524. elseif whrand > 60 and whrand <= 90:
  525. minut += 15
  526. 'You were walking along the sidewalk showing off their charms completely in vain, no you are not interested.'
  527. act 'Go to the panel':gt 'park', 'prost'
  528. elseif whrand > 90:
  529. 'To you approached a prostitute. "I hear you, slut, if you do not want problems, you have to pay Stella. Pyatihatnik Come here and get out on work."'
  530. if money >= 500:
  531. act 'Giving money (500 <b>₽</b>)':
  532. cla
  533. money -= 500
  534. 'You gave the money to the prostitute, she turned and walked away.'
  535. act 'Move away':gt 'park', 'prost'
  536. end
  537. end
  538. act 'Fuck you!':
  539. cla
  540. minut += 15
  541. gs 'npcgeneratec', 0, 'Prostitute', rand(15,30)
  542. gs 'boyStat', $npclastgenerated
  543. !!stats
  544. strenV = 50
  545. speedV = 50
  546. agilV = 40
  547. reactV = 30
  548. vitalV = 60
  549. intelV = 10
  550. willV = 10
  551. !!skills
  552. magikV = 10
  553. boxingV = 10
  554. shootV = 10
  555. !!parameters
  556. healthV = vitalV * 10 + strenV * 5
  557. mannaV = intelV * 10 + magikV * 10
  558. willpowerV = willV * 10
  559. BonusAtakV = 0
  560. BonusDefV = 0
  561. !!Programme of Action
  562. program = 0
  563. prostitutFight = 3
  564. if spellavtoklon = 1:klon = 3
  565. if spellbefshild = 1:defence = 500
  566. gt 'fight', 'start'
  567. end
  568. end
  569. end
  570. end
  571. act 'Move away':gt 'park', 'start'
  572. end
  573. if $ARGS[0] = 'rape1':
  574. $location_type = 'event_outdoors'
  575. cla
  576. *clr
  577. rape += 1
  578. stat['vaginal'] += 1
  579. gs 'npcgeneratec', 0, 'Rapist', rand(18,40)
  580. gs 'boyStat', $npclastgenerated
  581. SUB += 3
  582. money = 0
  583. '<center><img src="images/locations/city/centralpark/sex/rape.jpg"></center>'
  584. 'Suddenly, you are hit on the head. You awake sometime later in a bush. Somehow you''re not able to move your arms, they must be tied up. As you look down on yourself, you realize, that you''re not wearing anything and before you can even react some dude is ramming his into your cunt. "Shit", you think yourself, "I''m being raped."'
  585. act 'Try to resist':
  586. cla
  587. spafinloc = 0
  588. gs 'cum_manage'
  589. 'You try everything that''s possible in your situation right now to resist him, but he just tightens his grips and doesn''t stop fucking you. Some time later he begins to groan and you can feel his hot cum flowing inside your pussy. You just hope to yourself, that he didn''t impregnate you. He then zips up his pants, takes your money and leaves.'
  590. act 'Leave':gt 'park', 'start'
  591. end
  592. act 'Try to relax and enjoy it':
  593. cla
  594. *clr
  595. stat['anal'] += 1
  596. SUB += 5
  597. '<center><img src="images/locations/city/centralpark/sex/rapean.jpg"></center>'
  598. 'It doesn''t take long for the rapist to realize you''re not resisting. "Good girl!", he says to you. He pushes you onto your knees and intends to take you doggy-style. He spreads your asscheeks aside and pushes his cock inside. You cry out in pain, but he holds your mouth shut and doesn''t stop fucking your asshole.'
  599. act 'Go on':
  600. cla
  601. *clr
  602. stat['bj'] += 1
  603. spafinloc = 12
  604. gs 'cum_manage'
  605. spafinloc = 11
  606. gs 'cum_manage'
  607. SUB += 5
  608. '<center><img src="images/locations/city/centralpark/sex/cum.jpg"></center>'
  609. '"Give me a blowjob and you''ll get your reward for not resisting, woman.", he tells you. You nod obidiently and move on your knees and begin to give him head. It doesn''t take long for him to groan out in pleasure, "You better swallow it all, slut!" Shortly after that you can taste his hot cum inside your mouth and you swallow every drip of it, somehow enjoying the taste. Then he stand up, buttons up his pants and takes your money. While you were still liking your fingers clean from any drips of cum, he smiles and says to you, "Have a nice day slut."'
  610. act 'Stand up and leave':gt 'park', 'start'
  611. end
  612. end
  613. end
  614. --- park ---------------------------------