swamp_yard.qsrc 9.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295
  1. # swamp_yard
  2. gs 'hunter_ambient', 'schedule'
  3. if $ARGS[0] = 'start':
  4. $loc = 'swamp_yard'
  5. $loc_arg = 'start'
  6. $menu_loc = 'swamp_yard'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. $location_type = 'secluded'
  10. hunterscabin = 1
  11. gs 'gadukino_event', 'sound'
  12. gs 'stat'
  13. if lost_girl = 1:
  14. if daystart > forest_lostday + 1 and rand(forest_lostday - daystart, 30) >= 30 and DayStage = 2:
  15. gt 'gadforestlost','rescue','ranger','swamp_yard'
  16. end
  17. end
  18. '<center><B>The yard in front of the hut</B></center>'
  19. if month >= 5 and month <= 9:
  20. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(DayStage < 4,'swamp_yard.jpg','swamp_yard_night.jpg')+'"></center>'
  21. else
  22. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(DayStage < 4,'swamp_yard_winter.jpg','swamp_yard_winter_night.jpg')+'"></center>'
  23. end
  24. *nl
  25. 'Behind the hut there is a <a href="exec: gt ''swampspring'' ">spring</a>, if you continue a little further down there is a small <a href="exec: gt ''backwater'' ">creek</a> with relatively clean water.'
  26. if hunters_available = 1:
  27. if hunters_were_met = 0:
  28. if hunters_outside = 1:
  29. 'You spot some unfamiliar <a href="exec: gt ''hunters'', ''start'' ">people</a> standing in front of the hut.'
  30. end
  31. else
  32. if hunters_outside = 1:
  33. if hunters_evening = 1:
  34. 'You hear some gunshots and see <a href="exec: gt ''swamp_woods'', ''shooting_practice'' ">Andrei</a> not too far in the distance shooting some bottles.'
  35. '<a href="exec: gt ''hunters'', ''start'' ">Igor and Sergey</a> are standing in the front yard.'
  36. else
  37. if campfire = 1 and hunters_chattime = 0:
  38. 'You see hunters are sitting by the <a href="exec: gt ''swamp_yard'', ''campfire''">campfire</a>'
  39. else
  40. 'You notice the <a href="exec: gt ''hunters'', ''start'' ">hunters</a> standing in the front yard.'
  41. end
  42. end
  43. else
  44. 'The camp is quiet, but you can hear the hunters'' voices from the hut.'
  45. end
  46. end
  47. else
  48. if hunters_were_met = 0:
  49. 'The camp is quiet. There''s nobody here right now, but the camp looks like it is likely in use and not abandoned.'
  50. else
  51. if hunters_hunting = 1:
  52. 'The hunters are most likely out hunting for a couple hours. You have the camp to yourself!'
  53. else
  54. 'The camp is quiet. The hunters are asleep in the hut.'
  55. end
  56. end
  57. end
  58. act '<b>Go to the swamp</b>': gt 'swamp_yard', 'swamp_escape'
  59. gs 'bicycle', 'swamp_yard'
  60. act 'Go into the house':gt 'swamphouse', 'start'
  61. act 'Approach the firepit': gt 'swamp_yard', 'campfire'
  62. act 'Visit the spring': gt 'swampspring'
  63. act 'Visit the creek': gt 'backwater'
  64. act 'Explore the woods': minut += 10 & gt 'swamp_woods', 'start'
  65. if hunters_outside = 1 and hunters_available = 1 and rand(1,2) = 1:
  66. gs 'swamp_yard', 'daytime_flavor_events'
  67. end
  68. end
  69. if $ARGS[0] = 'campfire':
  70. !TODO: Add mechanic so that fire slowly goes through wood and extinguishes when there is no more left
  71. cla & *clr
  72. $loc = 'swamp_yard'
  73. $loc_arg = 'campfire'
  74. menu_off = 1
  75. gs 'hunter_ambient', 'schedule'
  76. gs 'stat'
  77. act 'Move away': gt 'swamp_yard', 'start'
  78. if campfire = 1:
  79. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(DayStage = 2,'campfire_day.jpg','campfire_night.jpg')+'"></center>'
  80. *nl
  81. 'A nice, warm campfire you can sit and relax by. You can use it to cook something or heat up some water to bathe.'
  82. 'You can also put it out with the bucket if there is enough water in it'
  83. if hunters_breakfast = 1 or hunters_lunch = 1:
  84. *clr
  85. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters1.jpg"></center>'
  86. *nl
  87. 'Hunters are also sitting around the campfire, talking and joking about all kinds of stuff before heading out hunting'
  88. act 'Chat (0:30)':
  89. gt 'hunter_interactions', 'chat_with_hunters'
  90. end
  91. !TODO: Flesh out the learning content here
  92. act 'Ask for some survival tips (0:10)':
  93. cla
  94. hunter_lessons += 1
  95. if hunter_collective_opinion > 25:
  96. hunter_collective_opinion -= 1
  97. bushcraft_exp += 1
  98. minut += 10
  99. *nl
  100. 'Hunters talk to you about some of their experiences when they first started out'
  101. else
  102. if hunter_lessons > 10 AND hunter_sexual_comfort > 25:
  103. !TODO: Prototype implementation for the creekside event, to be revamped
  104. 'Sergei tells you to go by the creek for the next lesson about how to scope the area for a hunt.'
  105. hunter_lessons -= 8
  106. gs 'stat'
  107. act 'Further': gt 'hunter_favors', 'creekside_gangbang_request'
  108. else
  109. minut += 20
  110. 'The hunters do not even bother to answer you. You simply sit in awkward silence for twenty minutes before getting to to other business'
  111. end
  112. end
  113. act 'Further': gt 'swamp_yard', 'campfire'
  114. end
  115. end
  116. if hunters_drink = 1:
  117. *clr
  118. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/fireside_drink.jpg"></center>'
  119. *nl
  120. 'Hunters are drinking and chatting loudly. You can join them for a chat, or maybe a drink or two if you would like'
  121. act 'Chat (0:30)':
  122. gt 'hunter_interactions', 'chat_with_hunters'
  123. end
  124. act 'Ask them for a drink':
  125. gt 'hunter_interactions', 'join_drinking'
  126. end
  127. end
  128. if bucket >= 3:
  129. act 'Put out the fire':
  130. cla & *clr
  131. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_put_out.jpg"></center>'
  132. *nl
  133. 'You pour some water to extinguish the campfire'
  134. campfire = 0
  135. minut += 5
  136. bucket -= 3
  137. act 'Further': gt 'swamp_yard', 'campfire'
  138. end
  139. end
  140. if bucket > 0:
  141. if boletus > 0 and mushroom_soup = 0: act 'Cook some mushroom soup (0:30)': gs 'hunter_favors', 'mushroom_soup'
  142. if raw_meat > 0 and meat_stew = 0: act 'Cook some meat stew (1:00)': gs 'hunter_favors', 'meat_stew'
  143. end
  144. if bucket >= 5 and hotwater = 0:
  145. act 'Heat up water (0:30)':
  146. *clr & cla
  147. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hotwater.jpg"></center>'
  148. minut += 30
  149. bucket -= 5
  150. hotwater = 1
  151. water_heated += 1
  152. *nl
  153. if water_heated > 5 and (pcs_inhib < 85 or hunter_sexual_comfort > 25):
  154. '"It is too tedious to keep heatiing up water", you think to yourself.'
  155. else
  156. 'With the now heated water, you can bathe yourself in the tub.'
  157. end
  158. gs 'stat'
  159. act 'Continue': gt 'swamp_yard', 'campfire'
  160. end
  161. end
  162. act 'Eat a meal':
  163. cla
  164. act 'Return': gt 'swamp_yard', 'campfire'
  165. act 'Eat jerky and trail mix':gt 'food', 'jerky'
  166. if meat_stew > 0:
  167. act 'Eat meat stew':
  168. gs 'food', 'meat_stew'
  169. meat_stew -= 1
  170. *nl
  171. if meat_stew > 0:
  172. 'There''s <<meat_stew>> '+iif(meat_stew > 1, 'servings','serving')+' of stew left in the pot'
  173. else
  174. 'You have finished the last of the stew, the pot is empty.'
  175. end
  176. end
  177. end
  178. if mushroom_soup > 0:
  179. act 'Eat mushroom soup':
  180. gs 'food', 'mush_soup'
  181. mushroom_soup -= 1
  182. if mushroom_soup > 0:
  183. 'There''s <<mushroom_soup>> '+iif(mushroom_soup > 1, 'servings','serving')+' of soup left in the pot'
  184. else
  185. 'You have finished the last of the soup, the pot is empty.'
  186. end
  187. end
  188. end
  189. if bilberry > 0:
  190. act 'Eat berries':gt 'food','bilberry'
  191. end
  192. end
  193. if alko > 8:
  194. gt 'hunter_interactions', 'drunken_blackout'
  195. end
  196. else
  197. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(DayStage = 2,'campfire_out_day.jpg','campfire_out_night.jpg')+'"></center>'
  198. *nl
  199. 'You can use this firepit to light a fire, if you have some firewood available.'
  200. !TODO: Tie fire lighting to bushcraft, make hunters do it on their schedule or with Sveta asking
  201. if firewood >= 10 and campfire = 0:
  202. act 'Light fire':
  203. cla & *clr
  204. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif($clothingworntype ! 'nude','campfire_light.jpg','campfire_light_nude.jpg')+'"></center>'
  205. 'You use some chopped wood, dry branches and twigs to light a campfire in the firepit'
  206. firewood -= 10
  207. campfire = 1
  208. minut += 15
  209. act 'Further': gt 'swamp_yard', 'campfire'
  210. end
  211. elseif firewood < 10 and campfire = 0:
  212. *nl
  213. 'There is some wood and twigs by the pit but not enough to light a new fire. You will probably need to collect some branches, chop some or ask a hunter to do so.'
  214. end
  215. end
  216. end
  217. if $ARGS[0] = 'swamp_escape':
  218. !add chance to swamped by illume
  219. if hunters_available = 1 and hunters_outside = 1:
  220. if hour >= 6 and hour < 21:
  221. minut += 5
  222. if rand(0,9)>8: gt 'swamp', 'start' else gt 'swamp','stuck'
  223. else
  224. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/handshelp.jpg"></center>' & !! instead igorhanter.jpg
  225. 'As you start moving into the swamp Igor calls after you.'
  226. !TODO: Different line depending on opinion and slut
  227. '"<<$pcs_nickname>>, where are you going? You will get stuck in there!'
  228. gs 'stat'
  229. act 'Turn back':gt 'swamp_yard','start'
  230. act 'Ignore him and keep going':
  231. minut += 5
  232. !TODO: Add skill clothing and temp check here instead of praying to RNGesus
  233. if rand(0,9)>8: gt 'swamp', 'start' else gt 'swamp','stuck'
  234. end
  235. end
  236. else
  237. minut += 5
  238. !TODO: Here too, also see how to avoid duplicating. Maybe create a child event node?
  239. if (hour >= 6 and hour < 21) or rand(0,9)>6: gt 'swamp', 'start' else gt 'swamp','stuck'
  240. end
  241. end
  242. if $ARGS[0] = 'daytime_flavor_events':
  243. gs 'hunter_ambient', 'schedule'
  244. if rand(1,30) = 1 and hunters_available > 0:
  245. gt 'hunter_interactions', 'skirt_breeze'
  246. elseif rand(1,10) = 1 and hunters_available > 0:
  247. gt 'hunter_favors', 'housekeeping_request'
  248. elseif rand(1,12) = 1 and hunters_available > 0:
  249. gt 'hunter_ambient' , 'yard_convo'
  250. elseif rand(1, hunter_sexual_comfort / 4 + 2) = 1 and hunters_available > 0:
  251. gt 'hunter_interactions', 'naked_encounter'
  252. elseif rand(1,15) = 1 and hunters_available > 0:
  253. gt 'hunter_ambient', 'bring_food'
  254. end
  255. end
  256. --- swamp_yard ---------------------------------