var sprite_x, sprite_y : int
var sprite_chars : array char of boolean
var sprite_pic : int := Pic.FileNew ("sprite3.jpg")
var sprite_left_width : int := Pic.Width (sprite_pic)
var sprite_left_height : int := Pic.Height (sprite_pic)
var obstacle1_x, obstacle1_y : int
var points : int
var lastMoved : int := 0
var timeRunning : int
% Sprite Function
var delayTime : int
var Distance_between_centres : real
var spriteID : int
Pic.SetTransparentColor (sprite_pic, white)
Pic.Draw (sprite_pic, 2, 2, picMerge)
%spriteID := Sprite.New (sprite_pic)
%Sprite.Show (spriteID)

obstacle1_x := Rand.Int (20, maxx)
obstacle1_y := Rand.Int (20, maxy)
clock (timeRunning)
lastMoved := timeRunning - 2001

setscreen ("offscreenonly")
sprite_x := 200
sprite_y := 100
points := 0


colorback (brightred)
loop
    cls
    locate (5, 1)
    put points
    clock (timeRunning)
    if timeRunning - lastMoved > 2001 then
        obstacle1_x := Rand.Int (20, maxx)
        obstacle1_y := Rand.Int (20, maxy)
        lastMoved := timeRunning
    end if

    Input.KeyDown (sprite_chars)

    if sprite_chars (KEY_UP_ARROW) then
        sprite_y := sprite_y + 5
    end if
    if sprite_chars (KEY_DOWN_ARROW) then
        sprite_y := sprite_y - 5
    end if
    if sprite_chars (KEY_RIGHT_ARROW) then
        sprite_x := sprite_x + 5
    end if
    if sprite_chars (KEY_LEFT_ARROW) then
        sprite_x := sprite_x - 5
    end if

    drawfilloval (obstacle1_x, obstacle1_y, 15, 15, 8)

    if sqrt ((40 + sprite_x - obstacle1_x) ** 2 +
            (sprite_y + 40 - obstacle1_y) ** 2) < 60 then
        points := points + 1
    end if

    Pic.Draw (sprite_pic, sprite_x, sprite_y, picCopy)
    %drawbox (sprite_x, sprite_y, boxx, boxy, 3)
    Sprite.SetPosition (spriteID, sprite_x, sprite_y, false)
    View.Update
    delay (25)


end loop