1
0

rolanbath.qsrc 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868
  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. $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 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 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 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 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 >= 5:
  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 >= 15:
  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. elseif sh_rolan_bazar >= 25:
  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 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 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 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 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, $metka">Inject silicone into breast implants.</a>'
  393. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $metka">Drain silicone from breast implants.</a>'
  394. dynamic $bteeth
  395. dynamic $tampon
  396. dynamic $basin
  397. dynamic $removepan
  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', 'voyeur', 5
  425. gs 'arousal', 'end'
  426. gs 'stat'
  427. act 'Leave him alone': gt 'rolanapt','hallway'
  428. else
  429. *clr & cla
  430. '<center><video 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. *clr & cla
  499. gs 'stat'
  500. '<br><<$rolan_imgb_vanna>><br>'
  501. '<br><<$rolan_textb_vanna>><br>'
  502. act 'Chat some more': gt 'rolanbath', 'bazar'
  503. act 'Ask to take a shower': gt 'rolanbath', 'pervshower'
  504. act 'Suggest bathing together': gt 'rolanbath', 'bonershower'
  505. end
  506. end
  507. act 'Return to the hallway': gt 'rolanapt','hallway'
  508. end
  509. !gg and take a bath when Rolan in bath
  510. if $ARGS[0] = 'pervshower':
  511. *clr & cla
  512. gs 'stat'
  513. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanselfcare0.jpg"></center>'
  514. '"Sure Miss <<$pcs_lastname>>, tell me!"'
  515. act 'Take a shower (0:15)':
  516. cla
  517. *clr
  518. minut += 15
  519. noShampoo = 1
  520. dynamic $showerdin
  521. if frost > 0:frost = 0
  522. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  523. *nl
  524. '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.'
  525. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
  526. *nl
  527. dynamic $brit
  528. 'You try to forget that Rolan''s is here.'
  529. '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.'
  530. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  531. if btwarn > 0:
  532. if btwarn = 1: $weightwarn = 'losing'
  533. if btwarn = 2: $weightwarn = 'gaining'
  534. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  535. killvar '$weightwarn' & btwarn = 0
  536. end
  537. if normbuffpick = 1:
  538. *nl
  539. '<b>You notice that your muscles are starting to show through your skin.</b>'
  540. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  541. end
  542. if pcs_horny >= 40:
  543. act 'Use the shower head on your pussy':
  544. cla
  545. *clr
  546. minut += 10
  547. '<center><video src="images/shared/home/bathroom/wash2.mp4"></center>'
  548. *nl
  549. 'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
  550. gs 'arousal', 'masturbate', 10
  551. if hypnoAddict ! 0:
  552. 'You unconsciously avoid spraying water into your vagina.'
  553. else
  554. cumspclnt = 8
  555. gs 'cum_cleanup'
  556. end
  557. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  558. end
  559. act 'Continue washing':
  560. cla
  561. *clr
  562. minut += 10
  563. '<center><video src="images/shared/home/bathroom/dush.mp4"></center>'
  564. *nl
  565. 'No, Rolan is a good guy, he wouldn''t peek on you while you''re showering.'
  566. if hypnoAddict ! 0:
  567. 'You unconsciously avoid spraying water into your vagina.'
  568. else
  569. cumspclnt = 8
  570. gs 'cum_cleanup'
  571. end
  572. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  573. end
  574. else
  575. if rand(0,3) =< 2:
  576. act 'Sing in the shower':
  577. cla
  578. *clr
  579. minut += 1
  580. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathsing'+rand(0,1)+'.jpg"></center>'
  581. *nl
  582. '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.'
  583. pcs_mood += 10
  584. if hypnoAddict ! 0:
  585. 'You unconsciously avoid spraying water into your vagina.'
  586. else
  587. cumspclnt = 8
  588. gs 'cum_cleanup'
  589. end
  590. act 'Dry off': gt 'rolanbath','dryOff'
  591. end
  592. else
  593. act 'Clean yourself':
  594. cla
  595. *clr
  596. minut += 10
  597. '<center><video src="images/shared/home/bathroom/dush.mp4"></center>'
  598. *nl
  599. 'No, Rolan is a good guy, he wouldn''t peek on you while you''re showering.'
  600. if hypnoAddict ! 0:
  601. 'You unconsciously avoid spraying water into your vagina.'
  602. else
  603. cumspclnt = 8
  604. gs 'cum_cleanup'
  605. end
  606. act 'Rolanbathdryoff': gt 'rolanbath','dryOff'
  607. end
  608. end
  609. end
  610. dynamic $preshave
  611. end
  612. end
  613. !gg take a bath with Rolan
  614. if $ARGS[0] = 'bonershower':
  615. *clr & cla
  616. minut += 5
  617. noShampoo = 1
  618. dynamic $showerdin
  619. if frost > 0:frost = 0
  620. gs 'stat'
  621. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanboner1.jpg"></center>'
  622. *nl
  623. '"Rolan, I see you''re getting ready to bathe. Do you mind if I join you?"'
  624. *nl
  625. '"Miss <<$pcs_lastname>>, w-w-what do you mean?"'
  626. *nl
  627. '"I mean, we could both save some time and water if we bathed together!"'
  628. *nl
  629. 'Rolan can only stutter and stammer.'
  630. act 'Bra':
  631. *clr & cla
  632. minut += 5
  633. gs 'stat'
  634. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanboner0.jpg"></center>'
  635. *nl
  636. 'You try to snap Rolan out of his stupor, "Come on, Rolan, we don''t have all day!"'
  637. *nl
  638. 'Rolan has quickly stripped out of his clothes, while you''ve only managed to get your shirt off.'
  639. *nl
  640. '"Here, help me with my bra..."'
  641. act 'Shoes':
  642. *clr & cla
  643. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanshoes.jpg"></center>'
  644. *nl
  645. 'You ask Rolan to help you remove your shoes.'
  646. *nl
  647. 'Rolan reaches down and starts to remove your shoes, his eyes darting between your feet and your panties.'
  648. *nl
  649. 'You wonder, "<i>Could Rolan have a foot fetish, in addition to his panties addiction?</i>"'
  650. pcs_horny += rand(2,4)
  651. minut += 5
  652. gs 'stat'
  653. act 'Bathe together':
  654. *clr & cla
  655. pcs_hairbsh = 0
  656. pcs_makeup = 1
  657. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanhair0.jpg"></center>'
  658. *nl
  659. '"Rolan, could you please wash my hair. It''s so nice not having to do it myself!"'
  660. *nl
  661. '"O-o-of course, Miss <<$pcs_lastname>>..."'
  662. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the bath.'
  663. pcs_horny += rand(3,6)
  664. gs 'stat'
  665. act 'Continue':
  666. *clr & cla
  667. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanboner3.jpg"></center>'
  668. *nl
  669. 'You stand up and help Rolan up too, you are ready to continue when you notice he has a hard on...'
  670. *nl
  671. '"I''m sorry, Miss <<$pcs_lastname>>... I shouldn''t...I haven''t...it''s jus-" '
  672. *nl
  673. '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."'
  674. *nl
  675. 'You continue to start at his rock hard cock, "And you certainly are <i>healthy</i>."'
  676. pcs_horny += rand(3,6)
  677. gs 'stat'
  678. act 'Continue':
  679. *clr & cla
  680. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanhelp.jpg"></center>'
  681. *nl
  682. '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.'
  683. *nl
  684. '"Thank you, Rolan, we''re almost done!"'
  685. pcs_horny += rand(4,6)
  686. gs 'stat'
  687. act 'Continue':
  688. *clr & cla
  689. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolancheek.jpg"></center>'
  690. 'You give Rolan a peck on the cheek, "You see, wasn''t that quicker than a solo bath?"'
  691. '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...'
  692. pcs_horny += rand(3,6)
  693. gs 'stat'
  694. act 'Finish': gt 'rolanapt','hallway'
  695. end
  696. end
  697. end
  698. end
  699. end
  700. end
  701. end
  702. !rolanbathdryloc
  703. if $ARGS[0] = 'dryOff':
  704. if RolanLoc[hour] = 0:
  705. cla
  706. *clr
  707. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathtowel'+rand(0,1)+'.jpg"></center>'
  708. *nl
  709. 'You know Rolan isn''t here.'
  710. act 'Get out and dry off': gt $loc, 'start'
  711. else
  712. if rand (0,3) = 3:
  713. cla
  714. *clr
  715. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbusy1.jpg"></center>'
  716. 'Shit! It''s Rolan! ...when did he enter?'
  717. act 'Close curtain (0:05)':
  718. cla
  719. *clr
  720. minut += 5
  721. noShampoo = 1
  722. dynamic $showerdin
  723. pcs_horny += rand(0,2)
  724. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathhide0.jpg"></center>'
  725. *nl
  726. 'It would be very embarrassing if Rolan sees you like this. You''d better wait until he''s done.'
  727. act 'wait': gt 'rolanbath','dryOff'
  728. end
  729. else
  730. cla
  731. *clr
  732. '<center><b><font color = maroon>Bathroom</font></b></center>'
  733. if newbath ! 1:
  734. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroom.jpg"></center>'
  735. '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.'
  736. '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.'
  737. elseif newbath = 1:
  738. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
  739. 'The bathroom is in much better shape since you worked on it.'
  740. end
  741. *nl
  742. 'Phew! Rolan isn''t here.'
  743. act 'Dry off and dress':
  744. if rolan_panty_count = 0 and rolan_panty_day = daystart and rolan_steal_count = 0:
  745. cla
  746. *clr
  747. minut += 1
  748. rolan_steal_count +=1
  749. rolan_steal_day = daystart
  750. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/headrol.jpg"></center>'
  751. if rolanpantyQW =< 1:
  752. rolanpantyQW += 1
  753. *nl
  754. '"Damn! Rolan really is a panty thief!"'
  755. else
  756. rolanpantyQW += 1
  757. *nl
  758. '"I knew it!"'
  759. end
  760. act 'Exit': gt $loc, 'start'
  761. else
  762. cla
  763. *clr
  764. minut += 1
  765. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanbathdry'+rand(0,1)+'.jpg"></center>'
  766. *nl
  767. 'Better hurry and dry off. You never know...'
  768. act 'exit': gt $loc, 'start'
  769. end
  770. end
  771. end
  772. end
  773. end
  774. if $ARGS[0] = 'tools':
  775. if workertool = 0:
  776. cla
  777. *clr
  778. minut += 15
  779. workertool += 1
  780. gs 'stat'
  781. '<center><h4><font color="maroon">Tools</font></h4></center>'
  782. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/garages.jpg"></center>'
  783. '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.'
  784. '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.'
  785. act 'Back to Rolan''s':
  786. cla
  787. *clr
  788. minut += 10
  789. '<center><b><font color = maroon>Tools</font></b></center>'
  790. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathchat/builder/worker0.jpg"></center>'
  791. 'You search the apartment from top to bottom but don''t find any concrete mix. The only room left is...'
  792. act 'Only one room left...': gt 'rolanapt','grandmaroom'
  793. end
  794. end
  795. end
  796. if $ARGS[0] = 'surprise':
  797. cla
  798. *clr
  799. minut += 5
  800. rolanworker += 1
  801. gs 'stat'
  802. '<center><h4><font color="maroon">Surprise</font></h4></center>'
  803. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanwelcome.jpg"></center>'
  804. '"Hi, Rolan! What do you think of your new bathroom?"'
  805. *nl
  806. '"Miss <<$pcs_lastname>>... I-I am speechless..."'
  807. *nl
  808. '"Which part do you like best?"'
  809. act 'Continue':
  810. cla
  811. *clr
  812. minut += 1
  813. '<center><b><font color = maroon>Surprise</font></b></center>'
  814. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/bathroomnew.jpg"></center>'
  815. '"Miss <<$pcs_lastname>>, the lighting is better, the mold and the smell are gone. All I had done was buy some paint, how..."'
  816. *nl
  817. '"Yes, I did use some of the paint, but there''s still left if you need to do any tounching up."'
  818. *nl
  819. '"I really don''t know what to say."'
  820. act 'Continue':
  821. cla
  822. *clr
  823. minut += 1
  824. '<center><b><font color = maroon>Surprise</font></b></center>'
  825. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath0.jpg"></center>'
  826. '"This must have cost you a lot of money, Miss <<$pcs_lastname>>. I don''t have much but I have to repay y-"'
  827. *nl
  828. 'You interrupt him, "No, Rolan, I didn''t do this for the money. It didn''t cost me anything, actually."'
  829. *nl
  830. '"Did you do all this work by yourself?"'
  831. *nl
  832. '"Yes, well, I borrowed all the tools I used from my stepfather."'
  833. act 'Continue':
  834. cla
  835. *clr
  836. minut += 1
  837. rolanknow = 1
  838. RolanLoc[hour] = 6
  839. '<center><b><font color = maroon>Surprise</font></b></center>'
  840. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/aptrolan/rolanheadbath1.jpg"></center>'
  841. '"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?"'
  842. *nl
  843. '"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."'
  844. *nl
  845. 'Without saying another word, Rolan runs out of the room...'
  846. act 'follow Rolan': gt 'rolanapt','hallway'
  847. end
  848. end
  849. end
  850. end
  851. --- rolanbath ---------------------------------