Gadbana 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121
  1. # Gadbana
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. '<center><h4>bath</h4></center>'
  7. '<center><img src="images/qwest/gadukino/bana.jpg"></center>'
  8. 'Not a big room with a low oven, water tanks of stainless steel, low smoky ceiling, and blackened wooden shelf.'
  9. clr
  10. gs 'stat'
  11. fcolor = rgb(0, 0, 0)
  12. bcolor = rgb(255, 255, 255)
  13. lcolor = rgb(106, 90, 205)
  14. act 'Go outside':minut += 5 & gt 'Gaddvor'
  15. if week = 6:
  16. if hour >= 12 and hour <= 18:
  17. canpar = 1
  18. 'bath fired. Somewhere to seven hours can be steamed.'
  19. elseif hour > 18 and hour < 22:
  20. canpar = 1
  21. 'In the bath can be steamed'
  22. if banaday!day:
  23. act 'Steamed in the sauna (2:00)':
  24. cls
  25. minut += 120
  26. dynamic $showerdin
  27. hapri = 0
  28. mop = 1
  29. sweat = -3
  30. if frost > 0:frost = 0
  31. skinvan += 5
  32. if skinvan >= 20:skinvan = 0 & skin += 1
  33. gs 'stat'
  34. '<center><img src="images/qwest/gadukino/par.jpg"></center>'
  35. 'You soared in the bath, then doused with cold water and finally showered.'
  36. act 'Go outside':gt 'Gaddvor'
  37. end
  38. end
  39. elseif hour >= 22:
  40. canpar = 0
  41. end
  42. elseif week ! 6:
  43. canpar = 0
  44. end
  45. if canpar = 0:
  46. act 'Wash (1:00)':
  47. cls
  48. dynamic $showerdin
  49. minut += 60
  50. hapri = 0
  51. mop = 1
  52. sweat = -3
  53. if frost > 0:frost = 0
  54. gs 'stat'
  55. '<center><img src="images/qwest/gadukino/mit.jpg"></center>'
  56. 'You began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean.'
  57. act 'Leave':gt 'Gaddvor'
  58. end
  59. end
  60. if tampon > 0 and mesec > 0 and isprok = 0:
  61. act 'Use a tampon (0:05)':
  62. cla
  63. *clr
  64. tampon -= 1
  65. isprok = 1
  66. minut += 5
  67. manna -= 5
  68. gs 'stat'
  69. '<center><img src="images/pics/wash3.jpg"></center>'
  70. 'You use a tampon.'
  71. act 'Finish':gt $curloc
  72. end
  73. end
  74. !!0.2.6 extension: Washing off cosmetics also removes cum from face
  75. if mop ! 1:
  76. act 'Wash off cosmetics (0:15)':
  77. cla
  78. mop = 1
  79. cumface = 0
  80. minut += 15
  81. gs 'stat'
  82. '<center><img src="images/pic/facesp.jpg"></center>'
  83. 'You washed off your makeup.'
  84. act 'Finish':gt $curloc
  85. end
  86. end
  87. !!
  88. !!0.2.6 extensionRemoved sweat =- 1 when cum is wiped off clothes
  89. if cumfrot > 0:
  90. act 'Wipe the cum off your clothes (0:10)':
  91. cla
  92. cumfrot = 0
  93. minut += 10
  94. gs 'stat'
  95. '<center><img src="images/pic/frotsp.jpg"></center>'
  96. 'You remove traces of cum from your clothes.'
  97. act 'Finish':gt $curloc
  98. end
  99. end
  100. !!
  101. --- Gadbana ---------------------------------