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