1
0

swamp_yard.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496
  1. # swamp_yard
  2. if $ARGS[0] = 'start' or $ARGS[0] = '':
  3. $loc = 'swamp_yard'
  4. $metka = ''
  5. $menu_loc = 'swamp_yard'
  6. $menu_arg = ''
  7. menu_off = 0
  8. $location_type = 'secluded'
  9. gs 'gadukino_event', 'sound'
  10. gs 'stat'
  11. !the chance of encountering hunters
  12. if week = 6 or week = 7:huntersrand = RAND(1,3)
  13. if week < 6:huntersrand = RAND(1,5)
  14. if huntersrand = 1:hunters = 1
  15. !the chance of hitting GG, if she`s a slut
  16. huntslutsexrand = rand(1,3)
  17. ! to remember were cowards or not
  18. !if lost_girl = 0:lost_girl += rand(40,60)
  19. if StoryLine = 1 and lost_girl = 0 and forest_lostday > 0: lost_girl=daystart+2
  20. swiss_army_random_number = rand(1,10)
  21. '<center><B>The yard in front of the hut</B></center>'
  22. if month >= 5 and month <= 9:
  23. if hour >= 6 and hour < 22:
  24. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_yard.jpg"></center>'
  25. else
  26. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_yard_night.jpg"></center>'
  27. end
  28. else
  29. if hour >= 8 and hour < 18:
  30. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_yard_winter.jpg"></center>'
  31. else
  32. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_yard_winter_night.jpg"></center>'
  33. end
  34. end
  35. 'The yard in front of the hut.'
  36. '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.'
  37. if findvel = 3:'On the side of the hut is an old <a href="exec:gt ''bicycle'',''swamp''">bike</a>.'
  38. if hunters_off = 0 and hunters_sleep = 0 and huntersKnow = 0:'You spot some unfamiliar people standing in front of the hut.'
  39. if hunters_off = 0 and hunters_sleep = 0 and huntersKnow = 1:'You notice the <a href="exec: gt ''hunters'', ''check_opinion'' ">hunters</a> standing in the front yard.'
  40. if hunters_off = 1 and huntersKnow = 1:'Hunters are probably off hunting. Maybe you can find stuff to do around in the meantime?'
  41. if hunters_sleep = 1 and huntersKnow = 1:'Hunters are in the hut sleeping. Maybe you should go to sleep too'
  42. if huntersknow = 1:
  43. act 'Go into the hut':
  44. minut += 2
  45. gt 'swamphouse'
  46. end
  47. end
  48. act 'Approach the firepit': gt 'swamp_yard', 'campfire'
  49. act 'Look around the nearby woods': minut += 10 & gt 'swamp_yard', 'nearby_woods'
  50. !Conditional acts
  51. if dirty_swamp_yard > 5: act 'Clean up the trash outside': gs 'hunter_favors', 'yard_cleanup'
  52. if hunter_collective_opinion < 10: act '<b>Escape to the swamp</b>': gs 'swamp_yard', 'swamp_escape'
  53. if hunterhelp = 1: gs 'swamp_yard', 'rescued_from_swamp'
  54. if huntersKnow = 0:
  55. if hunterhelp = 2:
  56. gs 'hunter_interactions', 'meet_hunters_after_rescue'
  57. else
  58. act 'Approach the men': gt 'hunter_interactions', 'meet_hunters'
  59. end
  60. end
  61. gs 'hunter_ambient', 'schedule'
  62. if hour >= 8 and hour < 20: gs 'swamp_yard', 'daytime_flavor_events'
  63. if hour >= 20 and hour < 24: gs 'swamp_yard', 'nighttime_flavor_events'
  64. end
  65. !Code blocks for leaf events (events not calling other events)
  66. if $ARGS[0] = 'swamp_escape':
  67. !add chance to swamped by illume
  68. if hunters = 1:
  69. if hour >= 6 and hour < 21:
  70. minut += 5
  71. if rand(1,10)>9:
  72. gt 'swamp'
  73. else
  74. gt 'gadforestswamp','2'
  75. end
  76. else
  77. *clr & cla
  78. gs 'stat'
  79. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
  80. 'As you start moving into the swamp Igor calls after you.'
  81. !TODO: Different line depending on opinion and slut
  82. '"<<$pcs_nickname>>, where are you going? You will get stuck in there!'
  83. act 'Turn back':gt 'swamp_yard'
  84. act 'Ignore him and keep going':
  85. minut += 5
  86. !TODO: Add skill clothing and temp check here instead of praying to RNGesus
  87. if rand(1,10)>8:
  88. gt 'swamp'
  89. else
  90. gt 'gadforestswamp','2'
  91. end
  92. end
  93. end
  94. else
  95. minut += 5
  96. !TODO: Here too, also see how to avoid duplicating. Maybe create a child event node?
  97. if (hour >= 6 and hour < 21) or rand(1,10)>7:
  98. gt 'swamp'
  99. else
  100. gt 'gadforestswamp','2'
  101. end
  102. end
  103. gt 'gadforestswamp','2'
  104. end
  105. if $ARGS[0] = 'rescued_from_swamp':
  106. *clr & cla
  107. minut += 5
  108. gs 'stat'
  109. if $clothingworntype ! 'nude':
  110. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterhelp.jpg"></center>'
  111. else
  112. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterhelp1.jpg"></center>'
  113. end
  114. if $clothingworntype = 'nude':
  115. if huntersKnow = 0:
  116. if pcs_apprnc >= 100:
  117. '"Are you... a mermaid?" You hear one of the men blurt out before blushing'
  118. else
  119. 'What the hell happened to you? Are you alright?'
  120. end
  121. end
  122. if huntersKnow = 1 and huntersKnowSlut = 0:'"<<$pcs_nickname>>, what happened to you? Where are your clothes?" Andrei said concernedly.'
  123. if huntersKnow = 1 and huntersKnowSlut = 1:'Well isn''t this our favorite damsel in distress. And she''s even naked and ready for us so we can jump straight to the happy ending! Andrei grinned.'
  124. end
  125. if huntersKnow = 0:
  126. 'The hunters help you to a dry place. For some time you just sit there, staring blankly ahead, trying to catch your breath. After a while feeling better you decide to find out where you are and who it was that saved you.'
  127. act 'Look':hunterhelp = 2 & gt 'swamp_yard'
  128. else
  129. 'The hunters help you to a dry place. For some time you just sit there, staring blankly ahead, trying to catch your breath. After a short rest you go out to the yard.'
  130. act 'Further':hunterhelp = 0 & gt 'swamp_yard'
  131. end
  132. end
  133. !TODO: Move these to the interactions or favors files
  134. !TODO: Redo the events here after working on the other locations
  135. if $ARGS[0] = 'confronted_after_drunken_gangbang':
  136. if huntdanceslut = 1:
  137. cla
  138. *clr
  139. minut+=5
  140. gs 'stat'
  141. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/andreihanter.jpg"></center>'
  142. 'As soon as you walk into the yard, you immediately walk up to Andrei.'
  143. '"I need to talk to you, <<$pcs_nickname>>," he said. "Can you recall what happened last night?"'
  144. '"Well... uh... Yes, I think I can..." you reply, blushing, staring down at the ground.'
  145. '"I used to say that you look just like your mother," said Andrei looking at you. "After your little show yesterday, as it turns out, the resemblance doesn''t stop at just the looks."'
  146. 'Andrei paused looking at you while you try to collect your thoughts to understand what he''s trying to imply.'
  147. '"To be frank, you''re as slutty as your mother was in her youth, the apple doesn''t fall far away from the tree as they say..." he chuckles. "Take it as a compliment."'
  148. 'You look at Andrei, completely stunned by what you just heard.'
  149. '"And what are sluts best at?" he continues. "That''s right, to pleasure men. Don''t you agree?"'
  150. if pcs_dom > 0 and alko < 8:act'Refuse':huntdanceslut = 3 & gt 'hunters', 'start'
  151. act'Agree':huntdanceslut = 2 & gt 'hunters', 'start'
  152. end
  153. end
  154. !Assorted sex scenes specifically for the yard
  155. if $ARGS[0] = 'skirt_breeze':
  156. if CloSkirtShortness > 1 and $pantyworntype = 'none':
  157. *clr & cla
  158. hunter_sexual_comfort += 2
  159. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/no_tanga.jpg"></center>'
  160. 'You walk across the yard, when suddenly the wind lifts your skirt.'
  161. '"I forgot to put on panties...," you realize this seeing your bare pussy.'
  162. 'You nervously started looking around if anyone caught a glimpse of your little wardrobe malfunction...'
  163. 'You hoped that the men missed the opportunity seeing you exposed, however, Igor''s face had turned red and you see Andrei grinning, you realize quite quickly that your little show did not pass unappreciated.'
  164. gs 'arousal', 'flashlite', 1
  165. gs 'arousal', 'end'
  166. gs 'stat'
  167. act 'Further':gt 'swamp_yard'
  168. end
  169. end
  170. !Code blocks for branch events (events calling other events)
  171. if $ARGS[0] = 'campfire':
  172. !TODO: Add mechanic so that fire slowly goes through wood and extinguishes when there is no more left
  173. cla
  174. *clr
  175. menu_off = 1
  176. minut += 1
  177. gs 'stat'
  178. act 'Move away': gt 'swamp_yard', 'start'
  179. act 'Sit by the fire': gt 'swamp_yard', 'fireside'
  180. if campfire = 1:
  181. if hour >= 8 and hour < 20:
  182. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_day.jpg"></center>'
  183. else
  184. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_night.jpg"></center>'
  185. end
  186. 'A nice, warm campfire you can sit and relax by. You can use it to cook something or heat up some water to bathe.'
  187. 'You can also put it out with the bucket if there is enough water in it'
  188. if hunter_breakfast = 1 or hunter_lunch = 1 or hunters_drink = 1: 'You see hunters are also sitting by the fire'
  189. if bucket >= 3:
  190. act 'Put out the fire':
  191. cla & *clr
  192. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_put_out.jpg"></center>'
  193. 'You pour some water to extinguish the campfire'
  194. campfire = 0
  195. minut += 5
  196. bucket -= 3
  197. act 'Further': gt 'swamp_yard', 'campfire'
  198. end
  199. end
  200. if bucket > 0 and boletus > 0 and mushroom_soup = 0:
  201. act 'Cook some mushroom soup (0:30)': gs 'hunter_favors', 'mushroom_soup'
  202. end
  203. if bucket > 0 and raw_meat > 0 and meat_stew = 0:
  204. act 'Cook some meat stew (1:00)': gs 'hunter_favors', 'meat_stew'
  205. end
  206. if bucket >= 5 and hotwater = 0:
  207. act 'Heat up water (0:30)':
  208. cla
  209. *clr
  210. minut += 30
  211. bucket -= 5
  212. hotwater = 1
  213. water_heated += 1
  214. gs 'stat'
  215. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hotwater.jpg"></center>'
  216. *nl
  217. if water_heated > 5 and (inhibition < 85 or hunter_sexual_comfort > 25):
  218. '"It is too tedious to keep heatiing up water", you think to yourself.'
  219. else
  220. 'With the now heated water, you can bathe yourself in the tub.'
  221. end
  222. act 'Continue': gt 'swamp_yard', 'campfire'
  223. end
  224. end
  225. else:
  226. if hour >= 8 and hour < 20:
  227. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_out_day.jpg"></center>'
  228. else
  229. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_out_night.jpg"></center>'
  230. end
  231. 'You can use this firepit to light a fire, if you have some firewood available.'
  232. !TODO: Tie fire lighting to bushcraft, make hunters do it on their schedule or with Sveta asking
  233. if firewood >= 10:
  234. act 'Light fire':
  235. cla & *clr
  236. if $clothingworntype ! 'nude':
  237. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_light.jpg"></center>'
  238. else
  239. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/campfire_light_nude.jpg"></center>'
  240. end
  241. 'You use some chopped wood, dry branches and twigs to light a campfire in the firepit'
  242. firewood -= 10
  243. campfire = 1
  244. minut += 15
  245. act 'Further': gt 'swamp_yard', 'campfire'
  246. end
  247. elseif firewood > 1:
  248. *nl
  249. 'There is some wood and twigs by the pit but not enough to light a new fire'
  250. else
  251. 'You do not see any firewood nearby. You will probably need to collect some branches, chop some or ask a hunter to do so.'
  252. end
  253. end
  254. end
  255. if $ARGS[0] = 'fireside':
  256. cla & *clr
  257. act 'Get up': gt 'swamp_yard', 'start'
  258. if hunter_breakfast = 1 or hunter_lunch = 1:
  259. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters1.jpg"></center>'
  260. 'Hunters are also sitting around the campfire, talking and joking about all kinds of stuff before heading out hunting'
  261. act 'Chat (1:00)':
  262. gt 'hunter_interaction', 'chat_with_hunters'
  263. end
  264. !TODO: Flesh out the learning content here
  265. act 'Ask for some tips on how to survive in the woods (1:00)':
  266. hunter_lessons += 1
  267. *clr & cla
  268. if hunter_collective_opinion > 25:
  269. hunter_collective_opinion -= 1
  270. pcs_bushcraft += 1
  271. gs 'stat'
  272. minut += 60
  273. *nl
  274. 'Hunters talk to you about some of their experiences when they first started out'
  275. else
  276. if hunter_lessons > 10 AND hunter_sexual_comfort > 25:
  277. !TODO: Prototype implementation for the creekside event, to be revamped
  278. 'Sergei tells you to go by the creek for the next lesson about how to scope the area for a hunt.'
  279. hunter_lessons -= 8
  280. act 'Further': gt 'hunter_favors', 'creekside_gangbang_request'
  281. else
  282. minut += 20
  283. 'The hunters do not even bother to answer you. You simply sit in awkward silence for twenty minutes before getting to to other business'
  284. end
  285. end
  286. act 'Further': gt 'swamp_yard', 'campfire'
  287. end
  288. end
  289. if hunters_drink = 1:
  290. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/fireside_drink.jpg"></center>'
  291. 'Hunters are drinking and chatting loudly. You can join them for a chat, or maybe a drink or two if you would like'
  292. act 'Chat (1:00)':
  293. gt 'hunter_interactions', 'chat_with_hunters'
  294. end
  295. act 'Ask to join them for a drink':
  296. gt 'hunter_interactions', 'join_drinking'
  297. end
  298. end
  299. act 'Eat a meal':
  300. cla & *clr
  301. act 'Stop eating': gt 'swamp_yard', 'fireside'
  302. act 'Eat jerky and trail mix':
  303. !gs 'food', 'snack'
  304. *clr
  305. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/jerky_mix.jpg"></center>'
  306. 'You munch on some dried meat and trail mix. Not a full hot meal by any means but it''s better than nothing'
  307. pcs_hydra -= 15
  308. if pcs_energy >= 85:
  309. fat += 1
  310. pcs_energy += 20
  311. else
  312. pcs_energy += 30
  313. end
  314. gs 'stat'
  315. end
  316. if meat_stew > 0:
  317. act 'Eat meat stew':
  318. gs 'food', 'm_meal'
  319. *clr
  320. meat_stew -= 1
  321. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
  322. *nl
  323. if pcs_energy >= 100:
  324. fat += 5
  325. 'After having a healthy serving of meat stew, you feel stuffed.'
  326. elseif pcs_energy >= 80:
  327. fat += 3
  328. pcs_energy += 40
  329. 'You force yourself to have another sip of the meat stew.'
  330. else
  331. fat += 1
  332. pcs_energy += 30
  333. 'You''re enjoing some warm meat stew. Just what you needed.'
  334. end
  335. if pcs_hydra >= 100:
  336. pcs_hydra += 10
  337. else
  338. pcs_hydra += 20
  339. end
  340. *nl
  341. if meat_stew > 0:
  342. 'There''s <<meat_stew>> '+iif(meat_stew > 1, 'servings','serving')+' of stew left in the pot'
  343. else
  344. 'You have finished the last of the stew, the pot is empty.'
  345. end
  346. gs 'stat'
  347. end
  348. end
  349. if mushroom_soup > 0:
  350. act 'Eat mushroom soup':
  351. gs 'food', 'm_meal'
  352. *clr
  353. mushroom_soup -= 1
  354. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
  355. *nl
  356. if pcs_energy >= 100:
  357. fat += 3
  358. 'After having a healthy serving of mushroom soup, you feel stuffed.'
  359. elseif pcs_energy >= 80:
  360. fat += 1
  361. pcs_energy += 30
  362. 'You force yourself to have another sip of the mushroom soup.'
  363. else
  364. pcs_energy += 20
  365. 'You''re enjoing some warm mushroom soup. Just what you needed.'
  366. end
  367. if pcs_hydra >= 100:
  368. pcs_hydra += 20
  369. else
  370. pcs_hydra += 40
  371. end
  372. *nl
  373. if mushroom_soup > 0:
  374. 'There''s <<mushroom_soup>> '+iif(mushroom_soup > 1, 'servings','serving')+' of soup left in the pot'
  375. else
  376. 'You have finished the last of the soup, the pot is empty.'
  377. end
  378. gs 'stat'
  379. end
  380. end
  381. if bilberry > 0:
  382. act 'Eat berries':
  383. *clr
  384. minut += 20
  385. pcs_energy += 10
  386. pcs_hydra += 10
  387. bilberry -= 1
  388. pcs_willpwr += 5
  389. pcs_health += 5
  390. pcs_mood += 10
  391. gs 'stat'
  392. '<center><img src="images/locations/gadukino/forest/bilberry.jpg"></center>'
  393. 'You ate a few berries.'
  394. end
  395. end
  396. end
  397. if alko > 8:
  398. gt 'hunter_interactions', 'drunken_blackout'
  399. end
  400. end
  401. !Auxilliary locations
  402. if $ARGS[0] = 'nearby_woods':
  403. gt 'swamp_woods'
  404. end
  405. if $ARGS[0] = 'daytime_flavor_events':
  406. if rand(1,50) = 1:
  407. gs 'swamp_yard', 'skirt_breeze'
  408. elseif rand(1,20) = 1:
  409. gs 'hunter_favors', 'housekeeping_request'
  410. elseif rand(1,25) = 1 and hunter_breakfast = 1 or hunter_lunch = 1 or hunters_drink = 1:
  411. gs 'hunter_ambient' , 'yard_convo'
  412. elseif rand(1, hunter_sexual_comfort / 4 + 2) = 1:
  413. gs 'hunter_interactions', 'naked_encounter'
  414. elseif rand(1,15) = 1:
  415. gs 'hunter_ambient', 'bring_food'
  416. end
  417. end
  418. if $ARGS[0] = 'nighttime_flavor_events':
  419. !TODO: Add stuff here
  420. end
  421. --- swamp_yard ---------------------------------