# gadforestrelax
$location_type = 'secluded'
$metka = $ARGS[0]
$loc = $CURLOC
if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10) + bonfire > 8: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
gs 'gadukino_event', 'sound'
cls
wolfrand = rand(1,10)
gs'stat'
!gs'time'
'
Forest
'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0 and bonfire = 0:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0 and bonfire = 1:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and bonfire = 0:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and tanga = 1 and bonfire = 1:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and tanga = 0 and bonfire = 1:''
if $clothingworntype = 'nude':''
'You are tired and decided to rest a little.'
if wolfrand <= 3 and bonfire = 0 and hour = 23 or hour >= 0 and hour < 6 and bonfire = 0 and wolfrand <= 3:gt 'gadforest_event', 'relax'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and bonfire = 0:
act 'Kindle fire':
cla
*clr
minut += 10
bonfire = 1
gs 'stat'
''
'You have a match and decide to light a fire...'
act 'Further':gt 'gadforestrelax'
end
end
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and bonfire = 1:
if edahot = 1:
act 'To eat fried mushrooms':
cla
*clr
minut += 15
edahot = 0
pcs_health += 10
pcs_mood += 20
gs'stat'
''
if pcs_energy >= 100:
fat += 5
'You can`t eat anymore.'
elseif pcs_energy >= 70:
fat += 3
pcs_energy += 10
'You force yourself to eat more food.'
else
pcs_energy += 20
'You love to eat fried mushrooms.'
end
act 'Further':gt 'gadforestrelax'
end
end
act 'To get warm by the fire':
cla
*clr
minut += 60
pcs_sleep += 9
pcs_health += 10
frost = 0
pcs_mood += 10
if hour >= 6 and hour < 21:
''
else
''
end
'You sit in silence for hours looking at the fire. You feel warm and rested, perhaps it''s time to move on.'
act 'Further':gt 'gadforestrelax'
end
act 'To lie down to take a NAP around the campfire':
cla
*clr
if pcs_sleep < 40:
pcs_sleep += 30
pcs_health += 20
minut += 180
frost = 0
pcs_mood += 50
gs'stat'
''
'You doze off for about 3 hours, you wake up feeling more cheerful and rested.'
act 'Wake up':gt 'gadforestrelax'
else
cla
*clr
minut += 5
frost = 0
gs'stat'
''
'You`re trying to sleep, but can''t.'
act 'Further':gt 'gadforestrelax'
end
end
if boletus > 0:
act 'Grill the mushrooms in the fire':
cla
*clr
minut += 30
edahot = 1
boletus -= 1
frost = 0
gs'stat'
''
'You grilled some mushrooms in the fire.'
act 'Further':gt 'gadforestrelax'
end
end
end
if $clothingworntype ! 'nude' and bonfire = 0:
act 'Sit on the grass':
cla
*clr
if temper < 12:pcs_health -= healthmax/20
minut += 60
pcs_sleep += 6
pcs_mood += 10
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and tanga = 1 and CloSkirtShortness > 0:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and tanga = 0 and CloSkirtShortness > 0:''
if $clothingworntype = 'nude':''
'You sit in silence for hours looking at the fire. You feel warm and rested, perhaps it''s time to move on.'
act 'Further':gt 'gadforestrelax'
end
act 'To lie down and take a NAP':
cla
*clr
if pcs_sleep < 40:
pcs_sleep += 30
if temper < 12:pcs_health -= healthmax/10
minut += 180
pcs_mood += 20
gs'stat'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and tanga = 1 and CloSkirtShortness > 0:''
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and tanga = 0 and CloSkirtShortness > 0:''
if $clothingworntype = 'nude':''
'You doze off for about 3 hours, you wake up feeling more cheerful and rested.'
act 'Wake up':gt 'gadforestrelax'
else
minut += 5
gs'stat'
''
'You`re trying to sleep, but can''t.'
act 'Further':gt 'gadforestrelax'
end
end
end
if bilberry > 0:
act 'To eat berries':
cla
*clr
minut += 30
pcs_energy += 15
water += 40
bilberry -= 1
pcs_willpwr += 5
pcs_health += 5
pcs_mood += 10
gs'stat'
''
'You ate a few berries.'
act 'Further':gt 'gadforestrelax'
end
end
act 'Look for the road':
if lost = 1:bonfire = 0 & minut += 15 & gt 'gadforestlost','1'
if lost = 2:bonfire = 0 & minut += 15 & gt 'gadforestlost','2'
if lost = 3:bonfire = 0 & minut += 15 & gt 'gadforestlost','3'
if lost = 4:bonfire = 0 & minut += 15 & gt 'gadforestlost','4'
end
--- gadforestrelax ---------------------------------