Gadbana.qsrc 7.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278
  1. # Gadbana
  2. CLOSE ALL
  3. $metka = ''
  4. $loc = 'Gadbana'
  5. $location_type = 'bathroom'
  6. frost = 0
  7. '<center><h4>bath</h4></center>'
  8. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bana.jpg"></center>'
  9. 'Quite a small room with a low smoky ceiling, low stove, stainless steel water tanks and a blackened wooden shelf.'
  10. 'Grandma''s enema bulb is hidden behind some stuff on the shelf.'
  11. gs 'stat'
  12. if mira = 0:
  13. if $clothingworntype = 'nude':
  14. act 'Get dressed and leave':
  15. minut += 1
  16. gs 'clothing', 'wear_last_worn'
  17. gs 'underwear', 'wear'
  18. gt 'Gaddvor'
  19. end
  20. end
  21. if $clothingworntype ! 'nude':
  22. act 'Go outside':minut += 1 & gt'Gaddvor'
  23. elseif $clothingworntype = 'nude' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  24. act 'Go outside in your underwear':
  25. cls
  26. minut += 1
  27. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  28. 'Luckily no one saw you outside in your underwear, but there''s a thrill in almost getting caught'
  29. gs 'arousal', 'voyeur', 10
  30. act 'Continue': gt 'Gaddvor'
  31. end
  32. elseif $clothingworntype = 'nude':
  33. act 'Go outside naked':
  34. cls
  35. minut += 1
  36. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/Gaddvor_nude.jpg"></center>'
  37. 'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught'
  38. gs 'arousal', 'voyeur', 10
  39. act 'Continue': gt 'Gaddvor'
  40. end
  41. end
  42. if week >= 6:
  43. if hour >= 12 and hour <= 18:
  44. 'You put the wood into the stove to feed the fire. The banya will be ready to use around 19:00.'
  45. elseif hour > 18 and hour < 22:
  46. 'The banya is now ready.'
  47. if banaday ! daystart:
  48. act 'Relax in the banya (2:00)':
  49. cls
  50. minut += 120
  51. pcs_sweat = rand(0,5)
  52. dynamic $showerdin
  53. pcs_hairbsh = 0
  54. pcs_makeup = 1
  55. gs 'underwear', 'remove'
  56. gs 'clothing', 'strip'
  57. banaday = daystart
  58. if frost > 0:frost = 0
  59. pcs_skin += 5
  60. gs 'stat'
  61. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/par.jpg"></center>'
  62. '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.'
  63. act 'Finish': gt $loc, $metka
  64. end
  65. end
  66. else
  67. 'The banya is not in use at this time, it is available between 19:00 and 22:00 during the weekend.'
  68. end
  69. elseif week < 6:
  70. 'The banya is not used during the week, it is usually ready to use from 19:00 during the weekend.'
  71. end
  72. *nl
  73. act 'Wash your body (0:25)':
  74. cls
  75. minut += 25
  76. dynamic $showerdin
  77. if frost > 0:frost = 0
  78. gs 'clothing', 'strip'
  79. gs 'underwear', 'remove'
  80. gs 'stat'
  81. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
  82. '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.'
  83. act 'Finish':gt $loc, $metka
  84. end
  85. dynamic $bteeth
  86. gs 'din_van', 'prvt_pee'
  87. dynamic $tampon
  88. if $clothingworntype ! 'nude':
  89. act 'Remove clothes':
  90. minut += 1
  91. gs 'clothing', 'strip'
  92. gs 'stat'
  93. gt 'Gadbana'
  94. end
  95. end
  96. dynamic $wearpan
  97. dynamic $removepan
  98. dynamic $basin
  99. if painkiller > 0:
  100. $pluralS = 's'
  101. if painkiller = 1:$pluralS = ''
  102. 'You have <b><<painkiller>></b> painkiller<<$pluralS>>.'
  103. if pain['total'] > 0 and pain['killer'] = 0:
  104. act 'Take a painkiller':
  105. cla
  106. pain['killer'] += 1
  107. painkiller -= 1
  108. pcs_hydra += 20
  109. gs 'stat'
  110. *nl
  111. 'You take a painkiller and gulp it down with a glass of water.'
  112. act 'Finish':gt $loc, $metka
  113. end
  114. end
  115. end
  116. if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
  117. !WD: heal chafe
  118. if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
  119. if tampon = 0 and sanpad = 0:
  120. '<b><font color="red">You have no tampons left.</font></b>'
  121. elseif tampon = 1:
  122. '<font color="red">You have only <b><<tampon>></b> tampon left.</font>'
  123. else
  124. 'You have <b><<tampon>></b> tampons.'
  125. end
  126. if sanpad = 0 and tampon = 0:
  127. '<b><font color="red">You have no pads left.</font></b>'
  128. elseif sanpad = 1:
  129. '<font color="red">You have only <b><<sanpad>></b> pads left.</font>'
  130. else
  131. 'You have <b><<sanpad>></b> pads.'
  132. end
  133. if bcream_have > 0:
  134. '<a href="exec:dynamic $use_bcream & gt $loc, $metka">Apply breast cream.</a> Uses left: <<bcream_have>>.'
  135. end
  136. if (cumloc[6] = 1 or cumloc[7] = 1):
  137. act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
  138. cla
  139. cumspclnt = 6
  140. gs 'cum_cleanup'
  141. minut += 10
  142. gs 'stat'
  143. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  144. 'You remove traces of cum from the clothes.'
  145. act 'Finish':gt $curloc
  146. end
  147. end
  148. dynamic $brit
  149. if dirtyclothes = 1 and $loc = 'Gadbana':
  150. act 'Wash your clothes (1:00)':
  151. cla
  152. *clr
  153. minut += 60
  154. dirtyclothes = 0
  155. pcs_mood -= 10
  156. cumspclnt = 6 & gs 'cum_cleanup'
  157. gs 'stat'
  158. if $clothingworntype = 'nude':
  159. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinwash.jpg"></center>'
  160. else
  161. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
  162. 'You undress and wash your dirty clothes.'
  163. end
  164. *nl
  165. 'You soak your muddy clothes and underwear in the basin and pour in washing powder, then you scrub them until they are finally clean.'
  166. act 'Finish':gt $loc, $metka
  167. end
  168. end
  169. if breastpump > 0 and bp_unbox >= 1:
  170. act 'Use breast pump':
  171. gt 'lact_lib', 'bp_milking'
  172. end
  173. end
  174. dynamic $toymanage
  175. dynamic $enema
  176. if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
  177. act 'Rub ointment onto your pussy (0:05)':
  178. cla
  179. mosal_time = (daystart * 100) + hour
  180. minut += 5
  181. mosolmaz -= 1
  182. mosol -= 5
  183. 'You take a tube of cream and rub it onto your itchy vulva.'
  184. act 'Finish':gt $loc, $metka
  185. end
  186. end
  187. else
  188. !125st
  189. act 'Undress':
  190. cls
  191. gs 'clothing', 'strip'
  192. gs 'underwear', 'remove'
  193. gs 'stat'
  194. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
  195. 'While you undress, through the corner of your eye you notice Mira removing her panties.'
  196. gs 'arousal', 'voyeur', 10, 'lesbian'
  197. gs 'stat'
  198. act 'Watch Mira clean herself':
  199. cls
  200. gs 'stat'
  201. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban1.jpg"></center>'
  202. '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...'
  203. gs 'arousal', 'voyeur', 10
  204. gs 'stat'
  205. act 'Steam':
  206. cls
  207. dynamic $showerdin
  208. pcs_hairbsh = 0
  209. pcs_makeup = 1
  210. ! WD: Missing Var ~ 'banaday'
  211. banaday = daystart
  212. if frost > 0:frost = 0
  213. pcs_skin += 5
  214. gs 'stat'
  215. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban2.jpg"></center>'
  216. '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...'
  217. gs 'arousal', 'voyeur', 120
  218. gs 'arousal', 'end'
  219. gs 'stat'
  220. act 'Get dressed and leave':
  221. mira = 0
  222. minut += 1
  223. gs 'clothing', 'wear_last_worn'
  224. gs 'underwear', 'wear'
  225. act 'Continue': gt 'Gaddvor'
  226. end
  227. act 'Go outside naked':
  228. mira = 0
  229. minut += 1
  230. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/Gaddvor_nude.jpg"></center>'
  231. 'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught'
  232. gs 'arousal', 'voyeur', 10
  233. act 'Continue': gt 'Gaddvor'
  234. end
  235. end
  236. end
  237. end
  238. !125ed
  239. end
  240. --- Gadbana ---------------------------------