gadbana.qsrc 12 KB

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