1
0

gadforestlost.qsrc 33 KB

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