% move char code

var nickstand: int
var x : int := 100
var y : int := 100
var x_velocity : int := 0
var y_velocity : int := 0

var keys : array char of boolean

nickstand := Pic.FileNew ("nickstand.jpg")

View.Set ("offscreenonly")

const Gravity := 2
loop
    Input.KeyDown (keys)
    if keys (KEY_UP_ARROW) and y <= 0 then
        y_velocity := 30 %If the jump button is pressed, velocity shoots up.
    end if
    if keys (KEY_LEFT_ARROW) and x > 0 then
        x -= 5 %basic X movement.
    end if
    if keys (KEY_RIGHT_ARROW) and x < maxx then
        x += 5
    end if


    y_velocity -= Gravity %Here, we subtract gravity from velocity.
    y += y_velocity %We've seen this before! Adding velocity to coordinates

    if y < 0 then %this makes sure the character stays above the ground (if he goes undr, it brings him back up)
        y := 0
        y_velocity := 0
    end if



Pic.Draw (nickstand, x, y, picCopy)
    View.Update
    delay (20)
    cls
end loop

%world 1
setscreen ("graphics")
cls % clears the screen
include "char.t" %adds char to the game.
Pic.ScreenLoad ("world2/level 1.jpg", x, y, picXor) %start world 1 background