1
0

park.qsrc 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848
  1. # park
  2. $location_type = 'public_outdoors'
  3. if $ARGS[0] = 'start':
  4. CLOSE ALL
  5. $metka = 'start'
  6. $loc = 'park'
  7. $menu_loc = 'park'
  8. $menu_arg = 'start'
  9. $locclass = 'park'
  10. menu_off = 0
  11. if sound = 0:
  12. if month >=11 and month <= 12 or month >=1 and month <=3:
  13. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
  14. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  15. else
  16. if hour >= 8 and hour <= 23: PLAY 'sound/park.mp3',30 & PLAY 'sound/street_leto.mp3',30
  17. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  18. end
  19. end
  20. $sexloc = 'park'
  21. if WalkInsidePark = 0:WalkInsidePark = 1
  22. *clr & cla
  23. gs 'stat'
  24. '<center><b><font color="maroon">Park</font></b></center>'
  25. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/park.jpg"></center>'
  26. '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.'
  27. 'Despite its almost paradise-like appearance, the park can be very dangerous once the sun goes down.'
  28. *nl
  29. 'There is a sign that points into general direction of the city center. You estimate the walk to the city center would take 35 minutes.'
  30. '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.'
  31. '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.'
  32. *nl
  33. if hour >= 10 and hour <= 22:'The small café in the park is open, you could sit there and have some food.'
  34. if SNarkPriton = 0:'Near the cafe the <a href="exec: gt ''park'', ''junkies''">junkies</a> hang out.'
  35. if hour >= 9 or hour <= 20:
  36. 'There is an all year <a href="exec:gt ''park'', ''luna''">fair</a> at the park which you can visit.'
  37. else
  38. 'There is an all year fair at the park but it is closed. Opening hours from 9:00 to 21:00.'
  39. end
  40. if car > 0 and cardrive = 5:
  41. cardrive = 5
  42. 'Stands near the park <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
  43. end
  44. if $pantyworntype = 'none' and PCloSkirt > 2 and hour > 6 and hour <= 20:
  45. nurand = rand(0, 100)
  46. if nurand >= 80:
  47. pcs_mood -= 5
  48. SUB += 1
  49. pcs_horny += SUB
  50. '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?"'
  51. *nl
  52. if pcs_inhib >= 35:
  53. gs 'exhibitionism', 2
  54. pcs_mood += 5
  55. '"Nope!" you call back. "Just remembered not to!" You flip up the back of your skirt, flashing your ass at him and keep walking, a bit of a spring in your step.'
  56. elseif pcs_inhib > 30:
  57. inhib_exp += 1
  58. '"Nah, just didn''t feel like it," you shrug and continue on your way.'
  59. else
  60. 'You blush with shame and you try to walk out of his sight as fast as possible.'
  61. end
  62. end
  63. end
  64. act 'Leave': gt 'park', 'exit'
  65. act 'Walk around the park (1:00)': gt 'parkdin'
  66. gs 'treeCircEntry', 'CentralPark'
  67. if hour >= 10 and hour <= 22:
  68. act 'Have some food in the cafe': minut += 5 & gt 'ParkKafe', 'start'
  69. end
  70. if hour >= 20 or hour < 6 :
  71. if home_owned[1] = 0 and tanwork = 0 and student = 0:
  72. !nowhere to live in city
  73. 'It''s quite dark now, and you have no where to stay nearby. Maybe you should try to sleep on a bench?'
  74. else
  75. 'It''s quite dark now, and you don''t feel like walking. Maybe you Should try to sleep on a bench?'
  76. end
  77. act 'Sleep on a bench': gt'placer_sex','sleeping_park_bench'
  78. end
  79. act 'Sit on a bench': gt'placer_sex','sitting_park_bench'
  80. if joint > 0 and jointhigh = 0: act 'Smoke a joint': gs 'drugs', 'joint' & gt $loc, $metka
  81. if pusher = 1 and hour >= 6 and hour <= 21:
  82. 'There''s a drug dealer casually sitting on one of the benches. He''s trying not to be too suspicious.'
  83. if money >= 360:
  84. act 'Buy "Pale Lady" aka cocaine (360 <b>₽</b>)':
  85. cla
  86. menu_off = 1
  87. minut += 10
  88. palelady = input ("How many doses you want to buy?")
  89. if palelady * 360 > money or palelady <= 0:
  90. 'Either tell me how many you want to buy or get lost.'
  91. else
  92. money -= palelady * 360
  93. dur += palelady
  94. '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.'
  95. end
  96. act 'Casually walk away':gt 'park', 'start'
  97. end
  98. else
  99. 'You do not have enough money, not even for one dose.'
  100. end
  101. end
  102. if $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and hour > 5 and hour < 23 and parkrunday ! daystart:
  103. act 'Go for a run in the park (1:00)':
  104. *clr & cla
  105. menu_off = 1
  106. parkrunday = daystart
  107. gs 'exercise', 'tier1', 60, 'run_exp'
  108. fat -= rand(0, 4)
  109. gs 'sweat', 'add', 5
  110. '<center><b><font color="maroon">Park</font></b></center>'
  111. '<center><img <<$set_imgh>> src="images/locations/shared/park/parkbeg.jpg"></center>'
  112. 'You randomly take the paths, you run them up and down and about an hour later, you are out of breath and heavily sweating.'
  113. if hour >= 20:
  114. parkrand = rand(0, 10)
  115. if parkrand >= 8:
  116. '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.'
  117. gs 'npcgeneratec', 0, 'Rapist', rand(18,40)
  118. gs 'boyStat', $npclastgenerated
  119. act 'Fight':
  120. cla
  121. !!stats{
  122. strenV = 100
  123. speedV = 50
  124. agilV = 40
  125. reactV = 40
  126. vitalV = 50
  127. intelV = 10
  128. willV = 10
  129. !!skills
  130. magikV = 100
  131. boxingV = 50
  132. shootV = 100
  133. !!parameters
  134. healthV = vitalV * 10 + strenV * 5
  135. manaV = intelV * 10 + magikV * 10
  136. willpowerV = willV * 10
  137. BonusAtakV = 0
  138. BonusDefV = 0
  139. !!Programme of Action
  140. program = 1
  141. fightEnding = 8
  142. if spellavtoklon = 1:klon = 3
  143. if spellbefshild = 1:defence = 500}
  144. gs 'fight','initFight'
  145. $opp_name[0] = 'Rapist'
  146. $opp_image[0] = 'images/locations/shared/street/rapist.jpg'
  147. opp_def[0] = 50
  148. opp_run[0] = 50
  149. opp_wrstlng[0] = 10
  150. opp_kick[0] = 0
  151. opp_punch[0] = 50
  152. opp_jab[0] = 50
  153. opp_stren[0] = 100
  154. opp_agil[0] = 40
  155. opp_vital[0] = 50
  156. opp_react[0] = 40
  157. opp_health[0] = (opp_vital[0] * 10 + opp_stren[0] * 5)
  158. opp_willpwr[0] = 100
  159. opp_shoot[0] = 100
  160. gt 'fight', 'start'
  161. end
  162. if succubusQW = 5:
  163. !!Used if this was a random encounter instead of active hunting
  164. Act 'Lure him in and feed (this can take a lot of time)':
  165. cla
  166. 'You wait until he has dragged you almost to the bushes before turning on him.'
  167. act 'Continue': gt 'succubus', 'RapistFight'
  168. end
  169. end
  170. exit
  171. end
  172. end
  173. act 'Finish your run':
  174. cla & *nl
  175. 'You feel great after your run. A bit sweaty, but also that you''ve managed to improve your stamina as you even feel a bit slimmer.'
  176. act 'Continue': gt 'park', 'start'
  177. end
  178. if pcs_inhib >= 35 or exhibitionist_lvl > 0:
  179. act 'Expose your breasts':
  180. *clr & cla
  181. if rand(0,1) = 0:
  182. '<center><img <<$set_imgh>> src="images/locations/shared/park/flash'+rand(3,4)+'.jpg"></center>'
  183. else
  184. '<center><video autoplay loop src="images/locations/shared/park/flash'+rand(1,2)+'.mp4"></video></center>'
  185. end
  186. 'Halfway through your run, you pull up your top and expose your breasts. The cool air against your warm skin causes you to shiver, and almost immediately your nipples start to harden, a mixed reaction from the air hitting them and your growing excitement.'
  187. *nl
  188. gs 'parkivent', 'run_reactions'
  189. end
  190. end
  191. end
  192. elseif ($clothingworntype ! 'exercise' or $shoeworntype = 'trainers') and hour > 5 and hour < 23 and parkrunday ! daystart:
  193. 'You could go for a run in the park if you were wearing sports clothes and shoes.'
  194. end
  195. if hour <= 7 or hour >= 21:
  196. !!Succubus active hunting, can only hunt successfully once a day, but can try until success
  197. If succubusQW = 5 and suchuntday ! daystart:
  198. act 'Go Hunting (this can take a lot of time)':
  199. menu_off = 1
  200. if rand(1,100) < 70:
  201. minut += 30
  202. pcs_mood -= 5
  203. *nl
  204. 'No luck! After searching for half an hour, you find no one. For such a large city you would have thought there would be suitable prey around, your needs remain so maybe another search will be required?'
  205. act 'Continue': gt 'park', 'start'
  206. else
  207. suchunt = 1 & gt 'parkivent', '1'
  208. end
  209. end
  210. end
  211. if knowsfairy >= 1 and pcs_magik > 4:
  212. act 'Find a place the Fairy may be': fairylooking = 1 & gt 'parkdin'
  213. end
  214. end
  215. gs 'kseniyaQW', 'events'
  216. if pcs_inhib >= 35 or exhibitionist_lvl > 0:
  217. act 'Flash your tits':
  218. menu_off = 1
  219. inhib_exp += 2
  220. if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
  221. *clr & cla
  222. gs 'flash', 'tits', 'outdoors', 5
  223. gs 'stat'
  224. act 'Continue': gt 'park', 'start'
  225. end
  226. end
  227. if exhibitionist_lvl > 1:
  228. act 'Flash your pussy':
  229. menu_off = 1
  230. inhib_exp += 2
  231. if pcs_exhib = 100 and exhibitionQW = 0: gt 'kseniyaQW', 'event1'
  232. *clr & cla
  233. gs 'flash', 'pussy', 'outdoors', 5
  234. gs 'stat'
  235. act 'Continue': gt 'park', 'start'
  236. end
  237. end
  238. end
  239. if $ARGS[0] = 'exit':
  240. cla
  241. $loc = 'park'
  242. $metka = 'exit'
  243. $menu_loc = 'park'
  244. $menu_arg = 'exit'
  245. menu_off = 0
  246. '<center><b><font color="maroon">Park</font></b></center>'
  247. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/park.jpg"></center>'
  248. act 'Don''t leave': gt 'park', 'start'
  249. !!this leads to the old street walker content, blocked until it''s fixed up or moved into the new street walker content (julzor)
  250. !!act 'Go to the highway near the park (0:05)':minut += 5 & gt 'park', 'whore'
  251. act 'Go to the Residential Area (0:20)':minut += 20 & gt 'street'
  252. act 'Go to the City Center (0:35)':minut += 35 & gt 'down'
  253. act 'Go to the City Industrial Region (1:00)':minut += 60 & gt 'Nord'
  254. end
  255. if $ARGS[0] = 'luna':
  256. *clr & cla
  257. $menu_loc = 'park'
  258. $menu_arg = 'luna'
  259. menu_off = 0
  260. minut += 5
  261. clr
  262. gs 'stat'
  263. '<center><b><font color="maroon">The Fun Fair</font></b></center>'
  264. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/luna.jpg"></center>'
  265. '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.'
  266. *nl
  267. 'Opening hours are 9:00 to 21:00'
  268. 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>.'
  269. act 'Go back to the park':gt 'park', 'start'
  270. if hour >= 9 and hour <= 20:
  271. act 'Distribute flyers to earn money (50 <b>₽</b>) (1:00)':
  272. *clr & cla
  273. menu_off = 1
  274. minut += 60
  275. money += 50
  276. pcs_mood -= 5
  277. '<center><img <<$set_imgh>> src="images/locations/shared/park/flaer.jpg"></center>'
  278. '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.'
  279. act 'Move away':gt 'park', 'luna'
  280. end
  281. if money >= 50:
  282. act 'Eat Shawarma (50 <b>₽</b>)':
  283. *clr & cla
  284. menu_off = 1
  285. gs 'stat'
  286. minut += 15
  287. pcs_health += 10
  288. pcs_mood += 20
  289. fat += 2
  290. pcs_energy += 30
  291. cumspclnt = 2
  292. gs 'cum_cleanup'
  293. pcs_breath = 0
  294. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/luna1.jpg"></center>'
  295. 'You enjoy the shawarma.'
  296. act 'Move away':gt 'park', 'luna'
  297. end
  298. act 'Drink Lemonade (50 <b>₽</b>)':
  299. *clr & cla
  300. menu_off = 1
  301. gs 'stat'
  302. minut += 5
  303. pcs_health += 10
  304. pcs_mood += 20
  305. fat += 1
  306. pcs_hydra += 40
  307. cumspclnt = 2
  308. gs 'cum_cleanup'
  309. pcs_breath = 0
  310. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/luna1.jpg"></center>'
  311. 'You happily drink the refreshing lemonade.'
  312. act 'Move away':gt 'park', 'luna'
  313. end
  314. act 'Ride on the carousel (50 <b>₽</b>)':
  315. *clr & cla
  316. menu_off = 1
  317. minut += 30
  318. money -= 50
  319. if pcs_sprt < 30:sprt_exp += 1
  320. if pcs_sprt >= 30:sprt_exp += rand(0, 1)
  321. pcs_willpwr += 10
  322. pcs_mood += 10
  323. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/karusel.jpg"></center>'
  324. 'You paid 50 <b>₽</b> and sat in the carousel.'
  325. 'You have a great ride, already dazzled.'
  326. act 'Move away':gt 'park','luna'
  327. end
  328. end
  329. if money >= 100:
  330. act 'Shoot some targets (100 <b>₽</b>)':
  331. *clr & cla
  332. menu_off = 1
  333. minut += 30
  334. money -= 100
  335. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/tir.jpg"></center>'
  336. 'You paid 100 <b>₽</b> for ten bullets. If you are able to hit all targets, you can win a teddy bear.'
  337. act 'Shoot':
  338. cla
  339. tirkoef = pcs_agil + pcs_shoot
  340. tirmin = tirkoef * 20 / 100
  341. tirand = rand(tirkoef - tirmin, tirkoef + tirmin)
  342. if tirand >= 80:
  343. mishka += 1
  344. pcs_mood += 5
  345. 'You hit all targets and didn''t even miss once. Congratulations! You''ve won a Teddy Bear.'
  346. elseif tirand < 80 and tirand >= 70:
  347. 'Oh, you''ve only missed once.'
  348. elseif tirand < 70 and tirand >= 60:
  349. 'You were able to hit the target eight times, but you''ve missed twice.'
  350. elseif tirand < 60 and tirand >= 50:
  351. 'You were able to hit the target seven times, but you''ve missed three times.'
  352. elseif tirand < 50 and tirand >= 40:
  353. 'Six times you were able to hit the target, but you''ve missed four times.'
  354. elseif tirand < 40 and tirand >= 30:
  355. 'Five times you were able to hit the target, but you''ve missed five times too.'
  356. elseif tirand < 30 and tirand >= 25:
  357. 'Four times you were able to hit the target, but you''ve missed six times.'
  358. elseif tirand < 25 and tirand >= 20:
  359. 'Three times you were able to hit the target, but you''ve missed seven times.'
  360. elseif tirand < 20 and tirand >= 15:
  361. 'You were able to hit the target twice, but you''ve missed it eight times.'
  362. elseif tirand < 15 and tirand >= 10:
  363. 'You were only able to hit the target once and missed it nine times.'
  364. elseif tirand < 10:
  365. 'You couldn''t even hit the target once.'
  366. end
  367. shoot_lvl += 1
  368. act 'Move away':gt 'park', 'luna'
  369. end
  370. end
  371. end
  372. if money >= 20:
  373. act 'Hit the dynamometer (20 <b>₽</b>)':
  374. *clr & cla
  375. menu_off = 1
  376. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/silomer.jpg"></center>'
  377. 'You''ve paid 20 <b>₽</b> to play Ring-The-Bell.'
  378. act 'Bump':
  379. cla
  380. minut += 30
  381. money -= 20
  382. stKo = pcs_stren * 20/100
  383. damage = rand(pcs_stren - stKo, pcs_stren + stKo)
  384. if pcs_stren < 30: gs 'exercise', 'tier2', 1, 'stren_exp'
  385. if pcs_stren >= 30: gs 'exercise', 'tier1', 1, 'stren_exp'
  386. 'A LED screen lights up and shows you your score:<<damage>>'
  387. if damage > maxdamage:
  388. maxdamage = damage & 'Congratulations! A new personal best!'
  389. else
  390. 'You swung the hammer as hard as you could, but it wasn''t enough for a new record.'
  391. end
  392. act 'Move away':gt 'park', 'luna'
  393. end
  394. end
  395. end
  396. act 'One-Armed Bandit':gt 'park', 'avtomat'
  397. else
  398. 'The fair is now closed.'
  399. end
  400. end
  401. if $ARGS[0] = 'avtomat':
  402. $location_type = 'event_outdoors'
  403. *clr & cla
  404. menu_off = 1
  405. gs 'stat'
  406. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/avtomat.jpg"></center>'
  407. '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>.'
  408. if money >= 5 and hour <= 20:
  409. act 'Throw in 5 <b>₽</b> and pull the lever':gt 'park', 'avtomat2'
  410. end
  411. act 'Move away from the slot machine':gt 'park', 'luna'
  412. end
  413. if $ARGS[0] = 'avtomat2':
  414. $location_type = 'event_outdoors'
  415. *clr & cla
  416. menu_off = 1
  417. minut += 5
  418. money -= 5
  419. gs 'stat'
  420. avtrand = rand(0, 100)
  421. if avtrand = 100:
  422. money += 1000
  423. 'Jackpot! You win 1,000 <b>₽</b>.'
  424. elseif avtrand < 100 and avtrand >= 95:
  425. money += 100
  426. 'You win 100 <b>₽</b>.'
  427. elseif avtrand < 95 and avtrand >= 85:
  428. money += 10
  429. 'You win 10 <b>₽</b>.'
  430. elseif avtrand < 85 and avtrand >= 75:
  431. money += 5
  432. 'You win 5 <b>₽</b>.'
  433. elseif avtrand < 75:
  434. 'Unfortunately, you weren''t able to win anything this time.'
  435. end
  436. act 'Try your luck once more':gt 'park', 'avtomat'
  437. end
  438. if $ARGS[0] = 'whore':
  439. $location_type = 'event_outdoors'
  440. *clr & cla
  441. $menu_loc = 'park'
  442. $menu_arg = 'whore'
  443. menu_off = 0
  444. gs 'stat'
  445. '<center><b><font color="maroon">The road near the park</font></b></center>'
  446. if hour >= 16 and hour <= 23:
  447. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/park1.jpg"></center>'
  448. 'Along the roadside <a href="exec:gt ''prostitute'', ''start''">Prostitutes</a> are walking and sometimes picked up by a car.'
  449. elseif hour >= 4 and hour < 16:
  450. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/glpark.jpg"></center>'
  451. 'Cars passing on the road past the park and there is not seen nothing interesting.'
  452. else
  453. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/park1.jpg"></center>'
  454. 'Cars drive on the road past the park and then not see anything interesting.'
  455. end
  456. temp = rand(1, 10)
  457. act 'Go back to the park (0:05)': minut += 5 & gt 'park', 'start'
  458. if pcs_inhib > 35:
  459. act 'Flash breasts':
  460. *clr & cla
  461. menu_off = 0
  462. inhib_exp += 2
  463. gs 'flash', 'tits', 'outdoors', 5
  464. gs 'stat'
  465. act 'Go back to the park':gt 'park', 'start'
  466. end
  467. end
  468. end
  469. if $ARGS[0] = 'prost':
  470. *clr & cla
  471. menu_off = 1
  472. minut += 5
  473. gs 'stat'
  474. '<center><b><font color="maroon">Hooker</font></b></center>'
  475. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/park2.jpg"></center>'
  476. if whoreQW = 2:
  477. 'Prostitutes look at you with curiosity.'
  478. elseif whoreQW = 1:
  479. 'Prostitutes look at you with interest.'
  480. act 'Talk':
  481. cla
  482. whoreQW = 2
  483. '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. "'
  484. act 'Move away':gt 'park', 'prost'
  485. end
  486. elseif whoreQW = 0:
  487. 'Hey, you''re not one of us, would valyl from our point, and that the teeth will not collect.'
  488. gs 'npcgeneratec', 0, 'Stoned Prostitute', rand(15,30)
  489. gs 'boyStat', $npclastgenerated
  490. act 'Fuck you!':
  491. cla
  492. minut += 15
  493. !!stats {
  494. strenV = 20
  495. speedV = 30
  496. agilV = 30
  497. reactV = 30
  498. vitalV = 50
  499. intelV = 10
  500. willV = 10
  501. !!skills
  502. magikV = 10
  503. boxingV = 10
  504. shootV = 10
  505. !!parameters
  506. healthV = vitalV * 10 + strenV * 5
  507. manaV = intelV * 10 + magikV * 10
  508. willpowerV = willV * 10
  509. BonusAtakV = 0
  510. BonusDefV = 0
  511. !!Programme of Action
  512. program = 0
  513. if spellavtoklon = 1:klon = 3
  514. if spellbefshild = 1:defence = 500}
  515. gs 'fight','initFight'
  516. $opp_name[0] = 'Prostitute'
  517. $opp_image[0] = 'images/locations/city/shared/streetwalker/working1.jpg'
  518. opp_def[0] = 30
  519. opp_run[0] = 30
  520. opp_wrstlng[0] = 20
  521. opp_kick[0] = 0
  522. opp_punch[0] = 10
  523. opp_jab[0] = 10
  524. opp_stren[0] = 20
  525. opp_agil[0] = 30
  526. opp_vital[0] = 50
  527. opp_react[0] = 30
  528. opp_health[0] = (opp_vital[0] * 10 + opp_stren[0] * 5)
  529. opp_willpwr[0] = 50
  530. opp_shoot[0] = 10
  531. fightEnding = 4
  532. gt 'fight', 'start'
  533. end
  534. end
  535. if whoreQW > 1 and PCloStyle = 4:
  536. act 'Search client (0:15)':
  537. *clr & cla
  538. minut += 15
  539. whrand = rand(0, 100)
  540. if whrand <= 5:
  541. '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."'
  542. if money >= 1000:
  543. act 'Giving money (1,000 <b>₽</b>)':
  544. cla
  545. money -= 1000
  546. 'You gave the money big man in the jeep. He put them in his pocket and left.'
  547. act 'Move away':gt 'park', 'prost'
  548. end
  549. end
  550. act 'Fuck you!':
  551. cla
  552. minut += 15
  553. gs 'npcgeneratec', 0, 'Bandit', rand(18,40)
  554. gs 'boyStat', $npclastgenerated
  555. !!stats{
  556. strenV = 200
  557. speedV = 30
  558. agilV = 20
  559. reactV = 20
  560. vitalV = 150
  561. intelV = 10
  562. willV = 10
  563. !!skills
  564. magikV = 10
  565. boxingV = 10
  566. shootV = 10
  567. !!parameters
  568. healthV = vitalV * 10 + strenV * 5
  569. manaV = intelV * 10 + magikV * 10
  570. willpowerV = willV * 10
  571. BonusAtakV = 0
  572. BonusDefV = 0
  573. !!Programme of Action
  574. program = 0
  575. if spellavtoklon = 1:klon = 3
  576. if spellbefshild = 1:defence = 500}
  577. gs 'fight','initFight'
  578. $opp_name[0] = 'Bandit'
  579. $opp_image[0] = 'images/locations/shared/street/mugger.jpg'
  580. opp_def[0] = 10
  581. opp_run[0] = 30
  582. opp_wrstlng[0] = 10
  583. opp_kick[0] = 0
  584. opp_punch[0] = 10
  585. opp_jab[0] = 10
  586. opp_stren[0] = 200
  587. opp_agil[0] = 20
  588. opp_vital[0] = 150
  589. opp_react[0] = 20
  590. opp_health[0] = (opp_vital[0] * 10 + opp_stren[0] * 5)
  591. opp_willpwr[0] = 100
  592. opp_shoot[0] = 10
  593. fightEnding = 5
  594. gt 'fight', 'start'
  595. end
  596. elseif whrand > 5 and whrand <= 60:
  597. minut += 15
  598. stat['bj'] += 1
  599. guy += 1
  600. money += 500
  601. pcs_throat += 1
  602. '<center><img <<$set_imgh>> src="images/locations/highway/sex/car.jpg"></center>'
  603. '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.'
  604. 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.'
  605. 'You clasped lips member client and began to suck it, caress the tongue and try to take it as deep as possible.'
  606. gs 'npcgeneratec', 0, 'Client', rand(15,30)
  607. gs 'boyStat', $npclastgenerated
  608. if prezik = 0:
  609. swallow += 1
  610. spafinloc = 12
  611. gs 'cum_manage'
  612. 'Client started cumming in your mouth, you continued to suck and swallow his hot, tart sperm.'
  613. gs 'dinSex', 'std_trigger_oral'
  614. elseif prezik > 0:
  615. dynamic $prezik
  616. 'Client finished in a condom.'
  617. end
  618. 'After the client has finished you off immediately dropped out of the car.'
  619. act 'Go to the panel':gt 'park', 'prost'
  620. elseif whrand > 60 and whrand <= 90:
  621. minut += 15
  622. 'You were walking along the sidewalk showing off their charms completely in vain, no you are not interested.'
  623. act 'Go to the panel':gt 'park', 'prost'
  624. elseif whrand > 90:
  625. '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."'
  626. if money >= 500:
  627. act 'Giving money (500 <b>₽</b>)':
  628. cla
  629. money -= 500
  630. 'You gave the money to the prostitute, she turned and walked away.'
  631. act 'Move away':gt 'park', 'prost'
  632. end
  633. end
  634. act 'Fuck you!':
  635. cla
  636. minut += 15
  637. gs 'npcgeneratec', 0, 'Prostitute', rand(15,30)
  638. gs 'boyStat', $npclastgenerated
  639. !!stats{
  640. strenV = 50
  641. speedV = 50
  642. agilV = 40
  643. reactV = 30
  644. vitalV = 60
  645. intelV = 10
  646. willV = 10
  647. !!skills
  648. magikV = 10
  649. boxingV = 10
  650. shootV = 10
  651. !!parameters
  652. healthV = vitalV * 10 + strenV * 5
  653. manaV = intelV * 10 + magikV * 10
  654. willpowerV = willV * 10
  655. BonusAtakV = 0
  656. BonusDefV = 0
  657. !!Programme of Action
  658. program = 0
  659. if spellavtoklon = 1:klon = 3
  660. if spellbefshild = 1:defence = 500}
  661. gs 'fight','initFight'
  662. $opp_name[0] = 'Prostitute'
  663. $opp_image[0] = 'images/locations/city/shared/streetwalker/working1.jpg'
  664. opp_def[0] = 10
  665. opp_run[0] = 50
  666. opp_wrstlng[0] = 10
  667. opp_kick[0] = 0
  668. opp_punch[0] = 10
  669. opp_jab[0] = 10
  670. opp_stren[0] = 50
  671. opp_agil[0] = 40
  672. opp_vital[0] = 60
  673. opp_react[0] = 30
  674. opp_health[0] = (opp_vital[0] * 10 + opp_stren[0] * 5)
  675. opp_willpwr[0] = 50
  676. opp_shoot[0] = 10
  677. fightEnding = 6
  678. gt 'fight', 'start'
  679. end
  680. end
  681. end
  682. end
  683. act 'Move away':gt 'park', 'start'
  684. end
  685. if $ARGS[0] = 'rape1':
  686. $location_type = 'event_outdoors'
  687. *clr & cla
  688. menu_off = 1
  689. rape += 1
  690. gs 'npcgeneratec', 0, 'Rapist', rand(18,40)
  691. gs 'boyStat', $npclastgenerated
  692. SUB += 3
  693. money = 0
  694. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/rape.jpg"></center>'
  695. 'Suddenly, you are hit on the head. You wake up sometime later in a bush. Somehow you''re not able to move your arms, they must be tied up. As you look down at yourself, you realize that you''re not wearing anything and before you can even react some dude is ramming his dick into your cunt. "Shit", you think yourself, "I''m being raped."'
  696. gs 'arousal', 5, 'vaginal', 'rape'
  697. act 'Try to resist':
  698. cla
  699. spafinloc = 0
  700. gs 'cum_manage'
  701. '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.'
  702. gs 'arousal', 15, 'vaginal', 'rape', 'rough'
  703. gs 'arousal', 'end'
  704. act 'Leave':gt 'park', 'start'
  705. end
  706. act 'Try to relax and enjoy it':
  707. cla
  708. *clr
  709. stat['anal'] += 1
  710. SUB += 5
  711. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/rapean.jpg"></center>'
  712. '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, seems he intends to take you doggy-style. He spreads your buttocks and pushes his cock into your ass. You cry out in pain, but he holds your mouth shut and doesn''t stop fucking your asshole.'
  713. gs 'arousal', 15, 'anal', 'rape'
  714. act 'Go on':
  715. cla
  716. *clr
  717. spafinloc = 12
  718. gs 'cum_manage'
  719. spafinloc = 11
  720. gs 'cum_manage'
  721. SUB += 5
  722. '<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/cum.jpg"></center>'
  723. '"Give me a blowjob and you''ll get your reward for not resisting, girl.", he tells you. You nod obidiently and move on your knees and begin to give him head.'
  724. gs 'arousal', 15, 'bj', 'rape'
  725. '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."'
  726. gs 'arousal', 'end'
  727. act 'Stand up and leave':gt 'park', 'start'
  728. end
  729. end
  730. end
  731. if $ARGS[0] = 'junkies':
  732. *clr & cla
  733. gs 'stat'
  734. SNarkPriton = 1
  735. '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."'
  736. act 'Walk away from them':gt 'park', 'start'
  737. end
  738. --- park ---------------------------------