gadforestlost.qsrc 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821
  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*3)) 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*3)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)) and foresteventday ! daystart: gt 'gadforestlost', 'rescue', 'hunters', 'forest_outskirts'
  21. if foresteventrand <= (6+(bonfire*3)) and StoryLine = 1 and daystart > forest_lostday+1 and foresteventday ! daystart: gt 'gadforestlost', 'rescue', 'ranger', 'forest_outskirts'
  22. if foresteventrand <= (8-(bonfire*3)) and (hour < 6 or hour > 22) and foresteventday ! daystart: 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 foresteventday ! daystart: gt 'gadforestlost', 'rescue', 'hunters', 'forest_center'
  43. if foresteventrand <= (3+(bonfire*2)) and StoryLine = 1 and daystart > forest_lostday+1 and foresteventday ! daystart: gt 'gadforestlost', 'rescue', 'ranger', 'forest_center'
  44. if foresteventrand <= (8-(bonfire*2)) and (hour < 6 or hour > 22) and foresteventday ! daystart: 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 (0:30)':
  82. *clr & cla
  83. menu_off = 1
  84. minut += 30
  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,40)
  122. if foresteventrand <= (2+(bonfire*3)) 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*3)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)) and foresteventday ! daystart: gt 'gadforestlost', 'rescue', 'hunters', $forest_args1
  124. if foresteventrand <= (6+(bonfire*3)) and StoryLine = 1 and daystart > forest_lostday+1 and foresteventday ! daystart: 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*2)) and daystart > forest_lostday and month >= 4 and month <= 10 and ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)) and foresteventday ! daystart: gt 'gadforestlost', 'rescue', 'hunters', $forest_args1
  129. if foresteventrand <= (3+(bonfire*2)) and StoryLine = 1 and daystart > forest_lostday+1 and foresteventday ! daystart: 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:15)':
  148. *clr & cla
  149. menu_off = 1
  150. minut += 15
  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 (0:30)':
  159. *clr & cla
  160. menu_off = 1
  161. minut += 30
  162. pcs_sleep += 5
  163. pcs_health += 10
  164. pcs_mood += 10
  165. gs 'stat'
  166. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+rand(1,2)+'.jpg"></center>'
  167. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax3.jpg"></center>'
  168. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski4.jpg"></center>'
  169. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski5.jpg"></center>'
  170. *nl
  171. 'You spend half an hour relaxing, trying to pretend this is just like any other walk in the woods you''ve done.'
  172. act 'Continue':gt 'gadforestlost', 'relax'
  173. end
  174. if pcs_sleep < 40:
  175. act 'Nap on the ground (2:00)':
  176. *clr & cla
  177. menu_off = 1
  178. minut += 120
  179. pcs_sleep += 20
  180. pcs_health += 5
  181. pcs_mood += 10
  182. gs'stat'
  183. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepnude1.'+rand(1,2)+'.jpg"></center>'
  184. if $clothingworntype ! 'nude' and PCloSkirt = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleep.jpg"></center>'
  185. if $clothingworntype ! 'nude' and $pantyworntype ! 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski.jpg"></center>'
  186. if $clothingworntype ! 'nude' and $pantyworntype = 'none' and PCloSkirt > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski1.jpg"></center>'
  187. *nl
  188. '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.'
  189. 'Even though you had to sleep on the ground, you do wake up feeling a bit more hopeful and rested.'
  190. act 'Continue':gt 'gadforestlost', 'relax'
  191. end
  192. end
  193. elseif bonfire = 1:
  194. if pcs_sleep < 95:
  195. act 'Warm up by the fire (0:30)':
  196. *clr & cla
  197. menu_off = 1
  198. minut += 30
  199. pcs_sleep += 5
  200. pcs_health += 10
  201. pcs_mood += 10
  202. frost = 0
  203. gs 'stat'
  204. if hour >= 6 and hour < 21:
  205. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire2.jpg"></center>'
  206. else
  207. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire3.jpg"></center>'
  208. end
  209. *nl
  210. 'You spend half an hour huddled by the flames until you no longer feel cold anymore.'
  211. act 'Continue':gt 'gadforestlost', 'relax'
  212. end
  213. end
  214. if pcs_sleep < 40:
  215. act 'Nap by the fire (2:00)':
  216. *clr & cla
  217. menu_off = 1
  218. minut += 120
  219. pcs_sleep += 20
  220. pcs_health += 10
  221. pcs_mood += 20
  222. frost = 0
  223. gs 'stat'
  224. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg"></center>'
  225. *nl
  226. '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.'
  227. 'Even though you had to sleep on the ground, you do wake up feeling a bit more hopeful and rested.'
  228. act 'Continue':gt 'gadforestlost', 'relax'
  229. end
  230. end
  231. if boletus > 0:
  232. act 'Cook some mushrooms in the fire (0:15)':
  233. *clr & cla
  234. menu_off = 1
  235. minut += 15
  236. boletus_cooked += 1
  237. boletus -= 1
  238. frost = 0
  239. gs'stat'
  240. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletushot.jpg"></center>'
  241. *nl
  242. 'You spend 15 minutes grilling some mushrooms in the fire.'
  243. act 'Continue':gt 'gadforestlost', 'relax'
  244. end
  245. end
  246. end
  247. if boletus_cooked > 0:
  248. act 'Eat cooked mushrooms (0:15)':
  249. *clr & cla
  250. menu_off = 1
  251. minut += 15
  252. boletus_cooked -= 1
  253. pcs_health += 10
  254. pcs_mood += 10
  255. fat += 1
  256. pcs_energy += 20
  257. gs'stat'
  258. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletuscook.jpg"></center>'
  259. *nl
  260. 'You eat some cooked mushrooms. They are pretty tasty considering your circumstances.'
  261. act 'Continue':gt 'gadforestlost', 'relax'
  262. end
  263. end
  264. if bilberry > 0:
  265. act 'Eat berries (0:15)':
  266. *clr & cla
  267. menu_off = 1
  268. minut += 15
  269. bilberry -= 1
  270. pcs_health += 10
  271. pcs_mood += 10
  272. fat += 1
  273. pcs_energy += 10
  274. pcs_hydra += 10
  275. gs'stat'
  276. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
  277. *nl
  278. 'You eat some berries. These would be great to eat even if you weren''t lost.'
  279. act 'Continue':gt 'gadforestlost', 'relax'
  280. end
  281. end
  282. end
  283. ! this gs handles mushroom and berry picking for Sveta in the various locations of the forest when she is lost
  284. ! $forest_args1 - location of forest where this is called from
  285. ! Example: gs 'gadforestlost', 'picking'
  286. if $ARGS[0] = 'picking':
  287. if hour >= 6 and hour < 22 and month >= 6 and month <= 9 and boletus + boletus_cooked + bilberry < 5:
  288. act 'Look for mushrooms and berries (0:30)':
  289. *clr & cla
  290. menu_off = 1
  291. if $forest_args1 = 'forest_outskirts':
  292. outskirts_pickingday = daystart
  293. mushroom_pickers_check = 2
  294. max_boletus = 2
  295. max_bilberry = 2
  296. elseif $forest_args1 = 'forest_center':
  297. center_pickingday = daystart
  298. mushroom_pickers_check = 3
  299. max_boletus = 3
  300. max_bilberry = 3
  301. end
  302. minut += 30
  303. new_boletus = 0
  304. new_bilberry = 0
  305. gs 'gadforestlost', 'bushcraft', $forest_args1
  306. if $clothingworntype = 'nude' and pcs_inhib < 50:inhib_exp += rand(1,5)
  307. gs 'stat'
  308. if mushroom_pickers ! mushroom_pickers_check:
  309. new_boletus += max_boletus
  310. new_bilberry += max_bilberry
  311. boletus += new_boletus
  312. bilberry += new_bilberry
  313. pcs_mood += 10
  314. gs 'stat'
  315. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  316. *nl
  317. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  318. elseif mushroom_pickers = mushroom_pickers_check:
  319. new_boletus += rand(0,max_boletus)
  320. new_bilberry += rand(0,max_bilberry)
  321. boletus += new_boletus
  322. bilberry += new_bilberry
  323. gs 'stat'
  324. if new_boletus > 0 and new_bilberry > 0:
  325. pcs_mood += 10
  326. gs 'stat'
  327. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  328. *nl
  329. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
  330. elseif new_boletus = 0 and new_bilberry > 0:
  331. pcs_mood += 5
  332. gs 'stat'
  333. gs 'gadforest', 'picking_clothes', $forest_args1, 'berry'
  334. *nl
  335. 'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
  336. elseif new_boletus > 0 and new_bilberry = 0:
  337. pcs_mood += 5
  338. gs 'stat'
  339. gs 'gadforest', 'picking_clothes', $forest_args1, 'mushroom'
  340. *nl
  341. 'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms'
  342. elseif new_boletus = 0 and new_bilberry = 0:
  343. pcs_mood -= 5
  344. gs 'stat'
  345. gs 'gadforest', 'picking_clothes_empty', $forest_args1
  346. *nl
  347. 'After searching for mushrooms and berries for half an hour you found nothing.'
  348. end
  349. end
  350. act 'Continue':gt 'gadforestlost', $forest_args1
  351. end
  352. end
  353. end
  354. ! $ARGS[1] - location of forest where this is called from
  355. if $ARGS[0] = 'finish':
  356. *clr & cla
  357. menu_off = 1
  358. bonfire = 0
  359. pcs_mood += 20
  360. bushcraft_exp += rand(1,5)
  361. gs 'clothing', 'swamp_clothes', 0
  362. gs 'stat'
  363. '<center><H4>Somewhere in the forest</H4></center>'
  364. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
  365. *nl
  366. 'After half an hour wandering around, you finally see some familiar sights.'
  367. if $clothingworntype = 'nude':
  368. if $ARGS[1] = 'forest_outskirts':
  369. act 'Continue':
  370. if meadow > 0:
  371. foresteventrand = rand(1,3)
  372. else
  373. foresteventrand = rand(1,2)
  374. end
  375. if foresteventrand = 1: minut += 15 & gt 'gadforest','forest_edge'
  376. if foresteventrand = 2: gt 'gadforest','forest_outskirts'
  377. if foresteventrand = 3: minut += 35 & gt 'meadow', 'start'
  378. end
  379. elseif $ARGS[1] = 'forest_center':
  380. act 'Continue':
  381. if hunterscabin = 1 and meadow > 0:
  382. foresteventrand = rand(1,5)
  383. elseif meadow > 0:
  384. foresteventrand = rand(1,4)
  385. else
  386. foresteventrand = rand(1,3)
  387. end
  388. if foresteventrand = 1: minut += 30 & gt 'gadforest','forest_edge'
  389. if foresteventrand = 2: minut += 15 & gt 'gadforest','forest_outskirts'
  390. if foresteventrand = 3: gt 'gadforest','forest_center'
  391. if foresteventrand = 4: minut += 50 & gt 'meadow', 'start'
  392. if foresteventrand = 5: minut += 30 & gt 'swamp_yard', 'start'
  393. end
  394. end
  395. else
  396. if $ARGS[1] = 'forest_outskirts':
  397. act 'Continue':
  398. if meadow > 0:
  399. foresteventrand = rand(1,6)
  400. else
  401. foresteventrand = rand(1,5)
  402. end
  403. if foresteventrand = 1: minut += 15 & gt 'gadforest','forest_edge'
  404. if foresteventrand = 2: gt 'gadforest','forest_outskirts'
  405. if foresteventrand = 3: minut += 40 & gt 'gadfield','field'
  406. if foresteventrand = 4: minut += 30 & gt 'gadroad'
  407. if foresteventrand = 5: minut += 40 & gt 'gadriver','start'
  408. if foresteventrand = 6: minut += 35 & gt 'meadow', 'start'
  409. end
  410. elseif $ARGS[1] = 'forest_center':
  411. act 'Continue':
  412. if hunterscabin = 1 and meadow > 0:
  413. foresteventrand = rand(1,8)
  414. elseif meadow > 0:
  415. foresteventrand = rand(1,7)
  416. else
  417. foresteventrand = rand(1,6)
  418. end
  419. if foresteventrand = 1: minut += 30 & gt 'gadforest','forest_edge'
  420. if foresteventrand = 2: minut += 15 & gt 'gadforest','forest_outskirts'
  421. if foresteventrand = 3: gt 'gadforest','forest_center'
  422. if foresteventrand = 4: minut += 55 & gt 'gadfield','field'
  423. if foresteventrand = 5: minut += 45 & gt 'gadroad'
  424. if foresteventrand = 6: minut += 55 & gt 'gadriver','start'
  425. if foresteventrand = 7: minut += 50 & gt 'meadow', 'start'
  426. if foresteventrand = 8: minut += 30 & gt 'swamp_yard', 'start'
  427. end
  428. end
  429. end
  430. end
  431. ! $ARGS[1] - who is rescuing player
  432. ! $ARGS[2] - location of forest where this is called from
  433. if $ARGS[0] = 'rescue':
  434. *clr & cla
  435. menu_off = 1
  436. bonfire = 0
  437. pcs_mood += 20
  438. bushcraft_exp += rand(1,5)
  439. if StoryLine = 0: lost_girl = 0
  440. if swamp_clothes = 1:
  441. '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.','.')
  442. gs 'clothing', 'strip', 'gadforest'
  443. gs 'clothing', 'swamp_clothes', 0
  444. end
  445. gs 'stat'
  446. if $ARGS[1] = 'pickers':
  447. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/mushroom_pickers2.jpg"></center>'
  448. *nl
  449. 'Suddenly you hear the sounds of people approaching. A group of pickers from the village appear out of the bushes.'
  450. 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."'
  451. if StoryLine = 1 and grandmaQW['block'] = 0:
  452. '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."')
  453. if $clothingworntype ! 'nude':
  454. if $ARGS[2] = 'forest_outskirts':
  455. act 'Continue': minut += 45 & gt 'gadhouse', 'start'
  456. elseif $ARGS[2] = 'forest_center':
  457. act 'Continue': minut += 60 & gt 'gadhouse', 'start'
  458. end
  459. else
  460. if $ARGS[2] = 'forest_outskirts':
  461. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  462. elseif $ARGS[2] = 'forest_center':
  463. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  464. end
  465. end
  466. else
  467. '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."')
  468. if $clothingworntype ! 'nude':
  469. if $ARGS[2] = 'forest_outskirts':
  470. act 'Continue': minut += 30 & gt 'gadroad'
  471. elseif $ARGS[2] = 'forest_center':
  472. act 'Continue': minut += 45 & gt 'gadroad'
  473. end
  474. else
  475. if $ARGS[2] = 'forest_outskirts':
  476. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  477. elseif $ARGS[2] = 'forest_center':
  478. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  479. end
  480. end
  481. end
  482. elseif $ARGS[1] = 'hunters':
  483. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters.jpg"></center>'
  484. *nl
  485. 'Suddenly you hear the sounds of people approaching. '+iif(huntersKnow=1,'The hunters from the swamp ','A group of hunters ')+'appear out of the bushes.'
  486. 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."'
  487. if StoryLine = 1 and grandmaQW['block'] = 0:
  488. '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 the edge of the forest."','to the swamp with us."')
  489. if $clothingworntype ! 'nude':
  490. if $ARGS[2] = 'forest_outskirts':
  491. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  492. elseif $ARGS[2] = 'forest_center':
  493. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  494. end
  495. else
  496. if $ARGS[2] = 'forest_outskirts':
  497. act 'Continue': minut += 45 & gt 'swamp_yard', 'start'
  498. elseif $ARGS[2] = 'forest_center':
  499. act 'Continue': minut += 30 & gt 'swamp_yard', 'start'
  500. end
  501. end
  502. else
  503. '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','to the edge of the forest."','to the swamp with us."')
  504. if $clothingworntype ! 'nude':
  505. if $ARGS[2] = 'forest_outskirts':
  506. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  507. elseif $ARGS[2] = 'forest_center':
  508. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  509. end
  510. else
  511. if $ARGS[2] = 'forest_outskirts':
  512. act 'Continue': minut += 45 & gt 'swamp_yard', 'start'
  513. elseif $ARGS[2] = 'forest_center':
  514. act 'Continue': minut += 30 & gt 'swamp_yard', 'start'
  515. end
  516. end
  517. end
  518. elseif $ARGS[1] = 'ranger':
  519. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
  520. *nl
  521. 'Suddenly you hear the sound of a person approaching. A man you vaguely recognize from the village appears out of the bushes.'
  522. 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."'
  523. if StoryLine = 1 and grandmaQW['block'] = 0:
  524. '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."')
  525. if $clothingworntype ! 'nude':
  526. if $ARGS[2] = 'forest_outskirts':
  527. act 'Continue': minut += 45 & gt 'gadhouse', 'start'
  528. elseif $ARGS[2] = 'forest_center':
  529. act 'Continue': minut += 60 & gt 'gadhouse', 'start'
  530. elseif $ARGS[2] = 'swamp_yard':
  531. act 'Continue': minut += 90 & gt 'gadhouse', 'start'
  532. end
  533. else
  534. if $ARGS[2] = 'forest_outskirts':
  535. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  536. elseif $ARGS[2] = 'forest_center':
  537. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  538. elseif $ARGS[2] = 'swamp_yard':
  539. act 'Continue': minut += 60 & gt 'gadforest', 'forest_edge'
  540. end
  541. end
  542. else
  543. '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."')
  544. if $clothingworntype ! 'nude':
  545. if $ARGS[2] = 'forest_outskirts':
  546. act 'Continue': minut += 30 & gt 'gadroad'
  547. elseif $ARGS[2] = 'forest_center':
  548. act 'Continue': minut += 45 & gt 'gadroad'
  549. elseif $ARGS[2] = 'swamp_yard':
  550. act 'Continue': minut += 75 & gt 'gadroad'
  551. end
  552. else
  553. if $ARGS[2] = 'forest_outskirts':
  554. act 'Continue': minut += 15 & gt 'gadforest', 'forest_edge'
  555. elseif $ARGS[2] = 'forest_center':
  556. act 'Continue': minut += 30 & gt 'gadforest', 'forest_edge'
  557. elseif $ARGS[2] = 'swamp_yard':
  558. act 'Continue': minut += 60 & gt 'gadforest', 'forest_edge'
  559. end
  560. end
  561. end
  562. end
  563. end
  564. ! $ARGS[1] - location of forest where this is called from
  565. if $ARGS[0] = 'wolves':
  566. *clr & cla
  567. menu_off = 1
  568. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/howl.jpg"></center>'
  569. *nl
  570. 'Suddenly your hear a terrifying howl nearby.'
  571. act 'Run away':
  572. *clr & cla
  573. gs 'exercise', 'tier4', 1, 'run_exp'
  574. gs 'stat'
  575. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run.jpg"></center>'
  576. *nl
  577. 'Instincts take over and you begin running without a second thought.'
  578. if $ARGS[1] = 'forest_edge':
  579. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  580. foresteventrand = rand(1,7)
  581. else
  582. foresteventrand = rand(1,6)
  583. end
  584. if foresteventrand <= 3:
  585. bushcraft_exp += rand(1,3)
  586. gs 'stat'
  587. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  588. *nl
  589. 'You are successful in escaping the wolves, but unfortunately are still in the forest.'
  590. elseif foresteventrand <= 6:
  591. bushcraft_exp += rand(1,5)
  592. gs 'stat'
  593. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  594. *nl
  595. 'You are successful in escaping the wolves, and also are no longer in the forest.'
  596. elseif foresteventrand <= 7:
  597. bushcraft_exp += rand(1,2)
  598. gs 'stat'
  599. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  600. *nl
  601. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  602. end
  603. act 'Continue':
  604. if foresteventrand <= 3: gt 'gadforest','forest_edge'
  605. if foresteventrand <= 4: gt 'gadfield','field'
  606. if foresteventrand <= 5: gt 'gadroad'
  607. if foresteventrand <= 6: gt 'gadriver','start'
  608. if foresteventrand <= 7:over = 11 & gt 'gameover'
  609. end
  610. elseif $ARGS[1] = 'forest_outskirts':
  611. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  612. foresteventrand = rand(1,10)
  613. else
  614. foresteventrand = rand(1,9)
  615. end
  616. if foresteventrand <= 5:
  617. bushcraft_exp += rand(1,3)
  618. gs 'stat'
  619. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  620. *nl
  621. 'You are successful in escaping the wolves, but unfortunately are still lost in the forest.'
  622. elseif foresteventrand <= 9:
  623. bushcraft_exp += rand(1,5)
  624. gs 'stat'
  625. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  626. *nl
  627. 'You are successful in escaping the wolves, and also are no longer lost as you recognize your surroundings.'
  628. elseif foresteventrand <= 10:
  629. bushcraft_exp += rand(1,2)
  630. gs 'stat'
  631. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  632. *nl
  633. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  634. end
  635. act 'Continue':
  636. if foresteventrand <= 3: gt 'gadforestlost', 'forest_outskirts'
  637. if foresteventrand <= 5: gt 'gadforest','forest_edge'
  638. if foresteventrand <= 6: gt 'gadforest','forest_outskirts'
  639. if foresteventrand <= 7: gt 'gadfield','field'
  640. if foresteventrand <= 8: gt 'gadroad'
  641. if foresteventrand <= 9: gt 'gadriver','start'
  642. if foresteventrand <= 10:over = 11 & gt 'gameover'
  643. end
  644. elseif $ARGS[1] = 'forest_center':
  645. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  646. foresteventrand = rand(1,13)
  647. else
  648. foresteventrand = rand(1,2)
  649. end
  650. if foresteventrand <= 6:
  651. bushcraft_exp += rand(1,3)
  652. gs 'stat'
  653. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  654. *nl
  655. 'You are successful in escaping the wolves, but unfortunately are still lost in the forest.'
  656. elseif foresteventrand <= 12:
  657. bushcraft_exp += rand(1,5)
  658. gs 'stat'
  659. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  660. *nl
  661. 'You are successful in escaping the wolves, and also are no longer lost as you recognize your surroundings.'
  662. elseif foresteventrand <= 13:
  663. bushcraft_exp += rand(1,2)
  664. gs 'stat'
  665. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  666. *nl
  667. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  668. end
  669. act 'Continue':
  670. if foresteventrand <= 2: gt 'gadforestlost', 'forest_outskirts'
  671. if foresteventrand <= 6: gt 'gadforestlost', 'forest_center'
  672. if foresteventrand <= 7: gt 'gadforest','forest_edge'
  673. if foresteventrand <= 8: gt 'gadforest','forest_outskirts'
  674. if foresteventrand <= 9: gt 'gadforest','forest_center'
  675. if foresteventrand <= 10: gt 'gadfield','field'
  676. if foresteventrand <= 11: gt 'gadroad'
  677. if foresteventrand <= 12: gt 'gadriver','start'
  678. if foresteventrand <= 13:over = 11 & gt 'gameover'
  679. end
  680. elseif $ARGS[1] = 'swamp':
  681. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70 and Enable_nogameover = 0:
  682. foresteventrand = rand(1,14)
  683. else
  684. foresteventrand = rand(1,13)
  685. end
  686. if foresteventrand <= 8:
  687. bushcraft_exp += rand(1,3)
  688. gs 'stat'
  689. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end2.jpg"></center>'
  690. *nl
  691. 'You are successful in escaping the wolves, but unfortunately are still lost in the forest.'
  692. elseif foresteventrand <= 13:
  693. bushcraft_exp += rand(1,5)
  694. gs 'stat'
  695. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_end1.jpg"></center>'
  696. *nl
  697. 'You are successful in escaping the wolves, and also are no longer in the forest.'
  698. elseif foresteventrand <= 14:
  699. bushcraft_exp += rand(1,2)
  700. gs 'stat'
  701. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/horror.jpg"></center>'
  702. *nl
  703. 'The wolves are simply too fast and you cannot lose them. Suddenly you feel a sharp pain as a wolf bites your leg.'
  704. end
  705. act 'Continue':
  706. if foresteventrand <= 4: gt 'gadforest','forest_edge'
  707. if foresteventrand <= 6: gt 'gadforest','forest_outskirts'
  708. if foresteventrand <= 8: gt 'gadforest','forest_center'
  709. if foresteventrand <= 9: gt 'gadfield','field'
  710. if foresteventrand <= 10: gt 'gadroad'
  711. if foresteventrand <= 11: gt 'gadriver','start'
  712. if foresteventrand <= 12: gt 'swamp_yard','start'
  713. if foresteventrand <= 13: gt 'swamp_woods','start'
  714. if foresteventrand <= 14:over = 11 & gt 'gameover'
  715. end
  716. end
  717. end
  718. end
  719. ! this gs handles images for generic forest locations while lost
  720. ! Example: gs 'gadforestlost', 'gadforestlost_picture'
  721. if $ARGS[0] = 'gadforestlost_picture':
  722. '<center><H4>Somewhere in the forest</H4></center>'
  723. if month >= 4 and month <= 10:
  724. if hour >= 6 and hour < 22:
  725. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg"></center>'
  726. *nl
  727. '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.'
  728. 'You would normally consider the woods a relaxing and scenic place, but are too stressed to appreciate the beauty of nature right now.'
  729. else
  730. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg"></center>'
  731. *nl
  732. '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.'
  733. '<font color="red">With nightfall, your chances of finding your way are practically nothing. You should stop and rest until daylight.</font>'
  734. end
  735. else
  736. if hour >= 8 and hour < 20:
  737. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg"></center>'
  738. *nl
  739. '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.'
  740. 'You would normally consider the woods a relaxing and scenic place, but are too stressed to appreciate the beauty of nature right now.'
  741. else
  742. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg"></center>'
  743. *nl
  744. '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.'
  745. '<font color="red">With nightfall, your chances of finding your way are practically nothing. You should stop and rest until daylight.</font>'
  746. end
  747. end
  748. end
  749. --- gadforestlost ---------------------------------