1
0

gadforestlost.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400
  1. # gadforestlost
  2. !make this trigger after 2 days in swamp house, minus a countdown per hour
  3. if $ARGS[0] = 'forestrescue':
  4. cls
  5. $loc = 'gadforestlost'
  6. $metka = 'forestrescue'
  7. $location_type = 'secluded'
  8. $menu_loc = 'gadforestlost'
  9. $menu_arg = 'forestrescue'
  10. menu_off = 0
  11. gs 'gadukino_event', 'sound'
  12. gs'stat'
  13. minut += 150
  14. lost_girl = 0
  15. forest_lostday = 0
  16. hunters = 0
  17. gs 'clothing', 'swamp_clothes', 0
  18. gs 'stat'
  19. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
  20. 'Suddenly you spot a man dressed as a forest ranger.'
  21. 'He walks up to you and says, "And here is our lost girl. Your grandfather and grandmother are very worried about you. They asked me to help find you. Follow me, I will take you home."'
  22. !rescued during rest
  23. if $loc = 'gadforestrelax':
  24. !have fire
  25. if bonfire = 1:
  26. '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.'
  27. else
  28. 'Staying in one place is a good idea when you are lost.'
  29. end
  30. end
  31. 'You get ready quickly and follow the forest ranger out of the woods.'
  32. if $clothingworntype ! 'nude' or swamp_clothes = 0:
  33. 'You can''t wait to get back to your grandparents house and have a bath and a nice hot meal.'
  34. act 'To your grandparents house':gt'Gadhouse'
  35. elseif $clothingworntype = 'nude' or swamp_clothes = 1:
  36. 'The ranger looks you up and down and you feel like he is about to ask you something but he decides against it.'
  37. 'You remember you left your clothes by the edge of the woods and ask the ranger to take you there instead.'
  38. act 'To the edge of the woods':gt'gadforest', '1'
  39. end
  40. end
  41. if $ARGS[0] = '1':
  42. *clr & cla
  43. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue'
  44. $loc = 'gadforestlost'
  45. $metka = '1'
  46. $location_type = 'secluded'
  47. $menu_loc = 'gadforestlost'
  48. $menu_arg = '1'
  49. menu_off = 0
  50. gs 'gadukino_event', 'sound'
  51. gs'stat'
  52. riprand = rand(1,10)
  53. rescuerand = rand(1,10)
  54. wolfrand = rand(1,10)
  55. huntrand = rand(1,10)
  56. gs 'gadforestlost', 'gadforestlost'
  57. if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
  58. act 'Look for a way out':
  59. cla
  60. *clr
  61. menu_off = 1
  62. minut += 60
  63. pcs_mood -= 5
  64. goforest += rand(0,1)
  65. lostrand = rand(1,40)
  66. gs 'stat'
  67. gs 'gadforestlost', 'lostclothes'
  68. if goforest > lostrand:
  69. act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish1'
  70. else
  71. act 'Look for a way out':gt 'gadforestlost','1'
  72. end
  73. act 'Take a break':gt 'gadforestrelax'
  74. end
  75. if rand(1,10)> 8: gs 'gadforest', 'torncloth'
  76. gs 'gadforestlost', 'searchfood'
  77. end
  78. if $ARGS[0] = '2':
  79. *clr & cla
  80. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue'
  81. $loc = 'gadforestlost'
  82. $metka = '2'
  83. $location_type = 'secluded'
  84. $menu_loc = 'gadforestlost'
  85. $menu_arg = '2'
  86. menu_off = 0
  87. gs 'gadukino_event', 'sound'
  88. gs'stat'
  89. wolfrand = rand(1,10)
  90. huntrand = rand(1,10)
  91. gs'stat'
  92. gs 'gadforestlost', 'gadforestlost'
  93. if wolfrand <= 2 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
  94. if huntrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hunters'
  95. act 'Look for the road':
  96. cla
  97. *clr
  98. menu_off = 1
  99. minut += 60
  100. pcs_mood -= 5
  101. goforest += rand(0,1)
  102. lostrand = rand(1,120)
  103. gs 'stat'
  104. gs 'gadforestlost', 'lostclothes'
  105. if goforest > lostrand:
  106. act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish2'
  107. else
  108. act 'Look for a way out':gt 'gadforestlost','2'
  109. end
  110. act 'Take a break':gt 'gadforestrelax'
  111. end
  112. if rand(1,10)> 7: gs 'gadforest', 'torncloth'
  113. gs 'gadforestlost', 'searchfood'
  114. end
  115. if $ARGS[0] = '3':
  116. *clr & cla
  117. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue'
  118. $loc = 'gadforestlost'
  119. $metka = '3'
  120. $location_type = 'secluded'
  121. $menu_loc = 'gadforestlost'
  122. $menu_arg = '3'
  123. menu_off = 0
  124. gs 'gadukino_event', 'sound'
  125. gs'stat'
  126. wolfrand = rand(1,10)
  127. huntrand = rand(1,10)
  128. gs'stat'
  129. gs 'gadforestlost', 'gadforestlost'
  130. if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
  131. if huntrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hunters'
  132. act 'Look for the road':
  133. cla
  134. *clr
  135. menu_off = 1
  136. minut += 60
  137. pcs_mood -= 5
  138. goforest += rand(0,1)
  139. lostrand = rand(1,180)
  140. gs 'stat'
  141. gs 'gadforestlost', 'lostclothes'
  142. if goforest > lostrand:
  143. act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish3'
  144. else
  145. act 'Look for a way out':gt 'gadforestlost','3'
  146. end
  147. act 'Take a break':gt 'gadforestrelax'
  148. end
  149. if rand(1,10)> 6: gs 'gadforest', 'torncloth'
  150. gs 'gadforestlost', 'searchfood'
  151. end
  152. if $ARGS[0] = '4':
  153. *clr & cla
  154. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue'
  155. $loc = 'gadforestlost'
  156. $metka = '4'
  157. $location_type = 'secluded'
  158. $menu_loc = 'gadforestlost'
  159. $menu_arg = '4'
  160. menu_off = 0
  161. gs 'gadukino_event', 'sound'
  162. gs'stat'
  163. cla
  164. *clr
  165. wolfrand = rand(1,10)
  166. huntrand = rand(1,10)
  167. gs'stat'
  168. gs 'gadforestlost', 'gadforestlost'
  169. if wolfrand <= 4 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
  170. if huntrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hunters'
  171. act 'Look for the road':
  172. cla
  173. *clr
  174. menu_off = 1
  175. minut += 60
  176. pcs_mood -= 5
  177. goforest += rand(0,1)
  178. lostrand = rand(1,300)
  179. temp = rand(1,10)
  180. gs 'stat'
  181. gs 'gadforestlost', 'lostclothes'
  182. act 'Continue looking for the road':
  183. if goforest > lostrand: gs 'gadforestlost', 'gadforestlostfinish4'
  184. if goforest < lostrand and temp > 7:gt 'gadforestswamp','1'
  185. if goforest < lostrand and temp <= 7:gt 'gadforestlost','4'
  186. end
  187. act 'Take a break':gt 'gadforestrelax'
  188. end
  189. if rand(1,10)> 7: gs 'gadforest', 'torncloth'
  190. gs 'gadforestlost', 'searchfood'
  191. end
  192. if $ARGS[0] = 'gadforestlost':
  193. '<center><H4>Forest</H4></center>'
  194. if month >= 4 and month <= 10:
  195. if hour >= 6 and hour < 22:
  196. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg"></center>'
  197. 'You get lost in the woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
  198. else
  199. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg"></center>'
  200. 'You get lost in the woods. The situation becomes even worse, because it''s now night time.'
  201. end
  202. else
  203. if hour >= 8 and hour < 18:
  204. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg"></center>'
  205. 'You get lost in the winter woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.'
  206. else
  207. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg"></center>'
  208. 'You get lost in the winter woods. The situation becomes even worse, because it''s now night time.'
  209. end
  210. end
  211. end
  212. if $ARGS[0] = 'lostclothes':
  213. if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg"></center>'
  214. if $clothingworntype ! 'nude' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_ski0.'+rand(1,4)+'.jpg"></center>'
  215. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_nude0.'+rand(1,4)+'.jpg"></center>'
  216. 'After wandering through the woods for an hour you decide to....'
  217. end
  218. if $ARGS[0] = 'gadforestlostfinish':
  219. '<center><H4>Somewhere in the woods</H4></center>'
  220. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
  221. 'You look over and realize that you finally see lights shining from distant houses, glad to get out of this alive you rush forward.'
  222. !clear lost flags by illume
  223. lost_girl = 0
  224. forest_lostday = 0
  225. hunters = 0
  226. menu_off = 1
  227. gs 'clothing', 'swamp_clothes', 0
  228. gs 'stat'
  229. if $clothingworntype = 'nude':
  230. act 'Leave the woods':
  231. menu_off = 1
  232. minut += 25
  233. 'You find your way out of the woods, hiding your naked body in shadows.'
  234. 'You make your way back towards the edge of the forest where you left your clothes.'
  235. cla
  236. act 'Continue':gt'gadforest', '1'
  237. end
  238. !disable further actions from being added
  239. temp=0
  240. end
  241. end
  242. if $ARGS[0] = 'gadforestlostfinish1':
  243. cls
  244. *clr
  245. menu_off = 1
  246. temp = RAND(1,3)
  247. lost = 0
  248. pcs_mood += 20
  249. gs 'stat'
  250. gs 'gadforestlost', 'gadforestlostfinish'
  251. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  252. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  253. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  254. end
  255. if $ARGS[0] = 'gadforestlostfinish2':
  256. cls
  257. *clr
  258. menu_off = 1
  259. temp = RAND(1,5)
  260. lost = 0
  261. pcs_mood += 20
  262. gs 'stat'
  263. gs 'gadforestlost', 'gadforestlostfinish'
  264. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  265. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  266. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  267. if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
  268. if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
  269. end
  270. if $ARGS[0] = 'gadforestlostfinish3':
  271. cls
  272. *clr
  273. menu_off = 1
  274. temp = RAND(1,7)
  275. lost = 0
  276. pcs_mood += 20
  277. gs 'stat'
  278. gs 'gadforestlost', 'gadforestlostfinish'
  279. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  280. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  281. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  282. if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
  283. if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
  284. if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road'
  285. if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
  286. end
  287. if $ARGS[0] = 'gadforestlostfinish4':
  288. cls
  289. *clr
  290. menu_off = 1
  291. temp = RAND(1,9)
  292. lost = 0
  293. pcs_mood += 20
  294. gs 'stat'
  295. gs 'gadforestlost', 'gadforestlostfinish'
  296. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  297. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  298. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  299. if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
  300. if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
  301. if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road'
  302. if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
  303. if temp = 8:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
  304. if temp = 9 and goswamp = 0:act 'Leave the woods':minut += 15 & gt 'gadforestswamp','1'
  305. if temp = 9 and goswamp = 1:act 'Leave the woods':minut += 15 & gt 'swamp'
  306. end
  307. if $ARGS[0] = 'searchfood':
  308. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10:
  309. act 'Look for mushrooms and berries':
  310. cla
  311. *clr
  312. menu_off = 1
  313. minut += 30
  314. new_boletus += rand(1,2)
  315. new_bilberry += rand(1,2)
  316. if new_boletus + new_bilberry > 0:
  317. boletus += new_boletus
  318. bilberry += new_bilberry
  319. pcs_mood += 5
  320. gs 'stat'
  321. gs 'gadforest', 'clothes1'
  322. 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
  323. else
  324. pcs_mood -= 5
  325. gs 'stat'
  326. gs 'gadforest', 'clothes2'
  327. 'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.'
  328. end
  329. act 'Continue':gt $loc, $metka
  330. end
  331. end
  332. end
  333. --- gadforestlost ---------------------------------