# 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'
'
> src="images/locations/gadukino/hunters/forester.jpg">'
'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:
'> 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">'
'Within an hour of wandering through the woods you decide....'
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 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 ---------------------------------