gadbana.qsrc 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383
  1. # Gadbana
  2. !2021/05/05
  3. CLOSE ALL
  4. $loc_arg = ''
  5. $loc = 'gadbana'
  6. $locM_arg = ''
  7. $locM = 'gadbana'
  8. $location_type = 'bathroom'
  9. $menu_loc = 'gadbana'
  10. $menu_arg = ''
  11. menu_off = 0
  12. frost = 0
  13. if banya_underwear = 0:
  14. if $pantyworntype ! 'none' and $braworntype ! 'none':
  15. banya_underwear = 1
  16. else
  17. banya_underwear = 2
  18. end
  19. end
  20. !!clothesAtLocation = FUNC('lost_clothes_here','gadbana')
  21. '<center><h4>Bath</h4></center>'
  22. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bana.jpg"></center>'
  23. 'A small room with a low smoky ceiling, a small stove, a couple of stainless steel water tanks, and a blackened wooden shelf.'
  24. 'Grandma''s enema bulb is hidden behind some stuff on the shelf.'
  25. gs 'stat'
  26. if mira_guest = 0:
  27. if $clothingworntype = 'nude':
  28. act 'Get dressed and leave':
  29. minut += 1
  30. menu_off = 1
  31. !!gs 'clothing', 'recover_lost_clothes', 'gadbana', 1
  32. gs 'clothing', 'wear_last_worn'
  33. if banya_underwear = 1: gs 'underwear', 'wear'
  34. gs 'stat'
  35. killvar 'banya_underwear'
  36. gt 'gaddvor'
  37. end
  38. end
  39. if $clothingworntype ! 'nude':
  40. act 'Go outside':minut += 1 & gt'gaddvor'
  41. elseif $clothingworntype = 'nude':
  42. act 'Go outside naked':
  43. *clr & cla
  44. menu_off = 1
  45. minut += 1
  46. inhib_exp += rand(0,2)
  47. grandmaQW['nudity_trouble'] += rand(0,2)
  48. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  49. 'It''s certainly risky leaving the bathhouse like this, and while it''s unlikely anyone saw you go outside naked, there''s a thrill in potentially getting caught.'
  50. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  51. gs 'arousal', 'flash', 10, 'exhibitionism'
  52. killvar 'banya_underwear'
  53. gs 'stat'
  54. act 'Continue': gt 'gaddvor'
  55. end
  56. elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  57. act 'Go outside in your underwear':
  58. *clr & cla
  59. menu_off = 1
  60. minut += 1
  61. inhib_exp += rand(0,1)
  62. grandmaQW['nudity_trouble'] += rand(0,1)
  63. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  64. 'It''s certainly risky leaving the bathhouse like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in potentially getting caught.'
  65. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  66. gs 'arousal', 'flashlite', 10, 'exhibitionism'
  67. killvar 'banya_underwear'
  68. gs 'stat'
  69. act 'Continue': gt 'gaddvor'
  70. end
  71. end
  72. if week >= 6:
  73. if hour >= 12 and hour <= 18:
  74. 'You put the wood into the stove to feed the fire. The banya will be ready to use around 19:00.'
  75. elseif hour > 18 and hour < 22:
  76. 'The banya is now ready.'
  77. if banaday ! daystart:
  78. act 'Relax in the banya (2:00)':
  79. cls
  80. menu_off = 1
  81. minut += 120
  82. pcs_sweat = rand(0,5)
  83. noShampoo = 1
  84. dynamic $showerdin
  85. pcs_hairbsh = 0
  86. pcs_makeup = 1
  87. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  88. if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
  89. banaday = daystart
  90. if frost > 0:frost = 0
  91. if sauna_daystart ! daystart:
  92. sauna_daystart = daystart
  93. pcs_skin += rand(2,4)
  94. pcs_willpwr += 3
  95. end
  96. gs 'stat'
  97. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/par.jpg"></center>'
  98. 'You strip, sit down and relax. After a proper banya session, you pick up a bucket filled with cold water and pour it over yourself and head over to the shower. You feel like a completely new person.'
  99. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  100. act 'Finish': gt $loc, $loc_arg
  101. end
  102. end
  103. else
  104. 'The banya is not in use at this time, it is available between 19:00 and 22:00 during the weekend.'
  105. end
  106. elseif week < 6:
  107. 'The banya is not used during the week, it is usually ready to use from 19:00 during the weekend.'
  108. end
  109. *nl
  110. if shampoo > 0 or (indorf = 1 and home_owned[2] = 1):
  111. act 'Wash your body (0:25)':
  112. *clr & cla
  113. menu_off = 1
  114. minut += 25
  115. if indorf = 1 and home_owned[2] = 1: noShampoo = 1
  116. dynamic $showerdin
  117. if frost > 0:frost = 0
  118. !!gs 'clothing', 'strip', 'gadbana'
  119. gs 'clothing', 'strip_all'
  120. gs 'stat'
  121. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
  122. 'You lather up your washcloth and start scrubbing your body. You rinse off the soap and start to lather your hair with shampoo. After rinsing off the shampoo you feel completely clean.'
  123. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  124. act 'Finish':gt $loc, $loc_arg
  125. end
  126. else
  127. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  128. end
  129. dynamic $bteeth
  130. gs 'din_van', 'prvt_pee'
  131. dynamic $tampon
  132. if $clothingworntype ! 'nude':
  133. act 'Remove clothes':
  134. minut += 1
  135. !!gs 'clothing', 'strip', 'gadbana'
  136. gs 'clothing', 'strip'
  137. gs 'stat'
  138. gt 'gadbana'
  139. end
  140. end
  141. dynamic $wearpan
  142. dynamic $removepan
  143. dynamic $basin
  144. if painkiller > 0:
  145. $pluralS = 's'
  146. if painkiller = 1:$pluralS = ''
  147. 'You have <b><<painkiller>></b> painkiller<<$pluralS>>.'
  148. if pain['total'] > 0 and pain['killer'] = 0:
  149. act 'Take a painkiller':
  150. cla
  151. menu_off = 1
  152. pain['killer'] += 1
  153. painkiller -= 1
  154. pcs_hydra += 20
  155. gs 'stat'
  156. *nl
  157. 'You take a painkiller and gulp it down with a glass of water.'
  158. act 'Finish':gt $loc, $loc_arg
  159. end
  160. end
  161. end
  162. if stanok > 0:'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>.'
  163. 'There''s a small shaving <a href="exec:gt ''mirror'', ''start''">mirror</a> resting on the window sill, which you can use to ' +iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair.'
  164. !WD: heal chafe
  165. if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
  166. if tampon = 0 and sanpad = 0:
  167. '<b><font color="red">You have no tampons left.</font></b>'
  168. elseif tampon = 1:
  169. '<font color="red">You have only <b><<tampon>></b> tampon left.</font>'
  170. else
  171. 'You have <b><<tampon>></b> tampons.'
  172. end
  173. if sanpad = 0 and tampon = 0:
  174. '<b><font color="red">You have no pads left.</font></b>'
  175. elseif sanpad = 1:
  176. '<font color="red">You have only <b><<sanpad>></b> pads left.</font>'
  177. else
  178. 'You have <b><<sanpad>></b> pads.'
  179. end
  180. if bcream_have > 0:
  181. '<a href="exec:dynamic $use_bcream & gt $loc, $loc_arg">Apply breast cream.</a> Uses left: <<bcream_have>>.'
  182. end
  183. if (cumloc[6] = 1 or cumloc[7] = 1):
  184. act 'Rinse the cum stains off your clothes in lukewarm water (0:10)':
  185. cla
  186. menu_off = 1
  187. cumspclnt = 6
  188. gs 'cum_cleanup'
  189. minut += 10
  190. gs 'stat'
  191. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  192. 'You scrub all the cum from your clothes.'
  193. act 'Finish':gt $curloc
  194. end
  195. end
  196. dynamic $brit
  197. !!breast pump is now in the menu, not on the screen
  198. if breastpump > 0 and bp_unbox >= 1:
  199. act 'Use breast pump':
  200. gt 'lact_bp', 'bp_milking'
  201. end
  202. elseif breastpump > 0 and bp_unbox <= 0:
  203. '<a href="exec: gt ''lact_bp'', ''bp_unbox_event''">Unbox</a> your breast pump'
  204. elseif breastpump <= 0:
  205. gs 'lact_bp', 'massage'
  206. end
  207. dynamic $toymanage
  208. dynamic $enema
  209. if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
  210. act 'Rub ointment onto your pussy (0:05)':
  211. cla
  212. menu_off = 1
  213. mosal_time = (daystart * 100) + hour
  214. minut += 5
  215. mosolmaz -= 1
  216. mosol -= 5
  217. 'You take a tube of cream and rub it onto your itchy vulva.'
  218. act 'Finish':gt $loc, $loc_arg
  219. end
  220. end
  221. else
  222. !125st
  223. if $clothingworntype = 'nude':
  224. act 'Get dressed and leave':
  225. minut += 1
  226. menu_off = 1
  227. !!gs 'clothing', 'recover_lost_clothes', 'gadbana', 1
  228. gs 'clothing', 'wear_last_worn'
  229. if banya_underwear = 1: gs 'underwear', 'wear'
  230. gs 'stat'
  231. killvar 'banya_underwear'
  232. gt 'gaddvor'
  233. end
  234. end
  235. if $clothingworntype ! 'nude':
  236. act 'Go outside':minut += 1 & gt'gaddvor'
  237. elseif $clothingworntype = 'nude':
  238. act 'Go outside naked':
  239. *clr & cla
  240. menu_off = 1
  241. minut += 1
  242. inhib_exp += rand(0,2)
  243. grandmaQW['nudity_trouble'] += rand(0,2)
  244. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the bathhouse like this, and while it''s unlikely anyone saw you go outside naked, there''s a thrill in potentially getting caught.'
  245. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  246. gs 'arousal', 'flash', 10, 'exhibitionism'
  247. killvar 'banya_underwear'
  248. gs 'stat'
  249. act 'Continue': gt 'gaddvor'
  250. end
  251. elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  252. act 'Go outside in your underwear':
  253. *clr & cla
  254. menu_off = 1
  255. minut += 1
  256. inhib_exp += rand(0,1)
  257. grandmaQW['nudity_trouble'] += rand(0,1)
  258. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the bathhouse like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in potentially getting caught.'
  259. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  260. gs 'arousal', 'flashlite', 10, 'exhibitionism'
  261. killvar 'banya_underwear'
  262. gs 'stat'
  263. act 'Continue': gt 'gaddvor'
  264. end
  265. end
  266. act 'Undress and bathe with Mira':
  267. cls
  268. menu_off = 1
  269. !!gs 'clothing', 'strip', 'gadbana'
  270. gs 'clothing', 'strip_all'
  271. gs 'stat'
  272. '<center><img <<$set_imgh>> src="images/characters/gadukino/mira/miraban.jpg"></center>'
  273. 'While you undress, through the corner of your eye you notice Mira removing her panties.'
  274. gs 'arousal', 'erotic_nudity', 5
  275. gs 'stat'
  276. act 'Watch Mira clean herself':
  277. cls
  278. gs 'stat'
  279. '<center><img <<$set_imgh>> src="images/characters/gadukino/mira/miraban1.jpg"></center>'
  280. 'You feel the hot steam penetrate into your pores while you blissfully watch Mira lather up. She sometimes throws at you short glances and smiles hesitantly in response...'
  281. gs 'arousal', 'erotic_nudity', 5
  282. gs 'stat'
  283. act 'Steam':
  284. cls
  285. noShampoo = 1
  286. dynamic $showerdin
  287. pcs_hairbsh = 0
  288. pcs_makeup = 1
  289. ! WD: Missing Var ~ 'banaday'
  290. banaday = daystart
  291. if frost > 0:frost = 0
  292. pcs_skin += 5
  293. gs 'stat'
  294. '<center><img <<$set_imgh>> src="images/characters/gadukino/mira/miraban2.jpg"></center>'
  295. 'Mira finally finishes lathering herself, you take the loofah and lather yourself from head to toe. You enjoy yourselves in the warm bath, relaxing in each other''s company, occasionally exchanging meaningless anecdotes...'
  296. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  297. gs 'arousal', 'erotic_nudity', 25
  298. gs 'arousal', 'end'
  299. gs 'stat'
  300. if $clothingworntype = 'nude':
  301. act 'Get dressed and leave':
  302. minut += 1
  303. menu_off = 1
  304. !!gs 'clothing', 'recover_lost_clothes', 'gadbana', 1
  305. gs 'clothing', 'wear_last_worn'
  306. if banya_underwear = 1: gs 'underwear', 'wear'
  307. gs 'stat'
  308. killvar 'banya_underwear'
  309. gt 'gaddvor'
  310. end
  311. end
  312. if $clothingworntype ! 'nude':
  313. act 'Go outside':minut += 1 & gt'gaddvor'
  314. elseif $clothingworntype = 'nude':
  315. act 'Go outside naked':
  316. *clr & cla
  317. menu_off = 1
  318. minut += 1
  319. inhib_exp += rand(0,2)
  320. grandmaQW['nudity_trouble'] += rand(0,2)
  321. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the bathhouse like this, and while it''s unlikely anyone but Mira saw you go outside naked, there''s a thrill in potentially getting caught.'
  322. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  323. gs 'arousal', 'flash', 10, 'exhibitionism'
  324. killvar 'banya_underwear'
  325. gs 'stat'
  326. act 'Continue': gt 'gaddvor'
  327. end
  328. elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  329. act 'Go outside in your underwear':
  330. *clr & cla
  331. menu_off = 1
  332. minut += 1
  333. inhib_exp += rand(0,1)
  334. grandmaQW['nudity_trouble'] += rand(0,1)
  335. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the bathhouse like this, and while it''s unlikely anyone but Mira saw you go outside in your underwear, there''s a thrill in potentially getting caught.'
  336. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  337. gs 'arousal', 'flashlite', 10, 'exhibitionism'
  338. killvar 'banya_underwear'
  339. gs 'stat'
  340. act 'Continue': gt 'gaddvor'
  341. end
  342. end
  343. end
  344. end
  345. end
  346. end
  347. --- Gadbana ---------------------------------