Sorry your browser is not supported!

GameSetup:
text 50,50, "Setting Up The Game..."
set window off
//Load Globals & Variables

//Load Integers
Type SpriteObjects
        x as integer
        y as integer
        id as integer
        img as integer
        angle as integer
        height as integer
        width as integer
EndType
//Load Images
Load image "Characters/Sprite_Sheet.bmp",1
Load image "Maps/TestMap1.bmp",4
//Load Sprites

//Load Options

//Load Controls

//Load Music

//Load Other

// 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
text 50,100, "Complete, Press Any Key..."
wait key
CLS
text 50,50,"Welcome." 
text 50,75,"...(Story)..."
text 50,400,"Press Any Key"
wait key
gosub GameStart

cls
set image colorkey 100,0,100
sync on: sync rate 40
hide mouse

Create animated sprite 1,"Characters/Sprite_Sheet.bmp",6,4,1
// distance
distance as float
sprite 1,(player.x),(player.y),1
autocam off
//backdrop off
do
    cls
    // move player
   
    
    if upkey()=1 then dec player.y, player.yspeed 
        play sprite 1,1,6,100
    if downkey()=1 then inc player.y, player.yspeed  
        play sprite 1,7,12,100
    if leftkey()=1 then dec player.x, player.xspeed  
        play sprite 1,13,18,100
    if rightkey()=1 then inc player.x, player.xspeed 
        play sprite 1,19,24,100
    // 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(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 as float
    distance = sqrt(((x1 - x2)^2) + ((y1 - y2)^2))
endfunction distance