Sorry your browser is not supported!

sync on : sync rate 60
autocam off : backdrop off
ball = 1
ScreenWidth = screen width()  : ScreenHeight = screen height()
` make a red ball image
ink rgb(255,0,0),0
circle 8,8,7
get image ball,0,0,16,16
cls
` set the initial location of the ball
x = screen width() / 2 : y = screen height() / 2
` set the intial x/y speeds
Xspeed = 2 : Yspeed = -1 : ` moving up and right
sprite ball,x,y,ball
SWidth = sprite width(ball) : SHeight = sprite height(ball)
repeat
  x = x + Xspeed : y = y + ySpeed
  if x < 1 or x > (ScreenWidth - SWidth)
    Xspeed = XSpeed * - 1 : ` change directions - point arrow the other way
  endif
  if y < 1 or y > (ScreenHeight - SHeight)
    Yspeed = Yspeed * - 1 : ` change directions - point arrow the other way
  endif
  sprite ball,x,y,ball
  sync
until spacekey() = 1
delete sprite ball
delete image ball
end

sync on : sync rate 60
autocam off : backdrop off
hide mouse : randomize timer()
ball = 1
ScreenWidth = screen width()  : ScreenHeight = screen height()
` make a red ball image
ink rgb(255,0,0),0
circle 8,8,7
get image ball,0,0,16,16
cls
` set the initial location of the ball
x = screen width() / 2 : y = screen height() / 2
Xspeed = 2 : Yspeed = -1 : ` moving up and right
sprite ball,x,y,ball
SWidth = sprite width(ball) : SHeight = sprite height(ball)
gosub GetLocation

repeat
  gosub MoveBall
  sync
until spacekey() = 1
delete sprite ball
delete image ball
end

GetLocation:
` get random x/y points
xDest = rnd(ScreenWidth - (Swidth * 2)) + Swidth
yDest = rnd(ScreenHeight - (SHeight * 2)) + SHeight
return

MoveBall:
cx = sprite x(ball) : cy = sprite y(ball)
if abs(cx - xDest) < (SWidth / 2) and abs(cy - yDest) < (SHeight / 2)
` reached the destination spot - get new location
  gosub GetLocation
endif
ink rgb(255,255,0),0
text xDest,yDest,"X"
` calculate x/y speed
if xDest < cx
 Xspeed = 0 : if (cx - xDest) > 1 then Xspeed = -2
else
 Xspeed = 0 : if (xDest - cx) > 1 then Xspeed = 2
endif
if yDest < cy
  yspeed = 0 : if (cy - yDest) > 1 then Yspeed = -2
else
  yspeed = 0 : if (yDest - cy) > 1 then Yspeed = 2
endif
x = x + Xspeed
y = y + Yspeed
sprite ball,x,y,ball
return

box 0,0,16,16,rgb(0,255,0)
box 1,1,15,15,rgb(0,100,0)
box 4,15,12,32,rgb(0,255,25)
box 5,14,11,31,rgb(0,100,0)
get image 1,0,0,16,32,1
box 0,0,8,8,rgb(255,255,255)
box 1,1,7,7,rgb(255,0,0)
get image 2,0,0,8,8

sprite 1,screen width()/2,screen height()/2,1
sprite 2,rnd(screen width()),rnd(screen height()),2
offset sprite 1,8,16
offset sprite 2,4,4

do
x1# = sprite x(1)
y1# = sprite y(1)
x2# = sprite x(2)
y2# = sprite y(2)
    
nDistance = sqrt((x1#-x2#)^2 + (y1#-y2#)^2)

while nDistance > .5
    x1# = sprite x(1)
    y1# = sprite y(1)
    x2# = sprite x(2)
    y2# = sprite y(2)
    
    ` I'm seriously math deficient, but this works    
    angle#=ATAN((y1#-y2#)/(x1#-x2#))
    if x2# <= x1# then angle#=angle#-90.0 else angle# = angle#+90.0
    rotate sprite 1,angle#
    move sprite 1,.05
    nDistance = sqrt((x1#-x2#)^2 + (y1#-y2#)^2)
endwhile

sprite 2,rnd(screen width()),rnd(screen height()),2
loop