gadbana.qsrc 9.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325
  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. 'Quite a small room with a low smoky ceiling, low stove, 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 = 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. if gadbana_stripping ! daystart:
  46. gadbana_stripping = daystart
  47. inhib_exp += 2
  48. grandma_trouble += 1
  49. end
  50. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside naked, there''s a thrill in almost getting caught'
  51. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  52. gs 'arousal', 'flash', 10, 'exhibitionism'
  53. killvar 'banya_underwear'
  54. gs 'stat'
  55. act 'Continue': gt 'gaddvor'
  56. end
  57. elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  58. act 'Go outside in your underwear':
  59. *clr & cla
  60. menu_off = 1
  61. minut += 1
  62. if gadbana_stripping ! daystart:
  63. gadbana_stripping = daystart
  64. inhib_exp += 1
  65. grandma_trouble += rand(0,1)
  66. end
  67. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>''It''s certainly risky leaving the hosue like this, and while it''s unlikely anyone saw you go outside in your underwear, there''s a thrill in almost getting caught'
  68. !!gs 'clothing', 'recover_lost_clothes', 'gadbana'
  69. gs 'arousal', 'flashlite', 10, 'exhibitionism'
  70. killvar 'banya_underwear'
  71. gs 'stat'
  72. act 'Continue': gt 'gaddvor'
  73. end
  74. end
  75. if week >= 6:
  76. if hour >= 12 and hour <= 18:
  77. 'You put the wood into the stove to feed the fire. The banya will be ready to use around 19:00.'
  78. elseif hour > 18 and hour < 22:
  79. 'The banya is now ready.'
  80. if banaday ! daystart:
  81. act 'Relax in the banya (2:00)':
  82. cls
  83. menu_off = 1
  84. minut += 120
  85. pcs_sweat = rand(0,5)
  86. noShampoo = 1
  87. dynamic $showerdin
  88. pcs_hairbsh = 0
  89. pcs_makeup = 1
  90. if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
  91. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  92. banaday = daystart
  93. if frost > 0:frost = 0
  94. if sauna_daystart ! daystart:
  95. sauna_daystart = daystart
  96. pcs_skin += rand(2,4)
  97. pcs_willpwr += 3
  98. end
  99. gs 'stat'
  100. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/par.jpg"></center>'
  101. '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.'
  102. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  103. act 'Finish': gt $loc, $metka
  104. end
  105. end
  106. else
  107. 'The banya is not in use at this time, it is available between 19:00 and 22:00 during the weekend.'
  108. end
  109. elseif week < 6:
  110. 'The banya is not used during the week, it is usually ready to use from 19:00 during the weekend.'
  111. end
  112. *nl
  113. if shampoo > 0 or (indorf = 1 and home_owned[2] = 1):
  114. act 'Wash your body (0:25)':
  115. *clr & cla
  116. menu_off = 1
  117. minut += 25
  118. dynamic $showerdin
  119. if frost > 0:frost = 0
  120. !!gs 'clothing', 'strip', 'gadbana'
  121. gs 'clothing', 'strip'
  122. if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
  123. gs 'stat'
  124. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
  125. 'You lather your body washcloth and start scrubbing your body. You rinse off the soap and start to lather the hair with the shampoo. After rising off the shampoo you are completely clean.'
  126. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  127. act 'Finish':gt $loc, $metka
  128. end
  129. else
  130. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  131. end
  132. dynamic $bteeth
  133. gs 'din_van', 'prvt_pee'
  134. dynamic $tampon
  135. if $clothingworntype ! 'nude':
  136. act 'Remove clothes':
  137. minut += 1
  138. !!gs 'clothing', 'strip', 'gadbana'
  139. gs 'clothing', 'strip'
  140. gs 'stat'
  141. gt 'gadbana'
  142. end
  143. end
  144. dynamic $wearpan
  145. dynamic $removepan
  146. dynamic $basin
  147. if painkiller > 0:
  148. $pluralS = 's'
  149. if painkiller = 1:$pluralS = ''
  150. 'You have <b><<painkiller>></b> painkiller<<$pluralS>>.'
  151. if pain['total'] > 0 and pain['killer'] = 0:
  152. act 'Take a painkiller':
  153. cla
  154. menu_off = 1
  155. pain['killer'] += 1
  156. painkiller -= 1
  157. pcs_hydra += 20
  158. gs 'stat'
  159. *nl
  160. 'You take a painkiller and gulp it down with a glass of water.'
  161. act 'Finish':gt $loc, $metka
  162. end
  163. end
  164. end
  165. if stanok > 0:'Your razor will last <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>.'
  166. '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.'
  167. !WD: heal chafe
  168. if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
  169. if tampon = 0 and sanpad = 0:
  170. '<b><font color="red">You have no tampons left.</font></b>'
  171. elseif tampon = 1:
  172. '<font color="red">You have only <b><<tampon>></b> tampon left.</font>'
  173. else
  174. 'You have <b><<tampon>></b> tampons.'
  175. end
  176. if sanpad = 0 and tampon = 0:
  177. '<b><font color="red">You have no pads left.</font></b>'
  178. elseif sanpad = 1:
  179. '<font color="red">You have only <b><<sanpad>></b> pads left.</font>'
  180. else
  181. 'You have <b><<sanpad>></b> pads.'
  182. end
  183. if bcream_have > 0:
  184. '<a href="exec:dynamic $use_bcream & gt $loc, $metka">Apply breast cream.</a> Uses left: <<bcream_have>>.'
  185. end
  186. if (cumloc[6] = 1 or cumloc[7] = 1):
  187. act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
  188. cla
  189. menu_off = 1
  190. cumspclnt = 6
  191. gs 'cum_cleanup'
  192. minut += 10
  193. gs 'stat'
  194. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  195. 'You remove traces of cum from the clothes.'
  196. act 'Finish':gt $curloc
  197. end
  198. end
  199. dynamic $brit
  200. if breastpump > 0 and bp_unbox >= 1:
  201. act 'Use breast pump':
  202. gt 'lact_bp', 'bp_milking'
  203. end
  204. end
  205. dynamic $toymanage
  206. dynamic $enema
  207. if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
  208. act 'Rub ointment onto your pussy (0:05)':
  209. cla
  210. menu_off = 1
  211. mosal_time = (daystart * 100) + hour
  212. minut += 5
  213. mosolmaz -= 1
  214. mosol -= 5
  215. 'You take a tube of cream and rub it onto your itchy vulva.'
  216. act 'Finish':gt $loc, $metka
  217. end
  218. end
  219. else
  220. !125st
  221. act 'Undress':
  222. cls
  223. menu_off = 1
  224. !!gs 'clothing', 'strip', 'gadbana'
  225. gs 'clothing', 'strip'
  226. if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
  227. gs 'stat'
  228. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
  229. 'While you undress, through the corner of your eye you notice Mira removing her panties.'
  230. gs 'arousal', 'voyeur', 5, 'lesbian'
  231. gs 'stat'
  232. act 'Watch Mira clean herself':
  233. cls
  234. gs 'stat'
  235. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban1.jpg"></center>'
  236. '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...'
  237. gs 'arousal', 'voyeur', 5
  238. gs 'stat'
  239. act 'Steam':
  240. cls
  241. noShampoo = 1
  242. dynamic $showerdin
  243. pcs_hairbsh = 0
  244. pcs_makeup = 1
  245. ! WD: Missing Var ~ 'banaday'
  246. banaday = daystart
  247. if frost > 0:frost = 0
  248. pcs_skin += 5
  249. gs 'stat'
  250. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban2.jpg"></center>'
  251. '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...'
  252. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  253. gs 'arousal', 'voyeur', 25
  254. gs 'arousal', 'end'
  255. gs 'stat'
  256. if clothesAtLocation = 1 and $clothingworntype = 'nude':
  257. act 'Get dressed and leave':
  258. cla
  259. mira = 0
  260. minut += 1
  261. !!gs 'clothing', 'recover_lost_clothes', 'gaddvor', 1
  262. if banya_underwear = 1: gs 'underwear', 'wear'
  263. killvar 'banya_underwear'
  264. gs 'stat'
  265. act 'Continue': gt 'gaddvor'
  266. end
  267. end
  268. act 'Go outside naked':
  269. *clr & cla
  270. mira = 0
  271. minut += 1
  272. grandma_trouble += rand(0,1)
  273. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  274. 'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught'
  275. !!gs 'clothing', 'recover_lost_clothes', 'gaddvor'
  276. gs 'arousal', 'flash', 10, 'exhibitionism'
  277. gs 'arousal', 'end'
  278. killvar 'banya_underwear'
  279. gs 'stat'
  280. act 'Continue': gt 'gaddvor'
  281. end
  282. end
  283. end
  284. end
  285. !125ed
  286. end
  287. --- Gadbana ---------------------------------