1
0

Gadbana 5.6 KB

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