Gadbana.qsrc 7.4 KB

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