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 <<$set_imgh>> src="images/locations/gadukino/village/garden.jpg"></center>'
	    else
		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden_night.jpg"></center>'
	    end
    else
	    if hour >= 8 and hour < 18:
		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden_winter.jpg"></center>'
	    else
		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/garden_winter_night.jpg"></center>'
	    end
    end

    'A large vegetable garden that your grandparents are very proud of.'
    if month >= 4 and month <= 10:'A small land plot is dedicated to a <a href="exec: gt ''Gadgarden'',''strawberry'' ">strawberry plot</a> and a <a href="exec: gt ''Gadgarden'',''fruit_garden'' "> fruit orchard</a>.'
   
    !job Granny
    if work_garden = 1:
	    act 'Work in the garden (3:00)':
		    cla
		    *clr
		    minut += 180
		    pcs_sweat += 10
            work_garden = 0
		    grandmahelp += 3
		    stren_exp += 1
		    fat -= RAND(1,5)
		    gs 'stat'
			
			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/work_garden'+rand(1,5)+'.jpg"></center>'
			'You spend some time doing some gardening.'
			act 'Finish':gt'Gadgarden','garden'    
	    end
    end
    !job Granny
    if water_garden = 1:
	    act 'Water the garden (1:00)':
		    cla
		    *clr
		    pcs_sweat += 10
		    minut += 60
		    water_garden = 0
		    grandmahelp += 1
		    vital_exp += 1
		    fat -= RAND(1,2)		    
		    gs 'stat'
			
			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/water_garden.jpg"></center>'
			'You spend an hour watering the garden.'
			act 'Finish':gt'Gadgarden','garden'
	    end    
	end
	!job Granny
    if harvest_garden = 1:
	    act 'Harvest (3:00)':
		    cla
		    *clr
		    minut += 180
		    pcs_sweat += 10
		    harvest_garden = 0
		    grandmahelp += 3
		    stren_exp += 1
		    fat -= RAND(1,3)		    
		    gs 'stat'
			
			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/harvest_garden'+rand(1,5)+'.jpg"></center>'
			'You spend a few hours harvesting 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 <<$set_imgh>> src="images/locations/gadukino/village/strawberry1.jpg"></center>'
        else
            '<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry_night.jpg"></center>'
        end
    else    
        if hour >= 6 and hour < 21:
		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry2.jpg"></center>'		     
        else
            '<center><img <<$set_imgh>> src="images/locations/gadukino/village/strawberry_night.jpg"></center>'
        end
    end     

	'It''s strawberry season, you approach the field where the strawberries grow, searching for some ripe strawberries.'
		
	if month >= 6 and month <= 7 and strawberriesday ! daystart:
		act 'Eat the strawberries (1:00)':
			cla
			*clr
			strawberriesday = daystart
			minut += 60
			pcs_mood += 10
			water += 40
			pcs_energy += 15
			pcs_willpwr += willpowermax/10
			cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
			gs 'stat'
			
			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/eat_strawberries.jpg"></center>'			    
			'You spend some time wandering through the plot searching for ripe strawberries. As soon as you notice a strawberry, you immediately pick it up and eat as many as you can.'
	
			act 'Finish':gt'Gadgarden','strawberry'   
		end
	end
	!job Granny
	if collect_strawberries = 1:
		act 'Collect strawberries (3:00)':
			cla
			*clr
			minut += 180
			pcs_sweat += 10
			collect_strawberries = 0
			grandmahelp += 5
		    agil_exp += 1
            fat -= 1			
			gs 'stat'
			
			if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries.jpg"></center>'
			if CloSkirtShortness > 0 and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries_ski.jpg"></center>'			    
			if CloSkirtShortness > 0 and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/collect_strawberries_tanga.jpg"></center>'
			'You wander through the plot collecting ripe strawberries 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 <<$set_imgh>> src="images/locations/gadukino/village/fruit_garden.jpg"></center>'
	else
		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_garden_night.jpg"></center>'
	end
	
	'There are apples and pears growing in the fruit orchard.'	
	
	if month >= 7 and month <= 9 and fruitday ! daystart:
		act 'Eat the fruit (1:00)':
			cla
			*clr
			fruitday = daystart
			minut += 60
			pcs_mood += 10
			water += 20
			pcs_energy += 30
			pcs_willpwr += willpowermax/10
			cumspclnt = 2 & gs 'cum_cleanup' & pcs_breath = 0
			gs 'stat'
			
			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/eat_fruit.jpg"></center>'
			'You spend some time wandering around the orchard munching on the ripe fruit.'

			act 'Finish':gt 'Gadgarden','fruit_garden'    
		end
	end
	!job Granny
	if fruit_collect = 1:
		act 'Collect fruit (3:00)':
			cla
			*clr
			minut += 180
			pcs_sweat += 10
			fruit_collect = 0
			grandmahelp += 5
		    agil_exp += 1
            fat -= RAND(1,3)
			gs 'stat'
			
			if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect.jpg"></center>'
			if CloSkirtShortness > 0 and $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect_ski.jpg"></center>'			    
			if CloSkirtShortness > 0 and $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/locations/gadukino/village/fruit_collect_tanga.jpg"></center>'			
			'You walk around the orchard and pick the ripe fruit hanging from the trees.'
			
			act 'Finish':gt 'Gadgarden','fruit_garden'   
		end
	end	
	act 'Go':minut += 5 & gt'Gadgarden','garden'
end	

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