backwater.qsrc 8.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280
  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 <<$set_imgh>> 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. gs 'underwear', 'wear'
  23. gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
  24. '<center><img <<$set_imgh>> 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 <<$set_imgh>> 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 <<$set_imgh>> 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 <<$set_imgh>> src="images/locations/gadukino/hunters/backwater.jpg"></center>'
  53. else
  54. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
  55. end
  56. else
  57. if hour >= 8 and hour < 18:
  58. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
  59. else
  60. '<center><img <<$set_imgh>> 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 pcs_inhib > 35:
  70. cla
  71. *clr
  72. minut+=5
  73. gs 'underwear', 'remove'
  74. if hantersRape = 1: hantersRape = 2
  75. if CloSkirtShortness > 0:
  76. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
  77. else
  78. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'
  79. end
  80. gs 'clothing', 'strip', $CURLOC
  81. 'You do not hesitate getting undressed, not caring if anyone is watching.'
  82. act'Back':gt'backwater'
  83. else
  84. cla
  85. *clr
  86. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  87. 'You hesitate getting undressed, what if someone suddenly sees you?'
  88. act'Back':gt'backwater'
  89. end
  90. end
  91. end
  92. else
  93. if $clothingworntype ! 'nude':
  94. act 'Pick up your clothes':
  95. cla
  96. *clr
  97. gs 'clothing', 'recover_lost_clothes', $CURLOC
  98. 'You pick up your clothes laying on the ground.'
  99. gt $loc, $metka
  100. end
  101. else
  102. act 'Get dressed':
  103. cla
  104. *clr
  105. gs 'clothing', 'recover_lost_clothes', $CURLOC, 1
  106. gs 'underwear', 'wear'
  107. 'You pick up your clothes laying on the ground and get dressed.'
  108. gt $loc, $metka
  109. end
  110. end
  111. end
  112. if $clothingworntype = 'nude':
  113. act 'Wash self':
  114. cla
  115. *clr
  116. dynamic $showerdin
  117. face_write = 0
  118. body_write = 0
  119. minut += 30
  120. pcs_mood += 10
  121. pcs_willpwr += 5
  122. inhib_exp += rand(1,3)
  123. if hantersRape = 1: hantersRape = 2
  124. if $pantyworntype = 'none':
  125. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'
  126. else
  127. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
  128. end
  129. 'You washed yourself in the creek.'
  130. act 'Further':gt 'backwater'
  131. end
  132. if arrsize('sparrvol') > 0:
  133. act 'Wash off sperm':
  134. cla
  135. *clr
  136. dynamic $showerdin
  137. lubonus = 0
  138. pcs_sweat -= 1
  139. minut += 10
  140. if hantersRape = 1: hantersRape = 2
  141. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
  142. 'You carefully wash off the sperm in the creek.'
  143. act 'Further':gt 'backwater'
  144. end
  145. end
  146. if dirtyclothes = 1 and clothesAtLocation = 1:
  147. act 'Wash your clothes':
  148. cla
  149. *clr
  150. if hantersRape = 1: hantersRape = 2
  151. minut += 60
  152. dirtyclothes = 0
  153. cumspclnt = 6 & gs 'cum_cleanup'
  154. gs 'stat'
  155. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterwash.jpg"></center>'
  156. 'You get undressed and wash your dirty clothes. Unfortunately the clothes didn''t get fully clean because of the cold water.'
  157. !fix logic by illume
  158. act 'Hang the clothes in the hut':
  159. cla
  160. *clr
  161. minut += 5
  162. clearclothes = 5
  163. gs 'clothing','recover_lost_clothes',$CURLOC, 1
  164. gs 'clothing', 'strip', 'swamphouse'
  165. if $clothingworntype = 'nude':
  166. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinwash1.jpg"></center>'
  167. else
  168. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
  169. end
  170. 'You hang the clothes near the stove so they could dry.'
  171. act 'Further':gt $loc, $metka
  172. end
  173. if month >= 5 and month <= 9:
  174. act 'Hang clothes on the clothesline':
  175. cla
  176. *clr
  177. minut += 10
  178. clearclothes = 3
  179. gs 'clothing','recover_lost_clothes',$CURLOC, 1
  180. gs 'clothing', 'strip', 'clothesline_swamp'
  181. if $clothingworntype = 'nude':
  182. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinwash2.jpg"></center>'
  183. else
  184. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
  185. end
  186. 'You hang the clothes on the clothesline to dry.'
  187. act 'Further':gt'swamp_yard'
  188. end
  189. end
  190. end
  191. end
  192. else
  193. !not nude
  194. if dirtyclothes = 1 and temper >= 10:
  195. act 'Clean your dirty clothes':
  196. cla
  197. *clr
  198. if hantersRape = 1: hantersRape = 2
  199. minut += 30
  200. dirtyclothes = 0
  201. cumspclnt = 6 & gs 'cum_cleanup'
  202. gs 'stat'
  203. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterwash2.jpg"></center>'
  204. '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.'
  205. act 'Further':gt'swamp_yard'
  206. end
  207. end
  208. if (cumloc[6] = 1 or cumloc[7] = 1):
  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 <<$set_imgh>> 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. end
  221. if temper >= 10:
  222. act 'Wash your face':
  223. cla
  224. *clr
  225. minut += 5
  226. pcs_makeup = 1
  227. cumspclnt = 9
  228. face_write = 0
  229. gs 'cum_cleanup'
  230. cumspclnt = 11
  231. gs 'cum_cleanup'
  232. cumspclnt = 13
  233. gs 'cum_cleanup'
  234. if pcs_sweat > 19 : pcs_sweat -= 5
  235. gs'stat'
  236. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
  237. *nl
  238. 'You carefully wash your face, removing any impurities.'
  239. act 'Further':gt 'backwater'
  240. if hantersRape = 1: hantersRape = 2
  241. end
  242. end
  243. act 'Go':minut += 5 & gt'swamp_yard'
  244. if hantersRape = 2:
  245. cla
  246. *clr
  247. minut += 5
  248. hantersRape = 3
  249. gs 'stat'
  250. '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/backwaterrelax.jpg"></center>'
  251. 'You sit down by the shore, resting.'
  252. act 'Further':gt 'hanters', 'start'
  253. end
  254. --- backwater ---------------------------------