swamp_yard.qsrc 10 KB

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