Gadbana.qsrc 8.4 KB

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