gadforestlost.qsrc 12 KB

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