Gadbana.qsrc 8.2 KB

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