var keys : array char of Boolean %This is the variable you need. Don't ask about the 'array char of boolean', it doesn't matter.
loop
        Input.KeyDown (keys) %This tells the computer to check if a key is pressed, and which one
        If keys (KEY_UP_ARROW) then %this says 'if a key is pressed and the key pressed is the up arrow, then do something (in this case, increase the Y value).
                y += 1
        End if
end loop

var x : int := 100
var y : int := 100
var keys : array char of boolean

loop
    Input.KeyDown (keys)
    if keys (KEY_UP_ARROW) and y < maxy then %makes sure the character won't go past the top of the screen
        y += 1
    end if

    if keys (KEY_DOWN_ARROW) and y > 0 then
        y -= 1
    end if

    if keys (KEY_LEFT_ARROW) and x > 0 then
        x -= 1
    end if

    if keys (KEY_RIGHT_ARROW) and x < maxx then
        x += 1
    end if
    Draw.FillOval (x, y, 10, 10, red)
    delay (10)
    cls
end loop

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

var keys : array char of boolean

loop
    Input.KeyDown (keys)
    if keys (KEY_UP_ARROW) and y_velocity < 5 then %makes sure the character won't go past the top of the screen
        y_velocity += 1 %See here, we are changing the velocity instead of the coordinates
    end if

    if keys (KEY_DOWN_ARROW) and y_velocity > -5 then % we also set the max speed here (5)
        y_velocity -= 1
    end if

    if keys (KEY_LEFT_ARROW) and x_velocity > -5 then
        x_velocity -= 1
    end if

    if keys (KEY_RIGHT_ARROW) and x_velocity < 5 then
        x_velocity += 1
    end if

    if y >= maxy or y <= 0 then
        y_velocity *= -1 %If the ball hits a wall, the velocity will reverse, 'bouncing' the ball the other way
    end if
    if x >= maxx or x <= 0 then
        x_velocity *= -1
    end if
    y += y_velocity % this is where the ball's X and Y values are actually changed.
    x += x_velocity


    Draw.FillOval (x, y, 10, 10, red)
    delay (10)
    cls
end loop

const Gravity := 2
var x := 100
var y := 100
var y_velocity := 0
var keys : array char of boolean
setscreen ("offscreenonly")
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



    Draw.FillOval (x, y, 10, 10, red)
    View.Update
    delay (20)
    cls
end loop

if whatdotcolor (10, 10) = blue then
        put "the color is blue"
end if

var charx : int := 100
var chary : int := 100
var targetx : int
var targety : int
var num : array char of boolean
setscreen ("offscreenonly")
loop
    targetx := Rand.Int (10, 630) %just setting the coordinates of the target
    targety := Rand.Int (10, 390)
    loop
        Input.KeyDown (num) %Remember this from 'Movement'?
        if num (KEY_UP_ARROW) and chary < 390 then
            chary := chary + 1
        end if
        if num (KEY_DOWN_ARROW) and chary > 10 then
            chary := chary - 1
        end if
        if num (KEY_LEFT_ARROW) and charx > 10 then
            charx := charx - 1
        end if
        if num (KEY_RIGHT_ARROW) and charx < 630 then
            charx := charx + 1
        end if
        Draw.FillOval (targetx, targety, 20, 20, black) %draw everything
        Draw.Oval (charx, chary, 5, 5, brightred)
        exit when whatdotcolor (charx, chary) = black %The one line of collision detection. This will only check the center of the circle.
        View.Update
        delay (5)
        cls
    end loop
    cls
end loop

exit when whatdotcolor (x, y-5) = black or whatdotcolor (x, y+5) = black or whatdotcolor (x-5, y) = black or whatdotcolor (x+5, y) = black

exit when whatdotcolor (x-5, y-5) = black or whatdotcolor (x-5, y+5) = black or whatdotcolor (x+5,y+5) = black or whatdotcolor (x+5, y-5) = black

exit when whatdotcolor (x, y-5) = black or whatdotcolor (x, y+5) = black or whatdotcolor (x-5, y) = black or whatdotcolor (x+5, y) = black or whatdotcolor (x-5, y-5) = black or whatdotcolor (x-5, y+5) = black or whatdotcolor (x+5,y+5) = black or whatdotcolor (x+5, y-5) = black

if b1x1 <b2x2 and b1x2 > b2x1 and b1y1 < b2y2 and b1y2 > b2y1 then
        put "The boxes have collided"
end if

var b1x1 := 100
var b1y1 := 100
var b1x2 := 200
var b1y2 := 200
var b2x1 := 300
var b2y1 := 100
var b2x2 := 400
var b2y2 := 200
var keys : array char of boolean
setscreen ("offscreenonly")
loop
    Input.KeyDown (keys)
    if keys (KEY_UP_ARROW) then
        b1y1 += 1
        b1y2 += 1
    end if
    if keys (KEY_DOWN_ARROW) then
        b1y1 -= 1
        b1y2 -= 1
    end if
    if keys (KEY_LEFT_ARROW) then
        b1x1 -= 1
        b1x2 -= 1
    end if
    if keys (KEY_RIGHT_ARROW) then
        b1x1 += 1
        b1x2 += 1
    end if
    if b1x1 < b2x2 and b1x2 > b2x1 and b1y1 < b2y2 and b1y2 > b2y1 then
        put "The boxes have collided!"
       
       
    end if
    Draw.Box (b1x1, b1y1, b1x2, b1y2, red)
    Draw.Box (b2x1, b2y1, b2x2, b2y2, blue)
    View.Update
    delay (10)
    cls
end loop

setscreen ("offscreenonly")
loop
    Input.KeyDown (keys)
    if keys (KEY_UP_ARROW) then
        y1 += 1
    end if
    if keys (KEY_DOWN_ARROW) then
        y1 -= 1
    end if
    if keys (KEY_LEFT_ARROW) then
        x1 -= 1
    end if
    if keys (KEY_RIGHT_ARROW) then
        x1 += 1
    end if
    if Math.Distance (x1, y1, x2, y2) < (radius_1 + radius_2) then
        put "The objects have collided"
    end if
    Draw.Oval (x1, y1, radius_1, radius_1, red)
    Draw.Oval (x2, y2, radius_2, radius_2, blue)
    View.Update
    delay (10)
    cls
end loop