glife/locations/Gadgarden

# Gadgarden
if $ARGS[0] = 'garden':
	$location_type = 'secluded'
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    cls
    gs'stat'
    !gs'time'    
 
    if month >= 4 and month <= 10:
	    if hour >= 6 and hour < 21:
		    '<center><img src="images/qwest/gadukino/new/garden.jpg"></center>'
	    else
		    '<center><img src="images/qwest/gadukino/new/garden_night.jpg"></center>'
	    end
    else
	    if hour >= 8 and hour < 18:
		    '<center><img src="images/qwest/gadukino/new/garden_winter.jpg"></center>'
	    else
		    '<center><img src="images/qwest/gadukino/new/garden_winter_night.jpg"></center>'
	    end
    end

    'A large garden which is growing almost everything.'
    if month >= 4 and month <= 10:'A little way there <a href="exec: gt ''Gadgarden'',''strawberry'' ">strawberry plot</a> and <a href="exec: gt ''Gadgarden'',''fruit_garden'' ">orchard</a>.'
   
    !job Granny
    if work_garden = 1:
	    act 'Working in the garden':
		    cla
		    *clr
		    minut += 180
		    sweat += 10
            work_garden = 0
		    grandmahelp += 3
		    pcs_stren += 1
		    fat -= RAND(1,5)
		    gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/work_garden'+rand(1,5)+'.jpg"></center>'
			'You some time working in the garden.'
			act 'Finish':gt'Gadgarden','garden'    
	    end
    end
    !job Granny
    if water_garden = 1:
	    act 'Watering the garden':
		    cla
		    *clr
		    sweat += 10
		    minut += 60
		    water_garden = 0
		    grandmahelp += 1
		    pcs_vital += 1
		    fat -= RAND(1,2)		    
		    gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/water_garden.jpg"></center>'
			'You techenie hours watering the beds in the garden.'
			act 'Finish':gt'Gadgarden','garden'
	    end    
	end
	!job Granny
    if harvest_garden = 1:
	    act 'Harvest':
		    cla
		    *clr
		    minut += 180
		    sweat += 10
		    harvest_garden = 0
		    grandmahelp += 3
		    pcs_stren += 1
		    fat -= RAND(1,3)		    
		    gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/harvest_garden'+rand(1,5)+'.jpg"></center>'
			'You techenii a few hours, pick vegetables in the garden.'
			act 'Finish':gt'Gadgarden','garden'
	    end    
	end
    act 'Go outside':minut += 5 & gt'Gaddvor'
end	

if $ARGS[0] = 'strawberry':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    cls
    gs'stat'
    !gs'time'    
	
    if month = 6 or month = 7:
        if hour >= 6 and hour < 21:
		    '<center><img src="images/qwest/gadukino/new/strawberry1.jpg"></center>'
        else
            '<center><img src="images/qwest/gadukino/new/strawberry_night.jpg"></center>'
        end
    else    
        if hour >= 6 and hour < 21:
		'<center><img src="images/qwest/gadukino/new/strawberry2.jpg"></center>'		     
        else
            '<center><img src="images/qwest/gadukino/new/strawberry_night.jpg"></center>'
        end
    end     

	'Strawberry field where, in season, you can grow some strawberries.'
		
	if month >= 6 and month <= 7 and strawberriesday ! daystart:
		act 'To eat strawberries':
			cla
			*clr
			strawberriesday = daystart
			minut += 60
			manna += mannamax/10
			water += 40
			energy += 15
			willpower += willpowermax/10
			cumspclnt = 2 & gs 'cum_cleanup' & fbreath = 0
			gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/eat_strawberries.jpg"></center>'			    
			'You some time wandering through the plot collecting ripe berries immediately throwing them in my mouth.'
	
			act 'Finish':gt'Gadgarden','strawberry'   
		end
	end
	!job Granny
	if collect_strawberries = 1:
		act 'To collect the strawberries':
			cla
			*clr
			minut += 180
			sweat += 10
			collect_strawberries = 0
			grandmahelp += 5
		    pcs_agil += 1
            fat -= 1			
			gs 'stat'
			
			if CloSkirtShortness = 0:'<center><img src="images/qwest/gadukino/new/collect_strawberries.jpg"></center>'
			if CloSkirtShortness > 0 and tanga = 1:'<center><img src="images/qwest/gadukino/new/collect_strawberries_ski.jpg"></center>'			    
			if CloSkirtShortness > 0 and tanga = 0:'<center><img src="images/qwest/gadukino/new/collect_strawberries_tanga.jpg"></center>'
			'You wander through the plot collecting ripe berries in the basket.'
			
			act 'Finish':gt'Gadgarden','strawberry'    
		end
	end	

	act 'Go':minut += 5 & gt'Gadgarden','garden'
end	


if $ARGS[0] = 'fruit_garden':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    cls
    gs'stat'
    !gs'time'    

	if hour >= 6 and hour < 21:
		'<center><img src="images/qwest/gadukino/new/fruit_garden.jpg"></center>'
	else
		'<center><img src="images/qwest/gadukino/new/fruit_garden_night.jpg"></center>'
	end
	
	'The orchard in which grow Apple and pear.'	
	
	if month >= 7 and month <= 9 and fruitday ! daystart:
		act 'To eat fruit':
			cla
			*clr
			fruitday = daystart
			minut += 60
			manna += mannamax/10
			water += 20
			energy += 30
			willpower += willpowermax/10
			cumspclnt = 2 & gs 'cum_cleanup' & fbreath = 0
			gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/eat_fruit.jpg"></center>'
			'You have some time wander around the garden munching on ripe fruit.'

			act 'Finish':gt 'Gadgarden','fruit_garden'    
		end
	end
	!job Granny
	if fruit_collect = 1:
		act 'Collect fruit':
			cla
			*clr
			minut += 180
			sweat += 10
			fruit_collect = 0
			grandmahelp += 5
		    pcs_agil += 1
            fat -= RAND(1,3)
			gs 'stat'
			
			if CloSkirtShortness = 0:'<center><img src="images/qwest/gadukino/new/fruit_collect.jpg"></center>'
			if CloSkirtShortness > 0 and tanga = 1:'<center><img src="images/qwest/gadukino/new/fruit_collect_ski.jpg"></center>'			    
			if CloSkirtShortness > 0 and tanga = 0:'<center><img src="images/qwest/gadukino/new/fruit_collect_tanga.jpg"></center>'			
			'You gather in the garden of ripe fruit.'
			
			act 'Finish':gt 'Gadgarden','fruit_garden'   
		end
	end	
	act 'Go':minut += 5 & gt'Gadgarden','garden'
end	




--- Gadgarden ---------------------------------