var Pacman : int := Pic.FileNew ("Untitled-2.bmp")
var chars : array char of boolean
var x1 : int := 1
var x2 : int := x1 + 10
var y1 : int := 1
var y2 : int := y1 + 10
var xv : real := 0
var yv : real := 0
var g : real := 1
var ground : boolean := true

setscreen ("graphics:540;600,offscreenonly,nobuttonbar,title:Player Movement Tutorial")

loop
    Input.KeyDown (chars)

    if chars ('w') and y2 < maxy and ground = true then
        yv += 8
    end if
    if chars ('a') and x1 > 0 then
        xv -= 1
    elsif chars ('d') and x2 < maxx then
        xv += 1
    elsif chars (KEY_ESC) then
        exit
    end if

    if y1 > 0 then
        yv -= g
    elsif y1 < 0 then
        yv := 0
        y1 := 0
    end if

    if xv > 0 then
        xv -= 0.5
    elsif xv < 0 then
        xv += 0.5
    end if

    if x1 < 0 then
        x1 := 0
        xv := 0
    elsif x2 > maxx then
        x1 := maxx - 10
        xv := 0
    end if

    if y2 > maxy then
        y1 := maxy - 10
        yv := 0
    end if

    if y1 = 0 then
        ground := true
    else
        ground := false
    end if

    x1 += round (xv)
    y1 += round (yv)
    x2 := x1 + 10
    y2 := y1 + 10

    Pic.Draw (Pacman,x1, y1, 0)

    locate (1, 1)

    View.Update
    delay (10)
    cls
end loop