rolanbath.qsrc 33 KB

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