1
0

swamphouse.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604
  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. gs 'hunter_ambient', 'schedule'
  18. '<center><H4>Hut</H4></center>'
  19. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampizba.jpg"></center>'
  20. *nl
  21. 'A small hunting cabin. The cabin contains a small room with a low ceiling.'
  22. *nl
  23. 'You see a <a href="exec: gt ''bed'', ''start''">couch</a> where you can lie down and sleep.'
  24. *nl
  25. if bucket > 0:
  26. 'There''s a <a href="exec: gs ''swamphouse'', ''bucket'' ">bucket</a> placed in the corner, filled with water collected from the spring.'
  27. else
  28. 'There''s an empty bucket placed in the corner. It needs refilling with water from the spring.'
  29. end
  30. '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.'
  31. *nl
  32. 'There''s a stack of old <a href="exec: gs ''swamphouse'', ''stackmagazines''">magazines</a>, most likely used for ignition.'
  33. *nl
  34. if clothesAtLocation = 1:'Your clothes are laying on the shelf.'
  35. *nl
  36. if hour >= 23 and hunters = 1 and huntersKnow > 0:
  37. 'You see the <a href="exec: gs ''hunters'', ''check_opinion''">hunters</a> hanging out in the hut.'
  38. elseif hunters = 1 and huntersKnow > 0 and hour >= 0 and hour < 7 and hunters = 1 and huntersKnow > 0:
  39. 'The hunters are sleeping on the couch.'
  40. else
  41. 'The hunters aren''t here right now'
  42. end
  43. *nl
  44. act 'Go outside':
  45. minut += 2 & gt 'swamp_yard'
  46. end
  47. !re-arrange it, there should be no logic error now by illume
  48. if $clothingworntype ! 'nude':
  49. !have cloth, or rag on
  50. act 'Get undressed':
  51. if hunter_sexual_comfort > 50 or hour >= 8 and hour < 20:
  52. cla
  53. *clr
  54. minut+=5
  55. if $clothingworntype ! 'nude':
  56. gs 'clothing', 'strip', 'swamphouse'
  57. end
  58. gs 'underwear', 'remove'
  59. gs 'stat'
  60. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphouseundress.jpg"></center>'
  61. 'Feeling the heat in the cabin, you start removing your clothes.'
  62. act 'Back': gt 'swamphouse', 'start'
  63. else
  64. cla
  65. *clr
  66. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  67. 'Despite the heat you''re still too shy to get undressed - what if someone suddenly comes in?'
  68. act 'Back': gt 'swamphouse', 'start'
  69. end
  70. end
  71. end
  72. if clothesAtLocation = 1 and swamp_clothes = 0:
  73. !clothes are ready
  74. if $clothingworntype = 'nude' and forced_naked_day < daystart:
  75. act 'Get dressed':
  76. cla
  77. *clr
  78. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude1.jpg"</center>'
  79. *nl
  80. 'You put your clothes back on.'
  81. gs 'underwear', 'wear'
  82. gs 'clothing', 'recover_lost_clothes', 'swamphouse', 1
  83. gs 'stat'
  84. act 'Back': gt 'swamphouse', 'start'
  85. end
  86. elseif $clothingworntype ! 'nude':
  87. act 'Pick up your clothes':
  88. cla
  89. *clr
  90. gs 'clothing', 'recover_lost_clothes', 'swamphouse'
  91. 'You picked up your clothes.'
  92. act 'Back': gt 'swamphouse', 'start'
  93. end
  94. end
  95. elseif swamp_clothes = 1 and forced_naked_day < daystart:
  96. if $clothingworntype = 'nude':
  97. act 'Wear hessian sack':
  98. cla
  99. *clr
  100. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
  101. *nl
  102. 'You cover yourself with the hessian sack'
  103. gs 'clothing', 'recover_lost_clothes', 'swamphouse'
  104. gs 'clothing', 'swamp_clothes', 1
  105. gs 'stat'
  106. act 'Back': gt 'swamphouse', 'start'
  107. end
  108. end
  109. end
  110. if pcs_horny >= 50 and hunters = 0 or pcs_horny >= 50 and hunters = 1 and hour >= 8 and hour < 20:
  111. !TODO: Add content for hunters being around or walking in
  112. act 'Masturbate':
  113. gt 'selfplay', 'start'
  114. end
  115. end
  116. if $clothingworntype = 'nude' and swamp_clothes = 0 and clothesAtLocation = 0 and forced_naked_day < daystart:
  117. act 'Look for some clothes':
  118. cla
  119. *clr
  120. minut += 10
  121. gs 'clothing', 'swamp_clothes', 1
  122. gs 'stat'
  123. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphouse_tkancloth.jpg"></center>'
  124. 'You find a piece of burlap... "Well, at least it''s something." you think to yourself.'
  125. act 'Back.': gt 'swamphouse', 'start'
  126. end
  127. end
  128. if breastpump > 0 and bp_unbox >= 1:
  129. act 'Use breast pump':
  130. gt 'lact_bp', 'bp_milking'
  131. end
  132. end
  133. if dirty_swamphouse > 25:act 'Clean the hut':hunter_collective_opinion += 3 & gs 'hunter_favors', 'dirty_swamphouse'
  134. !TODO: Move hunter behavior into its own code block
  135. if hour >= 20 and hour <= 23 and rand(1,2) = 1:
  136. huntersdrink = 1
  137. else
  138. huntersdrink = 0
  139. end
  140. act 'Relax on the couch': gt 'bed', 'start'
  141. !sex with Igor
  142. if huntersIgorLove > 0 and hour > 8 and hour < 19 and huntersIgorQw >= 10 and temp_sh = 1 and huntersIgorsex = 0:
  143. *clr & cla
  144. huntersIgorsex += rand(12,36)
  145. gs 'stat'
  146. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
  147. 'Entering the hut you see Igor. He smiles and walks over to you, grabs hold of you and gives you a passionate kiss.'
  148. '"<<$pcs_nickname>>, I want you," he whispers.'
  149. gs 'arousal', 'kiss', 5
  150. gs 'stat'
  151. act 'Agree':
  152. *clr & cla
  153. minut += 5
  154. huntersIgorQw += 1
  155. gs 'stat'
  156. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(4,6)+'.jpg"></center>'
  157. '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...'
  158. act 'Go with Igor': gt 'hunterLoveSex','Igor'
  159. end
  160. act 'Refuse':
  161. *clr & cla
  162. minut += 5
  163. huntersIgorQw -= 1
  164. gs 'stat'
  165. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  166. '"I''m sorry, Igor. I''m not in the mood." you say avoiding eye contact. Igor leaves disappointed...'
  167. act 'Walk away': gt 'swamphouse', 'start'
  168. end
  169. end
  170. !sex with Sergei
  171. if huntersSergeiLove > 0 and pcs_horny <= 60 and huntersSergeiQw >= 10 and temp_sh = 1 and huntersSergeisex = 0 and hour > 8 and hour < 19:
  172. *clr & cla
  173. huntersSergeisex += rand(9,30)
  174. gs 'stat'
  175. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
  176. 'Entering the hut you see Sergei. He smiles and walks over to you, grabs hold of you and gives you a passionate kiss.'
  177. '"<<$pcs_nickname>>, I want you," he whispers.'
  178. gs 'arousal', 'kiss', 5
  179. gs 'stat'
  180. act 'Agree':
  181. *clr & cla
  182. minut += 5
  183. huntersSergeiQw += 1
  184. gs 'stat'
  185. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(4,6)+'.jpg"></center>'
  186. '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...'
  187. act 'Go with Sergei': gt 'hunterLoveSex','Sergei'
  188. end
  189. act 'Refuse':
  190. *clr & cla
  191. minut += 5
  192. huntersSergeiQw -= 1
  193. gs 'stat'
  194. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  195. '"I''m sorry, Sergei. I''m not in the mood." you say avoiding eye contact. Sergei leaves disappointed...'
  196. act 'Walk away': gt 'swamphouse', 'start'
  197. end
  198. end
  199. ! sex with Andrew
  200. if huntersAndreiLove > 0 and pcs_horny <= 60 and huntersAndreiQw >= 10 and temp_sh = 1 and huntersAndreisex = 0 and hour > 8 and hour < 19:
  201. *clr & cla
  202. huntersAndreisex += rand(6,24)
  203. gs 'stat'
  204. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
  205. 'Entering the hut you see Andrei. He smiles and walks over to you, grabs hold of you and gives you a passionate kiss.'
  206. '"<<$pcs_nickname>>, I want you," he whispers.'
  207. gs 'arousal', 'kiss', 5
  208. gs 'stat'
  209. act 'Agree':
  210. *clr & cla
  211. minut += 5
  212. huntersAndreiQw += 1
  213. pcs_horny += 5
  214. gs 'stat'
  215. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterhands.jpg"></center>'
  216. '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...'
  217. act 'Go with Andrei': gt 'hunterLoveSex','Andrei'
  218. end
  219. act 'Refuse':
  220. *clr & cla
  221. minut += 5
  222. huntersAndreiQw -= 1
  223. gs 'stat'
  224. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  225. '"I''m sorry, Andrei. I''m not in the mood." you say avoiding eye contact. Andrei leaves disappointed...'
  226. act 'Walk away': gt 'swamphouse', 'start'
  227. end
  228. end
  229. ! trio of HS, Andrei and Sergei, if love
  230. if hunters > 0 and doublehunterlove = 1 and hour >= 8 and hour < 20 and (huntersAndreisex = 0 or huntersSergeisex = 0):
  231. *clr & cla
  232. minut += 5
  233. huntersAndreisex += rand(6,24)
  234. huntersSergeisex += rand(9,30)
  235. gs 'stat'
  236. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterswork1.2.jpg"></center>'
  237. 'You see Andrei talking with Sergei in the hut.'
  238. '"Come in <<$pcs_nickname>>, it''s time to consummate the marriage," Andrew jokingly remarked. "I hope you''re willing to do anything we say.'
  239. 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?.'
  240. 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."'
  241. '"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."'
  242. !!ToDo: The huntersex location doesn''t exist
  243. !! act 'Follow the guys':
  244. !! *clr & cla
  245. !! minut += 5
  246. !! huntersAndreiQw += 1
  247. !! huntersSergeiQw += 1
  248. !! pcs_horny += 5
  249. !! doublelovesex = 1
  250. !! hunterslut += 1
  251. !! temphunt = 1
  252. !! if klismaday ! daystart:hunterslut += 1
  253. !! gs 'stat'
  254. !! '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/doublehanterlove.jpg"></center>'
  255. !! 'The men hold your hands leading you away from the hut. You''re fully aware of their plans but you don''t really mind.'
  256. !! act 'Continue': gt 'huntersex', 'doublelovesex'
  257. !! end
  258. act 'Refuse':
  259. *clr & cla
  260. minut += 5
  261. huntersAndreiQw -= 1
  262. huntersSergeiQw -= 1
  263. gs 'stat'
  264. '<center><img <<$set_imgh>> src="images/pc/speak_to_the_hand.jpg"></center>'
  265. '"No, I refuse, this is something I don''t want part of," you say and without hesitating you turn around and walk away.'
  266. act 'Walk away': gt 'swamphouse', 'start', 'doublelovesex'
  267. end
  268. end
  269. !if GG naked and hunters in the hut
  270. 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:
  271. cla
  272. *clr
  273. temp_sh =rand(1,3)
  274. gs 'stat'
  275. if huntersKnowSlut = 0:
  276. cla
  277. *clr
  278. gs 'stat'
  279. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude.jpg"></center>'
  280. 'You hear the hunters nearing the hut, grabbing the handle, about to open the door. You quickly hide your privare parts behind the hands...'
  281. if clothesAtLocation = 1:
  282. act 'Get dressed':
  283. cla
  284. *clr
  285. minut += 5
  286. gs 'underwear', 'wear'
  287. gs 'clothing', 'recover_lost_clothes', 'swamphouse', 1
  288. !tkan_cloth = 0
  289. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude1.jpg"></center>'
  290. 'You look around searching for your clothes. When you spot them, you dash over to grab them.'
  291. act 'Continue': gt 'swamphouse', 'start'
  292. end
  293. else
  294. act 'Cover yourself':
  295. cla
  296. *clr
  297. minut+=5
  298. gs 'clothing', 'swamp_clothes', 1
  299. gs 'stat'
  300. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
  301. '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.'
  302. act 'Continue': gt 'swamphouse', 'start'
  303. end
  304. end
  305. act 'Stay naked':
  306. cla
  307. *clr
  308. hunterslut += 1
  309. hunterknowday = daystart
  310. gs 'stat'
  311. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
  312. '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.'
  313. '"Damn, <<$pcs_nickname>>, you look really good. The things I would want to do to you..." said a somewhat aroused Andrei.'
  314. act 'Continue': gt 'swamphouse', 'start'
  315. end
  316. end
  317. if huntersKnowSlut > 0:
  318. !!ToDo: The huntersex location doesn''t exist
  319. !! if huntslutsex = 0:
  320. !! *clr & cla
  321. !! gs 'stat'
  322. !! '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
  323. !! 'Seeing you naked, the men get quickly aroused...'
  324. !! '"Come here <<$pcs_nickname>>, come to us," one of the guys calls out to you.'
  325. !! act 'Continue':huntersexnude = 1 & gt 'huntersex', 'huntersexnude'
  326. !! else
  327. hunterknowday = daystart
  328. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
  329. 'Seeing you naked, the men just shake their heads...'
  330. '"Look here <<$pcs_nickname>>, if you want to charm us, you will need to think of something else." said one of the guys.'
  331. act 'Continue': gt 'swamphouse', 'start'
  332. !! end
  333. end
  334. end
  335. !!ToDo: The huntersex location doesn''t exist
  336. !! if hunters > 0 and huntersRape = 5 and huntslutsexrand = 1 and huntslutsex = 0 and hour >= 7 and hour < 23:
  337. !! *clr & cla
  338. !! minut += 5
  339. !! temphunt = rand(1,3)
  340. !! sluthomesex = 1
  341. !! gs 'stat'
  342. !! if temphunt = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/andreihanter.jpg"></center>'
  343. !! if temphunt = 2:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/sergeihanter.jpg"></center>'
  344. !! if temphunt = 3:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
  345. !! 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.'
  346. !! 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."'
  347. !! 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..."'
  348. !! if pcs_horny < 40:' You obediently follow suit, knowing what he wants.'
  349. !! if pcs_horny >= 40 and pcs_horny < 70:'"Come and get me..." is all you manage to say before spreading your legs.'
  350. !! 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.'
  351. !! act 'Go': gt 'huntersex', 'sluthomesex'
  352. !! end
  353. end
  354. if $ARGS[0] = 'bucket':
  355. cla
  356. *clr
  357. menu_off = 1
  358. if bucket > 10:bucket = 10
  359. minut += 1
  360. act 'Move Away': gt 'swamphouse', 'start'
  361. gs 'stat'
  362. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/vedro2.jpg"></center>'
  363. 'A bucket of water. There''s still <<bucket>> liters of water left.'
  364. act 'Drink the water':
  365. cla
  366. minut+=5
  367. cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
  368. bucket -= 1
  369. if pcs_hydra >= 100:
  370. 'You''re not thirsty anymore. You don''t need to drink more water.'
  371. else
  372. pcs_hydra += 80
  373. cumspclnt = 2
  374. gs 'cum_cleanup'
  375. pcs_breath = 0
  376. 'You take a sip from bucket, quenching your thirst.'
  377. end
  378. act 'Continue': gt 'swamphouse', 'start'
  379. end
  380. end
  381. if $ARGS[0] = 'washstand':
  382. cla
  383. *clr
  384. menu_off = 1
  385. minut += 1
  386. gs 'stat'
  387. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/washstand.jpg"></center>'
  388. 'An old washstand. You can use the basin to clean yourself, if necessary.'
  389. if bucket > 0:
  390. !use current by illume
  391. dynamic $basin
  392. end
  393. act 'Move away': gt 'swamphouse', 'start'
  394. end
  395. if $ARGS[0] = 'tub':
  396. cla
  397. *clr
  398. minut += 1
  399. menu_off = 1
  400. gs 'stat'
  401. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basin.jpg"></center>'
  402. *nl
  403. '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.'
  404. if hotwater = 1 and ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
  405. act 'Bathe in the tub (0:30)':
  406. cla
  407. *clr
  408. noShampoo = 1
  409. dynamic $showerdin
  410. face_write = 0
  411. body_write = 0
  412. lubonus = 0
  413. pcs_mood += 5
  414. pcs_willpwr += 10
  415. minut += 30
  416. hotwater = 0
  417. gs 'stat'
  418. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinswim.jpg"></center>'
  419. *nl
  420. '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.'
  421. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the tub.'
  422. act 'Continue': gt 'swamphouse', 'start'
  423. end
  424. end
  425. act 'Move away': gt 'swamphouse', 'start'
  426. end
  427. if $ARGS[0] = 'clothes_read_magazines':
  428. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readmagazines.jpg"></center>'
  429. if $clothingworntype = 'nude' and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readmagazines_tanga.jpg"></center>'
  430. if $clothingworntype = 'nude' and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readmagazines_nude.jpg"></center>'
  431. end
  432. if $ARGS[0] = 'stackmagazines':
  433. cla
  434. *clr
  435. menu_off = 1
  436. minut += 1
  437. gs 'stat'
  438. act 'Move away': gt 'swamphouse', 'start'
  439. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/stackmagazines.jpg"></center>'
  440. *nl
  441. 'A stack of all kinds of magazines, there''s even one with "interesting" pictures.'
  442. act 'Read the scientific journal (1:00)':
  443. cla
  444. *clr
  445. if pcs_nerd > 0:
  446. lastread = totminut
  447. lastreadday = daystart
  448. pcs_nerd += 10
  449. end
  450. if pcs_intel >= 50:intel_exp += RAND(0,1)
  451. if pcs_intel < 50:intel_exp += RAND(0,2)
  452. blizoruk+=1
  453. pcs_mood += 10
  454. minut += 60
  455. gs 'stat'
  456. gs 'swamphouse', 'clothes_read_magazines'
  457. 'You decide to look through the scientific journal, trying to understand all sorts of clever things written in the magazine.'
  458. act 'Continue': gs 'swamphouse', 'stackmagazines'
  459. end
  460. act 'Read the literary magazine (1:00)':
  461. cla
  462. *clr
  463. if pcs_nerd > 0:
  464. lastread = totminut
  465. lastreadday = daystart
  466. pcs_nerd += 10
  467. end
  468. if pcs_sprt >= 50:sprt_exp += RAND(0,1)
  469. if pcs_sprt < 50:sprt_exp += RAND(0,2)
  470. blizoruk+=1
  471. pcs_mood += 10
  472. minut += 60
  473. pcs_grades+=1
  474. gs 'stat'
  475. gs 'swamphouse', 'clothes_read_magazines'
  476. 'You decided to look through the literary magazine... It''s a real drag, you almost fall asleep several times while reading it.'
  477. act 'Continue': gs 'swamphouse', 'stackmagazines'
  478. end
  479. act 'Read the entertainment magazine (1:00)':
  480. cla
  481. *clr
  482. if pcs_nerd > 0:
  483. lastread = totminut
  484. lastreadday = daystart
  485. pcs_nerd += 10
  486. end
  487. if pcs_sprt >= 50:sprt_exp += RAND(0,1)
  488. if pcs_sprt < 50:sprt_exp += RAND(0,2)
  489. blizoruk+=1
  490. pcs_mood += 10
  491. pcs_willpwr += 100
  492. minut += 60
  493. gs 'stat'
  494. gs 'swamphouse', 'clothes_read_magazines'
  495. 'You flick entertainment magazine, you delve into the world of the rich and famous.'
  496. act 'Continue': gs 'swamphouse', 'stackmagazines'
  497. end
  498. act 'Read the porn magazine (1:00)':
  499. cla
  500. *clr
  501. blizoruk+=1
  502. pcs_mood += 10
  503. pcs_willpwr += 100
  504. gs 'stat'
  505. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readpornomag.jpg"></center>'
  506. if $clothingworntype = 'nude' and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readpornomag_tanga.jpg"></center>'
  507. if $clothingworntype = 'nude' and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/readpornomag_nude.jpg"></center>'
  508. *nl
  509. '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.'
  510. gs 'arousal', 'porn', 60
  511. gs 'arousal', 'end'
  512. gs 'stat'
  513. act 'Continue': gs 'swamphouse', 'stackmagazines'
  514. end
  515. end
  516. if $ARGS[0] = 'huntersrelax':
  517. cla
  518. *clr
  519. minut += 1
  520. menu_off = 1
  521. gs 'stat'
  522. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hantersrelax1.'+rand(1,8)+'.jpg"></center>'
  523. *nl
  524. 'You see the hunters in the hut minding their own business.'
  525. act 'Speak with Andrei': gt 'Andreihunter'
  526. act 'Speak with Sergei': gt 'Sergeihunter'
  527. act 'Speak with Igor': gt 'Igorhunter'
  528. act 'Move away': gt 'swamphouse', 'start'
  529. end
  530. if $ARGS[0] = 'daytime_flavor_events':
  531. !TODO: Add stuff here
  532. end
  533. if $ARGS[0] = 'nighttime_flavor_events':
  534. if rand(1,10) = 1 and hunters_night:
  535. gs 'hunter_interactions', 'indoors_naked_encounter'
  536. end
  537. end
  538. --- swamphouse ---------------------------------