1
0

Gadbana 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252
  1. # Gadbana
  2. CLOSE ALL
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. $location_type = 'bathroom'
  8. frost = 0
  9. '<center><h4>bath</h4></center>'
  10. '<center><img 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. clr
  14. gs 'stat'
  15. if night_mode = 1:
  16. fcolor = rgb(255, 255, 255)
  17. bcolor = rgb(0, 0, 0)
  18. lcolor = rgb(106, 90, 205)
  19. else
  20. fcolor = rgb(0, 0, 0)
  21. bcolor = rgb(255, 255, 255)
  22. lcolor = rgb(106, 90, 205)
  23. end
  24. if mira = 0:
  25. act 'Go outside':
  26. if $clothingworntype ! 'nude' or pcs_exhibition > 50:
  27. minut += 5 & gt'Gaddvor'
  28. else
  29. cls
  30. '<center><img src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  31. 'You are ashamed to appear like this in the open.'
  32. act 'Back':gt'Gadbana'
  33. end
  34. end
  35. if week >= 6:
  36. if hour >= 12 and hour <= 18:
  37. canpar = 1
  38. 'You put the wood into the stove and start a fire. It will take several hours before the banya is ready.'
  39. elseif hour > 18 and hour < 22:
  40. canpar = 1
  41. 'The banya is now ready.'
  42. if banaday ! daystart:
  43. act 'Relax in the banya (2:00)':
  44. cls
  45. minut += 120
  46. pcs_sweat = rand(0,5)
  47. dynamic $showerdin
  48. pcs_hairbsh = 0
  49. pcs_makeup = 1
  50. ! WD: Missing Var ~ 'banaday'
  51. banaday = daystart
  52. if frost > 0:frost = 0
  53. pcs_skin += 5
  54. gs 'stat'
  55. '<center><img src="images/locations/gadukino/village/par.jpg"></center>'
  56. '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.'
  57. act 'Go outside':gt 'Gaddvor'
  58. end
  59. end
  60. elseif hour >= 22:
  61. canpar = 0
  62. end
  63. elseif week ! 6:
  64. canpar = 0
  65. end
  66. if canpar = 0:
  67. act 'Wash (1:00)':
  68. cls
  69. dynamic $showerdin
  70. minut += 60
  71. pcs_hairbsh = 0
  72. pcs_makeup = 1
  73. if frost > 0:frost = 0
  74. gs 'stat'
  75. '<center><img src="images/locations/gadukino/village/mit.jpg"></center>'
  76. '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.'
  77. act 'Leave':gt 'Gaddvor'
  78. end
  79. end
  80. dynamic $bteeth
  81. dynamic $tampon
  82. dynamic $quickwash
  83. dynamic $wearpan
  84. dynamic $basin
  85. if spdirtyc > 0:
  86. act 'Rinse the cum stains off your clothes in luke warm water(0:10)':
  87. cla
  88. cumspclnt = 6
  89. gs 'cum_cleanup'
  90. minut += 10
  91. gs 'stat'
  92. '<center><img src="images/shared/sex/cum/frotsp.jpg"></center>'
  93. 'You remove traces of cum from the clothes.'
  94. act 'Finish':gt $curloc
  95. end
  96. end
  97. if leghair > 3 and stanok > 0:
  98. act 'Shave your legs (0:15)':
  99. cla
  100. *clr
  101. minut = minut + 15
  102. leghair = 0
  103. pcs_horny = pcs_horny + 5
  104. stanok = stanok - 1
  105. '<center><img src="images/shared/home/bathroom/shave.gif"></center>'
  106. 'You use the shaving gel to lather your legs and pick up the razor. You skillfully shave the hair off your legs and finish by washing off the remaining shaving foam.'
  107. act 'Put away the razor':gt $curloc
  108. end
  109. end
  110. if pcs_pubes > 3 and stanok > 0:
  111. act 'Shave your pubic hair (0:15)':
  112. cla
  113. *clr
  114. minut = minut + 15
  115. pcs_pubes = 0
  116. pcs_horny = pcs_horny + 5
  117. stanok = stanok - 1
  118. '<center><img src="images/shared/home/bathroom/shave.gif"></center>'
  119. 'You lather your pubic hair with shaving gel and pick up a razor. With neat movements you begin to shave the pubic area. After a short time the pubic area feels smooth and you wash off the remaining foam from the pussy.'
  120. act 'Put away the razor':gt $curloc
  121. end
  122. end
  123. if dirtbelo > 0 and $loc = 'Gadbana':
  124. act 'Wash panties (<<dirtbelo * 5>> Minutes)':
  125. cla
  126. *clr
  127. minut += dirtbelo * 5
  128. clrbelo += dirtbelo
  129. dirtbelo = 0
  130. pcs_mood -= 10
  131. '<center><img src="images/locations/gadukino/village/Washclothes1.jpg"></center>'
  132. *nl
  133. 'You soak your dirty panties in the basin and pour in washing powder, then you scrub them until they are finally clean.'
  134. act 'Finish':gt $locM, $metkaM
  135. end
  136. end
  137. if dirtyclothes = 1 and $loc = 'Gadbana':
  138. act 'Wash your clothes (1:00)':
  139. cla
  140. *clr
  141. minut += 60
  142. clrbelo += dirtbelo
  143. dirtbelo = 0
  144. dirtyclothes = 0
  145. pcs_mood -= 10
  146. cumspclnt = 6 & gs 'cum_cleanup'
  147. gs 'stat'
  148. if $clothingworntype = 'nude':
  149. '<center><img src="images/locations/gadukino/hunters/basinwash.jpg"></center>'
  150. else
  151. '<center><img src="images/locations/gadukino/village/Washclothes1.jpg"></center>'
  152. 'You undress and wash your dirty clothes.'
  153. end
  154. *nl
  155. 'You soak your muddy clothes and panties in the basin and pour in washing powder, then you scrub them until they are finally clean.'
  156. act 'Finish':gt $locM, $metkaM
  157. end
  158. end
  159. if (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  160. act 'Give yourself an enema (0:05)':
  161. cla
  162. *clr
  163. cumspclnt = 7
  164. gs 'cum_cleanup'
  165. minut += 5
  166. klismaday = daystart
  167. klismaday1= 1
  168. '<center><img src="images/shared/home/bathroom/klisma.jpg"></center>'
  169. 'You use Baba''s enema to clean yourself out down there. Your ass is now ready for anal sex without any awkward surprises.'
  170. act 'Finish':gt 'Gadbana'
  171. end
  172. end
  173. else
  174. !125st
  175. act 'Undress':
  176. cls
  177. minut += 10
  178. pcs_horny += 10
  179. gs 'stat'
  180. '<center><img src="images/characters/village/mira/miraBan.jpg"></center>'
  181. 'While you undress, through the corner of your eye you notice Mira removing her panties.'
  182. act 'Watch Mira clean herself':
  183. cls
  184. minut += 10
  185. pcs_horny += 15
  186. gs 'stat'
  187. '<center><img src="images/characters/village/mira/miraBan1.jpg"></center>'
  188. '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...'
  189. act 'Steam':
  190. !{
  191. dynamic $showerdin
  192. vidageday += 1
  193. pcs_horny += 20
  194. pcs_mood += 20
  195. pcs_health += healthmax/20
  196. pcs_skin += 5
  197. if pcs_skin >= 20:pcs_skin = 0 & skin += 1
  198. }
  199. !copy from 40~62, different sauna in Russian.
  200. cls
  201. minut += 120
  202. dynamic $showerdin
  203. pcs_hairbsh = 0
  204. pcs_makeup = 1
  205. ! WD: Missing Var ~ 'banaday'
  206. banaday = daystart
  207. if frost > 0:frost = 0
  208. pcs_skin += 5
  209. gs 'stat'
  210. '<center><img src="images/characters/village/mira/miraBan2.jpg"></center>'
  211. '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...'
  212. act 'Finish': mira = 0 & gt 'gaddvor'
  213. end
  214. end
  215. end
  216. !125ed
  217. end
  218. --- Gadbana ---------------------------------