1
0

Gadbana 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230
  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. clr
  12. gs 'stat'
  13. if night_mode = 1:
  14. fcolor = rgb(255, 255, 255)
  15. bcolor = rgb(0, 0, 0)
  16. lcolor = rgb(106, 90, 205)
  17. else
  18. fcolor = rgb(0, 0, 0)
  19. bcolor = rgb(255, 255, 255)
  20. lcolor = rgb(106, 90, 205)
  21. end
  22. if mira = 0:
  23. if $clothingworntype = 'nude':
  24. act 'Get dressed':
  25. gs 'clothing', 'wear_last_worn'
  26. gs 'underwear', 'wear'
  27. end
  28. end
  29. act 'Go outside':
  30. if $clothingworntype ! 'nude':
  31. minut += 5 & gt'Gaddvor'
  32. else
  33. cls
  34. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  35. 'You can''t go out without any clothes on.'
  36. act 'Back':gt'Gadbana'
  37. end
  38. end
  39. if week >= 6:
  40. if hour >= 12 and hour <= 18:
  41. canpar = 1
  42. 'You put the wood into the stove and start a fire. It will take several hours before the banya is ready.'
  43. elseif hour > 18 and hour < 22:
  44. canpar = 1
  45. 'The banya is now ready.'
  46. if banaday ! daystart:
  47. act 'Relax in the banya (2:00)':
  48. cls
  49. minut += 120
  50. pcs_sweat = rand(0,5)
  51. dynamic $showerdin
  52. pcs_hairbsh = 0
  53. pcs_makeup = 1
  54. ! WD: Missing Var ~ 'banaday'
  55. banaday = daystart
  56. if frost > 0:frost = 0
  57. pcs_skin += 5
  58. gs 'stat'
  59. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/par.jpg"></center>'
  60. '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.'
  61. act 'Go outside':gt 'Gaddvor'
  62. end
  63. end
  64. elseif hour >= 22:
  65. canpar = 0
  66. end
  67. elseif week ! 6:
  68. canpar = 0
  69. end
  70. if canpar = 0:
  71. act 'Wash (1:00)':
  72. cls
  73. dynamic $showerdin
  74. minut += 60
  75. pcs_hairbsh = 0
  76. pcs_makeup = 1
  77. if frost > 0:frost = 0
  78. gs 'stat'
  79. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mit.jpg"></center>'
  80. '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.'
  81. act 'Leave':gt 'Gaddvor'
  82. end
  83. end
  84. dynamic $bteeth
  85. dynamic $tampon
  86. dynamic $quickwash
  87. dynamic $wearpan
  88. dynamic $basin
  89. if (cumloc[6] = 1 or cumloc[7] = 1):
  90. act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
  91. cla
  92. cumspclnt = 6
  93. gs 'cum_cleanup'
  94. minut += 10
  95. gs 'stat'
  96. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  97. 'You remove traces of cum from the clothes.'
  98. act 'Finish':gt $curloc
  99. end
  100. end
  101. dynamic $brit
  102. if (washingbelo = 1 or washingbra = 1) and $loc = 'Gadbana':
  103. act 'Wash underwear (30 Minutes)':
  104. cla
  105. *clr
  106. minut += 30
  107. gs 'underwear', 'cleaning'
  108. pcs_mood -= 10
  109. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
  110. *nl
  111. 'You soak your dirty underwear in the basin and pour in washing powder, then you scrub them until they are finally clean.'
  112. act 'Finish':gt $loc, $metka
  113. end
  114. end
  115. if dirtyclothes = 1 and $loc = 'Gadbana':
  116. act 'Wash your clothes (1:00)':
  117. cla
  118. *clr
  119. minut += 60
  120. gs 'underwear', 'cleaning'
  121. dirtyclothes = 0
  122. pcs_mood -= 10
  123. cumspclnt = 6 & gs 'cum_cleanup'
  124. gs 'stat'
  125. if $clothingworntype = 'nude':
  126. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinwash.jpg"></center>'
  127. else
  128. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
  129. 'You undress and wash your dirty clothes.'
  130. end
  131. *nl
  132. 'You soak your muddy clothes and underwear in the basin and pour in washing powder, then you scrub them until they are finally clean.'
  133. act 'Finish':gt $loc, $metka
  134. end
  135. end
  136. if (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  137. act 'Give yourself an enema (0:05)':
  138. cla
  139. *clr
  140. cumspclnt = 7
  141. gs 'cum_cleanup'
  142. minut += 5
  143. klismaday = daystart
  144. klismaday1= 1
  145. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
  146. 'You use Baba''s enema to clean yourself out down there. Your ass is now ready for anal sex without any awkward surprises.'
  147. act 'Finish':gt 'Gadbana'
  148. end
  149. end
  150. else
  151. !125st
  152. act 'Undress':
  153. cls
  154. gs 'clothing', 'strip'
  155. gs 'underwear', 'remove'
  156. gs 'stat'
  157. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban.jpg"></center>'
  158. 'While you undress, through the corner of your eye you notice Mira removing her panties.'
  159. gs 'arousal', 'voyeur', 10, 'lesbian'
  160. gs 'stat'
  161. act 'Watch Mira clean herself':
  162. cls
  163. gs 'stat'
  164. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban1.jpg"></center>'
  165. '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...'
  166. gs 'arousal', 'voyeur', 10
  167. gs 'stat'
  168. act 'Steam':
  169. !{
  170. dynamic $showerdin
  171. vidageday += 1
  172. pcs_mood += 20
  173. pcs_health += healthmax/20
  174. pcs_skin += 5
  175. if pcs_skin >= 20:pcs_skin = 0 & skin += 1
  176. }
  177. !copy from 40~62, different sauna in Russian.
  178. cls
  179. dynamic $showerdin
  180. pcs_hairbsh = 0
  181. pcs_makeup = 1
  182. ! WD: Missing Var ~ 'banaday'
  183. banaday = daystart
  184. if frost > 0:frost = 0
  185. pcs_skin += 5
  186. gs 'stat'
  187. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraban2.jpg"></center>'
  188. '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...'
  189. gs 'arousal', 'voyeur', 120
  190. gs 'arousal', 'end'
  191. gs 'stat'
  192. act 'Finish': mira = 0 & gt 'gaddvor'
  193. end
  194. end
  195. end
  196. !125ed
  197. end
  198. --- Gadbana ---------------------------------