Sorry your browser is not supported!

Rem ***** Main Source File *****
sync on : sync rate 60

// create type
type object
    x as float
    y as float
    xspeed as float
    yspeed as float
endtype

// create objects
player as object
com as object

// set player values
player.x = 100.00
player.y = 240.00
player.xspeed = 2.00
player.yspeed = 2.00

// set computer's values
com.x = 400.00
com.y = 240.00
com.xspeed = 1.00
com.yspeed = 1.00

// distance
distance as float

do
    cls
    // move player
    if upkey()=1 then dec player.y, player.yspeed
    if downkey()=1 then inc player.y, player.yspeed
    if leftkey()=1 then dec player.x, player.xspeed
    if rightkey()=1 then inc player.x, player.xspeed
    
    // get distance
    distance = get_distance(player.x, com.x, player.y, com.y)
    
    // move computer towards player
    if distance > 10.00
        com.xspeed = ((player.x - com.x)/distance)
        com.yspeed = ((player.y - com.y)/distance)
    else 
        com.xspeed = 1.00
        com.yspeed = 1.00
    endif
    
    inc com.x, com.xspeed
    inc com.y, com.yspeed
    
    
    
    ink rgb(255,0,0), 0
    circle int(player.x), int(player.y), 10
    
    text 0, 0, "You are red, use arrowkeys to move around"
    
    ink rgb(0, 255, 0), 0
    circle int(com.x), int(com.y), 10
    
    sync
loop

function get_distance( x1 as float , x2 as float , y1 as float , y2 as float )
// distance formula
    distance as float
    distance = sqrt(((x1 - x2)^2) + ((y1 - y2)^2))
endfunction distance

distance = get_distance(player.x, com.x, player.y, com.y)

cls rgb(255,0,0)
ink rgb(255,255,255),0
line 0,5,5,0
line 5,0,10,5
get image 1,0,0,10,20

sprite 1,320,240,1

do
pointsprite(1,mousex(),mousey())
move sprite 1,0.1
sync
loop

function pointsprite(s,x,y)

dx = sprite x(s) - x
dy = sprite y(s) - y
ang# = wrapvalue(atanfull(dx,dy)*-1)
rotate sprite s,ang#

endfunction