gadforestlost.qsrc 11 KB

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