1
0

swamp_yard.qsrc 10 KB

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