# gadforestlost !make this trigger after 2 days in swamp house, minus a countdown per hour if $ARGS[0] = 'forestrescue': cls $loc = 'gadforestlost' $metka = 'forestrescue' $location_type = 'secluded' $menu_loc = 'gadforestlost' $menu_arg = 'forestrescue' menu_off = 0 gs 'gadukino_event', 'sound' gs'stat' minut += 150 lost_girl = 0 forest_lostday = 0 hanters = 0 gs 'clothing', 'swamp_clothes', 0 gs 'stat' '
> src="images/locations/gadukino/hunters/forester.jpg">
' 'Suddenly you spot a man dressed as a forest ranger.' '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."' !rescued during rest if $loc = 'gadforestrelax': !have fire if bonfire = 1: '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.' else 'Staying in one place is a good idea when you are lost.' end end 'You get ready quickly and follow the forest ranger out of the woods.' if $clothingworntype ! 'nude' or swamp_clothes = 0: 'You can''t wait to get back to your grandparents house and have a bath and a nice hot meal.' act 'To your grandparents house':gt'Gadhouse' elseif $clothingworntype = 'nude' or swamp_clothes = 1: 'The ranger looks you up and down and you feel like he is about to ask you something but he decides against it.' 'You remember you left your clothes by the edge of the woods and ask the ranger to take you there instead.' act 'To the edge of the woods':gt'gadforest', '1' end end if $ARGS[0] = '1': *clr & cla if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue' $loc = 'gadforestlost' $metka = '1' $location_type = 'secluded' $menu_loc = 'gadforestlost' $menu_arg = '1' menu_off = 0 gs 'gadukino_event', 'sound' gs'stat' riprand = rand(1,10) rescuerand = rand(1,10) wolfrand = rand(1,10) hantrand = rand(1,10) gs 'gadforestlost', 'gadforestlost' if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost' act 'Look for a way out': cla *clr menu_off = 1 minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,40) gs 'stat' gs 'gadforestlost', 'lostclothes' if goforest > lostrand: act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish1' else act 'Look for a way out':gt 'gadforestlost','1' end act 'Take a break':gt 'gadforestrelax' end if rand(1,10)> 8: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = '2': *clr & cla if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue' $loc = 'gadforestlost' $metka = '2' $location_type = 'secluded' $menu_loc = 'gadforestlost' $menu_arg = '2' menu_off = 0 gs 'gadukino_event', 'sound' gs'stat' wolfrand = rand(1,10) hantrand = rand(1,10) gs'stat' 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 menu_off = 1 minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,120) gs 'stat' gs 'gadforestlost', 'lostclothes' if goforest > lostrand: act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish2' else act 'Look for a way out':gt 'gadforestlost','2' end act 'Take a break':gt 'gadforestrelax' end if rand(1,10)> 7: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = '3': *clr & cla if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' $loc = 'gadforestlost' $metka = '3' $location_type = 'secluded' $menu_loc = 'gadforestlost' $menu_arg = '3' menu_off = 0 gs 'gadukino_event', 'sound' gs'stat' wolfrand = rand(1,10) hantrand = rand(1,10) gs'stat' 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 menu_off = 1 minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,180) gs 'stat' gs 'gadforestlost', 'lostclothes' if goforest > lostrand: act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish3' else act 'Look for a way out':gt 'gadforestlost','3' end act 'Take a break':gt 'gadforestrelax' end if rand(1,10)> 6: gs 'gadforest', 'torncloth' gs 'gadforestlost', 'searchfood' end if $ARGS[0] = '4': *clr & cla if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' $loc = 'gadforestlost' $metka = '4' $location_type = 'secluded' $menu_loc = 'gadforestlost' $menu_arg = '4' menu_off = 0 gs 'gadukino_event', 'sound' gs'stat' cla *clr wolfrand = rand(1,10) hantrand = rand(1,10) gs'stat' 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 menu_off = 1 minut += 60 pcs_mood -= 5 goforest += rand(0,1) lostrand = rand(1,300) temp = rand(1,10) gs 'stat' gs 'gadforestlost', 'lostclothes' act 'Continue looking for the road': 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 '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: '
> src="images/locations/gadukino/forest/gadforestlost0.'+rand(1,6)+'.jpg">
' '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 '
> src="images/locations/gadukino/forest/gadforestlost_night0.'+rand(1,4)+'.jpg">
' '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: '
> src="images/locations/gadukino/forest/gadforestlost_winter0.'+rand(1,5)+'.jpg">
' '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 '
> src="images/locations/gadukino/forest/gadforestlost_winter_night0.'+rand(1,4)+'.jpg">
' '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:'
> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg">
' if $clothingworntype ! 'nude' and CloSkirtShortness > 0:'
> src="images/locations/gadukino/forest/gadforestsearch_ski0.'+rand(1,4)+'.jpg">
' if $clothingworntype = 'nude':'
> src="images/locations/gadukino/forest/gadforestsearch_nude0.'+rand(1,4)+'.jpg">
' 'After wandering through the woods for an hour you decide to....' end if $ARGS[0] = 'gadforestlostfinish': '

Somewhere in the woods

' '
> src="images/locations/gadukino/forest/gadjoy.jpg">
' 'You look over and realize that you finally see lights shining from distant houses, glad to get out of this alive you rush forward.' !clear lost flags by illume lost_girl = 0 forest_lostday = 0 hanters = 0 menu_off = 1 gs 'clothing', 'swamp_clothes', 0 gs 'stat' if $clothingworntype = 'nude': act 'Leave the woods': menu_off = 1 minut += 25 'You find your way out of the woods, hiding your naked body in shadows.' 'You make your way back towards the edge of the forest where you left your clothes.' cla act 'Continue':gt'gadforest', '1' end !disable further actions from being added temp=0 end end if $ARGS[0] = 'gadforestlostfinish1': cls *clr menu_off = 1 temp = RAND(1,3) lost = 0 pcs_mood += 20 gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad' end if $ARGS[0] = 'gadforestlostfinish2': cls *clr menu_off = 1 temp = RAND(1,5) lost = 0 pcs_mood += 20 gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad' if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start' if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow' end if $ARGS[0] = 'gadforestlostfinish3': cls *clr menu_off = 1 temp = RAND(1,7) lost = 0 pcs_mood += 20 gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad' if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start' if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow' if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road' if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road' end if $ARGS[0] = 'gadforestlostfinish4': cls *clr menu_off = 1 temp = RAND(1,9) lost = 0 pcs_mood += 20 gs 'stat' gs 'gadforestlost', 'gadforestlostfinish' if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1' if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field' if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad' if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start' if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow' if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road' if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road' if temp = 8:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road' if temp = 9 and goswamp = 0:act 'Leave the woods':minut += 15 & gt 'gadforestswamp','1' if temp = 9 and goswamp = 1:act 'Leave 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 'Look for mushrooms and berries': cla *clr menu_off = 1 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 'stat' gs 'gadforest', 'clothes2' 'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.' end act 'Continue':gt $loc, $metka end end end --- gadforestlost ---------------------------------