gadforestlost.qsrc 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382
  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. dirtyclothes = 0
  16. forest_lostday = 0
  17. hanters = 0
  18. gs 'clothing', 'swamp_clothes', 0
  19. gs 'stat'
  20. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
  21. 'Suddenly you spot a man dressed as a forest ranger.'
  22. '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."'
  23. !rescued during rest
  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':
  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'
  36. elseif $clothingworntype = 'nude':
  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. hantrand = 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. 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. hantrand = 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 hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
  95. act 'Look for the road':
  96. cla
  97. *clr
  98. minut += 60
  99. pcs_mood -= 5
  100. goforest += rand(0,1)
  101. lostrand = rand(1,120)
  102. gs 'stat'
  103. gs 'gadforestlost', 'lostclothes'
  104. if goforest > lostrand:
  105. act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish2'
  106. else
  107. act 'Look for a way out':gt 'gadforestlost','2'
  108. end
  109. act 'Take a break':gt 'gadforestrelax'
  110. end
  111. if rand(1,10)> 7: gs 'gadforest', 'torncloth'
  112. gs 'gadforestlost', 'searchfood'
  113. end
  114. if $ARGS[0] = '3':
  115. *clr & cla
  116. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue'
  117. $loc = 'gadforestlost'
  118. $metka = '3'
  119. $location_type = 'secluded'
  120. $menu_loc = 'gadforestlost'
  121. $menu_arg = '3'
  122. menu_off = 0
  123. gs 'gadukino_event', 'sound'
  124. gs'stat'
  125. wolfrand = rand(1,10)
  126. hantrand = rand(1,10)
  127. gs'stat'
  128. gs 'gadforestlost', 'gadforestlost'
  129. if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
  130. if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
  131. act 'Look for the road':
  132. cla
  133. *clr
  134. minut += 60
  135. pcs_mood -= 5
  136. goforest += rand(0,1)
  137. lostrand = rand(1,180)
  138. gs 'stat'
  139. gs 'gadforestlost', 'lostclothes'
  140. if goforest > lostrand:
  141. act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish3'
  142. else
  143. act 'Look for a way out':gt 'gadforestlost','3'
  144. end
  145. act 'Take a break':gt 'gadforestrelax'
  146. end
  147. if rand(1,10)> 6: gs 'gadforest', 'torncloth'
  148. gs 'gadforestlost', 'searchfood'
  149. end
  150. if $ARGS[0] = '4':
  151. *clr & cla
  152. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue'
  153. $loc = 'gadforestlost'
  154. $metka = '4'
  155. $location_type = 'secluded'
  156. $menu_loc = 'gadforestlost'
  157. $menu_arg = '4'
  158. menu_off = 0
  159. gs 'gadukino_event', 'sound'
  160. gs'stat'
  161. cla
  162. *clr
  163. wolfrand = rand(1,10)
  164. hantrand = 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 hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
  169. act 'Look for the road':
  170. cla
  171. *clr
  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, clear dirtyclothes flag by rachels
  220. lost_girl = 0
  221. dirtyclothes = 0
  222. forest_lostday = 0
  223. hanters = 0
  224. gs 'clothing', 'swamp_clothes', 0
  225. gs 'stat'
  226. if $clothingworntype = 'nude':
  227. act 'Leave the woods':
  228. minut += 25
  229. 'You find your way out of the woods, hiding your naked body in shadows.'
  230. 'You make your way back towards the edge of the forest where you left your clothes.'
  231. cla
  232. act 'Continue':gt'gadforest', '1'
  233. end
  234. !disable further actions from being added
  235. temp=0
  236. end
  237. end
  238. if $ARGS[0] = 'gadforestlostfinish1':
  239. cls
  240. *clr
  241. temp = RAND(1,3)
  242. lost = 0
  243. pcs_mood += 20
  244. gs 'stat'
  245. gs 'gadforestlost', 'gadforestlostfinish'
  246. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  247. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  248. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  249. end
  250. if $ARGS[0] = 'gadforestlostfinish2':
  251. cls
  252. *clr
  253. temp = RAND(1,5)
  254. lost = 0
  255. pcs_mood += 20
  256. gs 'stat'
  257. gs 'gadforestlost', 'gadforestlostfinish'
  258. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  259. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  260. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  261. if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
  262. if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
  263. end
  264. if $ARGS[0] = 'gadforestlostfinish3':
  265. cls
  266. *clr
  267. temp = RAND(1,7)
  268. lost = 0
  269. pcs_mood += 20
  270. gs 'stat'
  271. gs 'gadforestlost', 'gadforestlostfinish'
  272. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  273. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  274. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  275. if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
  276. if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
  277. if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road'
  278. if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
  279. end
  280. if $ARGS[0] = 'gadforestlostfinish4':
  281. cls
  282. *clr
  283. temp = RAND(1,9)
  284. lost = 0
  285. pcs_mood += 20
  286. gs 'stat'
  287. gs 'gadforestlost', 'gadforestlostfinish'
  288. if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
  289. if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
  290. if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
  291. if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
  292. if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
  293. if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road'
  294. if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
  295. if temp = 8:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
  296. if temp = 9 and goswamp = 0:act 'Leave the woods':minut += 15 & gt 'gadforestswamp','1'
  297. if temp = 9 and goswamp = 1:act 'Leave the woods':minut += 15 & gt 'swamp'
  298. end
  299. if $ARGS[0] = 'searchfood':
  300. if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10:
  301. act 'Look for mushrooms and berries':
  302. cla
  303. *clr
  304. minut += 30
  305. new_boletus += rand(1,2)
  306. new_bilberry += rand(1,2)
  307. if new_boletus + new_bilberry > 0:
  308. boletus += new_boletus
  309. bilberry += new_bilberry
  310. pcs_mood += 5
  311. gs 'stat'
  312. gs 'gadforest', 'clothes1'
  313. '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.'
  314. else
  315. pcs_mood -= 5
  316. gs 'stat'
  317. gs 'gadforest', 'clothes2'
  318. 'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.'
  319. end
  320. act 'Continue':gt $loc, $metka
  321. end
  322. end
  323. end
  324. --- gadforestlost ---------------------------------