1
0

Gadbana.qsrc 8.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288
  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':
  15. gs 'clothing', 'wear_last_worn'
  16. gs 'underwear', 'wear'
  17. gt 'Gadbana'
  18. end
  19. end
  20. act 'Go outside':
  21. if $clothingworntype ! 'nude':
  22. minut += 1 & gt'Gaddvor'
  23. else
  24. cls
  25. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  26. 'You can''t go out without any clothes on.'
  27. act 'Back':gt'Gadbana'
  28. end
  29. end
  30. if week >= 6:
  31. if hour >= 12 and hour <= 18:
  32. 'You put the wood into the stove to feed the fire. The banya will be ready to use around 19:00.'
  33. elseif hour > 18 and hour < 22:
  34. 'The banya is now ready.'
  35. if banaday ! daystart:
  36. act 'Relax in the banya (2:00)':
  37. cls
  38. minut += 120
  39. pcs_sweat = rand(0,5)
  40. dynamic $showerdin
  41. pcs_hairbsh = 0
  42. pcs_makeup = 1
  43. gs 'underwear', 'remove'
  44. gs 'clothing', 'strip'
  45. banaday = daystart
  46. if frost > 0:frost = 0
  47. pcs_skin += 5
  48. gs 'stat'
  49. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/par.jpg"></center>'
  50. '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.'
  51. act 'Get dressed':
  52. gs 'clothing', 'wear_last_worn'
  53. gs 'underwear', 'wear'
  54. gt 'Gadbana'
  55. end
  56. act 'Go outside': minut += 1 & gt 'Gaddvor'
  57. end
  58. end
  59. else
  60. 'The banya is not in use at this time, it is available between 19:00 and 22:00 during the week.'
  61. end
  62. elseif week ! 6:
  63. 'The banya is not used at the weekend, it is usually ready to use from 19:00 during the week.'
  64. end
  65. act 'Wash your body (0:25)':
  66. cls
  67. minut += 25
  68. dynamic $showerdin
  69. if frost > 0:frost = 0
  70. gs 'stat'
  71. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
  72. '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.'
  73. act 'Leave':gt $loc, $metka
  74. end
  75. dynamic $bteeth
  76. gs 'din_van', 'prvt_pee'
  77. dynamic $tampon
  78. dynamic $wearpan
  79. dynamic $basin
  80. if (cumloc[6] = 1 or cumloc[7] = 1):
  81. act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
  82. cla
  83. cumspclnt = 6
  84. gs 'cum_cleanup'
  85. minut += 10
  86. gs 'stat'
  87. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  88. 'You remove traces of cum from the clothes.'
  89. act 'Finish':gt $curloc
  90. end
  91. end
  92. dynamic $brit
  93. if dirtyclothes = 1 and $loc = 'Gadbana':
  94. act 'Wash your clothes (1:00)':
  95. cla
  96. *clr
  97. minut += 60
  98. dirtyclothes = 0
  99. pcs_mood -= 10
  100. cumspclnt = 6 & gs 'cum_cleanup'
  101. gs 'stat'
  102. if $clothingworntype = 'nude':
  103. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinwash.jpg"></center>'
  104. else
  105. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
  106. 'You undress and wash your dirty clothes.'
  107. end
  108. *nl
  109. 'You soak your muddy clothes and underwear in the basin and pour in washing powder, then you scrub them until they are finally clean.'
  110. act 'Finish':gt $loc, $metka
  111. end
  112. end
  113. if breastpump > 0:
  114. act 'Use breast pump':
  115. gt 'lact_lib', 'bp_milking'
  116. end
  117. end
  118. if analplug = 1 and analplugin = 1:
  119. act 'Remove your butt plug (0:05)':
  120. cla
  121. *clr
  122. minut += 5
  123. analplugIN = 0
  124. if pcs_ass < 30:pcs_ass += 1
  125. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  126. *nl
  127. 'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check
  128. act 'Finish':gt $loc, $metka
  129. end
  130. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  131. act 'Insert your butt plug (0:05)':
  132. cla
  133. *clr
  134. minut += 5
  135. analplugIN = 1
  136. if pcs_ass < 10:pcs_ass += 5
  137. if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
  138. if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)
  139. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  140. *nl
  141. if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
  142. if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
  143. act 'Finish':gt $loc, $metka
  144. end
  145. end
  146. if vibrator = 1 and vibratorIN = 1:
  147. act 'Remove the vibrator (0:05)':
  148. cla
  149. *clr
  150. minut += 5
  151. vibratorIN = 0
  152. if pcs_vag < 30:pcs_vag += 1
  153. '<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
  154. *nl
  155. 'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
  156. act 'Finish':gt $loc, $metka
  157. end
  158. elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
  159. act 'Insert the vibrator in your vagina (0:05)':
  160. cla
  161. *clr
  162. minut += 5
  163. vibratorIN = 1
  164. if pcs_vag < 30:pcs_vag += 2
  165. '<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
  166. *nl
  167. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  168. act 'Finish':gt $loc, $metka
  169. end
  170. end
  171. if mosolmaz > 0 and mosol > 0 and mosal_time ! (daystart * 100) + hour:
  172. act 'Rub ointment onto your pussy (0:05)':
  173. cla
  174. mosal_time = (daystart * 100) + hour
  175. minut += 5
  176. mosolmaz -= 1
  177. mosol -= 5
  178. 'You take a tube of cream and rub it onto your itchy vulva.'
  179. act 'Finish':gt $loc, $metka
  180. end
  181. end
  182. if (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  183. act 'Give yourself an enema (0:05)':
  184. cla
  185. *clr
  186. cumspclnt = 7
  187. gs 'cum_cleanup'
  188. minut += 5
  189. klismaday = daystart
  190. klismaday1= 1
  191. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
  192. 'You use Baba''s enema to clean yourself out down there. Your ass is now ready for anal sex without any awkward surprises.'
  193. act 'Finish':gt 'Gadbana'
  194. end
  195. end
  196. else
  197. !125st
  198. act 'Undress':
  199. cls
  200. gs 'clothing', 'strip'
  201. gs 'underwear', 'remove'
  202. gs 'stat'
  203. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
  204. 'While you undress, through the corner of your eye you notice Mira removing her panties.'
  205. gs 'arousal', 'voyeur', 10, 'lesbian'
  206. gs 'stat'
  207. act 'Watch Mira clean herself':
  208. cls
  209. gs 'stat'
  210. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban1.jpg"></center>'
  211. '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...'
  212. gs 'arousal', 'voyeur', 10
  213. gs 'stat'
  214. act 'Steam':
  215. !{
  216. dynamic $showerdin
  217. vidageday += 1
  218. pcs_mood += 20
  219. pcs_health += healthmax/20
  220. pcs_skin += 5
  221. if pcs_skin >= 20:pcs_skin = 0 & skin += 1
  222. }
  223. !copy from 40~62, different sauna in Russian.
  224. cls
  225. dynamic $showerdin
  226. pcs_hairbsh = 0
  227. pcs_makeup = 1
  228. ! WD: Missing Var ~ 'banaday'
  229. banaday = daystart
  230. if frost > 0:frost = 0
  231. pcs_skin += 5
  232. gs 'stat'
  233. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban2.jpg"></center>'
  234. '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...'
  235. gs 'arousal', 'voyeur', 120
  236. gs 'arousal', 'end'
  237. gs 'stat'
  238. act 'Finish': mira = 0 & gt 'gaddvor'
  239. end
  240. end
  241. end
  242. !125ed
  243. end
  244. --- Gadbana ---------------------------------