swamphouse.qsrc 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746
  1. # swamphouse
  2. if $ARGS[0] = 'start' or $ARGS[0] = '':
  3. $location_type = 'indoors'
  4. $loc = 'swamphouse'
  5. $metka = 'start'
  6. $menu_loc = 'swamphouse'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. frost = 0
  10. bonusZ = 0
  11. clr
  12. gs 'stat'
  13. gs 'themes', 'indoors'
  14. huntslutsexrand = rand(1,3)
  15. temp_sh = rand(1,5)
  16. clothesAtLocation = FUNC('lost_clothes_here','swamphouse')
  17. '<center><H4>Hut</H4></center>'
  18. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampizba.jpg"></center>'
  19. *nl
  20. 'A small hunting cabin. The cabin contains a small room with a low ceiling.'
  21. *nl
  22. 'You see a <a href="exec: gt ''bed'', ''start''">couch</a> where you can lie down and sleep.'
  23. *nl
  24. if bucket > 0:
  25. 'There''s a <a href="exec: gs ''swamphouse'', ''bucket'' ">bucket</a> placed in the corner, filled with water collected from the spring.'
  26. else
  27. 'There''s an empty bucket placed in the corner. It needs refilling with water from the spring.'
  28. end
  29. 'You see an old <a href="exec: gs ''swamphouse'', ''washstand'' ">washstand</a> you can use to wash your hands and face. There is a well-used <a href="exec: gs ''swamphouse'', ''tub''">tub</a> nearby, that you can use to bathe in.'
  30. *nl
  31. 'There''s a stack of old <a href="exec: gs ''swamphouse'', ''stackmagazines''">magazines</a>, most likely used for ignition.'
  32. *nl
  33. if clothesAtLocation = 1:'Your clothes are laying on the shelf.'
  34. *nl
  35. if hour = 20 and hunters = 1 and huntersKnow > 0 or hour = 7 and hunters = 1 and huntersKnow > 0:
  36. 'The <a href="exec: gs ''hunters'', ''check_opinion''">hunters</a> are sitting around the table talking.'
  37. elseif hour > 20 and hour < 23 and hunters = 1 and huntersKnow > 0:
  38. 'You see the <a href="exec: gs ''hunters'', ''check_opinion''">hunters</a> hanging out in the hut.'
  39. elseif hour = 23 and hunters = 1 and huntersKnow > 0 or hour >= 0 and hour < 7 and hunters = 1 and huntersKnow > 0:
  40. 'The hunters are sleeping on the couch.'
  41. else
  42. 'The hunters aren''t here right now'
  43. end
  44. *nl
  45. act 'Go outside':
  46. minut += 2 & gt 'swamp_yard'
  47. end
  48. act 'Sit on the table':
  49. gt 'swamphouse', 'meal_table'
  50. end
  51. !re-arrange it, there should be no logic error now by illume
  52. if $clothingworntype ! 'nude':
  53. !have cloth, or rag on
  54. act 'Get undressed':
  55. if hunter_sexual_comfort > 50 or hour >= 8 and hour < 20:
  56. cla
  57. *clr
  58. minut+=5
  59. if $clothingworntype ! 'nude':
  60. gs 'clothing', 'strip', 'swamphouse'
  61. end
  62. gs 'underwear', 'remove'
  63. gs 'stat'
  64. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphouseundress.jpg"></center>'
  65. 'Feeling the heat in the cabin, you start removing your clothes.'
  66. act 'Back': gt 'swamphouse', 'start'
  67. else
  68. cla
  69. *clr
  70. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  71. 'Despite the heat you''re still too shy to get undressed - what if someone suddenly comes in?'
  72. act 'Back': gt 'swamphouse', 'start'
  73. end
  74. end
  75. end
  76. if clothesAtLocation = 1 and swamp_clothes = 0:
  77. !clothes are ready
  78. if $clothingworntype = 'nude':
  79. act 'Get dressed':
  80. cla
  81. *clr
  82. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude1.jpg"</center>'
  83. *nl
  84. 'You put your clothes back on.'
  85. gs 'underwear', 'wear'
  86. gs 'clothing', 'recover_lost_clothes', 'swamphouse', 1
  87. gs 'stat'
  88. act 'Back': gt 'swamphouse', 'start'
  89. end
  90. else
  91. act 'Pick up your clothes':
  92. cla
  93. *clr
  94. gs 'clothing', 'recover_lost_clothes', 'swamphouse'
  95. 'You picked up your clothes.'
  96. act 'Back': gt 'swamphouse', 'start'
  97. end
  98. end
  99. elseif swamp_clothes = 1:
  100. if $clothingworntype = 'nude':
  101. act 'Wear hessian sack':
  102. cla
  103. *clr
  104. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
  105. *nl
  106. 'You cover yourself with the hessian sack'
  107. gs 'clothing', 'recover_lost_clothes', 'swamphouse'
  108. gs 'clothing', 'swamp_clothes', 1
  109. gs 'stat'
  110. act 'Back': gt 'swamphouse', 'start'
  111. end
  112. end
  113. end
  114. if pcs_horny >= 50 and hunters = 0 or pcs_horny >= 50 and hunters = 1 and hour >= 8 and hour < 20:
  115. !TODO: Add content for hunters being aroundd or walking in
  116. act 'Masturbate':
  117. gt 'selfplay', 'start'
  118. end
  119. end
  120. if $clothingworntype = 'nude' and swamp_clothes = 0 and clothesAtLocation = 0:
  121. act 'Look for some clothes':
  122. cla
  123. *clr
  124. minut += 10
  125. gs 'clothing', 'swamp_clothes', 1
  126. gs 'stat'
  127. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphouse_tkancloth.jpg"></center>'
  128. 'You find a piece of burlap... "Well, at least it''s something." you think to yourself.'
  129. act 'Back.': gt 'swamphouse', 'start'
  130. end
  131. end
  132. if breastpump > 0 and bp_unbox >= 1:
  133. act 'Use breast pump':
  134. gt 'lact_bp', 'bp_milking'
  135. end
  136. end
  137. if dirty_swamphouse > 25:act 'Clean the hut':hunter_collective_opinion += 3 & gs 'hunter_favors', 'dirty_swamphouse'
  138. !TODO: Move hunter behavior into its own code block
  139. if hour >= 20 and hour <= 23 and rand(1,2) = 1:
  140. huntersdrink = 1
  141. else
  142. huntersdrink = 0
  143. end
  144. act 'Relax on the couch': gt 'bed', 'start'
  145. !sex with Igor
  146. if huntersIgorLove > 0 and hour > 8 and hour < 19 and huntersIgorQw >= 10 and temp_sh = 1 and huntersIgorsex = 0:
  147. *clr & cla
  148. huntersIgorsex += rand(12,36)
  149. gs 'stat'
  150. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
  151. 'Entering the hut you see Igor. He smiles and walks over to you, grabs hold of you and gives you a passionate kiss.'
  152. '"<<$pcs_nickname>>, I want you," he whispers.'
  153. gs 'arousal', 'kiss', 5
  154. gs 'stat'
  155. act 'Agree':
  156. *clr & cla
  157. minut += 5
  158. huntersIgorQw += 1
  159. gs 'stat'
  160. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(4,6)+'.jpg"></center>'
  161. 'Smiling you look straight into Igor''s eyes telling him all he needs to know. Without any hesitation he takes you by the hand and leads you...'
  162. act 'Go with Igor': gt 'hunterLoveSex','Igor'
  163. end
  164. act 'Refuse':
  165. *clr & cla
  166. minut += 5
  167. huntersIgorQw -= 1
  168. gs 'stat'
  169. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  170. '"I''m sorry, Igor. I''m not in the mood." you say avoiding eye contact. Igor leaves disappointed...'
  171. act 'Walk away': gt 'swamphouse', 'start'
  172. end
  173. end
  174. !sex with Sergei
  175. if huntersSergeiLove > 0 and pcs_horny <= 60 and huntersSergeiQw >= 10 and temp_sh = 1 and huntersSergeisex = 0 and hour > 8 and hour < 19:
  176. *clr & cla
  177. huntersSergeisex += rand(9,30)
  178. gs 'stat'
  179. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
  180. 'Entering the hut you see Sergei. He smiles and walks over to you, grabs hold of you and gives you a passionate kiss.'
  181. '"<<$pcs_nickname>>, I want you," he whispers.'
  182. gs 'arousal', 'kiss', 5
  183. gs 'stat'
  184. act 'Agree':
  185. *clr & cla
  186. minut += 5
  187. huntersSergeiQw += 1
  188. gs 'stat'
  189. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(4,6)+'.jpg"></center>'
  190. 'Smiling you look straight into Sergei''s eyes telling him all he needs to know. Without any hesitation he takes you by the hand and leads you...'
  191. act 'Go with Sergei': gt 'hunterLoveSex','Sergei'
  192. end
  193. act 'Refuse':
  194. *clr & cla
  195. minut += 5
  196. huntersSergeiQw -= 1
  197. gs 'stat'
  198. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  199. '"I''m sorry, Sergei. I''m not in the mood." you say avoiding eye contact. Sergei leaves disappointed...'
  200. act 'Walk away': gt 'swamphouse', 'start'
  201. end
  202. end
  203. ! sex with Andrew
  204. if huntersAndreiLove > 0 and pcs_horny <= 60 and huntersAndreiQw >= 10 and temp_sh = 1 and huntersAndreisex = 0 and hour > 8 and hour < 19:
  205. *clr & cla
  206. huntersAndreisex += rand(6,24)
  207. gs 'stat'
  208. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
  209. 'Entering the hut you see Andrei. He smiles and walks over to you, grabs hold of you and gives you a passionate kiss.'
  210. '"<<$pcs_nickname>>, I want you," he whispers.'
  211. gs 'arousal', 'kiss', 5
  212. gs 'stat'
  213. act 'Agree':
  214. *clr & cla
  215. minut += 5
  216. huntersAndreiQw += 1
  217. pcs_horny += 5
  218. gs 'stat'
  219. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterhands.jpg"></center>'
  220. 'Smiling you look straight into Andrei''s eyes telling him all he needs to know. Without any hesitation he takes you by the hand and leads you...'
  221. act 'Go with Andrei': gt 'hunterLoveSex','Andrei'
  222. end
  223. act 'Refuse':
  224. *clr & cla
  225. minut += 5
  226. huntersAndreiQw -= 1
  227. gs 'stat'
  228. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  229. '"I''m sorry, Andrei. I''m not in the mood." you say avoiding eye contact. Andrei leaves disappointed...'
  230. act 'Walk away': gt 'swamphouse', 'start'
  231. end
  232. end
  233. ! trio of HS, Andrei and Sergei, if love
  234. if hunters > 0 and doublehunterlove = 1 and hour >= 8 and hour < 20 and (huntersAndreisex = 0 or huntersSergeisex = 0):
  235. *clr & cla
  236. minut += 5
  237. huntersAndreisex += rand(6,24)
  238. huntersSergeisex += rand(9,30)
  239. gs 'stat'
  240. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterswork1.2.jpg"></center>'
  241. 'You see Andrei talking with Sergei in the hut.'
  242. '"Come in <<$pcs_nickname>>, it''s time to consummate the marriage," Andrew jokingly remarked. "I hope you''re willing to do anything we say.'
  243. if klismaday ! daystart:'"I''m sorry, I don''t know if I''m ready yet..." you say . "I haven''t been able to clean myself as you asked, maybe we could skip it this time?.'
  244. if klismaday ! daystart:'Well, we could <<$pcs_nickname>>..." said Andrew. "But since you''re already here, you not being all dolled up doesn''t matter to us. But don''t dare to try to fool us next time, we will not forget."'
  245. '"There are some bushes not far from here, we could take her with us there, no one would be able to find us. Should we tell Igor to join us?" said Sergei. "Nevermind Igor, it would take him to long time to join us."'
  246. act 'Follow the guys':
  247. *clr & cla
  248. minut += 5
  249. huntersAndreiQw += 1
  250. huntersSergeiQw += 1
  251. pcs_horny += 5
  252. doublelovesex = 1
  253. hunterslut += 1
  254. temphunt = 1
  255. if klismaday ! daystart:hunterslut += 1
  256. gs 'stat'
  257. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/doublehanterlove.jpg"></center>'
  258. 'The men hold your hands leading you away from the hut. You''re fully aware of their plans but you don''t really mind.'
  259. act 'Continue': gt 'huntersex', 'doublelovesex'
  260. end
  261. act 'Refuse':
  262. *clr & cla
  263. minut += 5
  264. huntersAndreiQw -= 1
  265. huntersSergeiQw -= 1
  266. gs 'stat'
  267. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  268. '"No, I refuse, this is something I don''t want part of," you say and without hesitating you turn around and walk away.'
  269. act 'Walk away': gt 'swamphouse', 'start', 'doublelovesex'
  270. end
  271. end
  272. !if GG naked and hunters in the hut
  273. if $clothingworntype = 'nude' and hunters = 1 and hour >= 20 and hour < 23 and hunterknowday ! daystart or $clothingworntype = 'nude' and hunters = 1 and hour = 7 and hunterknowday ! daystart:
  274. cla
  275. *clr
  276. temp_sh =rand(1,3)
  277. gs 'stat'
  278. if huntersKnowSlut = 0:
  279. cla
  280. *clr
  281. gs 'stat'
  282. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude.jpg"></center>'
  283. 'You hear the hunters nearing the hut, grabbing the handle, about to open the door. You quickly hide your privare parts behind the hands...'
  284. if clothesAtLocation = 1:
  285. act 'Get dressed':
  286. cla
  287. *clr
  288. minut += 5
  289. gs 'underwear', 'wear'
  290. gs 'clothing', 'recover_lost_clothes', 'swamphouse', 1
  291. !tkan_cloth = 0
  292. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude1.jpg"></center>'
  293. 'You look around searching for your clothes. When you spot them, you dash over to grab them.'
  294. act 'Continue': gt 'swamphouse', 'start'
  295. end
  296. else
  297. act 'Cover yourself':
  298. cla
  299. *clr
  300. minut+=5
  301. gs 'clothing', 'swamp_clothes', 1
  302. gs 'stat'
  303. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
  304. 'You look around searching for your clothes but can''t seem to find them, instead you hide behind a piece of hessian... It''s better than nothing.'
  305. act 'Continue': gt 'swamphouse', 'start'
  306. end
  307. end
  308. act 'Stay naked':
  309. cla
  310. *clr
  311. hunterslut += 1
  312. hunterknowday = daystart
  313. gs 'stat'
  314. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
  315. 'You take a deep breath and decided to disregard your nerves and leave it as it is. Upon entering the hut, the hunters can''t help themselves, they start staring at your most private parts.'
  316. '"Damn, <<$pcs_nickname>>, you look really good. The things I would want to do to you..." said a somewhat aroused Andrei.'
  317. act 'Continue': gt 'swamphouse', 'start'
  318. end
  319. end
  320. if huntersKnowSlut > 0:
  321. if huntslutsex = 0:
  322. *clr & cla
  323. gs 'stat'
  324. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
  325. 'Seeing you naked, the men get quickly aroused...'
  326. '"Come here <<$pcs_nickname>>, come to us," one of the guys calls out to you.'
  327. act 'Continue':huntersexnude = 1 & gt 'huntersex', 'huntersexnude'
  328. else
  329. hunterknowday = daystart
  330. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
  331. 'Seeing you naked, the men just shake their heads...'
  332. '"Look here <<$pcs_nickname>>, if you want to charm us, you will need to think of something else." said one of the guys.'
  333. act 'Continue': gt 'swamphouse', 'start'
  334. end
  335. end
  336. end
  337. ! sex if GG whore
  338. if hunters > 0 and huntersRape = 5 and huntslutsexrand = 1 and huntslutsex = 0 and hour >= 7 and hour < 23:
  339. *clr & cla
  340. minut += 5
  341. temphunt = rand(1,3)
  342. ! the choice of who will fuck GG
  343. sluthomesex = 1
  344. gs 'stat'
  345. if temphunt = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/andreihanter.jpg"></center>'
  346. if temphunt = 2:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/sergeihanter.jpg"></center>'
  347. if temphunt = 3:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
  348. if temphunt = 1:'You enter the hut and bump into Andrei. "Come here <<$pcs_nickname>>," not saying anything more while he throws you on the bed.'
  349. if temphunt = 2:'You enter the hut and bump into Sergei. Noticing you he heads toward you saying "<<$pcs_nickname>>, I''ve got an itch that only you can help scratch."'
  350. if temphunt = 3:'You enter the hut and bump into Igor. He comes over saying smiling "<<$pcs_nickname>>, I need to empty my sack, help me out..."'
  351. if pcs_horny < 40:' You obediently follow suit, knowing what he wants.'
  352. if pcs_horny >= 40 and pcs_horny < 70:'"Come and get me..." is all you manage to say before spreading your legs.'
  353. if pcs_horny >= 70:'"I was hoping this would happen," you think to yourself, feeling your wet pussy screaming with desire. You jump on him, taking charge, leaving him stunned about who wants it more.'
  354. act 'Go': gt 'huntersex', 'sluthomesex'
  355. end
  356. end
  357. if $ARGS[0] = 'bucket':
  358. cla
  359. *clr
  360. menu_off = 1
  361. if bucket > 10:bucket = 10
  362. minut += 1
  363. act 'Move Away': gt 'swamphouse', 'start'
  364. gs 'stat'
  365. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/vedro2.jpg"></center>'
  366. 'A bucket of water. There''s still <<bucket>> liters of water left.'
  367. act 'Drink the water':
  368. cla
  369. minut+=5
  370. cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
  371. bucket -= 1
  372. if pcs_hydra >= 100:
  373. 'You''re not thirsty anymore. You don''t need to drink more water.'
  374. else
  375. pcs_hydra += 80
  376. cumspclnt = 2
  377. gs 'cum_cleanup'
  378. pcs_breath = 0
  379. 'You take a sip from bucket, quenching your thirst.'
  380. end
  381. act 'Continue': gt 'swamphouse', 'start'
  382. end
  383. end
  384. if $ARGS[0] = 'washstand':
  385. cla
  386. *clr
  387. menu_off = 1
  388. minut += 1
  389. gs 'stat'
  390. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/washstand.jpg"></center>'
  391. 'An old washstand. You can use the basin to clean yourself, if necessary.'
  392. if bucket > 0:
  393. !use current by illume
  394. dynamic $basin
  395. end
  396. act 'Move away': gt 'swamphouse', 'start'
  397. end
  398. if $ARGS[0] = 'meal_table':
  399. cla & *clr
  400. act 'Get off the table':
  401. gt 'swamphouse', 'start'
  402. end
  403. if hour >= 21 and hour < 23 :
  404. huntersdrink = 1
  405. else
  406. huntersdrink = 0
  407. end
  408. !TODO: Do a hunter in hut behavior check rather than hard coding it into the time
  409. if (hour >= 20 and hour < 23) or (hour >= 7 and hour < 8):
  410. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterstable.jpg"></center>'
  411. 'You join the hunters on the meal table.'
  412. act 'Chat (1:00)':
  413. *clr & cla
  414. minut += 60
  415. hunter_collective_opinion += 1
  416. gs 'stat'
  417. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterstable.jpg"></center>'
  418. *nl
  419. 'You start chating with the guys about trivial stuff...'
  420. act 'Move away from the table': gt 'swamphouse', 'start'
  421. end
  422. else
  423. if $clothingworntype ! 'nude':
  424. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/table_lone.jpg"></center>'
  425. else
  426. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/table_lone_nude.jpg"></center>'
  427. end
  428. 'You sit on the table by yourself'
  429. end
  430. if huntersdrink = 1:
  431. 'Hunters are drinking and chatting loudly. You can join them for a drink or two if you would like'
  432. act 'Have a drink':
  433. gs 'hunter_interactions', 'drink_with_hunters'
  434. end
  435. end
  436. act 'Eat a meal':
  437. cla & *clr
  438. act 'Get up from the table': gt 'swamphouse', 'start'
  439. act 'Eat jerky and trail mix':
  440. !gs 'food', 'snack'
  441. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/jerky_mix.jpg"></center>'
  442. 'You munch on some dried meat and trail mix. Not a full hot meal by any means but it''s better than nothing'
  443. pcs_hydra -= 15
  444. if pcs_energy >= 85:
  445. fat += 1
  446. pcs_energy += 20
  447. else
  448. pcs_energy += 30
  449. end
  450. gs 'stat'
  451. end
  452. if meat_stew > 0:
  453. act 'Eat meat stew':
  454. gs 'food', 'm_meal'
  455. *clr
  456. meat_stew -= 1
  457. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
  458. *nl
  459. if pcs_energy >= 100:
  460. fat += 5
  461. 'After having a healthy serving of meat stew, you feel stuffed.'
  462. elseif pcs_energy >= 80:
  463. fat += 3
  464. pcs_energy += 40
  465. 'You force yourself to have another sip of the meat stew.'
  466. else
  467. fat += 1
  468. pcs_energy += 30
  469. 'You''re enjoing some warm meat stew. Just what you needed.'
  470. end
  471. if pcs_hydra >= 100:
  472. pcs_hydra += 10
  473. else
  474. pcs_hydra += 20
  475. end
  476. *nl
  477. if meat_stew > 0:
  478. 'There''s <<meat_stew>> '+iif(meat_stew > 1, 'servings','serving')+' of stew left in the pot'
  479. else
  480. 'You have finished the last of the stew, the pot is empty.'
  481. end
  482. gs 'stat'
  483. end
  484. end
  485. if mushroom_soup > 0:
  486. act 'Eat mushroom soup':
  487. gs 'food', 'm_meal'
  488. *clr
  489. mushroom_soup -= 1
  490. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/soup.jpg"></center>'
  491. *nl
  492. if pcs_energy >= 100:
  493. fat += 3
  494. 'After having a healthy serving of mushroom soup, you feel stuffed.'
  495. elseif pcs_energy >= 80:
  496. fat += 1
  497. pcs_energy += 30
  498. 'You force yourself to have another sip of the mushroom soup.'
  499. else
  500. pcs_energy += 20
  501. 'You''re enjoing some warm mushroom soup. Just what you needed.'
  502. end
  503. if pcs_hydra >= 100:
  504. pcs_hydra += 20
  505. else
  506. pcs_hydra += 40
  507. end
  508. *nl
  509. if mushroom_soup > 0:
  510. 'There''s <<mushroom_soup>> '+iif(mushroom_soup > 1, 'servings','serving')+' of soup left in the pot'
  511. else
  512. 'You have finished the last of the soup, the pot is empty.'
  513. end
  514. gs 'stat'
  515. end
  516. end
  517. if bilberry > 0:
  518. act 'Eat berries':
  519. cla
  520. *clr
  521. minut += 20
  522. pcs_energy += 10
  523. pcs_hydra += 10
  524. bilberry -= 1
  525. pcs_willpwr += 5
  526. pcs_health += 5
  527. pcs_mood += 10
  528. gs 'stat'
  529. '<center><img src="images/locations/gadukino/forest/bilberry.jpg"></center>'
  530. 'You ate a few berries.'
  531. end
  532. end
  533. end
  534. end
  535. if $ARGS[0] = 'tub':
  536. cla
  537. *clr
  538. minut += 1
  539. menu_off = 1
  540. gs 'stat'
  541. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basin.jpg"></center>'
  542. *nl
  543. 'An old tub, that you can use to bathe yourself. It''s a lot warmer than using the spring! You just need to warm some water, and get undressed first.'
  544. if hotwater = 1 and ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
  545. act 'Bathe in the tub (0:30)':
  546. cla
  547. *clr
  548. dynamic $showerdin
  549. face_write = 0
  550. body_write = 0
  551. lubonus = 0
  552. pcs_mood += 5
  553. pcs_willpwr += 10
  554. minut += 30
  555. hotwater = 0
  556. gs 'stat'
  557. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinswim.jpg"></center>'
  558. *nl
  559. 'You fill the tub with warm water, take off your clothes, and climbe into the tub. After a good clean and soak, you feel rejuvenated.'
  560. act 'Continue': gt 'swamphouse', 'start'
  561. end
  562. end
  563. act 'Move away': gt 'swamphouse', 'start'
  564. end
  565. if $ARGS[0] = 'clothes_read_magazines':
  566. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readmagazines.jpg"></center>'
  567. if $clothingworntype = 'nude' and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readmagazines_tanga.jpg"></center>'
  568. if $clothingworntype = 'nude' and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readmagazines_nude.jpg"></center>'
  569. end
  570. if $ARGS[0] = 'stackmagazines':
  571. cla
  572. *clr
  573. menu_off = 1
  574. minut += 1
  575. gs 'stat'
  576. act 'Move away': gt 'swamphouse', 'start'
  577. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/stackmagazines.jpg"></center>'
  578. *nl
  579. 'A stack of all kinds of magazines, there''s even one with "interesting" pictures.'
  580. act 'Read the scientific journal (1:00)':
  581. cla
  582. *clr
  583. if pcs_nerd > 0:
  584. lastread = totminut
  585. lastreadday = daystart
  586. pcs_nerd += 10
  587. end
  588. if pcs_intel >= 50:intel_exp += RAND(0,1)
  589. if pcs_intel < 50:intel_exp += RAND(0,2)
  590. blizoruk+=1
  591. pcs_mood += 10
  592. minut += 60
  593. gs 'stat'
  594. gs 'swamphouse', 'clothes_read_magazines'
  595. 'You decide to look through the scientific journal, trying to understand all sorts of clever things written in the magazine.'
  596. act 'Continue': gs 'swamphouse', 'stackmagazines'
  597. end
  598. act 'Read the literary magazine (1:00)':
  599. cla
  600. *clr
  601. if pcs_nerd > 0:
  602. lastread = totminut
  603. lastreadday = daystart
  604. pcs_nerd += 10
  605. end
  606. if pcs_sprt >= 50:sprt_exp += RAND(0,1)
  607. if pcs_sprt < 50:sprt_exp += RAND(0,2)
  608. blizoruk+=1
  609. pcs_mood += 10
  610. minut += 60
  611. pcs_grades+=1
  612. gs 'stat'
  613. gs 'swamphouse', 'clothes_read_magazines'
  614. 'You decided to look through the literary magazine... It''s a real drag, you almost fall asleep several times while reading it.'
  615. act 'Continue': gs 'swamphouse', 'stackmagazines'
  616. end
  617. act 'Read the entertainment magazine (1:00)':
  618. cla
  619. *clr
  620. if pcs_nerd > 0:
  621. lastread = totminut
  622. lastreadday = daystart
  623. pcs_nerd += 10
  624. end
  625. if pcs_sprt >= 50:sprt_exp += RAND(0,1)
  626. if pcs_sprt < 50:sprt_exp += RAND(0,2)
  627. blizoruk+=1
  628. pcs_mood += 10
  629. pcs_willpwr += 100
  630. minut += 60
  631. gs 'stat'
  632. gs 'swamphouse', 'clothes_read_magazines'
  633. 'You flick entertainment magazine, you delve into the world of the rich and famous.'
  634. act 'Continue': gs 'swamphouse', 'stackmagazines'
  635. end
  636. act 'Read the porn magazine (1:00)':
  637. cla
  638. *clr
  639. blizoruk+=1
  640. pcs_mood += 10
  641. pcs_willpwr += 100
  642. gs 'stat'
  643. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readpornomag.jpg"></center>'
  644. if $clothingworntype = 'nude' and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readpornomag_tanga.jpg"></center>'
  645. if $clothingworntype = 'nude' and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readpornomag_nude.jpg"></center>'
  646. *nl
  647. 'You''re flipping through a porn magazine, reading the stories and looking at pictures, when all of a sudden you realize you''ve started touching yourself.'
  648. gs 'arousal', 'voyeur', 60
  649. gs 'arousal', 'end'
  650. gs 'stat'
  651. act 'Continue': gs 'swamphouse', 'stackmagazines'
  652. end
  653. end
  654. if $ARGS[0] = 'huntersrelax':
  655. cla
  656. *clr
  657. minut += 1
  658. menu_off = 1
  659. gs 'stat'
  660. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hantersrelax1.'+rand(1,8)+'.jpg"></center>'
  661. *nl
  662. 'You see the hunters in the hut minding their own business.'
  663. act 'Speak with Andrei': gt 'Andreihunter'
  664. act 'Speak with Sergei': gt 'Sergeihunter'
  665. act 'Speak with Igor': gt 'Igorhunter'
  666. act 'Move away': gt 'swamphouse', 'start'
  667. end
  668. --- swamphouse ---------------------------------