backwater 8.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285
  1. # backwater
  2. $location_type = 'secluded'
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. gs 'gadukino_event', 'sound'
  6. cls
  7. gs'stat'
  8. clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
  9. !events before everything
  10. if $clothingworntype = 'nude' and hantersKnowSlut = 0 and hanters = 1 and hour > 8 and hour < 20 and hanterknowday < day:
  11. cla
  12. *clr
  13. minut += 5
  14. gs 'stat'
  15. '<center><B>Backwater</B></center>'
  16. '<center><img src="images/locations/gadukino/hunters/hunter_looks.jpg"></center>'
  17. 'While cleaning yourself in the backwater, you suddenly get the feeling that you are not alone here. Turning around, you see one of the hunters. He''s just standing there watching you, his camouflage is almost indistinguishable compared to the bushes and trees.'
  18. if clothesAtLocation = 1 and clearclothes = 0 :
  19. act'Get dressed':
  20. cls
  21. minut += 5
  22. tanga = flag_tanga
  23. gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
  24. '<center><img src="images/locations/gadukino/hunters/swampbackwaternude1.jpg"></center>'
  25. 'Noticing the hunter, you rush over to your clothes and begin dressed yourself in panic. As you get fully dressed, you look over your shoulder, expecting the hunter standing there, but there is no one there.'
  26. act'Further':gt 'backwater'
  27. end
  28. else
  29. act'Hide':
  30. cls
  31. minut += 1
  32. '<center><img src="images/locations/gadukino/hunters/swampbackwaternude2.jpg"></center>'
  33. 'Covering your Breasts and crotch you jump into the nearest bush. In your state of fear and confusion, you start scanning the area but you don''t see anyone there. You quickly run back towards the cabin.'
  34. act'Further':gt 'swamp_yard'
  35. end
  36. end
  37. act'Stay naked':
  38. cls
  39. hanterslut += 1
  40. hanterknowday = day
  41. gs'stat'
  42. '<center><img src="images/locations/gadukino/hunters/swampbackwaternude3.jpg"></center>'
  43. 'You decide that you have nothing to be afraid of, and continue on completely nude. The hunter looks at you for a minute or so, all of a sudden you hear a "Hmph", him turning around and going away.'
  44. act'Further':gt 'backwater'
  45. end
  46. exit
  47. end
  48. !start location
  49. '<center><B>Backwater</B></center>'
  50. if month >= 4 and month <= 10:
  51. if hour >= 6 and hour < 22:
  52. '<center><img src="images/locations/gadukino/hunters/backwater.jpg"></center>'
  53. else
  54. '<center><img src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
  55. end
  56. else
  57. if hour >= 8 and hour < 18:
  58. '<center><img src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
  59. else
  60. '<center><img src="images/locations/gadukino/hunters/backwater_winter_night.jpg"></center>'
  61. end
  62. end
  63. 'A small creek with relatively clean water. If the weather is warm you can clean yourself up. Also, if your clothes are dirty you can wash them here.'
  64. if clothesAtLocation = 1:'Your clothes lie on the shore.'
  65. !re-arrange it, there should be no logic error now by illume
  66. if clothesAtLocation = 0:
  67. if $clothingworntype ! 'nude' and temper >= 15:
  68. act'Undress':
  69. if hantersKnowSlut > 0 or hanters = 0 or hour < 8 or hour >= 20 or modelfoto > 0 or film > 0 or pcs_dancero > 0 or stripdancesum > 0 or pcs_exhibition > 0 or guy > 4 or girl > 2:
  70. cla
  71. *clr
  72. minut+=5
  73. flag_tanga = tanga
  74. tanga = 0
  75. if hantersRape = 1: hantersRape = 2
  76. if CloSkirtShortness > 0:
  77. '<center><img src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
  78. else
  79. '<center><img src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'
  80. end
  81. gs 'clothing', 'strip', $CURLOC
  82. 'You do not hesitate getting undressed, not caring if anyone is watching.'
  83. act'Back':gt'backwater'
  84. else
  85. cla
  86. *clr
  87. '<center><img src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  88. 'You hesitate getting undressed, what if someone suddenly sees you?'
  89. act'Back':gt'backwater'
  90. end
  91. end
  92. end
  93. else
  94. if $clothingworntype ! 'nude':
  95. act 'Pick up your clothes':
  96. cla
  97. *clr
  98. gs 'clothing', 'recover_lost_clothes', $CURLOC
  99. 'You pick up your clothes laying on the ground.'
  100. gt $loc, $metka
  101. end
  102. else
  103. act 'Get dressed':
  104. cla
  105. *clr
  106. gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
  107. tanga = flag_tanga
  108. 'You pick up your clothes laying on the ground and get dressed.'
  109. gt $loc, $metka
  110. end
  111. end
  112. end
  113. if $clothingworntype = 'nude':
  114. act 'Wash self':
  115. cla
  116. *clr
  117. dynamic $showerdin
  118. face_write = 0
  119. body_write = 0
  120. minut += 30
  121. pcs_mood += 10
  122. pcs_willpwr += 5
  123. if hantersRape = 1: hantersRape = 2
  124. if tanga = 0:
  125. '<center><img src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'
  126. else
  127. '<center><img src="images/locations/gadukino/hunters/backwaterswim3.jpg"></center>'
  128. end
  129. 'You washed yourself in the creek.'
  130. act 'Further':gt 'backwater'
  131. end
  132. if dirtyclothes = 1 and clothesAtLocation = 1:
  133. act 'Wash your clothes':
  134. cla
  135. *clr
  136. if hantersRape = 1: hantersRape = 2
  137. minut += 60
  138. dirtyclothes = 0
  139. cumspclnt = 6 & gs 'cum_cleanup'
  140. gs 'stat'
  141. '<center><img src="images/locations/gadukino/hunters/backwaterwash.jpg"></center>'
  142. 'You get undressed and wash your dirty clothes. Unfortunately the clothes didn''t get fully clean because of the cold water.'
  143. !fix logic by illume
  144. act 'Hang the clothes in the hut':
  145. cla
  146. *clr
  147. minut += 5
  148. clearclothes = 5
  149. gs 'clothing','recover_lost_clothes',$CURLOC, 1
  150. gs 'clothing', 'strip', 'swamphouse'
  151. if $clothingworntype = 'nude':
  152. '<center><img src="images/locations/gadukino/hunters/basinwash1.jpg"></center>'
  153. else
  154. '<center><img src="images/locations/gadukino/village/Washclothes2.jpg"></center>'
  155. end
  156. 'You hang the clothes near the stove so they could dry.'
  157. act 'Further':gt $locM, $metkaM
  158. end
  159. if month >= 5 and month <= 9:
  160. act 'Hang clothes on the clothesline':
  161. cla
  162. *clr
  163. minut += 10
  164. clearclothes = 3
  165. gs 'clothing','recover_lost_clothes',$CURLOC, 1
  166. gs 'clothing', 'strip', 'clothesline_swamp'
  167. if $clothingworntype = 'nude':
  168. '<center><img src="images/locations/gadukino/hunters/basinwash2.jpg"></center>'
  169. else
  170. '<center><img src="images/locations/gadukino/village/Washclothes2.jpg"></center>'
  171. end
  172. 'You hang the clothes on the clothesline to dry.'
  173. act 'Further':gt'swamp_yard'
  174. end
  175. end
  176. end
  177. end
  178. else
  179. !not nude
  180. if dirtyclothes = 1 and temper >= 10:
  181. act 'Clean your dirty clothes':
  182. cla
  183. *clr
  184. if hantersRape = 1: hantersRape = 2
  185. minut += 30
  186. dirtyclothes = 0
  187. cumspclnt = 6 & gs 'cum_cleanup'
  188. gs 'stat'
  189. '<center><img src="images/locations/gadukino/hunters/backwaterwash2.jpg"></center>'
  190. 'You start undressing as you enter the water thinking you''ll be able to clean your dirty clothes. Unfortunately you don''t seem able to get the clothes clean because you didn''t want to get undressed not wanting to freeze your butt off in the cold water.'
  191. act 'Further':gt'swamp_yard'
  192. end
  193. end
  194. if arrsize('sparrvol') > 0:
  195. act 'Wash off sperm':
  196. cla
  197. *clr
  198. dynamic $showerdin
  199. lubonus = 0
  200. pcs_sweat -= 1
  201. minut += 10
  202. if hantersRape = 1: hantersRape = 2
  203. '<center><img src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
  204. 'You carefully wash off the sperm in the creek.'
  205. act 'Further':gt 'backwater'
  206. end
  207. end
  208. if spdirtyc > 0:
  209. act 'Clean the sperm off your clothes':
  210. cla
  211. cumspclnt = 6 & gs 'cum_cleanup'
  212. minut += 5
  213. if hantersRape = 1: hantersRape = 2
  214. gs'stat'
  215. '<center><img src="images/locations/gadukino/hunters/cumwash.jpg"></center>'
  216. 'You clean the cum stains off your clothes.'
  217. act 'Finish':gt 'backwater'
  218. end
  219. end
  220. if temper >= 10:
  221. act 'Wash your face':
  222. cla
  223. *clr
  224. pcs_makeup = 1
  225. cumspclnt = 9
  226. gs 'cum_cleanup'
  227. cumspclnt = 11
  228. gs 'cum_cleanup'
  229. cumspclnt = 13
  230. gs 'cum_cleanup'
  231. if pcs_sweat > 19 : pcs_sweat -= 5
  232. '<center><img src="images/pc/facewash.jpg"></center>'
  233. *nl
  234. 'You clean your face and get rid of any trace of cum.'
  235. face_write = 0
  236. '<center><img src="images/pc/facewash.jpg"></center>'
  237. 'You carefully wash your face, removing your makeup.'
  238. minut += 5
  239. gs'stat'
  240. act 'Further':gt 'backwater'
  241. if hantersRape = 1: hantersRape = 2
  242. end
  243. end
  244. end
  245. act 'Go':minut += 5 & gt'swamp_yard'
  246. if hantersRape = 2:
  247. cla
  248. *clr
  249. minut += 5
  250. hantersRape = 3
  251. gs 'stat'
  252. '<center><img src="images/locations/gadukino/sex/hunter/backwaterrelax.jpg"></center>'
  253. 'You sit down by the shore, resting.'
  254. act 'Further':gt 'hanters', 'start'
  255. end
  256. --- backwater ---------------------------------