1
0

rolanbath.qsrc 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867
  1. # rolanbath
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $metka = 'start'
  5. $loc = 'rolanbath'
  6. $metkaM = 'start'
  7. $locM = 'rolanbath'
  8. $location_type = 'bathroom'
  9. cla & *clr
  10. gs 'stat'
  11. if RolanLoc[hour] = 7:
  12. 'Rolan is here.'
  13. if RAND(0,100) >= 30:
  14. gt 'rolanbath', 'ev'
  15. else
  16. gt 'rolanbath', 'sexev'
  17. end
  18. end
  19. '<center><b><font color = maroon>Bathroom</font></b></center>'
  20. if newbath ! 1:
  21. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
  22. 'The bathroom has seen better days. There''s some mold in the corners and floor. A big crack in the wall. This place probably hasn''t been cleaned for quite some time. The toilet sits along the far wall. There''s also a bathtub, with an old plastic shower curtain hanging from a rod above it. It also seems that the latch on the door is broken.'
  23. elseif newbath = 1:
  24. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
  25. 'The bathroom is in much better shape since you worked on it.'
  26. end
  27. if rolanworker = 2 and (RolanLoc[hour] = 9 or RolanLoc[hour] = 10):
  28. ! if rolanworker = 2 and RolanLoc[hour] = 9 or RolanLoc[hour] = 10:
  29. if workertool = 0:
  30. act 'Get some tools': gt 'rolanbath', 'tools'
  31. elseif workertool = 1:
  32. act 'Look for concrete mix': gt 'rolanapt','hallway'
  33. elseif workertool = 2:
  34. cla
  35. *clr
  36. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/girlpow.jpg"></center>'
  37. '"Now I''ll show Rolan what girl power can do!"'
  38. act 'Get to work': gt 'rolanapt', 'worker'
  39. end
  40. end
  41. act 'Return to the hallway': gt 'rolanapt','hallway'
  42. act 'Take a shower (0:15)':
  43. cla
  44. *clr
  45. minut += 15
  46. if shampoo > 0: shampoo -= 1
  47. dynamic $showerdin
  48. if frost > 0:frost = 0
  49. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  50. *nl
  51. 'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you. You carefully soap yourself trying not to miss any spots and then rinse off.'
  52. *nl
  53. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  54. if btwarn > 0:
  55. if btwarn = 1: $weightwarn = 'losing'
  56. if btwarn = 2: $weightwarn = 'gaining'
  57. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  58. killvar '$weightwarn' & btwarn = 0
  59. end
  60. if normbuffpick = 1:
  61. *nl
  62. '<b>You notice that your muscles are starting to show through your skin.</b>'
  63. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  64. end
  65. if RolanLoc[hour] ! 0 and RolanLoc[hour] ! 1:
  66. pcs_horny += rand(0,2)
  67. *nl
  68. 'You try to forget that Rolan''s bathroom door doesn''t have a latch.'
  69. 'The idea that the door is open occupies your mind while you are showering. It would be very embarrassing if Rolan was to enter at the wrong time.'
  70. if rand(0,3) = 0:
  71. act 'Sing in the shower':
  72. cla & *clr
  73. minut += 1
  74. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
  75. *nl
  76. 'The warm water feels amazing against you. You forget for a moment that Rolan could enter the bathroom at any moment. The shower is so relaxing that you begin to sing under the water, imagining that you''re a famous rockstar performing for your thousands of fans.'
  77. pcs_mood += 10
  78. pcs_willpwr += 10
  79. if hypnoAddict ! 0:
  80. 'You unconsciously avoid spraying water into your vagina.'
  81. else
  82. cumspclnt = 8
  83. gs 'cum_cleanup'
  84. end
  85. act 'Dry off': gt 'rolanbath','dryOff'
  86. end
  87. elseif rand(0,3) = 1:
  88. act 'Uh..? Is someone there?':
  89. cla & *clr
  90. minut += 1
  91. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathpeek.jpg"></center>'
  92. *nl
  93. 'As the jet of warm water begins to caress you, you hear a noise. You call out, "Rolan, is that you?" You don''t hear a response. "Bah! Probably just me being paranoid."'
  94. cumspclnt = 8
  95. gs 'cum_cleanup'
  96. if $pantyworntype ! 'none' and rolan_steal_day ! daystart:
  97. gs 'panties', 'dispose'
  98. rolan_panty_day = daystart
  99. rolan_panty_count -= 1
  100. if rolanpantyQW =< 1: rolanpantyQW = 1
  101. end
  102. act 'Finish showering':
  103. cla & *clr
  104. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathcold.jpg"></center>'
  105. *nl
  106. 'The water is suddenly ice cold, "Ahhh! I must have used up all the hot water!"'
  107. act 'Dry yourself':
  108. cla & *clr
  109. minut += 5
  110. !! gs 'rolanbath', 'rolansteal'
  111. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel1.jpg"></center>'
  112. *nl
  113. 'You wrap yourself with a towel before exiting the shower, just to be cautious.'
  114. if hypnoAddict ! 0:
  115. 'You unconsciously avoid spraying water into your vagina.'
  116. else
  117. cumspclnt = 8
  118. gs 'cum_cleanup'
  119. end
  120. act'Quickly get dressed': gt 'rolanbath','dryOff'
  121. end
  122. end
  123. end
  124. elseif rand(0,3) = 2:
  125. act 'Uh..? Is someone there?':
  126. cla & *clr
  127. minut += 1
  128. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathaware'+rand(0,2)+'.jpg"></center>'
  129. *nl
  130. 'You think you hear a noise. "Rolan, is that you?"'
  131. act 'What the f...?':
  132. cla & *clr
  133. minut += 10
  134. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathwhat.jpg"></center>'
  135. *nl
  136. 'Shit! Rolan is in here... masturbating!?'
  137. act 'look':
  138. cla
  139. *clr
  140. minut += 2
  141. '<center><video src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanmazt0.mp4"></center>'
  142. 'Rolan is furiously stroking his cock a few meters away from you while you are showering... You can''t believe it!'
  143. act 'Close the curtain (0:05)':
  144. cla
  145. *clr
  146. minut += 5
  147. dynamic $showerdin
  148. pcs_horny += rand(0,2)
  149. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
  150. *nl
  151. 'You think to yourself, "<i>Better let him finish, don''t want him seeing me naked while he''s pleasuring himself...</i>"'
  152. act 'Wait': gt 'rolanbath','dryOff'
  153. end
  154. end
  155. end
  156. end
  157. else
  158. act 'Clean yourself':
  159. cla & *clr
  160. minut += 10
  161. '<center><video src="images/shared/home/bathroom/dush.mp4"></center>'
  162. *nl
  163. 'No, Rolan is a good guy, he wouldn''t come into the bathroom while you''re showering.'
  164. if hypnoAddict ! 0:
  165. 'You unconsciously avoid spraying water into your vagina.'
  166. else
  167. cumspclnt = 8
  168. gs 'cum_cleanup'
  169. end
  170. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  171. end
  172. end
  173. else
  174. if pcs_horny >= 40:
  175. act 'Use the shower head on your pussy':
  176. cla & *clr
  177. minut += 10
  178. '<center><video src="images/shared/home/bathroom/wash2.mp4"></center>'
  179. *nl
  180. 'You know Rolan isn''t in here.'
  181. *nl
  182. 'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
  183. gs 'arousal', 'masturbate', 10
  184. if hypnoAddict ! 0:
  185. 'You unconsciously avoid spraying water into your vagina.'
  186. else
  187. cumspclnt = 8
  188. gs 'cum_cleanup'
  189. end
  190. act 'Dry off': gt $loc, 'start'
  191. end
  192. else
  193. act 'Continue washing':
  194. cla & *clr
  195. minut += 10
  196. '<center><video src="images/shared/home/bathroom/dush.mp4"></center>'
  197. *nl
  198. 'You know Rolan isn''t in here.'
  199. *nl
  200. 'No, Rolan is a good guy, he wouldn''t come into the bathroom while you''re showering.'
  201. if hypnoAddict ! 0:
  202. 'You unconsciously avoid spraying water into your vagina.'
  203. else
  204. cumspclnt = 8
  205. gs 'cum_cleanup'
  206. end
  207. act 'Dry off': gt $loc, 'start'
  208. end
  209. end
  210. end
  211. dynamic $preshave
  212. dynamic $brit
  213. !! dynamic $dryOff
  214. end
  215. !!gs 'arousal', 'masturbate', 20
  216. !!bath
  217. act 'Have a bath (0:30)':
  218. cla
  219. *clr
  220. gs 'stat'
  221. minut += 30
  222. pcs_sweat = 7 + rand(0,4)
  223. pcs_mood += 20
  224. pcs_skin += 1
  225. dynamic $showerdin
  226. if frost > 0:frost = 0
  227. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
  228. *nl
  229. 'While the bathtub fills up you get undressed and then dip a toe into the water. It''s just the right temperature so you climb in and let yourself sink into the warm water.'
  230. *nl
  231. *nl
  232. if sh_rolan_bazar < 4:
  233. 'You''re not used to having Rolan wandering around, especially with a broken door.'
  234. elseif sh_rolan_bazar >= 5:
  235. pcs_horny += rand(0,2)
  236. 'You''re still not used to having Rolan wandering around, especially with a broken door.'
  237. 'Starting to soap yourself you unwittingly turn your attention to your breasts...'
  238. elseif sh_rolan_bazar >= 15:
  239. pcs_horny += rand(0,4)
  240. 'You have become a little bit accustomed to washing yourself in Rolan''s bath and casually you pinch your nipple as if this situation arouses you.'
  241. elseif sh_rolan_bazar >= 25:
  242. pcs_horny += rand(2,6)
  243. 'You lean back and relax for a while. Then you begin to lather your body, gently gliding your soft hands over your smooth curves, and wash yourself thoroughly.'
  244. end
  245. if btwarn > 0:
  246. if btwarn = 1: $weightwarn = 'losing'
  247. if btwarn = 2: $weightwarn = 'gaining'
  248. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  249. killvar '$weightwarn' & btwarn = 0
  250. end
  251. if normbuffpick = 1:
  252. *nl
  253. '<b>You notice that your muscles are starting to show through your skin.</b>'
  254. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  255. end
  256. if RolanLoc[hour] ! 0 and RolanLoc[hour] ! 1:
  257. pcs_horny += rand(0,2)
  258. *nl
  259. 'You try to forget that Rolan''s bathroom door doesn''t latch.'
  260. 'The idea that the door is open occupies your mind while you are bathing. It would be very embarrassing if Rolan entered at the wrong time.'
  261. if rand(0,3) = 0:
  262. act 'Sing in the shower':
  263. cla
  264. *clr
  265. minut += 1
  266. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing1.jpg"></center>'
  267. *nl
  268. 'The warm water feels amazing against you. You forget for a moment that Rolan could enter the bathroom at any moment. The shower is so relaxing that you begin to sing under the water, imagining that you''re a famous rockstar performing for your thousands of fans.'
  269. pcs_mood += 10
  270. pcs_willpwr += 10
  271. act 'Dry off': gt 'rolanbath','dryOff'
  272. end
  273. elseif rand(0,3) = 1:
  274. act 'Uh..? Is someone there?':
  275. cla
  276. *clr
  277. minut += 1
  278. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathpeek.jpg"></center>'
  279. *nl
  280. 'As the jet of warm water begins to caress you, you hear a noise. You call out, "Rolan, is that you?" You don''t hear a response. "Bah! Probably just me being paranoid."'
  281. gs 'cum_cleanup'
  282. !! gs 'panties', 'linen'
  283. if $pantyworntype ! 'none' and rolan_steal_day ! daystart:
  284. gs 'panties', 'dispose'
  285. rolan_panty_day = daystart
  286. rolan_panty_count -= 1
  287. if rolanpantyQW < 1: rolanpantyQW = 1
  288. end
  289. !! gs 'panties', 'remove'
  290. act 'Finish showering':
  291. cla
  292. *clr
  293. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathcold.jpg"></center>'
  294. *nl
  295. 'The water is suddenly ice cold, "Ahhh! I must have used up all the hot water!"'
  296. act 'Dry yourself':
  297. cla
  298. *clr
  299. minut += 5
  300. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel1.jpg"></center>'
  301. *nl
  302. 'You wrap yourself with a towel before exiting the shower, just to be cautious.'
  303. act'Quick dressing': gt 'rolanbath','dryOff'
  304. end
  305. end
  306. end
  307. elseif rand(0,3) = 2:
  308. act 'Uh..? Is someone there?':
  309. cla
  310. *clr
  311. minut += 1
  312. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathaware'+rand(3,5)+'.jpg"></center>'
  313. *nl
  314. 'You think you hear a noise. "Rolan, is that you?"'
  315. act 'What the f...?':
  316. cla
  317. *clr
  318. minut += 10
  319. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathwhat.jpg"></center>'
  320. *nl
  321. 'Shit, Rolan is in here... masturbating!?'
  322. act 'look':
  323. cla
  324. *clr
  325. minut += 2
  326. '<center><video src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanmazt1.mp4"></center>'
  327. 'Wait... he''s not masturbating... What the fuck is he doing? You can''t believe what are you seeing.'
  328. act 'Close curtain (0:05)':
  329. cla
  330. *clr
  331. minut += 5
  332. dynamic $showerdin
  333. pcs_horny += rand(0,2)
  334. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
  335. *nl
  336. 'You think to yourself, "<i>Better let him finish, don''t want him seeing me naked...</i>"'
  337. act 'wait': gt 'rolanbath','dryOff'
  338. end
  339. end
  340. end
  341. end
  342. else
  343. act 'Clean yourself':
  344. cla
  345. *clr
  346. minut += 10
  347. '<center><video src="images/locations/pavlovsk/resident/apartment/aptrolan/bathtub28.mp4"></center>'
  348. *nl
  349. 'No, Rolan is a good guy, he wouldn''t come into the bathroom while you''re showering.'
  350. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  351. end
  352. end
  353. else
  354. if pcs_horny >= 40:
  355. act 'Refief':
  356. cla
  357. *clr
  358. minut += 10
  359. '<center><video src="images/shared/home/bathroom/wash7.mp4"></center>'
  360. *nl
  361. 'You know Rolan isn''t here.'
  362. *nl
  363. 'You turn on the faucet, lift your legs and scoot your ass over to align your pussy with the jet of warm water.'
  364. gs 'arousal', 'masturbate', 10
  365. act 'Rolanbathdryoff': gt $loc, 'start'
  366. end
  367. else
  368. act 'Wash':
  369. cla
  370. *clr
  371. minut += 10
  372. '<center><video src="images/locations/pavlovsk/resident/apartment/aptrolan/bathtub28.mp4"></center>'
  373. *nl
  374. 'You know Rolan isn''t here.'
  375. *nl
  376. 'He wouldn''t come into the bathroom knowing you were in here.'
  377. act 'Rolanbathdryoff': gt $loc, 'start'
  378. end
  379. end
  380. end
  381. dynamic $preshave
  382. dynamic $brit
  383. !! dynamic $dryOff
  384. end
  385. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings.</a>'
  386. if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $metka">Inject silicone into breast implants.</a>'
  387. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $metka">Drain silicone from breast implants.</a>'
  388. dynamic $bteeth
  389. dynamic $tampon
  390. dynamic $basin
  391. dynamic $removepan
  392. if (cumloc[6] = 1 or cumloc[7] = 1):
  393. act 'Clean semen stains from your clothing (0:15)':
  394. *clr & cla
  395. cumspclnt = 6
  396. gs 'cum_cleanup'
  397. minut = minut + 15
  398. gs 'stat'
  399. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  400. 'You take fifteen minutes to thoroughly rinse the semen stains out of your clothes. By the time you''re done, all the evidence that remains of them are some quickly drying damp spots.'
  401. act 'Finish': gt 'rolanbath', 'start'
  402. end
  403. end
  404. if pregtest > 0 and (abortionbirthdate = 0 or daystart - abortionbirthdate > 100):
  405. act 'Do a pregnancy test':
  406. cla
  407. pregtest -= 1
  408. gs 'stat'
  409. if pregchem > 120:
  410. knowpreg = 1
  411. thinkpreg = 1
  412. 'The test shows the two strips: you''re pregnant!'
  413. else
  414. knowpreg = 0
  415. 'The test shows one band: you''re not pregnant.'
  416. end
  417. act 'Finish':gt 'rolanbath', 'start'
  418. end
  419. end
  420. dynamic $toymanage
  421. dynamic $enema
  422. end
  423. !Bathroom, Rolan caught:
  424. if $ARGS[0] = 'sexev':
  425. if RAND(0,100) < 50:
  426. *clr & cla
  427. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/caught0.jpg"></center>'
  428. '...oops... better leave him be.'
  429. gs 'arousal', 'voyeur', 5
  430. gs 'arousal', 'end'
  431. gs 'stat'
  432. act 'Leave him alone': gt 'rolanapt','hallway'
  433. else
  434. *clr & cla
  435. '<center><video src="images/locations/pavlovsk/resident/apartment/aptrolan/caught1.mp4"></center>'
  436. '...it''s difficult to turn away, but you know you should leave him be.'
  437. gs 'arousal', 'voyeur', 5
  438. gs 'arousal', 'end'
  439. gs 'stat'
  440. act 'Leave him alone': gt 'rolanapt','hallway'
  441. end
  442. end
  443. !Bathroom, Rolan busy:
  444. if $ARGS[0] = 'ev':
  445. if RAND(0,100) <= 90:
  446. *clr & cla
  447. minut += 2
  448. gs 'stat'
  449. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanselfcare'+rand(1,3)+'.jpg"></center>'
  450. '"Miss <<$pcs_lastname>>, is there something you want to talk about?"'
  451. act 'Chat with Rolan': gt 'rolanbath', 'bazar'
  452. act 'Return to the hallway': gt 'rolanapt','hallway'
  453. else
  454. *clr & cla
  455. minut += 2
  456. gs 'stat'
  457. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbusy'+rand(0,2)+'.jpg"></center>'
  458. 'When you go to the bathroom, you find Rolan already in there. "Hey!" he shouts indignantly. Oops, he''s on the toilet!'
  459. '"Sorry, sorry!" you apologize, quickly leaving the bathroom.'
  460. act 'Return to the hallway': gt 'rolanapt','hallway'
  461. end
  462. end
  463. if $ARGS[0] = 'bazar':
  464. minut += 2
  465. gs 'stat'
  466. if rolan_bazar_count = 0:
  467. *clr & cla
  468. gs 'stat'
  469. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanselfcare0.jpg"></center>'
  470. '"Sorry Miss <<$pcs_lastname>>, I have to go. Maybe we can chat some more later?"'
  471. act 'Return to the hallway': gt 'rolanapt','hallway'
  472. else
  473. *clr & cla
  474. gs 'stat'
  475. rolan_bazar_day = daystart
  476. rolan_bazar_count -= 1
  477. sh_rolan_bazar += 1
  478. minut += 5
  479. rolan_textb_vanna = RAND(1,8)
  480. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
  481. if rolan_textb_vanna = 1:$rolan_textb_vanna = 'Rolan tells you that he doesn''t mind if you take a shower here.'
  482. if rolan_textb_vanna = 2:$rolan_textb_vanna = 'Rolan tells you that he see often sees some of your classmates buying clothes at G&M Stores, though he doesn''t know how it''s possible for young girls to have so much money.'
  483. if rolan_textb_vanna = 3:$rolan_textb_vanna = 'Rolan tells you that he wants to run for mayor and end the discrimination he sees in Pavlovsk.'
  484. if rolan_textb_vanna = 4:$rolan_textb_vanna = 'Rolan tells you that the day before Ms. Sokoloff stopped to chat with him as he was coming back from the supermarket.'
  485. if rolan_textb_vanna = 5:$rolan_textb_vanna = 'Rolan tells you that he saw two of your classmates arguing outside.'
  486. if rolan_textb_vanna = 6:$rolan_textb_vanna = 'Rolan tells you that the courtyard is dangerous at night.'
  487. if rolan_textb_vanna = 7:$rolan_textb_kuh = 'Rolan tells you he saw two girls walking in the park, hand in hand, like they were in love. He wonders what is wrong with people these days. Girls need a man after all.'
  488. if rolan_textb_vanna = 8:$rolan_textb_kuh = 'Rolan tells you he saw Anushka and Alyona kissing on the playground, in the apartment courtyard. He thinks it is very unbecoming of them, they should be with men.'
  489. '<br><<$rolan_imgb_vanna>><br>'
  490. '<br><<$rolan_textb_vanna>><br>'
  491. '"Sure Miss <<$pcs_lastname>>, tell me!"'
  492. ! RolanLoc[hour] = 7
  493. act 'Chat some more': gt 'rolanbath', 'bazar'
  494. if sh_rolan_bazar > 5 and mesec <=0:
  495. *clr & cla
  496. gs 'stat'
  497. '<br><<$rolan_imgb_vanna>><br>'
  498. '<br><<$rolan_textb_vanna>><br>'
  499. act 'Chat some more': gt 'rolanbath', 'bazar'
  500. act 'Ask to take a shower': gt 'rolanbath', 'pervshower'
  501. end
  502. if sh_rolan_bazar >= 25 and npc_rel['A133'] >= 50 and rolan_bazar_count >= 1 and pcs_vag >=1:
  503. *clr & cla
  504. gs 'stat'
  505. '<br><<$rolan_imgb_vanna>><br>'
  506. '<br><<$rolan_textb_vanna>><br>'
  507. act 'Chat some more': gt 'rolanbath', 'bazar'
  508. act 'Ask to take a shower': gt 'rolanbath', 'pervshower'
  509. act 'Suggest bathing together': gt 'rolanbath', 'bonershower'
  510. end
  511. end
  512. act 'Return to the hallway': gt 'rolanapt','hallway'
  513. end
  514. !gg and take a bath when Rolan in bath
  515. if $ARGS[0] = 'pervshower':
  516. *clr & cla
  517. gs 'stat'
  518. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanselfcare0.jpg"></center>'
  519. '"Sure Miss <<$pcs_lastname>>, tell me!"'
  520. act 'Take a shower (0:15)':
  521. cla
  522. *clr
  523. minut += 15
  524. dynamic $showerdin
  525. if frost > 0:frost = 0
  526. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  527. *nl
  528. 'You carefully undress behind the curtain and turn on the water. When it hits the right temperature you enter the shower and let the warm water rain down on you. You carefully soap yourself trying not to miss any spot and then wash off.'
  529. *nl
  530. dynamic $brit
  531. 'You try to forget that Rolan''s is here.'
  532. 'The idea of him opening the curtain occupies your mind while you are showering. It would be really embarrassing if Rolan opened the curtain now.'
  533. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  534. if btwarn > 0:
  535. if btwarn = 1: $weightwarn = 'losing'
  536. if btwarn = 2: $weightwarn = 'gaining'
  537. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  538. killvar '$weightwarn' & btwarn = 0
  539. end
  540. if normbuffpick = 1:
  541. *nl
  542. '<b>You notice that your muscles are starting to show through your skin.</b>'
  543. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  544. end
  545. if pcs_horny >= 40:
  546. act 'Use the shower head on your pussy':
  547. cla
  548. *clr
  549. minut += 10
  550. '<center><video src="images/shared/home/bathroom/wash2.mp4"></center>'
  551. *nl
  552. 'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
  553. gs 'arousal', 'masturbate', 10
  554. if hypnoAddict ! 0:
  555. 'You unconsciously avoid spraying water into your vagina.'
  556. else
  557. cumspclnt = 8
  558. gs 'cum_cleanup'
  559. end
  560. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  561. end
  562. act 'Continue washing':
  563. cla
  564. *clr
  565. minut += 10
  566. '<center><video src="images/shared/home/bathroom/dush.mp4"></center>'
  567. *nl
  568. 'No, Rolan is a good guy, he wouldn''t peek on you while you''re showering.'
  569. if hypnoAddict ! 0:
  570. 'You unconsciously avoid spraying water into your vagina.'
  571. else
  572. cumspclnt = 8
  573. gs 'cum_cleanup'
  574. end
  575. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  576. end
  577. else
  578. if rand(0,3) =< 2:
  579. act 'Sing in the shower':
  580. cla
  581. *clr
  582. minut += 1
  583. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
  584. *nl
  585. 'The warm water feels amazing against you. As you relax you begin to sing under the water completely forgetting that Rolan is there and can hear you. You imagine that you''re a famous rockstar performing for your thousands of fans.'
  586. pcs_mood += 10
  587. pcs_willpwr += 10
  588. if hypnoAddict ! 0:
  589. 'You unconsciously avoid spraying water into your vagina.'
  590. else
  591. cumspclnt = 8
  592. gs 'cum_cleanup'
  593. end
  594. act 'Dry off': gt 'rolanbath','dryOff'
  595. end
  596. else
  597. act 'Clean yourself':
  598. cla
  599. *clr
  600. minut += 10
  601. '<center><video src="images/shared/home/bathroom/dush.mp4"></center>'
  602. *nl
  603. 'No, Rolan is a good guy, he wouldn''t peek on you while you''re showering.'
  604. if hypnoAddict ! 0:
  605. 'You unconsciously avoid spraying water into your vagina.'
  606. else
  607. cumspclnt = 8
  608. gs 'cum_cleanup'
  609. end
  610. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  611. end
  612. end
  613. end
  614. dynamic $preshave
  615. end
  616. end
  617. !gg take a bath with Rolan
  618. if $ARGS[0] = 'bonershower':
  619. *clr & cla
  620. minut += 5
  621. if shampoo > 0: shampoo -= 1
  622. dynamic $showerdin
  623. if frost > 0:frost = 0
  624. gs 'stat'
  625. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanboner1.jpg"></center>'
  626. *nl
  627. '"Rolan, I see you''re getting ready to bathe. Do you mind if I join you?"'
  628. *nl
  629. '"Miss <<$pcs_lastname>>, w-w-what do you mean?"'
  630. *nl
  631. '"I mean, we could both save some time and water if we bathed together!"'
  632. *nl
  633. 'Rolan can only stutter and stammer.'
  634. act 'Bra':
  635. *clr & cla
  636. minut += 5
  637. gs 'stat'
  638. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanboner0.jpg"></center>'
  639. *nl
  640. 'You try to snap Rolan out of his stupor, "Come on, Rolan, we don''t have all day!"'
  641. *nl
  642. 'Rolan has quickly stripped out of his clothes, while you''ve only managed to get your shirt off.'
  643. *nl
  644. '"Here, help me with my bra..."'
  645. act 'Shoes':
  646. *clr & cla
  647. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanshoes.jpg"></center>'
  648. *nl
  649. 'You ask Rolan to help you remove your shoes.'
  650. *nl
  651. 'Rolan reaches down and starts to remove your shoes, his eyes darting between your feet and your panties.'
  652. *nl
  653. 'You wonder, "<i>Could Rolan have a foot fetish, in addition to his panties addiction?</i>"'
  654. pcs_horny += rand(2,4)
  655. minut += 5
  656. gs 'stat'
  657. act 'Bathe together':
  658. *clr & cla
  659. pcs_hairbsh = 0
  660. pcs_makeup = 1
  661. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanhair0.jpg"></center>'
  662. *nl
  663. '"Rolan, could you please wash my hair. It''s so nice not having to do it myself!"'
  664. *nl
  665. '"O-o-of course, Miss <<$pcs_lastname>>..."'
  666. pcs_horny += rand(3,6)
  667. gs 'stat'
  668. act 'Continue':
  669. *clr & cla
  670. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanboner3.jpg"></center>'
  671. *nl
  672. 'You stand up and help Rolan up too, you are ready to continue when you notice he has a hard on...'
  673. *nl
  674. '"I''m sorry, Miss <<$pcs_lastname>>... I shouldn''t...I haven''t...it''s jus-" '
  675. *nl
  676. 'You cut him off, "It''s alright, Rolan. It''s perfectly normal for a healthy man to get an erection when around a <i>beautiful</i> woman."'
  677. *nl
  678. 'You continue to start at his rock hard cock, "And you certainly are <i>healthy</i>."'
  679. pcs_horny += rand(3,6)
  680. gs 'stat'
  681. act 'Continue':
  682. *clr & cla
  683. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanhelp.jpg"></center>'
  684. *nl
  685. 'You continue to wash each other''s bodies, Rolan''s erection slowly subsiding. Whether he''s adjusted to bathing with you or he''s just nervous being on display, you''re not sure.'
  686. *nl
  687. '"Thank you, Rolan, we''re almost done!"'
  688. pcs_horny += rand(4,6)
  689. gs 'stat'
  690. act 'Continue':
  691. *clr & cla
  692. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolancheek.jpg"></center>'
  693. 'You give Rolan a peck on the cheek, "You see, wasn''t that quicker than a solo bath?"'
  694. 'Rolan does not respond. Instead he grabs a towel and quickly exits the bathroom. You wonder how worked up this bath got him. Maybe next time you''ll take it upon yourself to find out...'
  695. pcs_horny += rand(3,6)
  696. gs 'stat'
  697. act 'Finish': gt 'rolanapt','hallway'
  698. end
  699. end
  700. end
  701. end
  702. end
  703. end
  704. end
  705. !rolanbathdryloc
  706. if $ARGS[0] = 'dryOff':
  707. if RolanLoc[hour] = 0:
  708. cla
  709. *clr
  710. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel'+rand(0,1)+'.jpg"></center>'
  711. *nl
  712. 'You know Rolan isn''t here.'
  713. act 'Get out and dry off': gt $loc, 'start'
  714. else
  715. if rand (0,3) = 3:
  716. cla
  717. *clr
  718. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbusy1.jpg"></center>'
  719. 'Shit! It''s Rolan! ...when did he enter?'
  720. act 'Close curtain (0:05)':
  721. cla
  722. *clr
  723. minut += 5
  724. dynamic $showerdin
  725. pcs_horny += rand(0,2)
  726. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
  727. *nl
  728. 'It would be very embarrassing if Rolan sees you like this. You''d better wait until he''s done.'
  729. act 'wait': gt 'rolanbath','dryOff'
  730. end
  731. else
  732. cla
  733. *clr
  734. '<center><b><font color = maroon>Bathroom</font></b></center>'
  735. if newbath ! 1:
  736. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
  737. 'The bathroom has seen better days. There''s some mold in the corners and floor. A big crack in the wall. This place probably hasn''t been cleaned for quite some time. The toilet sits along the far wall. There''s also a bathtub, with an old plastic shower curtain hanging from a rod above it. It also seems that the latch on the door is broken.'
  738. elseif newbath = 1:
  739. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
  740. 'The bathroom is in much better shape since you worked on it.'
  741. end
  742. *nl
  743. 'Phew! Rolan isn''t here.'
  744. act 'Dry off and dress':
  745. if rolan_panty_count = 0 and rolan_panty_day = daystart and rolan_steal_count = 0:
  746. cla
  747. *clr
  748. minut += 1
  749. rolan_steal_count +=1
  750. rolan_steal_day = daystart
  751. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/headrol.jpg"></center>'
  752. if rolanpantyQW =< 1:
  753. rolanpantyQW += 1
  754. *nl
  755. '"Damn! Rolan really is a panty thief!"'
  756. else
  757. rolanpantyQW += 1
  758. *nl
  759. '"I knew it!"'
  760. end
  761. act 'Exit': gt $loc, 'start'
  762. else
  763. cla
  764. *clr
  765. minut += 1
  766. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathdry'+rand(0,1)+'.jpg"></center>'
  767. *nl
  768. 'Better hurry and dry off. You never know...'
  769. act 'exit': gt $loc, 'start'
  770. end
  771. end
  772. end
  773. end
  774. end
  775. if $ARGS[0] = 'tools':
  776. if workertool = 0:
  777. cla
  778. *clr
  779. minut += 15
  780. workertool += 1
  781. gs 'stat'
  782. '<center><h4><font color="maroon">Tools</font></h4></center>'
  783. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/garages.jpg"></center>'
  784. 'You quickly run to your stepfather''s garage to grab some tools. Rolan said he already has the paint so you won''t need to bring that. You start to rummaging in search of the tools.'
  785. 'You spend several minutes gathering the appropriate tools from your stepfather''s garage. However, you are unable to find any concrete mix. Perhaps Rolan has some back at the apartment.'
  786. act 'Back to Rolan''s':
  787. cla
  788. *clr
  789. minut += 10
  790. '<center><b><font color = maroon>Tools</font></b></center>'
  791. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker0.jpg"></center>'
  792. 'You search the apartment from top to bottom but don''t find any concrete mix. The only room left is...'
  793. act 'Only one room left...': gt 'rolanapt','grandmaroom'
  794. end
  795. end
  796. end
  797. if $ARGS[0] = 'surprise':
  798. cla
  799. *clr
  800. minut += 5
  801. rolanworker += 1
  802. gs 'stat'
  803. '<center><h4><font color="maroon">Surprise</font></h4></center>'
  804. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanwelcome.jpg"></center>'
  805. '"Hi, Rolan! What do you think of your new bathroom?"'
  806. *nl
  807. '"Miss <<$pcs_lastname>>... I-I am speechless..."'
  808. *nl
  809. '"Which part do you like best?"'
  810. act 'Continue':
  811. cla
  812. *clr
  813. minut += 1
  814. '<center><b><font color = maroon>Surprise</font></b></center>'
  815. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
  816. '"Miss <<$pcs_lastname>>, the lighting is better, the mold and the smell are gone. All I had done was buy some paint, how..."'
  817. *nl
  818. '"Yes, I did use some of the paint, but there''s still left if you need to do any tounching up."'
  819. *nl
  820. '"I really don''t know what to say."'
  821. act 'Continue':
  822. cla
  823. *clr
  824. minut += 1
  825. '<center><b><font color = maroon>Surprise</font></b></center>'
  826. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath0.jpg"></center>'
  827. '"This must have cost you a lot of money, Miss <<$pcs_lastname>>. I don''t have much but I have to repay y-"'
  828. *nl
  829. 'You interrupt him, "No, Rolan, I didn''t do this for the money. It didn''t cost me anything, actually."'
  830. *nl
  831. '"Did you do all this work by yourself?"'
  832. *nl
  833. '"Yes, well, I borrowed all the tools I used from my stepfather."'
  834. act 'Continue':
  835. cla
  836. *clr
  837. minut += 1
  838. rolanknow = 1
  839. RolanLoc[hour] = 6
  840. '<center><b><font color = maroon>Surprise</font></b></center>'
  841. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath1.jpg"></center>'
  842. '"Ah I see, your stepfather. That would make sense. He seems like a man who take cares of his property. But did he have the concrete, as well? I didn''t have time to get any. But you fixed that crack in the wall?"'
  843. *nl
  844. '"No, I didn''t get the concrete from my stepfather," You raise an eyebrow, "I found that container of concrete powder in that one bedroom you actually keep clean."'
  845. *nl
  846. 'Without saying another word, Rolan runs out of the room...'
  847. act 'follow Rolan': gt 'rolanapt','hallway'
  848. end
  849. end
  850. end
  851. end
  852. --- rolanbath ---------------------------------