# gadforestlost !make this trigger after 2 days in swamp house, minus a countdown per hour if $ARGS[0] = 'forestrescue': !rescue in forest by illume. I think we need good texts. cls minut += 150 lost_girl = 0 forest_lostday = 0 hanters = 0 gs 'stat' '
' 'You wander in the forest trying to find your way out, suddenly you spot a man dressed as a forest ranger.' '"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."' if $loc = 'gadforestrelax': !rescued during rest if bonfire = 1: !have fire '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.' else 'Staying in one place is a good idea when you are lost.' end end 'You get ready quickly and you follow the forest ranger home.' act 'Further':gt'Gadhouse' end if $ARGS[0] = '1': if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue' & !add rescue by illume $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' cla *clr wolfrand = rand(1,10) hantrand = rand(1,10) gs'stat' !gs'time' gs 'gadforestlost', 'gadforestlost' if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost' act 'Look for the road': cla *clr minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,40) gs 'stat' gs 'gadforestlost', 'lostclothes' if goforest > lostrand: act 'Look for the road on':gs 'gadforestlost', 'gadforestlostfinish1' else act 'Look for the road on':gt 'gadforestlost','1' end act 'To take a break':gt 'gadforestrelax' end if rand(1,10)> 8: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = '2': if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue' & !add rescue by illume $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' cls wolfrand = rand(1,10) gs'stat' !gs'time' gs 'gadforestlost', 'gadforestlost' if wolfrand <= 2 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost' if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters' act 'Look for the road': cla *clr minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,120) gs 'stat' gs 'gadforestlost', 'lostclothes' if goforest > lostrand: act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish2' else act 'Look for the road on':gt 'gadforestlost','2' end act 'To take a break':gt 'gadforestrelax' end if rand(1,10)> 7: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = '3': if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' cls wolfrand = rand(1,10) gs'stat' !gs'time' gs 'gadforestlost', 'gadforestlost' if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost' if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters' act 'Look for the road': cla *clr minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,180) gs 'stat' gs 'gadforestlost', 'lostclothes' if goforest > lostrand: act 'Look for the road on ':gs 'gadforestlost', 'gadforestlostfinish3' else act 'Look for the road on':gt 'gadforestlost','3' end act 'To take a break':gt 'gadforestrelax' end if rand(1,10)> 6: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = '4': if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume $location_type = 'secluded' $metka = $ARGS[0] $loc = $CURLOC gs 'gadukino_event', 'sound' cls wolfrand = rand(1,10) gs'stat' !gs'time' gs 'gadforestlost', 'gadforestlost' if wolfrand <= 4 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost' if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters' act 'Look for the road': cla *clr minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,300) temp = rand(1,10) gs 'stat' gs 'gadforestlost', 'lostclothes' act 'Look for the road on ': if goforest > lostrand: gs 'gadforestlost', 'gadforestlostfinish4' if goforest < lostrand and temp > 7:gt 'gadforestswamp','1' if goforest < lostrand and temp <= 7:gt 'gadforestlost','4' end act 'To take a break':gt 'gadforestrelax' end if rand(1,10)> 7: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = 'gadforestlost': '

Forest

' if month >= 4 and month <= 10: if hour >= 6 and hour < 22: '
' 'You get lost in the woods. All around, you see unfamiliar places, you are too stressed to appreciate the beauty of nature right now.' else '
' 'You get lost in the woods. The situation becomes even worse, because it''s now night time.' end else if hour >= 8 and hour < 18: '
' '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.' else '
' 'You get lost in the winter woods. The situation becomes even worse, because it''s now night time.' end end end if $ARGS[0] = 'lostclothes': if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'
' if $clothingworntype ! 'nude' and CloSkirtShortness > 0:'
' if $clothingworntype = 'nude':'
' 'Within an hour of wandering through the woods you decide....' end if $ARGS[0] = 'gadforestlostfinish': '

Somewhere in the woods

' '
' 'You look over and realize that you finally see houses, glad to get out of this alive you rush forward.' !clear lost flags by illume lost_girl = 0 forest_lostday = 0 hanters = 0 if $clothingworntype = 'nude': act 'Out of the woods': minut += 25 'You sneak out the woods, hiding your naked body in shadow and moving toward grandparents house.' 'You Successfully reach home without witness.' cla act 'Further':gt'Gadhouse' end temp=0 !disable further act add. end end if $ARGS[0] = 'gadforestlostfinish1': cls *clr temp = RAND(1,3) lost = 0 pcs_mood += 20 !gs'time' gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' '' if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' end if $ARGS[0] = 'gadforestlostfinish2': cls *clr temp = RAND(1,5) lost = 0 pcs_mood += 20 !gs'time' gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' '' if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start' if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow' end if $ARGS[0] = 'gadforestlostfinish3': cls *clr temp = RAND(1,7) lost = 0 pcs_mood += 20 !gs'time' gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' '' if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start' if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow' if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road' if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road' end if $ARGS[0] = 'gadforestlostfinish4': cls *clr temp = RAND(1,9) lost = 0 pcs_mood += 20 !gs'time' gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' '' if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad' if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start' if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow' if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road' if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road' if temp = 8:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road' if temp = 9 and goswamp = 0:act 'Out of the woods':minut += 15 & gt 'gadforestswamp','1' if temp = 9 and goswamp = 1:act 'Out of the woods':minut += 15 & gt 'swamp' end if $ARGS[0] = 'searchfood': if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10: act 'To look for mushrooms and berries': cla *clr minut += 30 new_boletus += rand(1,2) new_bilberry += rand(1,2) if new_boletus + new_bilberry > 0: boletus += new_boletus bilberry += new_bilberry pcs_mood += 5 gs 'stat' gs 'gadforest', 'clothes1' 'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <> kg mushrooms and <> kg of berries.' else pcs_mood -= 5 gs 'gadforest', 'clothes2' 'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.' end gs 'stat' act 'Further':gt $loc, $metka end end end --- gadforestlost ---------------------------------