gadforestlost.qsrc 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797
  1. # gadforestlost
  2. ! this file holds all the current code and events for player when lost
  3. ! it is structured like the normal gadforest file with similar actions and arguments but with unique events
  4. if $ARGS[0] = 'forest_outskirts':
  5. *clr & cla
  6. $loc = 'gadforestlost'
  7. $loc_arg = 'forest_outskirts'
  8. $location_type = 'secluded'
  9. $menu_loc = 'gadforestlost'
  10. $menu_arg = 'forest_outskirts'
  11. menu_off = 0
  12. $forest_args1 = 'forest_outskirts'
  13. CLOSE ALL
  14. gs 'gadukino_event', 'sound'
  15. gs 'stat'
  16. gs 'gadforestlost', 'gadforestlost_picture'
  17. ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking
  18. foresteventrand = rand(1,40)
  19. if foresteventrand <= (2+(bonfire*5)) and daystart >= forest_lostday and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 2 & gt 'gadforestlost', 'rescue', 'pickers', 'forest_outskirts'
  20. if foresteventrand <= (4+(bonfire*5)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)) and daystart > forest_lostday + 1: gt 'gadforestlost', 'rescue', 'hunters', 'forest_outskirts'
  21. if foresteventrand <= (6+(bonfire*5)) and StoryLine = 1 and daystart > forest_lostday: gt 'gadforestlost', 'rescue', 'ranger', 'forest_outskirts'
  22. if foresteventrand <= (8-(bonfire*5)) and (hour < 6 or hour > 22): gt 'gadforestlost', 'wolves', 'forest_outskirts'
  23. gs 'gadforestlost', 'wander'
  24. act 'Relax here for a bit': gt 'gadforestlost', 'relax'
  25. gs 'gadforestlost', 'picking'
  26. end
  27. if $ARGS[0] = 'forest_center':
  28. *clr & cla
  29. $loc = 'gadforestlost'
  30. $loc_arg = 'forest_center'
  31. $location_type = 'secluded'
  32. $menu_loc = 'gadforestlost'
  33. $menu_arg = 'forest_center'
  34. menu_off = 0
  35. $forest_args1 = 'forest_center'
  36. CLOSE ALL
  37. gs 'gadukino_event', 'sound'
  38. gs 'stat'
  39. gs 'gadforestlost', 'gadforestlost_picture'
  40. ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking
  41. foresteventrand = rand(1,40)
  42. if foresteventrand <= (1+(bonfire*2)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)) and daystart > forest_lostday: gt 'gadforestlost', 'rescue', 'hunters', 'forest_center'
  43. if foresteventrand <= (3+(bonfire*2)) and StoryLine = 1 and daystart > forest_lostday + 1: gt 'gadforestlost', 'rescue', 'ranger', 'forest_center'
  44. if foresteventrand <= (8-(bonfire*2)) and (hour < 6 or hour > 22): gt 'gadforestlost', 'wolves', 'forest_center'
  45. gs 'gadforestlost', 'wander'
  46. act 'Relax here for a bit': gt 'gadforestlost', 'relax'
  47. gs 'gadforestlost', 'picking'
  48. end
  49. ! this gs handles the bushcraft increases, clothing degradation, while lost in the forest
  50. ! $ARGS[1] - location of forest where this is called from
  51. ! Example: gs 'gadforestlost', 'bushcraft', 'forest_outskirts'
  52. if $ARGS[0] = 'bushcraft':
  53. ! Make sure Sveta always has at least 1 pcs_bushcraft
  54. if pcs_bushcraft <= 0:pcs_bushcraft = 1
  55. if $ARGS[1] = 'forest_outskirts':
  56. bushcraft_rand = 2
  57. bushcraft_lost = 20
  58. torncloth_high_bushcraft = 9
  59. torncloth_low_bushcraft = 7
  60. elseif $ARGS[1] = 'forest_center':
  61. bushcraft_rand = 3
  62. bushcraft_lost = 30
  63. torncloth_high_bushcraft = 8
  64. torncloth_low_bushcraft = 5
  65. end
  66. ! No limit on earning bushcraft while lost but still random
  67. bushcraft_exp += rand(0,bushcraft_rand)
  68. ripclothesrand = rand(1,10)
  69. if pcs_bushcraft < bushcraft_limit:
  70. if ripclothesrand >= torncloth_low_bushcraft: gs 'gadforest', 'torncloth'
  71. else
  72. if ripclothesrand >= torncloth_high_bushcraft: gs 'gadforest', 'torncloth'
  73. end
  74. gs 'stat'
  75. end
  76. ! this gs handles Sveta trying to find her way in the forest when lost
  77. ! $forest_args1 - location of forest where this is called from
  78. ! Example: gs 'gadforestlost', 'wander'
  79. if $ARGS[0] = 'wander':
  80. if hour >= 6 and hour < 22:
  81. act 'Wander trying to get your bearings (1:30)':
  82. *clr & cla
  83. menu_off = 1
  84. minut += 90
  85. gs 'stat'
  86. gs 'gadforestlost', 'bushcraft', $forest_args1
  87. '<center><H4>Somewhere in the forest</H4></center>'
  88. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_nude0.'+rand(1,4)+'.jpg"></center>'
  89. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg"></center>'
  90. if $clothingworntype ! 'nude' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_ski0.'+rand(1,4)+'.jpg"></center>'
  91. *nl
  92. if pcs_bushcraft < bushcraft_lost:
  93. lostrand = rand(1,bushcraft_lost)
  94. if pcs_bushcraft > lostrand:
  95. gt 'gadforestlost','finish', $forest_args1
  96. else
  97. 'After half an hour wandering around, you feel like all you''ve accomplished is walking in circles.'
  98. act 'Continue':gt 'gadforestlost', $forest_args1
  99. end
  100. else
  101. gt 'gadforestlost','finish', $forest_args1
  102. end
  103. end
  104. end
  105. end
  106. ! $forest_args1 - location of forest where this is called from
  107. ! Example: gt 'gadforestlost', 'relax'
  108. if $ARGS[0] = 'relax':
  109. *clr & cla
  110. $loc = 'gadforestlost'
  111. $loc_arg = 'relax'
  112. $location_type = 'secluded'
  113. $menu_loc = 'gadforestlost'
  114. $menu_arg = 'relax'
  115. menu_off = 0
  116. CLOSE ALL
  117. gs 'gadukino_event', 'sound'
  118. gs 'stat'
  119. if $forest_args1 = 'forest_outskirts':
  120. ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking
  121. foresteventrand = rand(1,30)
  122. if foresteventrand <= (2+(bonfire*5)) and daystart >= forest_lostday and month >= 6 and month <= 9 and hour >= 8 and hour <= 16 and mushroom_pickersday ! daystart: mushroom_pickers = 2 & gt 'gadforestlost', 'rescue', 'pickers', $forest_args1
  123. if foresteventrand <= (4+(bonfire*5)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)): gt 'gadforestlost', 'rescue', 'hunters', $forest_args1
  124. if foresteventrand <= (6+(bonfire*5)) and StoryLine = 1 and daystart > forest_lostday+1: gt 'gadforestlost', 'rescue', 'ranger', $forest_args1
  125. elseif $forest_args1 = 'forest_center':
  126. ! having a bonfire increases chances of being rescued and decreases chances of wolves attacking
  127. foresteventrand = rand(1,40)
  128. if foresteventrand <= (1+(bonfire*5)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)): gt 'gadforestlost', 'rescue', 'hunters', $forest_args1
  129. if foresteventrand <= (3+(bonfire*5)) and StoryLine = 1 and daystart > forest_lostday+1: gt 'gadforestlost', 'rescue', 'ranger', $forest_args1
  130. end
  131. '<center><H4>Somewhere in the forest</H4></center>'
  132. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+ rand(1,3) +'.jpg"></center>'
  133. if $clothingworntype ! 'nude' and PCloSkirt = 0 and bonfire = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax1.jpg"></center>'
  134. if $clothingworntype ! 'nude' and PCloSkirt = 0 and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax2.jpg"></center>'
  135. if $clothingworntype ! 'nude' and PCloSkirt > 0 and bonfire = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski1.jpg"></center>'
  136. if $clothingworntype ! 'nude' and PCloSkirt > 0 and $pantyworntype ! 'none' and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski2.jpg"></center>'
  137. if $clothingworntype ! 'nude' and PCloSkirt > 0 and $pantyworntype = 'none' and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski3.jpg"></center>'
  138. *nl
  139. 'You decide this is as good of place as any to stop and take a break.'
  140. if bonfire = 0:
  141. '<font color="red">You should build a bonfire to increase the chance of being rescued and decrease the chance of being attacked by wolves.</font>'
  142. else
  143. '<font color="green">Your bonfire burns bright, increasing the chance of being rescued and decreasing the chance of being attacked by wolves.</font>'
  144. end
  145. act 'Explore the forest': gt 'gadforestlost', $forest_args1
  146. if bonfire = 0:
  147. act 'Build a fire (0:30)':
  148. *clr & cla
  149. menu_off = 1
  150. minut += 30
  151. bonfire = 1
  152. gs 'stat'
  153. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire1.jpg"></center>'
  154. *nl
  155. 'After a few minutes, you are able to get a nice sized fire started.'
  156. act 'Continue':gt 'gadforestlost', 'relax'
  157. end
  158. act 'Sit and relax (1:00)':
  159. *clr & cla
  160. menu_off = 1
  161. minut += 60
  162. gs 'stat'
  163. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+rand(1,2)+'.jpg"></center>'
  164. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax3.jpg"></center>'
  165. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski4.jpg"></center>'
  166. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski5.jpg"></center>'
  167. *nl
  168. 'You spend half an hour relaxing, trying to pretend this is just like any other walk in the woods you''ve done.'
  169. act 'Continue':gt 'gadforestlost', 'relax'
  170. end
  171. if pcs_sleep < 40:
  172. act 'Nap on the ground (2:00)':
  173. *clr & cla
  174. menu_off = 1
  175. minut += 120
  176. pcs_sleep += 20
  177. pcs_health += 5
  178. pcs_mood += 10
  179. gs'stat'
  180. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepnude1.'+rand(1,2)+'.jpg"></center>'
  181. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleep.jpg"></center>'
  182. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski.jpg"></center>'
  183. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski1.jpg"></center>'
  184. *nl
  185. 'You are able to make youself fall asleep for about 2 hours, but that is it. If you want to get a full nights sleep you will have to find a way out of the forest.'
  186. 'Even though you had to sleep on the ground, you do wake up feeling a bit more hopeful and rested.'
  187. act 'Continue':gt 'gadforestlost', 'relax'
  188. end
  189. end
  190. elseif bonfire = 1:
  191. act 'Warm up by the fire (1:00)':
  192. *clr & cla
  193. menu_off = 1
  194. minut += 60
  195. if frost > 0: frost -= 1
  196. gs 'stat'
  197. if hour >= 6 and hour < 21:
  198. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire2.jpg"></center>'
  199. else
  200. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire3.jpg"></center>'
  201. end
  202. *nl
  203. 'You spend half an hour huddled by the flames'
  204. act 'Continue':gt 'gadforestlost', 'relax'
  205. end
  206. if pcs_sleep < 40:
  207. act 'Nap by the fire (2:00)':
  208. *clr & cla
  209. menu_off = 1
  210. minut += 120
  211. pcs_sleep += 20
  212. pcs_health += 10
  213. pcs_mood += 20
  214. frost = 0
  215. gs 'stat'
  216. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg"></center>'
  217. *nl
  218. 'You are able to make youself fall asleep for about 2 hours, but that is it. If you want to get a full nights sleep you will have to find a way out of the forest.'
  219. 'Even though you had to sleep on the ground, you do wake up feeling a bit more hopeful and rested.'
  220. act 'Continue':gt 'gadforestlost', 'relax'
  221. end
  222. end
  223. if boletus > 0:
  224. act 'Cook some mushrooms in the fire (0:15)':
  225. *clr & cla
  226. menu_off = 1
  227. minut += 15
  228. boletus_cooked += 1
  229. boletus -= 1
  230. frost = 0
  231. gs'stat'
  232. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletushot.jpg"></center>'
  233. *nl
  234. 'You spend 15 minutes grilling some mushrooms in the fire.'
  235. act 'Continue':gt 'gadforestlost', 'relax'
  236. end
  237. end
  238. end
  239. if boletus_cooked > 0:
  240. act 'Eat cooked mushrooms (0:15)':
  241. *clr & cla
  242. menu_off = 1
  243. minut += 15
  244. boletus_cooked -= 1
  245. pcs_health += 10
  246. pcs_mood += 10
  247. fat += 1
  248. pcs_energy += 20
  249. gs'stat'
  250. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletuscook.jpg"></center>'
  251. *nl
  252. 'You eat some cooked mushrooms. They are pretty tasty considering your circumstances.'
  253. act 'Continue':gt 'gadforestlost', 'relax'
  254. end
  255. end
  256. if bilberry > 0:
  257. act 'Eat berries (0:15)':
  258. *clr & cla
  259. menu_off = 1
  260. minut += 15
  261. bilberry -= 1
  262. pcs_health += 10
  263. pcs_mood += 10
  264. fat += 1
  265. pcs_energy += 10
  266. pcs_hydra += 10
  267. gs'stat'
  268. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
  269. *nl
  270. 'You eat some berries. These would be great to eat even if you weren''t lost.'
  271. act 'Continue':gt 'gadforestlost', 'relax'
  272. end
  273. end
  274. end
  275. ! this gs handles mushroom and berry picking for Sveta in the various locations of the forest when she is lost
  276. ! $forest_args1 - location of forest where this is called from
  277. ! Example: gs 'gadforestlost', 'picking'
  278. if $ARGS[0] = 'picking':
  279. if hour >= 6 and hour < 22 and month >= 6 and month <= 9 and boletus + boletus_cooked + bilberry < 5:
  280. act 'Look for mushrooms and berries (0:30)':
  281. *clr & cla
  282. menu_off = 1
  283. if $forest_args1 = 'forest_outskirts':
  284. outskirts_pickingday = daystart
  285. mushroom_pickers_check = 2
  286. max_boletus = 2
  287. max_bilberry = 2
  288. elseif $forest_args1 = 'forest_center':
  289. center_pickingday = daystart
  290. mushroom_pickers_check = 3
  291. max_boletus = 3
  292. max_bilberry = 3
  293. end
  294. minut += 30
  295. new_boletus = 0
  296. new_bilberry = 0
  297. gs 'gadforestlost', 'bushcraft', $forest_args1
  298. if $clothingworntype = 'nude' and pcs_inhib < 50:inhib_exp += rand(1,5)
  299. gs 'stat'
  300. if mushroom_pickers ! mushroom_pickers_check:
  301. new_boletus += max_boletus
  302. new_bilberry += max_bilberry
  303. boletus += new_boletus
  304. bilberry += new_bilberry
  305. pcs_mood += 10
  306. gs 'stat'
  307. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  308. *nl
  309. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  310. elseif mushroom_pickers = mushroom_pickers_check:
  311. new_boletus += rand(0,max_boletus)
  312. new_bilberry += rand(0,max_bilberry)
  313. boletus += new_boletus
  314. bilberry += new_bilberry
  315. gs 'stat'
  316. if new_boletus > 0 and new_bilberry > 0:
  317. pcs_mood += 10
  318. gs 'stat'
  319. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  320. *nl
  321. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  322. elseif new_boletus = 0 and new_bilberry > 0:
  323. pcs_mood += 5
  324. gs 'stat'
  325. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  326. *nl
  327. 'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  328. elseif new_boletus > 0 and new_bilberry = 0:
  329. pcs_mood += 5
  330. gs 'stat'
  331. gs 'gadforest', 'picking_clothes', $forest_args1, 'mushroom'
  332. *nl
  333. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms'
  334. elseif new_boletus = 0 and new_bilberry = 0:
  335. pcs_mood -= 5
  336. gs 'stat'
  337. gs 'gadforest', 'picking_clothes_empty', $forest_args1
  338. *nl
  339. 'After searching for mushrooms and berries for half an hour you found nothing.'
  340. end
  341. end
  342. act 'Continue':gt 'gadforestlost', $forest_args1
  343. end
  344. end
  345. end
  346. ! $ARGS[1] - location of forest where this is called from
  347. if $ARGS[0] = 'finish':
  348. *clr & cla
  349. menu_off = 1
  350. bonfire = 0
  351. pcs_mood += 20
  352. bushcraft_exp += rand(1,5)
  353. gs 'clothing', 'swamp_clothes', 0
  354. gs 'stat'
  355. '<center><H4>Somewhere in the forest</H4></center>'
  356. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
  357. *nl
  358. 'After half an hour wandering around, you finally see some familiar sights.'
  359. if $clothingworntype = 'nude':
  360. if $ARGS[1] = 'forest_outskirts':
  361. act 'Continue':
  362. if meadow > 0:
  363. foresteventrand = rand(1,3)
  364. else
  365. foresteventrand = rand(1,2)
  366. end
  367. if foresteventrand = 1: minut += 15 & gt 'gadforest','forest_edge'
  368. if foresteventrand = 2: gt 'gadforest','forest_outskirts'
  369. if foresteventrand = 3: minut += 35 & gt 'meadow', 'start'
  370. end
  371. elseif $ARGS[1] = 'forest_center':
  372. act 'Continue':
  373. if hunterscabin = 1 and meadow > 0:
  374. foresteventrand = rand(1,5)
  375. elseif meadow > 0:
  376. foresteventrand = rand(1,4)
  377. else
  378. foresteventrand = rand(1,3)
  379. end
  380. if foresteventrand = 1: minut += 30 & gt 'gadforest','forest_edge'
  381. if foresteventrand = 2: minut += 15 & gt 'gadforest','forest_outskirts'
  382. if foresteventrand = 3: gt 'gadforest','forest_center'
  383. if foresteventrand = 4: minut += 50 & gt 'meadow', 'start'
  384. if foresteventrand = 5: minut += 30 & gt 'swamp_yard', 'start'
  385. end
  386. end
  387. else
  388. if $ARGS[1] = 'forest_outskirts':
  389. act 'Continue':
  390. if meadow > 0:
  391. foresteventrand = rand(1,6)
  392. else
  393. foresteventrand = rand(1,5)
  394. end
  395. if foresteventrand = 1: minut += 15 & gt 'gadforest','forest_edge'
  396. if foresteventrand = 2: gt 'gadforest','forest_outskirts'
  397. if foresteventrand = 3: minut += 40 & gt 'gadfield','field'
  398. if foresteventrand = 4: minut += 30 & gt 'gadroad'
  399. if foresteventrand = 5: minut += 40 & gt 'gadriver','start'
  400. if foresteventrand = 6: minut += 35 & gt 'meadow', 'start'
  401. end
  402. elseif $ARGS[1] = 'forest_center':
  403. act 'Continue':
  404. if hunterscabin = 1 and meadow > 0:
  405. foresteventrand = rand(1,8)
  406. elseif meadow > 0:
  407. foresteventrand = rand(1,7)
  408. else
  409. foresteventrand = rand(1,6)
  410. end
  411. if foresteventrand = 1: minut += 30 & gt 'gadforest','forest_edge'
  412. if foresteventrand = 2: minut += 15 & gt 'gadforest','forest_outskirts'
  413. if foresteventrand = 3: gt 'gadforest','forest_center'
  414. if foresteventrand = 4: minut += 55 & gt 'gadfield','field'
  415. if foresteventrand = 5: minut += 45 & gt 'gadroad'
  416. if foresteventrand = 6: minut += 55 & gt 'gadriver','start'
  417. if foresteventrand = 7: minut += 50 & gt 'meadow', 'start'
  418. if foresteventrand = 8: minut += 30 & gt 'swamp_yard', 'start'
  419. end
  420. end
  421. end
  422. end
  423. ! $ARGS[1] - who is rescuing player
  424. ! $ARGS[2] - location of forest where this is called from
  425. if $ARGS[0] = 'rescue':
  426. *clr & cla
  427. menu_off = 1
  428. bonfire = 0
  429. pcs_mood += 20
  430. bushcraft_exp += rand(1,5)
  431. if StoryLine = 0: lost_girl = 0
  432. if swamp_clothes = 1:
  433. 'You remove the terrible excuse for clothing the hunters gave you. You''re sure you can find something better to wear'+iif(StoryLine=1,' at your grandparents house.','.')
  434. gs 'clothing', 'strip', 'gadforest'
  435. gs 'clothing', 'swamp_clothes', 0
  436. end
  437. gs 'stat'
  438. if $ARGS[1] = 'pickers':
  439. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers2.jpg"></center>'
  440. *nl
  441. 'Suddenly you hear the sounds of people approaching. A group of pickers from the village appear out of the bushes.'
  442. if bonfire = 1:'They notice your fire and praise you, "When lost, it''s very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others."'
  443. if StoryLine = 1 and grandmaQW['block'] = 0:
  444. 'They walk up to you and say, "Your grandparents are very worried about you. They asked us to keep an eye out for you. Follow us, we will lead you back '+iif($clothingworntype ! 'nude','to their house."','to the edge of the forest."')
  445. if $clothingworntype ! 'nude':
  446. if $ARGS[2] = 'forest_outskirts':
  447. act 'Continue': minut += 45 & gt 'gadhouse', 'start'
  448. elseif $ARGS[2] = 'forest_center':
  449. act 'Continue': minut += 60 & gt 'gadhouse', 'start'
  450. end
  451. else
  452. if $ARGS[2] = 'forest_outskirts':
  453. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  454. elseif $ARGS[2] = 'forest_center':
  455. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  456. end
  457. end
  458. else
  459. 'They walk up to you and say, "We heard there may have been a missing girl in the forest. Follow us, we will lead you back '+iif($clothingworntype ! 'nude','out of the forest."','to the edge of the forest."')
  460. if $clothingworntype ! 'nude':
  461. if $ARGS[2] = 'forest_outskirts':
  462. act 'Continue': minut += 30 & gt 'gadroad'
  463. elseif $ARGS[2] = 'forest_center':
  464. act 'Continue': minut += 45 & gt 'gadroad'
  465. end
  466. else
  467. if $ARGS[2] = 'forest_outskirts':
  468. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  469. elseif $ARGS[2] = 'forest_center':
  470. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  471. end
  472. end
  473. end
  474. elseif $ARGS[1] = 'hunters':
  475. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters.jpg"></center>'
  476. *nl
  477. 'Suddenly you hear the sounds of people approaching. '+iif(hunters_were_met=1,'The hunters from the swamp ','A group of hunters ')+'appear out of the bushes.'
  478. if bonfire = 1:'They notice your fire and praise you, "When lost, it''s very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others."'
  479. if StoryLine = 1 and grandmaQW['block'] = 0:
  480. 'They walk up to you and say, "Your grandparents are very worried about you. They asked us to keep an eye out for you. Follow us, you can stay at our camp for the time being until someone can take you back."'
  481. if $ARGS[2] = 'forest_outskirts':
  482. act 'Continue': minut += 45 & gt 'hunter_interactions', 'meet_hunters_after_rescue'
  483. else
  484. act 'Continue': minut += 30 & gt 'hunter_interactions', 'meet_hunters_after_rescue'
  485. end
  486. else
  487. 'They walk up to you and say, "We heard there may have been a missing girl in the forest. Follow us, you can stay at our camp for the time being until someone can take you back."'
  488. if $ARGS[2] = 'forest_outskirts':
  489. act 'Continue': minut += 45 & gt 'hunter_interactions', 'meet_hunters_after_rescue'
  490. else
  491. act 'Continue': minut += 30 & gt 'hunter_interactions', 'meet_hunters_after_rescue'
  492. end
  493. end
  494. elseif $ARGS[1] = 'ranger':
  495. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
  496. *nl
  497. 'Suddenly you hear the sound of a person approaching. A man you vaguely recognize from the village appears out of the bushes.'
  498. if bonfire = 1:'They notice your fire and praise you, "When lost, it''s very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others."'
  499. if StoryLine = 1 and grandmaQW['block'] = 0:
  500. 'He walks up to you and says, "Your grandparents are very worried about you. They asked me to keep an eye out for you. Follow me, I will lead you back '+iif($clothingworntype ! 'nude','to their house."','to the edge of the forest."')
  501. if $clothingworntype ! 'nude':
  502. if $ARGS[2] = 'forest_outskirts':
  503. act 'Continue': minut += 45 & gt 'gadhouse', 'start'
  504. elseif $ARGS[2] = 'forest_center':
  505. act 'Continue': minut += 60 & gt 'gadhouse', 'start'
  506. elseif $ARGS[2] = 'swamp_yard':
  507. act 'Continue': minut += 90 & gt 'gadhouse', 'start'
  508. end
  509. else
  510. if $ARGS[2] = 'forest_outskirts':
  511. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  512. elseif $ARGS[2] = 'forest_center':
  513. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  514. elseif $ARGS[2] = 'swamp_yard':
  515. act 'Continue': minut += 60 & gt 'gadforest', 'forest_edge'
  516. end
  517. end
  518. else
  519. 'He walks up to you and says, "I heard there may have been a missing girl in the forest. Follow me, I will lead you back '+iif($clothingworntype ! 'nude','out of the forest."','to the edge of the forest."')
  520. if $clothingworntype ! 'nude':
  521. if $ARGS[2] = 'forest_outskirts':
  522. act 'Continue': minut += 30 & gt 'gadroad'
  523. elseif $ARGS[2] = 'forest_center':
  524. act 'Continue': minut += 45 & gt 'gadroad'
  525. elseif $ARGS[2] = 'swamp_yard':
  526. act 'Continue': minut += 75 & gt 'gadroad'
  527. end
  528. else
  529. if $ARGS[2] = 'forest_outskirts':
  530. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  531. elseif $ARGS[2] = 'forest_center':
  532. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  533. elseif $ARGS[2] = 'swamp_yard':
  534. act 'Continue': minut += 60 & gt 'gadforest', 'forest_edge'
  535. end
  536. end
  537. end
  538. end
  539. end
  540. ! $ARGS[1] - location of forest where this is called from
  541. if $ARGS[0] = 'wolves':
  542. *clr & cla
  543. menu_off = 1
  544. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/howl.jpg"></center>'
  545. *nl
  546. 'Suddenly your hear a terrifying howl nearby.'
  547. act 'Run away':
  548. *clr & cla
  549. gs 'exercise', 'tier4', 1, 'run_exp'
  550. gs 'stat'
  551. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run.jpg"></center>'
  552. *nl
  553. 'Instincts take over and you begin running without a second thought.'
  554. if $ARGS[1] = 'forest_edge':
  555. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  556. foresteventrand = rand(1,7)
  557. else
  558. foresteventrand = rand(1,6)
  559. end
  560. if foresteventrand <= 3:
  561. bushcraft_exp += rand(1,3)
  562. gs 'stat'
  563. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  564. *nl
  565. 'You are successful in escaping the wolves, but unfortunately are still in the forest.'
  566. elseif foresteventrand <= 6:
  567. bushcraft_exp += rand(1,5)
  568. gs 'stat'
  569. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  570. *nl
  571. 'You are successful in escaping the wolves, and also are no longer in the forest.'
  572. elseif foresteventrand <= 7:
  573. bushcraft_exp += rand(1,2)
  574. gs 'stat'
  575. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  576. *nl
  577. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  578. end
  579. act 'Continue':
  580. if foresteventrand <= 3: gt 'gadforest','forest_edge'
  581. if foresteventrand <= 4: gt 'gadfield','field'
  582. if foresteventrand <= 5: gt 'gadroad'
  583. if foresteventrand <= 6: gt 'gadriver','start'
  584. if foresteventrand <= 7:over = 11 & gt 'gameover'
  585. end
  586. elseif $ARGS[1] = 'forest_outskirts':
  587. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  588. foresteventrand = rand(1,10)
  589. else
  590. foresteventrand = rand(1,9)
  591. end
  592. if foresteventrand <= 5:
  593. bushcraft_exp += rand(1,3)
  594. gs 'stat'
  595. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  596. *nl
  597. 'You are successful in escaping the wolves, but unfortunately are still lost in the forest.'
  598. elseif foresteventrand <= 9:
  599. bushcraft_exp += rand(1,5)
  600. gs 'stat'
  601. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  602. *nl
  603. 'You are successful in escaping the wolves, and also are no longer lost as you recognize your surroundings.'
  604. elseif foresteventrand <= 10:
  605. bushcraft_exp += rand(1,2)
  606. gs 'stat'
  607. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  608. *nl
  609. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  610. end
  611. act 'Continue':
  612. if foresteventrand <= 3: gt 'gadforestlost', 'forest_outskirts'
  613. if foresteventrand <= 5: gt 'gadforest','forest_edge'
  614. if foresteventrand <= 6: gt 'gadforest','forest_outskirts'
  615. if foresteventrand <= 7: gt 'gadfield','field'
  616. if foresteventrand <= 8: gt 'gadroad'
  617. if foresteventrand <= 9: gt 'gadriver','start'
  618. if foresteventrand <= 10:over = 11 & gt 'gameover'
  619. end
  620. elseif $ARGS[1] = 'forest_center':
  621. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  622. foresteventrand = rand(1,13)
  623. else
  624. foresteventrand = rand(1,2)
  625. end
  626. if foresteventrand <= 6:
  627. bushcraft_exp += rand(1,3)
  628. gs 'stat'
  629. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  630. *nl
  631. 'You are successful in escaping the wolves, but unfortunately are still lost in the forest.'
  632. elseif foresteventrand <= 12:
  633. bushcraft_exp += rand(1,5)
  634. gs 'stat'
  635. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  636. *nl
  637. 'You are successful in escaping the wolves, and also are no longer lost as you recognize your surroundings.'
  638. elseif foresteventrand <= 13:
  639. bushcraft_exp += rand(1,2)
  640. gs 'stat'
  641. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  642. *nl
  643. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  644. end
  645. act 'Continue':
  646. if foresteventrand <= 2: gt 'gadforestlost', 'forest_outskirts'
  647. if foresteventrand <= 6: gt 'gadforestlost', 'forest_center'
  648. if foresteventrand <= 7: gt 'gadforest','forest_edge'
  649. if foresteventrand <= 8: gt 'gadforest','forest_outskirts'
  650. if foresteventrand <= 9: gt 'gadforest','forest_center'
  651. if foresteventrand <= 10: gt 'gadfield','field'
  652. if foresteventrand <= 11: gt 'gadroad'
  653. if foresteventrand <= 12: gt 'gadriver','start'
  654. if foresteventrand <= 13:over = 11 & gt 'gameover'
  655. end
  656. elseif $ARGS[1] = 'swamp':
  657. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  658. foresteventrand = rand(1,14)
  659. else
  660. foresteventrand = rand(1,13)
  661. end
  662. if foresteventrand <= 8:
  663. bushcraft_exp += rand(1,3)
  664. gs 'stat'
  665. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  666. *nl
  667. 'You are successful in escaping the wolves, but unfortunately are still lost in the forest.'
  668. elseif foresteventrand <= 13:
  669. bushcraft_exp += rand(1,5)
  670. gs 'stat'
  671. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  672. *nl
  673. 'You are successful in escaping the wolves, and also are no longer in the forest.'
  674. elseif foresteventrand <= 14:
  675. bushcraft_exp += rand(1,2)
  676. gs 'stat'
  677. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  678. *nl
  679. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  680. end
  681. act 'Continue':
  682. if foresteventrand <= 4: gt 'gadforest','forest_edge'
  683. if foresteventrand <= 6: gt 'gadforest','forest_outskirts'
  684. if foresteventrand <= 8: gt 'gadforest','forest_center'
  685. if foresteventrand <= 9: gt 'gadfield','field'
  686. if foresteventrand <= 10: gt 'gadroad'
  687. if foresteventrand <= 11: gt 'gadriver','start'
  688. if foresteventrand <= 12: gt 'swamp_yard','start'
  689. if foresteventrand <= 13: gt 'swamp_woods','start'
  690. if foresteventrand <= 14:over = 11 & gt 'gameover'
  691. end
  692. end
  693. end
  694. end
  695. ! this gs handles images for generic forest locations while lost
  696. ! Example: gs 'gadforestlost', 'gadforestlost_picture'
  697. if $ARGS[0] = 'gadforestlost_picture':
  698. '<center><H4>Somewhere in the forest</H4></center>'
  699. if month >= 4 and month <= 10:
  700. if hour >= 6 and hour < 22:
  701. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg"></center>'
  702. *nl
  703. 'You are lost in the woods. You don''t recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.'
  704. 'You would normally consider the woods a relaxing and scenic place, but are too stressed to appreciate the beauty of nature right now.'
  705. else
  706. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg"></center>'
  707. *nl
  708. 'You are lost in the woods. You don''t recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.'
  709. '<font color="red">With nightfall, your chances of finding your way are practically nothing. You should stop and rest until daylight.</font>'
  710. end
  711. else
  712. if hour >= 8 and hour < 20:
  713. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg"></center>'
  714. *nl
  715. 'You are lost in the woods. You don''t recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.'
  716. 'You would normally consider the woods a relaxing and scenic place, but are too stressed to appreciate the beauty of nature right now.'
  717. else
  718. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg"></center>'
  719. *nl
  720. 'You are lost in the woods. You don''t recognize any of your surroundings and there aren''t any good landmarks to help pinpoint where you are.'
  721. '<font color="red">With nightfall, your chances of finding your way are practically nothing. You should stop and rest until daylight.</font>'
  722. end
  723. end
  724. end
  725. --- gadforestlost ---------------------------------