glife/locations/gadfield

# gadfield
if $ARGS[0] = 'field':
	$location_type = 'secluded'
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    clr
    gs'stat'
    !gs'time'

    '<center><H4>Field</H4></center>'

    if month >= 4 and month <= 10:
	    if hour >= 6 and hour < 22:
		    '<center><img src="images/qwest/gadukino/gadfield/gadfield.jpg"></center>'
	    else
		    '<center><img src="images/qwest/gadukino/gadfield/gadfield_night.jpg"></center>'
	    end
    else
	    if hour >= 8 and hour < 18:
		    '<center><img src="images/qwest/gadukino/gadfield/gadfield_winter.jpg"></center>'
	    else
		    '<center><img src="images/qwest/gadukino/gadfield/gadfield_winter_night.jpg"></center>'
	    end
    end
    'A field outside the village.'
    if hour >= 9 and hour <= 19 and week < 6:'Grandfather''s horse <a href="exec: gt ''gadfield'',''horse''">Desperado</a> is grazing the field.'
    if hour >= 9 and hour <= 19 and graze_cow = 0:'You see <a href="exec: gt ''gadfield'',''cow''">a herd of cows</a> in the middle of the field.'
    if hour >= 6 and hour <= 20 and graze_cow = 1:'You notice <a href="exec: gt ''gadfield'',''cow''">a herd of cows</a>.'
    if hour >= 7 and hour <= 20 and haying_time = 1:'You see a crowd of people working on the field.' 

    if hour >= 7 and hour <= 20 and haying_time = 1:
		act 'Go to the hayfield':
			gs 'food', 'm_meal'&!use current one, cls will clear messages
			cla
			*clr
			minut += 360
			grandmahelp += 1
	
			haying_time = 0
			gs 'stat'
			
			if miraQW >= 15:
			    miraQW += 1
			    '<center><img src="images/qwest/gadukino/gadfield/haying_time_mira.jpg"></center>'
			    'Most of the village has shown up to help out with the hay. You and Mira also partake in the activities. You are really enjoying yourself, especially considering you spending time, sitting on the fresh cut hay, talking to Mira.'
			else
			    fat -= 5
			    pcs_stren += 1
			    pcs_agil += 1
			    pcs_vital += 1
			    sweat += 20			 
			    '<center><img src="images/qwest/gadukino/gadfield/haying_time.jpg"></center>'
			    'Almost all of the villagers have shown up to help out with the fresh cut hay. You decide to join them.'   
            end
			act 'Further':gt'gadfield','field'   
		end
    end     
        

    act 'Go back to the road':minut += 10 & gt'gadroad'
end    

if $ARGS[0] = 'horse':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    clr
    gs'stat'
    !gs'time'
    
    '<center><img src="images/qwest/gadukino/gadfield/horse.jpg"></center>'
    'Your grandfather''s horse Desperado.'
    
    if hour = 19:
		act 'Lead the horse home (1:00)':
			cla
			*clr
			minut += 60
			grandmahelp += rand(0,1)
			gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/horse_field'+rand(1,4)+'.jpg"></center>'
			'Noticing your grandfathers'' horse walking on the field, you decide to help out by taking Desperado home. Reaching for the bridle, you start leading Desperado towards the village.'
			
			act 'Further':gt'Gadsarai'    
		end
    end    
    act 'Back':gt'gadfield','field'
end 

if $ARGS[0] = 'cow':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    clr
    temp = rand(1,5)
    gs'stat'
    !gs'time'
    
    '<center><img src="images/qwest/gadukino/gadfield/cow.jpg"></center>'
    'The cow herd is standing in the middle of the field.'
    if mira = 1: '<a href="exec: gt ''Miroslava''">Mira</a> is standing next to you.'    
    
    if hour = 19 and graze_cow = 0:
		act 'Lead the cows home (1:00)':
			cla
			*clr		
			minut += 60
			grandmahelp += rand(0,1)
			gs 'stat'
			
			'<center><img src="images/qwest/gadukino/new/cow_field.jpg"></center>'
			'Seeing the cow herd on the field, you decide to help your grandfather bring the cows home...'

			act 'Further':gt'Gadsarai'    
		end
    end
    if graze_cow = 1:
        if hour < 10:
            act 'Wait until the herd is gathered':
			    cla
			    *clr
                if hour >= 9:minut += 20
                if hour < 9:minut += 60        
                gs 'stat'
                
                '<center><img src="images/qwest/gadukino/gadfield/graze_cow_wait.jpg"></center>'
                if graze_cow_exp = 0:'Some time flies by while waiting for the locals to finish their gathering.'
                if graze_cow_exp = 1:'Some time flies by while waiting for the locals and their children to finish their gathering.'
                
                act 'Further':gt'gadfield','cow'
            end
        end
        if hour >= 10 and hour < 13:
            act 'Herd cows with your grandfather (1:00)':
			    cla
			    *clr
                minut += 60        
                if temper >= 30 and sunWeather = 1:water -= 12
                graze_cow_exp = 1
                grandmahelp += 1
                gs 'stat'
                
                '<center><img src="images/qwest/gadukino/gadfield/graze_cow'+rand(1,4)+'.jpg"></center>'
                'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
                
                act 'Further':gt'gadfield','cow'
            end
            if mira = 0:            
                act 'Take a run on the field (1:00)':
			        cla
			        *clr
			        frost = 0
		            minut += 60
		            if salo > 3:salo -= RAND(1,3)
		            fat -= 5
		            beg += 1
		            sweat += 10
                    manna += mannamax/20       
                    if temper >= 30 and sunWeather = 1:water -= 24
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_run.jpg"></center>'
                    'Since you have nothing to do, you run intervals across the field for an hour.'
                
                    act 'Further':gt'gadfield','cow'
                end
            end
            if temper >= 20 and sunWeather = 1 and mira = 0:
                act 'Tan (1:00)':
			        cla
			        *clr
			        minut += 60
                    manna += mannamax/10
                    pcs_tan += 1
                    sweat += 10
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_sun.jpg"></center>'
                    'It''s really warm outside so you decide to sunbathe for an hour.'
                
                    act 'Further':gt'gadfield','cow'
                end               
                if son < 40:
                    act 'Take a nap (1:00)':
			            cla
			            *clr
			            minut += 60
                        manna += mannamax/10
                        son+= 9
                        if temper >= 30 and sunWeather = 1:water -= 12
                        gs 'stat'
                
                        '<center><img src="images/qwest/gadukino/gadfield/graze_cow_lying.jpg"></center>'
                        'You lie down on the grass and doze off for an hour.'
                
                        act 'Further':gt'gadfield','cow'
                    end    
                end
                act 'Pick flowers (1:00)':
			        cla
			        *clr
			        minut += 60
                    manna += mannamax/5
                    if temper >= 30 and sunWeather = 1:water -= 12
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_flowers.jpg"></center>'
                    'You spend an hour wandering the field, picking flowers.'
                
                    act 'Further':gt'gadfield','cow'
                end
			    act 'Read a book (1:00)':
			        cla
			        *clr
			        minut += 60			        
                    if temper >= 30 and sunWeather = 1:water -= 12
                    gs 'stat'				    
                    
				    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_book'+rand(1,2)+'.jpg"></center>'
	                if Astat_nerd[pc] > 0: 	                    
		                lastread = totminut
		                lastreadday = daystart
		                Astat_nerd[pc] += 1
		                blizoruk += 1
		                manna += 100
		                if pcs_stren > 1: pcs_stren -= 1
		                if pcs_vital > 5: pcs_vital -= 1
		                gs 'stat'
		                 'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
	                else
	                    blizoruk += 1
		                manna += 10
		               'While reading the book, time flies by cause you are really engaged in the books'' plot.'
	                end
				    act 'Close the book':gt $loc, $metka
		        end   
            end
        end
        if hour >= 13 and hour < 16:
            cla
	        *clr
	        if temper >= 30 and sunWeather = 1:water -= 12
	        grandmahelp += 1
            minut += 60
            gs 'stat'

           '<center><img src="images/qwest/gadukino/gadfield/cow_go.jpg"></center>'            
           'Looking at his watch, grandpa turns to you and says "The time is around lunchtime so it''s time to take the herd to the watering hole." You begin to gather the cows and lead them to the river.'
            
            act 'Further':gt'gadfield','cow2'
        end         
    end
    if graze_cow = 0:act 'Back':gt'gadfield','field'    
end    
 
!MiaLoc tells us where Mira is Located
!----------------------------------------------
!MiraLoc = 0 (Mira at home)
!MiraLoc = 1 (Mira at river)
!MiraLoc = 2 (Mira at meadow)
!MiraLoc = 3 (Mira at forest)
!MiraLoc = 4 (Mira at field)
!MiraLoc = 5 (Mira with gop)
!---------------------------------------------
 
if graze_cow = 1 and miraQW >= 15 and mira = 0 and sunWeather = 1 and hour >= 10 and temp = 1 and Mira_no = 0 and(mitkasextimes < 13 or miraperversion >= 10 or mirasex > 1):
	cla
	*clr
    minut += 5
    miraQW += 1
    mira = 1       
    gs 'stat'

    '<center><img src="images/qwest/gadukino/Mira2.jpg"></center>'   
    'While keeping an eye on the cow herd, you see Mira in the distance, approaching. You happily wave to her.'
    '" - Hi, <<$pcs_nickname>>. I wanted to visit you and brought water with me," she says nearing you. " - Have you missed me?"'
    
    act 'Further':water +=40 & gt'gadfield','cow'   
end  
    
if $ARGS[0] = 'cow2':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    clr
    gs'stat'
    !gs'time'
    
    '<center><H4>River</H4></center>'
    '<center><img src="images/qwest/gadukino/gadfield/cow_river.jpg"></center>'
    'The cow herd is standing by the river.'
    if mira = 1: 'S<a href="exec: gt ''Miroslava''">Mira</a> is sitting next to you.'
    if temper >= 20 and sunWeather = 1:'- "You can go for a swim while there is time, <<$pcs_nickname>>. I`ll keep an eye on the herd," said you grandpa.'

    if graze_cow = 1:     
        if hour < 16:
            act 'Herd cows with your grandfather (1:00)':
			    cla
			    *clr
                minut += 60        
                if temper >= 30 and sunWeather = 1:water -= 12
                grandmahelp += 1
                graze_cow_exp = 1
                gs 'stat'
                
                '<center><img src="images/qwest/gadukino/gadfield/graze_cow'+rand(1,4)+'.jpg"></center>'
                'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
                
                act 'Further':gt'gadfield','cow2'
            end
            if temper >= 20 and sunWeather = 1 and mira = 0:
                act 'Swim (0:15)':
			        cla
			        *clr
			        minut += 15
			        cumspclnt = 4 & gs 'cum_cleanup'
			        sweat = 10 + rand(0,4)
			        manna += 5			    
			        willpower += 5
			        if pcs_stren < 30:pcs_stren += 1
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_river.jpg"></center>'
                    'You take a quick swim, cooling off your body.'
                
                    act 'Further':gt'gadfield','cow2'
                end
                act 'Tan (0:30)':
			        cla
			        *clr
					minut += 30
					sweat += 10
					manna += mannamax/20
					pcs_tan += 1
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_sun.jpg"></center>'
                    'You lie down to sunbathe, while grandpa looks after the herd.'
                    
                
                    act 'Further':gt'gadfield','cow2'
                end
			    act 'Read a book (1:00)':
			        cla
			        *clr
			        minut += 60			        
                    if temper >= 30 and sunWeather = 1:water -= 12
                    gs 'stat'				    
                    
				    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_book'+rand(1,2)+'.jpg"></center>'
	                if Astat_nerd[pc] > 0: 	                    
		                lastread = totminut
		                lastreadday = daystart
		                Astat_nerd[pc] += 1
		                blizoruk += 1
		                manna += 100
		                if pcs_stren > 1: pcs_stren -= 1
		                if pcs_vital > 5: pcs_vital -= 1
		                gs 'stat'
		                'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
	                else
	                    blizoruk += 1
		                manna += 10
		                'While reading the book, time flies by cause you are really engaged in the books'' plot.'
	                end
				    act 'Close the book':gt $loc, $metka
		        end
            end
        end
        if hour >= 16 and hour < 19:
            cla
	        *clr
	        grandmahelp += 1
	        if temper >= 30 and sunWeather = 1:water -= 12
            minut += 60
            gs 'stat'

            '<center><img src="images/qwest/gadukino/gadfield/cow_go.jpg"></center>'            
            'Looking at his watch, grandpa says that it''s time to drive the herd back on the field, but now closer to the forest. The two of you begin to gather the scattered herd and head toward the forest.'
            
            act 'Further':gt'gadfield','cow3'
        end        
    end  
end    



if $ARGS[0] = 'cow3':
    $metka = $ARGS[0]
    $loc = $CURLOC
    gs 'gadukino_event', 'sound'
    clr
    gs'stat'
    !gs'time'
    
    '<center><H4>Field near the forest</H4></center>'
    '<center><img src="images/qwest/gadukino/gadfield/cow_forest.jpg"></center>'
    'The cow herd is standing on a field near the forest.'
    if mira = 1: '<a href="exec: gt ''Miroslava''">Mira</a> is sitting next to you.'
    
    if graze_cow = 1:        
        if hour < 19:
            act 'Herd cows with your grandfather (1:00)':
			    cla
			    *clr
                minut += 60        
                if temper >= 30 and sunWeather = 1:water -= 12
                grandmahelp += 1
                graze_cow_exp = 1
                gs 'stat'
                
                '<center><img src="images/qwest/gadukino/gadfield/graze_cow'+rand(1,4)+'.jpg"></center>'
                'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
                
                act 'Further':gt'gadfield','cow3'
            end
            if mira = 0:            
                act 'Take a run (1:00)':
			        cla
			        *clr
			        frost = 0
		            minut += 60
		            if salo > 3:salo -= RAND(1,3)
		            fat -= 5
		            beg += 1
		            sweat += 10
                    manna += mannamax/20       
                    if temper >= 30 and sunWeather = 1:water -= 24
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_run.jpg"></center>'
                    'Since you have nothing to do, you run intervals across the field for an hour.'
                
                    act 'Further':gt'gadfield','cow3'
                end
            end           
            if temper >= 20 and sunWeather = 1 and mira = 0:
                act 'Pick flowers (1:00)':
			        cla
			        *clr
			        minut += 60
                    manna += mannamax/5
                    if temper >= 30 and sunWeather = 1:water -= 12
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_flowers.jpg"></center>'
                    'You spent an hour wandering around the field, picking flowers.'
                
                    act 'Further':gt'gadfield','cow3'
                end                
                act 'Tan (1:00)':
			        cla
			        *clr
			        minut += 60
                    manna += mannamax/10
                    pcs_tan += 1
                    sweat += 10
                    gs 'stat'
                
                    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_sun.jpg"></center>'
                    'You sunbathe for an hour.'
                
                    act 'Further':gt'gadfield','cow3'
                end               
                if son < 40:
                    act 'Take a nap on the grass (1:00)':
			            cla
			            *clr
			            minut += 60
                        manna += mannamax/10
                        son+= 9
                        if temper >= 30 and sunWeather = 1:water -= 12
                        gs 'stat'
                
                        '<center><img src="images/qwest/gadukino/gadfield/graze_cow_lying.jpg"></center>'
                        'You lie down on the grass and doze off for an hour.'
                
                        act 'Further':gt'gadfield','cow3'
                    end    
                end
			    act 'Read a book (1:00)':
			        cla
			        *clr
			        minut += 60			        
                    if temper >= 30 and sunWeather = 1:water -= 12
                    gs 'stat'
                    
				    '<center><img src="images/qwest/gadukino/gadfield/graze_cow_book'+rand(1,2)+'.jpg"></center>'
	                if Astat_nerd[pc] > 0: 	                    
		                lastread = totminut
		                lastreadday = daystart
		                Astat_nerd[pc] += 1
		                blizoruk += 1
		                manna += 100
		                if pcs_stren > 1: pcs_stren -= 1
		                if pcs_vital > 5: pcs_vital -= 1
		                gs 'stat'
		                'You start reading a book you brought with you. You are so engrossed in the story you forget about the time.'
	                else
	                    blizoruk += 1
		                manna += 10
		                'While reading the book, time flies by cause you are really engaged in the books'' plot.'
	                end
				    act 'Close the book':gt $loc, $metka
		        end
            end
        end
        if hour >= 19:
            cla
	        *clr
	        if temper >= 30 and sunWeather = 1:water -= 12
            minut += 60
            mira = 0
            graze_cow = 0
            grandmahelp += 1
            gs 'stat'

            '<center><img src="images/qwest/gadukino/gadfield/cow_go_home.jpg"></center>'            
            'Looking at his watch, grandpa says that it is late and time to drive the herd home. You hurry up and gather up the cows and rush them towards the village. You are barely keeping up with the herd.'
            
            act 'Further':gt'gadukino'
        end        
    end  
end    

    
    
--- gadfield ---------------------------------