gadforest_event.qsrc 29 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725
  1. # gadforest_event
  2. $location_type = 'event_outdoors'
  3. gs 'stat'
  4. if $ARGS[0] = 'find_meadow':
  5. *clr & cla
  6. menu_off = 1
  7. '<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow_path.jpg"></center>'
  8. *nl
  9. 'As you walk through the forest, you notice a small path that runs along some bushes and a small ravine. The path leads away from the well worn tracks you are currently on and into a dense thicket.'
  10. act 'Ignore it and keep walking':gt 'gadforest', 'forest_edge'
  11. act 'Follow the path to see where it goes':
  12. *clr & cla
  13. meadow = 1
  14. minut += 10
  15. gs 'stat'
  16. '<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow_thicket.jpg"></center>'
  17. *nl
  18. 'You follow the path to see where it goes, but soon it becomes indistinguishable from the bushes and trees around you.'
  19. act 'Look around':
  20. *clr & cla
  21. minut += 10
  22. gs 'stat'
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow_trail.jpg"></center>'
  24. *nl
  25. 'You''re about to return to the edge of the forest, but you spot a small break in the thicket, from the looks of it, it''s no more than an animal trail.'
  26. act 'Head down the trail':
  27. *clr & cla
  28. minut += 10
  29. gs 'stat'
  30. '<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow1_<<rand(0,5)>>.jpg"></center>'
  31. *nl
  32. 'A few minutes later, you reach a majestic meadow filled with wildflowers. Judging by its undisturbed state no one else uses it or has been even been here in a long time.'
  33. act 'Claim the meadow as your own':
  34. *clr & cla
  35. minut += 10
  36. gs 'stat'
  37. '<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow1_<<rand(0,5)>>.jpg"></center>'
  38. *nl
  39. 'You spend some time exploring the meadow and its surroundings. You''re positive no one visits this location. You proclaim the meadow to be your secret hideway all your own.'
  40. act 'Continue':gt 'meadow', 'start'
  41. end
  42. end
  43. end
  44. end
  45. end
  46. if $ARGS[0] = 'mira_picking_talk':
  47. *clr & cla
  48. menu_off = 1
  49. minut += 15
  50. mirapickingtalk = 1
  51. miratalkday = daystart
  52. npc_rel['A60'] += 2
  53. gs 'gadforest', 'bushcraft', 'forest_edge'
  54. gs 'stat'
  55. gs 'miroslava','miraclothes'
  56. *nl
  57. '"Hi <<$pcs_nickname>>, just wanted to let you know to be careful out here in the forest."'
  58. '"It is very easy to get lost if you wander away from the forest''s edge. But, the deeper you go into the forest, the more mushrooms and berries you can find."'
  59. '"Also every morning during the summertime the truck from the city comes to buy mushroms and berries from the local pickers. I don''t bother doing it, but I''m sure you could make some money from that if you wanted to."'
  60. '"One more warning, I''ve heard some of the other villagers say there are wolves in the forest that come out after dark, so you shouldn''t stay in the forest after sundown."'
  61. '"That''s one of the reasons why I prefer to walk around the forest''s edge in the morning. It''s much safer in the daylight when more people are around."'
  62. act 'Continue':gt 'gadforest', 'forest_edge'
  63. end
  64. if $ARGS[0] = 'mira_nude_talk':
  65. *clr & cla
  66. menu_off = 1
  67. minut += 15
  68. miranudetalk = 1
  69. miratalkday = daystart
  70. npc_rel['A60'] += 2
  71. gs 'gadforest', 'bushcraft', 'forest_edge'
  72. gs 'stat'
  73. gs 'miroslava','miraclothes'
  74. *nl
  75. '"Hey <<$pcs_nickname>>, guess what I overheard recently, Mira giggles, as she whispers in your ear. Some of the elders in the village were talking about how walking naked in the woods is said to greatly improve your health and mood."'
  76. '"I don''t know if it''s the fresh air or just being surrounded by nature, but it did make me feel better."'
  77. '"I may have tried it once, just to see if what they said was true. Maybe we can go together some time?"'
  78. act 'Continue':gt 'gadforest', 'forest_edge'
  79. end
  80. if $ARGS[0] = 'mira_nude_event':
  81. *clr & cla
  82. menu_off = 1
  83. minut += 15
  84. miranudetalk = 2
  85. miratalkday = daystart
  86. npc_rel['A60'] += 2
  87. gs 'gadforest', 'bushcraft', 'forest_edge'
  88. pcs_horny += 10
  89. gs 'stat'
  90. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest4.jpg"></center>'
  91. *nl
  92. '"<<$pcs_nickname>>, do you remember what I told you about walking in the forest? Why don''t we try it out together?" Mira asks.'
  93. '"You mean walking naked in the woods? you reply."'
  94. '"Silly, of course that" said Mira. "What do you say?"'
  95. '"I don''t know Mira." It''s an unexpected offer. On one hand you are a little afraid to do it, but on the other it could be exciting. "But what if someone sees us?"'
  96. '"Oh, don''t worry, no one will see us." She laughed, spun around and yelled out. "Is anybody here??"'
  97. 'Aside from the chirping birds and some rustling leaves, there was no other sound.'
  98. 'Mira turns back to you, "You see, no one is here. We are all alone."'
  99. 'You hesitantly look around as Mira waits for you reply.'
  100. '"Well, <<$pcs_nickname>>, come on, make up your mind" Mira said cheerfully and started to mess with your clothes, trying to pull them off.'
  101. 'Finally looking around to make sure no one is around, you decide to...'
  102. if pcs_inhib < 25:
  103. gs 'willpower', 'exhib', 'resist', 'easy'
  104. elseif pcs_inhib > 25 and pcs_inhib < 50:
  105. gs 'willpower', 'exhib', 'resist'
  106. elseif pcs_inhib > 50:
  107. gs 'willpower', 'exhib', 'resist',' hard'
  108. end
  109. if will_cost <= pcs_willpwr:
  110. act 'Resist and keep your clothes on (<<will_cost>> Willpower)':
  111. *clr & cla
  112. minut += 5
  113. pcs_horny += 5
  114. if pcs_inhib < 50:inhib_exp += rand(1,2)
  115. npc_rel['A60'] -= 3
  116. if pcs_inhib < 25:
  117. gs 'willpower', 'exhib', 'resist', 'easy'
  118. elseif pcs_inhib > 25 and pcs_inhib < 50:
  119. gs 'willpower', 'exhib', 'resist'
  120. elseif pcs_inhib > 50:
  121. gs 'willpower', 'exhib', 'resist',' hard'
  122. end
  123. gs 'willpower', 'pay', 'resist'
  124. gs 'stat'
  125. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest2.jpg"></center>'
  126. *nl
  127. 'Mira pouts at you for refusing to undress for a moment then she smiles again, "Alright then, <<$pcs_nickname>>, we can still just go for a normal walk instead."'
  128. act'Continue':gt 'gadforest','forest_edge'
  129. end
  130. else
  131. act 'Resist and keep your clothes on (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  132. end
  133. act 'Give in to Mira':
  134. *clr & cla
  135. minut += 5
  136. pcs_horny += 10
  137. if pcs_inhib < 50:inhib_exp += rand(2,4)
  138. npc_rel['A60'] += 5
  139. gs 'underwear', 'remove'
  140. gs 'clothing', 'strip', 'gadforest'
  141. gs 'exhibitionism', 3
  142. gs 'stat'
  143. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest5.jpg"></center>'
  144. *nl
  145. 'Seeing that your resistance has stopped, Mira quickly began to undress you, leaving your clothes in a pile on the forest floor.'
  146. act'Continue':gt 'gadforest','forest_edge'
  147. end
  148. end
  149. if $ARGS[0] = 'mushroom_pickers1':
  150. *clr & cla
  151. menu_off = 1
  152. minut += 5
  153. mushroom_pickersday = daystart
  154. gs 'stat'
  155. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers1.jpg"></center>'
  156. *nl
  157. 'Wandering through the woods, you notice mushroom pickers from the village. You wonder whether you should look for mushrooms and berries here too, or go someplace else in the forest with less competition.'
  158. if $clothingworntype = 'nude':
  159. 'You quickly remember you are naked right now and back away from them. It''s a good thing they didn''t see you here, if they did, it would be the talk of the whole village.'
  160. pcs_horny += 5
  161. inhib_exp += rand(1,3)
  162. gs 'stat'
  163. end
  164. act 'Continue':gt $loc, $metka
  165. end
  166. if $ARGS[0] = 'mushroom_pickers2':
  167. *clr & cla
  168. menu_off = 1
  169. minut += 5
  170. mushroom_pickersday = daystart
  171. gs 'stat'
  172. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers2.jpg"></center>'
  173. *nl
  174. 'On the edge of the forest, you see mushroom pickers from the village going deeper into the forest. You wonder if you should follow them or stay along the edge of the forest where it is safer.'
  175. if $clothingworntype = 'nude':
  176. 'You quickly remember you are naked right now and back away from them. It''s a good thing they didn''t see you here, if they did, it would be the talk of the whole village.'
  177. pcs_horny += 5
  178. inhib_exp += rand(1,3)
  179. gs 'stat'
  180. act 'Stay here':gt 'gadforest','forest_edge'
  181. else
  182. act 'Stay here':gt 'gadforest','forest_edge'
  183. act 'Follow them':gt 'gadforest','forest_outskirts'
  184. end
  185. end
  186. if $ARGS[0] = 'mushroom_pickers3':
  187. *clr & cla
  188. menu_off = 1
  189. minut += 5
  190. mushroom_pickersday = daystart
  191. gs 'stat'
  192. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers3.jpg"></center>'
  193. *nl
  194. 'Wandering through the outskirts of the forest, you notice the mushroom pickers from the village had organized a camp.'
  195. if $clothingworntype = 'nude':
  196. 'You quickly remember you are naked right now and back away from them. It''s a good thing they didn''t see you here, if they did, it would be the talk of the whole village.'
  197. pcs_horny += 5
  198. inhib_exp += rand(1,3)
  199. gs 'stat'
  200. act 'Leave them be':gt 'gadforest','forest_outskirts'
  201. else
  202. act 'Leave them be':gt 'gadforest','forest_outskirts'
  203. act 'Say Hello':
  204. minut += 5
  205. if pickersQW <= 3:pickersQW += 1
  206. gs 'stat'
  207. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers3.jpg"></center>'
  208. *nl
  209. if pickersQW < 3:
  210. 'You politely greet them as you are passing by. The men glance at you and respond the same.'
  211. act 'Leave':gt $loc, $metka
  212. else
  213. 'You politely greet them as you are passing by. The men look at you and invite you to stop and chat for a bit.'
  214. act 'Leave':gt $loc, $metka
  215. act 'Chat':
  216. *clr & cla
  217. minut += 10
  218. gs 'gadforest', 'bushcraft', 'forest_outskirts'
  219. gs 'stat'
  220. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers3.jpg"></center>'
  221. *nl
  222. pickersrand = rand(0,1)
  223. if pickersrand = 0:
  224. 'They are very good at finding mushrooms and berries, one of them shows you his basket full of mushrooms and berries. You spend ten minutes talking about the forest and the best places to find mushrooms and berries, before getting up to continue on with your day.'
  225. elseif pickersrand = 1:
  226. 'One of them asks, "How is your day going?"'
  227. if boletus + boletus_cooked + bilberry < 5:
  228. '"Not great today." you answer sadly, showing him your less than full basket.'
  229. '"Here you go, have a couple of mine." the man says, giving you a couple mushrooms and berries from his basket.'
  230. 'You spend ten minutes talking about the forest and the best places to find mushrooms and berries, before getting up to continue on with your day.'
  231. boletus += rand(1,2)
  232. bilberry += rand(1,2)
  233. else
  234. '"Pretty well today." you answer happily, showing him your full basket.'
  235. 'You spend ten minutes talking about the forest and the best places to find mushrooms and berries, before getting up to continue on with your day.'
  236. end
  237. end
  238. act 'Leave':gt 'gadforest','forest_outskirts'
  239. end
  240. end
  241. end
  242. end
  243. end
  244. if $ARGS[0] = 'mushroom':
  245. *clr & cla
  246. menu_off = 1
  247. minut += 5
  248. foresteventday = daystart
  249. gs 'gadforest', 'bushcraft', 'forest_center'
  250. gs 'stat'
  251. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom0.'+rand(1,3)+'.jpg"></center>'
  252. *nl
  253. 'Wandering deep in the forest, you stumble upon a clearing full of mushrooms. How lucky!.'
  254. if boletus + boletus_cooked + bilberry < 5:
  255. act 'Gather mushrooms':
  256. *clr & cla
  257. minut += 60
  258. if $clothingworntype = 'nude':inhib_exp += rand(1,3)
  259. boletus += rand(3,5)
  260. gs 'stat'
  261. gs 'gadforest', 'picking_clothes', 'forest_center', 'mushroom'
  262. *nl
  263. 'You begin collecting mushrooms trying to make everything fit in your basket.'
  264. act 'Continue':gt 'gadforest','forest_center'
  265. end
  266. else
  267. gs 'gadforest', 'picking_clothes_empty', 'forest_center'
  268. *nl
  269. 'Unfortunately your basket is already full and you cannot carry any more mushrooms.'
  270. act 'Continue':gt 'gadforest','forest_center'
  271. end
  272. end
  273. if $ARGS[0] = 'bilberry':
  274. *clr & cla
  275. menu_off = 1
  276. minut += 5
  277. foresteventday = daystart
  278. gs 'gadforest', 'bushcraft', 'forest_center'
  279. gs 'stat'
  280. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry'+rand(3,5)+'.jpg"></center>'
  281. *nl
  282. 'Wandering deep in the forest, you stumble upon a clearing full of berries. How lucky!.'
  283. if boletus + boletus_cooked + bilberry < 5:
  284. act 'Gather berries':
  285. *clr & cla
  286. minut += 60
  287. if $clothingworntype = 'nude':inhib_exp += rand(1,3)
  288. bilberry += rand(3,5)
  289. gs 'stat'
  290. gs 'gadforest', 'picking_clothes', 'forest_center', 'berry'
  291. *nl
  292. 'You begin collecting berries trying to make everything fit in your basket.'
  293. act 'Continue':gt 'gadforest','forest_center'
  294. end
  295. else
  296. gs 'gadforest', 'picking_clothes_empty', 'forest_center'
  297. *nl
  298. 'Unfortunately your basket is already full and you cannot carry any more berries.'
  299. act 'Continue':gt 'gadforest','forest_center'
  300. end
  301. end
  302. if $ARGS[0] = 'basket':
  303. *clr & cla
  304. menu_off = 1
  305. minut += 5
  306. foresteventday = daystart
  307. gs 'gadforest', 'bushcraft', 'forest_center'
  308. gs 'stat'
  309. foresteventrand = rand(1,2)
  310. if foresteventrand = 1:
  311. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/basket_boletus.jpg"></center>'
  312. *nl
  313. 'Wandering in the forest you find a basket full of mushrooms. Strange, someone must have left it here or lost it.'
  314. if boletus + boletus_cooked + bilberry < 5:
  315. act 'Steal and empty them into your basket':boletus += 5
  316. else
  317. 'Unfortunately your basket is already full and you cannot carry any more mushrooms.'
  318. end
  319. elseif foresteventrand = 2:
  320. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/basket_bilberry.jpg"></center>'
  321. *nl
  322. 'Wandering in the forest you find a basket full of berries. Strange, someone must have left it here or lost it.'
  323. if boletus + boletus_cooked + bilberry < 5:
  324. act 'Steal and empty them into your basket':bilberry += 5
  325. else
  326. 'Unfortunately your basket is already full and you cannot carry any more berries.'
  327. end
  328. end
  329. act 'Leave the basket alone':gt 'gadforest','forest_center'
  330. end
  331. if $ARGS[0] = 'picnic':
  332. *clr & cla
  333. menu_off = 1
  334. minut += 5
  335. gs 'stat'
  336. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/picnic1.'+rand(1,4)+'.jpg"></center>'
  337. 'On the edge of the forest you see some people. Apparently they are having a family picnic.'
  338. if $clothingworntype = 'nude':
  339. 'You quickly remember you are naked right now and back away from them. It''s a good thing they didn''t see you here, if they did, it would be the talk of the whole village.'
  340. 'You shouldn''t be naked right now with this many people in this area of the forest. You''ll either need to get dressed or move to a more secluded area for now.'
  341. if clothesAtLocation = 1:
  342. act 'Hide and get dressed':
  343. *clr & cla
  344. minut += 5
  345. gs 'clothing', 'swamp_clothes', 0
  346. gs 'underwear', 'wear'
  347. gs 'clothing', 'recover_lost_clothes', 'forest_edge',1
  348. gs 'stat'
  349. if PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  350. if PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  351. *nl
  352. 'You change into your clothes before anyone spots you.'
  353. act 'Continue':gt 'gadforest','forest_edge'
  354. end
  355. end
  356. if meadow > 0:act 'Go to the meadow': minut += 15 & gt 'Meadow'
  357. act 'Go further into the forest':gt 'gadforest','forest_outskirts'
  358. else
  359. act 'Continue':gt 'gadforest','forest_edge'
  360. end
  361. end
  362. if $ARGS[0] = 'forest_hunters':
  363. *clr & cla
  364. menu_off = 1
  365. minut += 5
  366. foresteventday = daystart
  367. gs 'stat'
  368. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters.jpg"></center>'
  369. *nl
  370. if huntersKnow = 0:'Wandering through the woods you come across some people. Judging by their appearance they must be hunters.'
  371. if huntersKnow = 1:'Wandering through the woods you see the hunters, Andrei, Sergei and Igor.'
  372. act 'Leave them alone':gt 'gadforest', $ARGS[1]
  373. if $clothingworntype ! 'nude':
  374. act 'Approach the hunters':
  375. *clr & cla
  376. if huntersKnow = 0:
  377. huntersKnow = 1
  378. gs 'stat'
  379. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters.jpg"></center>'
  380. *nl
  381. 'You decide to approach the strangers and chat. You never know, maybe they can show you some good places to find mushrooms and berries. After welcoming you, the whole company sat on the ground to rest and chat for a while.'
  382. '"What''s your name'+iif(pcs_apprnc >= 60,', beautiful','')+'?" one of them asks.'
  383. '"<<$pcs_nickname>>," you answer.'
  384. *nl
  385. if gadriver_gang = 0:
  386. minut += 30
  387. gs 'stat'
  388. '"I''m Andrei," replies the older man, "And these are my friends, from the village, Igor and Sergei."'
  389. '"By any chance is your last name <<$pcs_lastname>>?" he asked. You looked at him and nodded.'
  390. '"Don''t be surprised <<$pcs_nickname>>, you look a lot like your mother when she was younger. I ... Hmmm... very good to know, I''m also from Gadukino." said Andrei.'
  391. *nl
  392. 'After chatting with them for about half an hour, the hunters begin to get up and gather their things.'
  393. '"Okay <<$pcs_nickname>>, it''s time for us to go." said Andrei.'
  394. '"If you want, we can bring you to the swamp," he added after a short pause. "From there we have made a path back to the village. We can show it to you if you come with us. Or if you want, you can even stay with us for a bit."'
  395. act 'Stay in the forest':gt 'gadforest', $ARGS[1]
  396. act 'Go with them':hunters_here = 1 & minut += 60 & gt 'swamp_yard', 'start'
  397. else
  398. minut += 15
  399. huntersKnowSlut = 1
  400. huntersRape = 1
  401. gs 'stat'
  402. '"What are you doing so far from the village?" asks the older man, looking at you closely, "It''s <<$pcs_nickname>> <<$pcs_lastname>>, the local whore.'
  403. 'You look at him with a mixture of surprise and shock.'
  404. '"Don''t be surprised, I''m also from Gadukino, and you look just like your mother when she was younger, and apparently you are a whore like her too." he said.'
  405. 'You don''t even remember us. We remember you from that day by the river with Uncle Stepan.'
  406. '"I''m Andrei, " he added further, "And these are my friends, also from the village, Igor and Sergei."'
  407. *nl
  408. if gadriver_gang > 2:'I''m not a whore. I told Uncle Stepan to go to hell! I didn''t want that to happen to me!'
  409. '"Don''t run away, we won''t hurt you." said Sergei, seeing you jump to your feet.'
  410. '"I think it''s about time I left" you reply.'
  411. 'You quickly move away from them and only slowing once you can no longer hear them talking.'
  412. act 'Go back to the forest':gt 'gadforest', $ARGS[1]
  413. end
  414. else
  415. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters.jpg"></center>'
  416. *nl
  417. 'You decide to approach the guys and chat.'
  418. if huntersKnowSlut = 0:
  419. minut += 30
  420. 'After chatting with them for about half an hour, the hunters begin to get up and gather their things.'
  421. '"Okay <<$pcs_nickname>>, it''s time for us to go." said Andrei. "You should pay us another visit some time, ok?"'
  422. act 'Stay in the forest':gt 'gadforest', $ARGS[1]
  423. act 'Go with them':hunters_here = 1 & minut += 60 & gt 'swamp_yard', 'start'
  424. else
  425. '"Oh, <<$pcs_nickname>>, we were all looking forward to seeing you again" Andrei said with a smile.'
  426. '"How about you come back with us to our hut, we were just about to head back there anyways."'
  427. gs 'willpower', 'misc', 'resist', 'hard'
  428. if will_cost <= pcs_willpwr:
  429. act 'Stay in the forest (<<will_cost>> Willpower)':
  430. gs 'willpower', 'pay', 'resist'
  431. gs 'stat'
  432. gt 'gadforest', $ARGS[1]
  433. end
  434. else
  435. act 'Stay in the forest (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  436. end
  437. act 'Go with them':hunters_here = 1 & minut += 60 & gt 'swamp_yard', 'start'
  438. end
  439. end
  440. end
  441. elseif $clothingworntype = 'nude':
  442. if huntersKnowSlut = 0 and gadriver_gang = 0:
  443. act 'Keep walking':
  444. *clr &cla
  445. minut += 5
  446. if huntersKnowSlut = 0:huntersKnowSlut = 1
  447. pcs_horny += 20
  448. inhib_exp += rand(1,3)
  449. gs 'exhibitionism', 3
  450. gs 'stat'
  451. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mitkanudeforest.jpg"></center>'
  452. *nl
  453. 'You pretend not to notice the hunters and walk right past them, swaying your hips pointedly to maximize the effect. Looking around, you notice that the effect has exceeded your expectations. The men have been stopped in their tracks and are staring at you...'
  454. act 'Continue':gt 'gadforest', $ARGS[1]
  455. end
  456. act 'Hide':
  457. *clr & cla
  458. minut += 5
  459. gs 'stat'
  460. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/hiding_woods.jpg"></center>'
  461. *nl
  462. 'They haven''t noticed you yet, so you quickly hide from sight in a nearby bush. You wait until you can no longer hear them talking to continue on your way.'
  463. act 'Continue':gt 'gadforest', $ARGS[1]
  464. end
  465. else
  466. '"Oh, <<$pcs_nickname>>, we were all looking forward to seeing you again" Andrei said with a smile.'
  467. '"How about you come back with us to our hut, we were just about to head back there anyways."'
  468. gs 'willpower', 'misc', 'resist', 'hard'
  469. if will_cost <= pcs_willpwr:
  470. act 'Stay in the forest (<<will_cost>> Willpower)':
  471. gs 'willpower', 'pay', 'resist'
  472. gs 'stat'
  473. gt 'gadforest', $ARGS[1]
  474. end
  475. else
  476. act 'Stay in the forest (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  477. end
  478. act 'Go with them':hunters_here = 1 & minut += 60 & gt 'swamp_yard', 'start'
  479. end
  480. end
  481. end
  482. if $ARGS[0] = 'mitka_temporary_event':
  483. ! never had sex with Mitka or not the village whore
  484. if npc_QW['A63'] = 0 or gadriver_gang >= 3:
  485. ! Mira is already fucking Mitka but not the boys slut yet
  486. if npc_QW['A60'] >= 2 and npc_QW['A60'] < 11:
  487. *clr & cla
  488. minut += 5
  489. mitkaday = daystart
  490. MiraLoc = 0
  491. gs 'stat'
  492. '<center><b><font color = maroon>Mitka Shkvoryen</font></b></center>'
  493. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
  494. *nl
  495. 'While walking through the forest, you meet Mitka. You chat for a bit before saying goodbye. As you begin to walk away, you notice Mira is not with you.'
  496. '"<<$pcs_nickname>>, you go on, I need to talk to Mitka in private." She says blushing. "He''ll take me home."'
  497. '"Have fun!" you reply to Mira with a wink.'
  498. act 'Continue': gt 'gadforest','forest_edge'
  499. act 'Spy on them':
  500. ! Sveta has not made Mira give her anal virginity to Mitka yet
  501. if npc_QW['A60'] < 6:
  502. *clr & cla
  503. gs 'arousal', 'voyeur', 5
  504. gs 'stat'
  505. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirameadowsex.jpg"></center>'
  506. *nl
  507. 'You decide to follow them from a safe distance. The forest offers plenty of places to hide and you have no trouble staying unseen.'
  508. 'Mira and Mitka talk in whispers, slowly undressing as they walk, but you can''t hear a word they are saying.'
  509. act 'Watch':
  510. *clr &cla
  511. gs 'arousal', 'voyeur', 10
  512. gs 'stat'
  513. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirameadowsex1.jpg"></center>'
  514. *nl
  515. if npc_QW['A60'] = 2:
  516. 'Eventually, you arrive at your secret meadow. Mira lays down on a blanket in front of Mitka and spreads her legs invitingly. He doesn''t waste a second before he is on top of her her. He positions himself between her legs and starts eagerly slamming his cock roughly into her vagina. Mira certainly seems to be enjoying it though, as she moans and begs for more.'
  517. else
  518. 'Eventually, you arrive at your not-so-secret meadow. You already know what is about to happen having seen it all before. Mira lays down on a blanket in front of Mitka and spreads her legs invitingly. He doesn''t waste a second before he is on top of her her. He positions himself between her legs and starts eagerly slamming his cock roughly into her vagina. Mira seems to be enjoying it even more than last time, as she moans and begs for more.'
  519. end
  520. act 'Continue Watching':
  521. *clr & cla
  522. if npc_QW['A60'] = 2:npc_QW['A60'] = 3
  523. mirasextimes += 1
  524. gs 'arousal', 'voyeur', 5
  525. gs 'stat'
  526. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirameadowsex2.jpg"></center>'
  527. *nl
  528. 'After a few more minutes Mitka pulls out and cums on her stomach. They rest for a little while and then get dressed and leave to head back to the village.'
  529. act 'Leave': gt 'gadforest','forest_edge'
  530. end
  531. end
  532. ! Sveta has made Mira give her anal virginity to Mitka
  533. else
  534. *clr & cla
  535. gs 'arousal', 'voyeur', 5
  536. gs 'stat'
  537. '<center><img <<$set_imgh>> src="images/characters/village/mira/mirameadowsex.jpg"></center>'
  538. *nl
  539. 'You decide to follow them from a safe distance. The forest offers plenty of places to hide and you have no trouble staying unseen.'
  540. 'Mira and Mitka talk in whispers, slowly undressing as they walk, but you can''t hear a word they are saying.'
  541. act 'Watch':
  542. *clr & cla
  543. gs 'arousal', 'voyeur', 10
  544. gs 'stat'
  545. temp_gadf = rand(0,1)
  546. if temp_gadf = 0:
  547. '<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirameadowanal.jpg"></center>'
  548. *nl
  549. 'Mira is working her ass up and down on Mitka''s hard member, every time she goes down her buttocks slap loudly on his thighs.'
  550. elseif temp_gadf = 1:
  551. '<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirameadowanal1.jpg"></center>'
  552. *nl
  553. 'Mira is on all fours and moaning loudly as Mitka spreads her asshole with his fingers and then drives his cock all the way in her wide open hole.'
  554. end
  555. act 'Continue Watching':
  556. *clr & cla
  557. mirasextimes += 1
  558. gs 'arousal', 'voyeur', 5
  559. gs 'stat'
  560. '<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirameadowanal2.jpg"></center>'
  561. *nl
  562. 'After a couple of minutes Mitka strongly slaps her ass and Mira quickly turns around, gets on her knees before him and sucks his cock for a few seconds before he shoots his warm cum all over her face.'
  563. act 'Leave': gt 'gadforest','forest_edge'
  564. end
  565. end
  566. end
  567. end
  568. ! mira is the boys slut
  569. elseif npc_QW['A60'] >= 11:
  570. *clr & cla
  571. minut += 5
  572. mitkaday = daystart
  573. MiraLoc = 0
  574. gs 'stat'
  575. '<center><b><font color = maroon>Mitka Shkvoryen</font></b></center>'
  576. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
  577. *nl
  578. 'Walking through the forest with Mira, you meet Mitka. Seeing Mira, Mitka grabbed her hand and pulled her into the nearest bush, seeing that Mira is not resisting, you decide not to interfere and mind your own business.'
  579. act 'Continue': gt 'gadforest','forest_edge'
  580. act 'Spy on them':
  581. *clr & cla
  582. gs 'arousal', 'voyeur', 10
  583. gs 'stat'
  584. temp_gadf = rand(0,1)
  585. if temp_gadf = 0:
  586. '<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirameadowanal.jpg"></center>'
  587. *nl
  588. 'Mira is working her ass up and down on Mitka''s hard member, every time she goes down her buttocks slap loudly on his thighs.'
  589. elseif temp_gadf = 1:
  590. '<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirameadowanal1.jpg"></center>'
  591. *nl
  592. 'Mira is on all fours and moaning loudly as Mitka spreads her asshole with his fingers and then drives his cock all the way in her wide open hole.'
  593. end
  594. act 'Continue Watching':
  595. *clr & cla
  596. mirasextimes += 1
  597. gs 'arousal', 'voyeur', 5
  598. gs 'stat'
  599. '<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirameadowanal2.jpg"></center>'
  600. *nl
  601. 'After a couple of minutes Mitka strongly slaps her ass and Mira quickly turns around, gets on her knees before him and sucks his cock for a few seconds before he shoots his warm cum all over her face.'
  602. act 'Leave': gt 'gadforest','forest_edge'
  603. end
  604. end
  605. ! Sveta does not know about Mira and Mitka yet or Miras quest is not started yet
  606. else
  607. *clr & cla
  608. minut += 5
  609. mitkaday = daystart
  610. gs 'stat'
  611. '<center><b><font color = maroon>Mitka Shkvoryen</font></b></center>'
  612. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
  613. *nl
  614. 'Walking through the forest with Mira, you meet Mitka. You chat for a little while, noticing the interest Mira showed Mitka, before saying goodbye.'
  615. act 'Continue': gt 'gadforest','forest_edge'
  616. end
  617. ! Sveta and Mira are both fucking Mitka but don''t know about it
  618. else
  619. *clr & cla
  620. minut += 5
  621. mitkaday = daystart
  622. gs 'stat'
  623. '<center><b><font color = maroon>Mitka Shkvoryen</font></b></center>'
  624. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
  625. *nl
  626. 'Walking through the forest with Mira, you meet Mitka. He looks at you both like he is trying to decide something, but must have thought better of it because he continues to just chat normally. You talk for a bit longer before saying goodbye.'
  627. act 'Continue':gt 'gadforest','forest_edge'
  628. end
  629. end
  630. --- gadforest_event ---------------------------------