# 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 ---------------------------------