# 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'
'<center><H4>Forest</H4></center>'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0 and bonfire = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax1.jpg"></center>'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0 and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax2.jpg"></center>'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and bonfire = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski1.jpg"></center>'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and $pantyworntype ! 'none' and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski2.jpg"></center>'
if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and $pantyworntype = 'none' and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski3.jpg"></center>'
if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+ rand(1,3) +'.jpg"></center>'
if $clothingworntype = 'nude':inhib_exp += rand(1,3)
'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'
   	    
   	    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire1.jpg"></center>'
   	    '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'
	        '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletuscook.jpg"></center>'
	        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:
		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire2.jpg"></center>'
	    else
           '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire3.jpg"></center>'
	    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'
		
            '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg"></center>'
	        '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'
		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg"></center>'
		    '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'
	        '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletushot.jpg"></center>'
	        '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:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax3.jpg"></center>'    
	    if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski4.jpg"></center>'   
		if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski5.jpg"></center>' 
        if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+rand(1,2)+'.jpg"></center>'    	    
   	    
   	    '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:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleep.jpg"></center>'   
	        if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski.jpg"></center>'    
		    if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski1.jpg"></center>' 
            if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepnude1.'+rand(1,2)+'.jpg"></center>'    
		  	
	        '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'
		    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nosleep.jpg"></center>'
		    '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
	    pcs_hydra += 40
	    bilberry -= 1
	    pcs_willpwr += 5
	    pcs_health += 5
	    pcs_mood += 10
	    gs'stat'
	    '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
	    '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 ---------------------------------