1
0

gadforestlost 11 KB

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