gadforest.qsrc 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713
  1. # gadforest
  2. !MiraLoc tells us where Mira is Located
  3. !----------------------------------------------
  4. !MiraLoc = 0 (Mira at home)
  5. !MiraLoc = 1 (Mira at river)
  6. !MiraLoc = 2 (Mira at meadow)
  7. !MiraLoc = 3 (Mira at forest)
  8. !MiraLoc = 4 (Mira at field)
  9. !MiraLoc = 5 (Mira with gop)
  10. !---------------------------------------------
  11. if $ARGS[0] = '1':
  12. *clr & cla
  13. ! figure out if Sveta came from Mira code or not. events play out differently whether with Mira or not
  14. PC_arrive = iif($loc ! 'Miroslava', 1 , 0)
  15. ! edge of forest
  16. $loc = 'gadforest'
  17. $metka = '1'
  18. $location_type = 'secluded'
  19. $menu_loc = 'gadforest'
  20. $menu_arg = '1'
  21. menu_off = 0
  22. clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
  23. gs 'gadukino_event', 'sound'
  24. gs'stat'
  25. *clr & cla
  26. ! Add to knowledge of forest
  27. if goforest < 20:goforest += rand(0,1)
  28. ! chance to get lost
  29. lost = 1
  30. lostrand = rand(1,20)
  31. ! Determine where Sveta got lost in the forest
  32. foresteventrand = rand(1,20)
  33. new_boletus = 0
  34. new_bilberry = 0
  35. '<center><H4>Edge of the Forest</H4></center>'
  36. if month >= 4 and month <= 10:
  37. if hour >= 6 and hour < 22:
  38. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest1.jpg"></center>'
  39. 'Your are at the edge of the forest. Mushrooms and berries grow here and you can often find other people picking them.'
  40. else
  41. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night1.jpg"></center>'
  42. 'You are at the edge of the forest. Night in the woods is scary and uncomfortable.'
  43. end
  44. else
  45. if hour >= 8 and hour < 18:
  46. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter1.jpg"></center>'
  47. 'You are at the edge of the forest. The forest in winter is very beautiful.'
  48. else
  49. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night1.jpg"></center>'
  50. 'You are at the edge of the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  51. end
  52. end
  53. if forestpicnic = 1:'On the edge of the forest you see people. Apparently they are having a family <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
  54. if MiraLoc = 3:'Nearby is <a href="exec: gt ''Miroslava'' ">Mira</a>.'
  55. if clothesAtLocation = 1:'Your clothes are nearby on the ground.'
  56. if findvel = 2:'Leaning up against a tree is your old <a href="exec:gt ''bicycle'',''forest''">bike</a>.'
  57. if goforest < 10:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
  58. ! Sveta arrive without Mira events
  59. if PC_arrive = 1:
  60. if temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest = 1:gt 'gadforest_event', 'nude_event'
  61. if foresteventrand < 3 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 1 & gt'gadforest_event', 'mushroom_pickers1'
  62. if foresteventrand = 3 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1 and week > 5 and forestpicnic = 0: forestpicnic = 1 & gt 'gadforest_event', 'picnic'
  63. if foresteventrand = 4 and month >= 6 and month <= 9: gt 'gadforest_event', 'mushroom_pickers2'
  64. if foresteventrand = 5 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_mitka'
  65. if foresteventrand = 6 and hour >= 8 and hour <= 18 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_kolyamba'
  66. if foresteventrand = 7 and hour >= 8 and hour <= 18 and month >= 4 and month <= 10 and gadboyday ! daystart and week <= 5: gt 'gadforest_event', 'gopforest_vasyan'
  67. if foresteventrand = 8 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_2boys'
  68. if foresteventrand = 9 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_3boys'
  69. end
  70. act 'Leave the woods':
  71. if $clothingworntype = 'nude':
  72. *clr & cla
  73. inhib_exp += rand(0,2)
  74. if hour >= 6 and hour < 22:
  75. if rand(0,100) > 50:
  76. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
  77. else
  78. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back.jpg"></center>'
  79. end
  80. else
  81. if rand(0,100) > 50:
  82. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_nude.jpg"></center>'
  83. else
  84. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_back_night.jpg"></center>'
  85. end
  86. end
  87. if clothesAtLocation = 0:
  88. inhib_exp += rand(0,2)
  89. 'You seem to have misplaced your clothes! You have little choice but to sneak out the woods, hiding your naked body in shadow and moving toward your grandparents house. You wonder where you might have left your clothes.'
  90. elseif gadforest_clothestorn = 1:
  91. ! no clothes here, they must be ripped apart enough times in the woods or swamp to get destroyed.
  92. gadforest_clothestorn = 0
  93. 'Your clothes were torn to shreds in the woods, leaving you with no choice but to head back completely naked, hiding your naked body in shadow and move toward your grandparents house as stealthily as possible.'
  94. elseif clothesAtLocation = 1:
  95. 'You decide to stash your belongings and sneak out the woods completely naked, purely for the thrill of it, hiding your naked body in shadow and moving toward your grandparents house, avoiding any well lit areas.'
  96. end
  97. act 'Run back home naked':
  98. minut += 30
  99. gt'gadforest', 'caught'
  100. end
  101. elseif $clothingworntype = 'cheap' and clothingwornnumber = 414:
  102. if clothesAtLocation = 1:
  103. 'You should pickup your clothes and get dressed before you leave'
  104. end
  105. else
  106. minut += 30
  107. gs 'stat'
  108. gt 'gadroad'
  109. end
  110. end
  111. gs 'treeCircEntry', 'GadForest'
  112. ! can only be naked if successfully complete Mira gadforest_event, nude_event
  113. if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
  114. act'Strip naked':
  115. if forestpicnic = 0:
  116. cla
  117. *clr
  118. menu_off = 1
  119. if pcs_inhib < 50:inhib_exp += rand(1,3)
  120. minut += 5
  121. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  122. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  123. gs 'underwear', 'remove'
  124. gs 'clothing', 'strip', 'gadforest'
  125. gs 'exhibitionism', 3
  126. gs 'stat'
  127. 'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.'
  128. act'Continue':gt'gadforest','1'
  129. else
  130. cla
  131. *clr
  132. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
  133. 'You see a number of people nearby and decide not to undress right now.'
  134. act'Continue':gt'gadforest','1'
  135. end
  136. end
  137. end
  138. if clothesAtLocation = 1 and $clothingworntype = 'nude':
  139. act 'Get dressed':
  140. cla
  141. *clr
  142. menu_off = 1
  143. minut += 5
  144. gs 'clothing', 'swamp_clothes', 0
  145. gs 'underwear', 'wear'
  146. gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
  147. gs 'stat'
  148. if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
  149. if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
  150. 'You change back into your clothes.'
  151. act 'Back': gt 'gadforest','1'
  152. end
  153. end
  154. ! if Sveta left the forest without retrieving her clothes
  155. if clothesAtLocation = 1 and $clothingworntype ! 'nude':
  156. if $clothingworntype = 'cheap' and clothingwornnumber = 414:
  157. act 'Pick up your abandoned clothing':
  158. cla
  159. menu_off = 1
  160. minut += 2
  161. gs 'clothing', 'swamp_clothes', 0
  162. gs 'underwear', 'wear'
  163. gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
  164. gs 'stat'
  165. *nl
  166. 'You pick up your abandoned clothing and change out of the hessian sack the hunters gave you.'
  167. act 'Back': gt 'gadforest','1'
  168. end
  169. else
  170. act 'Pick up your abandoned clothing':
  171. cla
  172. menu_off = 1
  173. minut += 5
  174. gs 'clothing', 'swamp_clothes', 0
  175. gs 'underwear', 'wear'
  176. gs 'clothing', 'recover_lost_clothes', 'gadforest'
  177. gs 'stat'
  178. *nl
  179. 'You pick up your abandoned clothing.'
  180. act 'Back': gt 'gadforest','1'
  181. end
  182. end
  183. end
  184. if hour >= 6 and hour <= 20 and sunWeather = 1:
  185. act 'Go for a walk in the woods':
  186. cla
  187. *clr
  188. menu_off = 1
  189. minut += 60
  190. pcs_mood += 20
  191. if $clothingworntype = 'nude':
  192. pcs_health += healthmax/5 & pcs_horny += 5
  193. inhib_exp += rand(1,5)
  194. end
  195. gs 'stat'
  196. if month >= 4 and month <= 10:
  197. if MiraLoc ! 3:
  198. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest0.'+rand(1,2)+'.jpg"></center>'
  199. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest1.'+rand(1,3)+'.jpg"></center>'
  200. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga0.'+rand(1,2)+'.jpg"></center>'
  201. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
  202. 'You are walking through the woods, enjoying the sounds of the forest and the fresh air.'
  203. else
  204. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
  205. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
  206. 'You walk with Mira through the woods, enjoying the sounds of the forest and the fresh air.'
  207. end
  208. else
  209. if MiraLoc ! 3:
  210. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,2)+'.jpg"></center>'
  211. 'You walk through the snowy woods, enjoying the sounds of the forest and the fresh air.'
  212. else
  213. '<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
  214. 'You walk with Mira through the snowy woods, enjoying the sounds of the forest and the fresh air.'
  215. end
  216. end
  217. act 'Continue':gt 'gadforest','1'
  218. end
  219. end
  220. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and edge_forestday ! daystart:
  221. act 'Look for mushrooms and berries':
  222. cla
  223. *clr
  224. menu_off = 1
  225. minut += 30
  226. temp_gf = rand(1,2)
  227. edge_forestday = daystart
  228. if goforest < 20:goforest += rand(0,1)
  229. gs 'stat'
  230. ! no mushroom pickers or mushroom pickers moved deeper into the forest
  231. if mushroom_pickers = 0 or mushroom_pickers = 2:
  232. cla
  233. new_boletus += rand(0,1)
  234. new_bilberry += 1
  235. boletus += new_boletus
  236. bilberry += new_bilberry
  237. pcs_mood += 5
  238. gs 'stat'
  239. gs 'gadforest', 'clothes1'
  240. if new_boletus = 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  241. if new_boletus > 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  242. end
  243. ! mushroom pickers are at the edge of the forest
  244. if mushroom_pickers = 1 and temp_gf = 1:
  245. cla
  246. new_bilberry += rand(0,1)
  247. bilberry += new_bilberry
  248. gs 'stat'
  249. if new_bilberry > 0: gs 'gadforest', 'clothes1'
  250. if new_bilberry = 0: gs 'gadforest', 'clothes2'
  251. if new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  252. if new_bilberry = 0:'After searching for mushrooms and berries for half an hour you found nothing.'
  253. end
  254. if mushroom_pickers = 1 and temp_gf = 2:
  255. cla
  256. pcs_mood -= 5
  257. gs 'stat'
  258. gs 'gadforest', 'clothes2'
  259. 'After searching for mushrooms and berries for half an hour you found nothing.'
  260. end
  261. act 'Continue':gt 'gadforest','1'
  262. end
  263. end
  264. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and MiraLoc ! 3:
  265. act 'Go further into the forest':
  266. if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
  267. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  268. end
  269. end
  270. if joint > 0 and jointhigh = 0: act 'Smoke a joint': gs 'drugs', 'joint' & gt $loc, $metka
  271. if goswamp = 1 and MiraLoc ! 3:
  272. ! day time chance to get stuck in swamp. ps. use bike to get there 100% of the time by illume
  273. if hour >= 6 and hour < 20:
  274. act 'Go to the swamp':
  275. minut += 75
  276. if goforest >= lostrand:
  277. gt 'swamp'
  278. else
  279. gt 'gadforestswamp','1'
  280. end
  281. end
  282. ! night time chased by wolves
  283. else
  284. act 'Go to the swamp':gt 'gadforest_event', 'swamp_road'
  285. end
  286. end
  287. if rand(1,10)> 9: gs 'gadforest', 'torncloth'
  288. gs 'stat'
  289. end
  290. if $ARGS[0] = 'caught':
  291. *clr & cla
  292. menu_off = 1
  293. caught_rand = rand(0, 100)
  294. if caught_rand > 90:
  295. inhib_exp += rand(0,3)
  296. grandma_trouble += rand(7,10)
  297. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  298. gs 'arousal', 'end'
  299. gs 'stat'
  300. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman.jpg"></center>'
  301. 'You''ve been spotted walking home naked by all the women of the village. They are all sitting there scolding you. Your grandparents are definitely going to find out about this.'
  302. elseif caught_rand > 70:
  303. inhib_exp += rand(0,4)
  304. grandma_trouble += rand(1,3)
  305. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  306. gs 'arousal', 'end'
  307. gs 'stat'
  308. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_woman'+rand(1,5)+'.jpg"></center>'
  309. 'You''ve been spotted walking home naked by a woman from the village. You want to hope she doesn''t tell your grandparents.'
  310. elseif caught_rand > 50:
  311. inhib_exp += rand(0,3)
  312. grandma_trouble += rand(1,3)
  313. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  314. gs 'arousal', 'end'
  315. gs 'stat'
  316. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadukino_old_man'+rand(1,5)+'.jpg"></center>'
  317. 'You''ve been spotted walking home naked by a man from the village. You want to hope he doesn''t tell your grandparents.'
  318. else
  319. grandma_trouble += rand(0,1)
  320. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  321. gs 'arousal', 'end'
  322. gs 'stat'
  323. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/gaddvor_nude.jpg"></center>'
  324. 'Luckily no one saw you outside naked, but there''s a thrill in almost getting caught.'
  325. end
  326. act 'Continue': gt'Gaddvor'
  327. end
  328. if $ARGS[0] = '2':
  329. *clr & cla
  330. ! slightly inside forest
  331. $loc = 'gadforest'
  332. $metka = '2'
  333. $location_type = 'secluded'
  334. $menu_loc = 'gadforest'
  335. $menu_arg = '2'
  336. menu_off = 0
  337. gs 'gadukino_event', 'sound'
  338. gs'stat'
  339. ! Add to knowledge of forest
  340. if goforest < 40:goforest += rand(0,1)
  341. ! Determine where Sveta got lost in the forest
  342. lost = 2
  343. ! chance to get lost
  344. lostrand = rand(1,60)
  345. foresteventrand = rand(1,10)
  346. new_boletus = 0
  347. new_bilberry = 0
  348. '<center><H4>Forest</H4></center>'
  349. if month >= 4 and month <= 10:
  350. if hour >= 6 and hour < 22:
  351. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest2.jpg"></center>'
  352. 'You are in the forest. The fresh air and singing birds light up your soul with joy.'
  353. else
  354. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
  355. 'You are in the forest. Night in the woods is scary and uncomfortable.'
  356. end
  357. else
  358. if hour >= 8 and hour < 18:
  359. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter2.jpg"></center>'
  360. 'You are in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  361. else
  362. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night2.jpg"></center>'
  363. 'You are in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  364. end
  365. end
  366. if goforest < 20:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
  367. if foresteventrand = 1 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1'
  368. if foresteventrand = 2 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hunters'
  369. if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
  370. act 'To the edge of the forest':
  371. lostrand = rand(1,30)
  372. if goforest >= lostrand:minut += 30 & gt 'gadforest','1'
  373. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  374. end
  375. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and forestday ! daystart:
  376. act 'Look for mushrooms and berries':
  377. cla
  378. *clr
  379. menu_off = 1
  380. minut += 30
  381. temp_gf = rand(1,2)
  382. forestday = daystart
  383. if goforest < 40:goforest += rand(0,1)
  384. gs 'stat'
  385. ! mushroom_pickers either not seen today or still at the edge of the forest
  386. if mushroom_pickers < 2:
  387. cla
  388. new_boletus += 1
  389. new_bilberry += rand(1,2)
  390. boletus += new_boletus
  391. bilberry += new_bilberry
  392. pcs_mood += 5
  393. gs 'stat'
  394. gs 'gadforest', 'clothes1'
  395. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  396. end
  397. if mushroom_pickers = 2 and temp_gf = 1:
  398. cla
  399. new_boletus += rand(0,1)
  400. new_bilberry += 1
  401. boletus += new_boletus
  402. bilberry += new_bilberry
  403. gs 'stat'
  404. if new_boletus > 0 or new_bilberry > 0: gs 'gadforest', 'clothes1'
  405. if new_boletus = 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  406. if new_boletus > 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  407. end
  408. if mushroom_pickers = 2 and temp_gf = 2:
  409. cla
  410. pcs_mood -= 5
  411. gs 'stat'
  412. gs 'gadforest', 'clothes2'
  413. 'After searching for mushrooms and berries for half an hour you found nothing.'
  414. end
  415. act 'Continue':gt 'gadforest','2'
  416. end
  417. end
  418. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
  419. act 'Go further into the forest':
  420. if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
  421. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  422. end
  423. end
  424. if rand(1,10)> 8: gs 'gadforest', 'torncloth'
  425. end
  426. if $ARGS[0] = '3':
  427. *clr & cla
  428. ! deep inside forest
  429. $loc = 'gadforest'
  430. $metka = '3'
  431. $location_type = 'secluded'
  432. $menu_loc = 'gadforest'
  433. $menu_arg = '3'
  434. menu_off = 0
  435. gs 'gadukino_event', 'sound'
  436. gs'stat'
  437. ! Add to knowledge of forest
  438. if goforest < 60:goforest += rand(0,1)
  439. lost = 3
  440. ! Determine where Sveta got lost in the forest
  441. lostrand = rand(1,100)
  442. ! chance to get lost
  443. foresteventrand = rand(1,10)
  444. new_boletus = 0
  445. new_bilberry = 0
  446. '<center><H4>Deep Forest</H4></center>'
  447. if month >= 4 and month <= 10:
  448. if hour >= 6 and hour < 22:
  449. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest3.jpg"></center>'
  450. 'You are deep in the forest. The fresh air and singing birds light up your soul with joy.'
  451. else
  452. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night3.jpg"></center>'
  453. 'You are deep in the forest. Night in the woods is scary and uncomfortable.'
  454. end
  455. else
  456. if hour >= 8 and hour < 18:
  457. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter3.jpg"></center>'
  458. 'You are deep in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
  459. else
  460. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night3.jpg"></center>'
  461. 'You are deep in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
  462. end
  463. end
  464. if goforest < 30:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
  465. if foresteventrand = 1 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'basket'
  466. if foresteventrand = 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
  467. if foresteventrand = 3 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
  468. if foresteventrand = 4 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hunters'
  469. act 'Go back to the forest':
  470. lostrand = rand(1,60)
  471. if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
  472. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  473. end
  474. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and thicketday ! daystart:
  475. act 'Look for mushrooms and berries':
  476. *clr & cla
  477. menu_off = 1
  478. minut += 30
  479. thicketday = daystart
  480. if goforest < 60:goforest += rand(0,1)
  481. new_boletus += rand(1,2)
  482. new_bilberry += rand(1,2)
  483. boletus += new_boletus
  484. bilberry += new_bilberry
  485. pcs_mood += 5
  486. gs 'stat'
  487. gs 'gadforest', 'clothes1'
  488. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  489. act 'Continue':gt 'gadforest','3'
  490. end
  491. end
  492. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
  493. act 'Go further into the forest':
  494. if goforest >= lostrand:minut += 30 & gt 'gadforest','4'
  495. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  496. end
  497. end
  498. if rand(1,10)> 6: gs 'gadforest', 'torncloth'
  499. end
  500. if $ARGS[0] = '4':
  501. *clr & cla
  502. ! forest near swamp
  503. $loc = 'gadforest'
  504. $metka = '4'
  505. $location_type = 'secluded'
  506. $menu_loc = 'gadforest'
  507. $menu_arg = '4'
  508. menu_off = 0
  509. gs 'gadukino_event', 'sound'
  510. gs'stat'
  511. ! Add to knowledge of forest
  512. if goforest < 80:goforest += rand(0,1)
  513. lost = 4
  514. ! Determine where Sveta got lost in the forest
  515. lostrand = rand(1,120)
  516. ! chance to get lost
  517. foresteventrand = rand(1,10)
  518. dirty = 0
  519. new_boletus = 0
  520. new_bilberry = 0
  521. '<center><H4>Forest near the Swamp</H4></center>'
  522. if month >= 4 and month <= 10:
  523. if hour >= 6 and hour < 22:
  524. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest4.jpg"></center>'
  525. 'You are in the forest near the swamp. The fresh air and singing birds light up your soul with joy.'
  526. else
  527. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night4.jpg"></center>'
  528. 'Forest. Night in the woods is scary and uncomfortable.'
  529. end
  530. else
  531. if hour >= 8 and hour < 18:
  532. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter4.jpg"></center>'
  533. 'You are in the forest near the swamp. The forest in the winter is very beautiful, the fresh air makes you happy.'
  534. else
  535. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night4.jpg"></center>'
  536. 'You are in the forest near the swamp. Night in the forest during wintertime is very scary and uncomfortable.'
  537. end
  538. end
  539. if goforest < 60:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
  540. if foresteventrand < 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
  541. if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
  542. if foresteventrand = 5 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hunters'
  543. act 'Go back to the deep woods':
  544. lostrand = rand(1,100)
  545. if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
  546. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  547. end
  548. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swampforest ! daystart:
  549. act 'Look for mushrooms and berries':
  550. cla
  551. *clr
  552. menu_off = 1
  553. minut += 30
  554. swampforest = daystart
  555. if goforest < 80:goforest += rand(0,1)
  556. new_boletus += rand(1,2)
  557. new_bilberry += rand(2,3)
  558. boletus += new_boletus
  559. bilberry += new_bilberry
  560. pcs_mood += 5
  561. gs 'stat'
  562. gs 'gadforest', 'clothes1'
  563. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  564. act 'Continue':gt 'gadforest','4'
  565. end
  566. end
  567. act 'Go further into the swamp':
  568. if goforest >= lostrand and goswamp = 1:minut += 30 & gt 'swamp'
  569. if goforest >= lostrand and goswamp = 0:minut += 30 & gt 'gadforestswamp','1'
  570. if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
  571. end
  572. if rand(1,10)> 7: gs 'gadforest', 'torncloth'
  573. end
  574. !dynamics to ARGS by illume
  575. if $ARGS[0] = 'clothes1':
  576. if MiraLoc ! 3:
  577. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom1.jpg"></center>'
  578. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom2.jpg"></center>'
  579. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom3.jpg"></center>'
  580. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom4.'+rand(1,3)+'.jpg"></center>'
  581. else
  582. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom'+rand(1,2)+'.jpg"></center>'
  583. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude'+rand(1,2)+'.jpg"></center>'
  584. end
  585. end
  586. if $ARGS[0] = 'clothes2':
  587. if MiraLoc ! 3:
  588. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest2.jpg"></center>'
  589. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest3.jpg"></center>'
  590. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga1.'+rand(1,2)+'.jpg"></center>'
  591. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude1.'+rand(1,4)+'.jpg"></center>'
  592. else
  593. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom3.jpg"></center>'
  594. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miramushroom_nude3.jpg"></center>'
  595. end
  596. end
  597. if $ARGS[0] = 'gadforestloststart':
  598. cla
  599. *clr
  600. menu_off = 1
  601. gs 'stat'
  602. '<center><H4>Somewhere in the woods</H4></center>'
  603. if month >= 5 and month <= 9:
  604. if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear1.jpg"></center>'
  605. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear2.jpg"></center>'
  606. else
  607. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear3.jpg"></center>'
  608. end
  609. 'You suddenly realize in horror that you are not familiar with the area you are in... you are lost!.'
  610. act 'Look for a way out':
  611. if lost = 1: gt 'gadforestlost','1'
  612. if lost = 2: gt 'gadforestlost','2'
  613. if lost = 3: gt 'gadforestlost','3'
  614. if lost = 4: gt 'gadforestlost','4'
  615. end
  616. ! add for rescue in forest by illume
  617. forest_lost = 1
  618. if StoryLine = 1: forest_lostday = daystart + rand(1,3)
  619. end
  620. if $ARGS[0] = 'torncloth':
  621. menu_off = 1
  622. gs 'stat'
  623. !the withdrawal strength of the garment, if not jeans. moved from gadforest 1 into args, and call in all forest by illume
  624. if $clothingworntype ! 'nude':
  625. if (PCloThinness = 1 or PCloSkirt > 0) and PCloQuality < 5:
  626. !skirts, not fit, and not high-class enough by illume
  627. 'Oops, your clothes get snagged and tear slightly.'
  628. dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 1'
  629. !add remove clothes if worn out
  630. if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
  631. 'Your ripped clothes were barely holding together, but now they have finally fell apart. You are naked now.'
  632. gadforest_clothestorn = 1
  633. gs 'clothing', 'strip', 'gadforest', 2
  634. end
  635. end
  636. end
  637. end
  638. --- gadforest ---------------------------------