a simple 2d chase algo for beginners

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem ai chase

` Setup 

sync on : sync rate 60 : color backdrop 0 : hide mouse


`make images for sprites 
box 0,0,20,20
get image 1,0,0,20,20

`declare variables
global  predatorx  = 10
global  predatory = 240
global speed = 2

`make sprites

sprite 1,predatorx,predatory,1
set sprite diffuse 1,255,0,0
sprite 2,preyx,preyy,1
	 
	 
	 
`main loop


do
	preyx = mousex()
    preyy = mousey()
        
	
	    if predatorX > preyX
			predatorX = predatorX -speed
		endif
		
		if predatorX < preyX
			predatorX = predatorX + speed
		endif 
		
		if predatory > preyy
			predatory = predatory -speed
		endif
 		
		if predatory < preyy
			predatory = predatory + speed
	    endif 
		
	`update sprites 
	sprite 1,predatorx,predatory,1
    sprite 2,preyx,preyy,1
	 	
	 	
	sync
loop