<Add your code here>

%I do not own any of the backgrounds or sprites used to make the program
setscreen ("graphics : 400;300,offscreenonly")
color (white)

color (black)

View.Update
var map : array 1 .. 2  of int %Makes it so that a numeral will represent
                             %the map (easier coding)
map (1) := Pic.FileNew ("Map1.jpg")%Incorpirating the first map

map (2) := Pic.FileNew ("Plains.jpg")%Incorporating the second map

var char1 : int := Pic.FileNew ("8bitspartan.JPG")

var chars : array char of boolean%allows me to use the keyboard

var posx, posy : int%characters position/velocity
posx := 50
posy := 50
var velx, vely : int
velx := 0
vely := 0

var HP : int%Player HP (Health Points)
var FHP : int%Full HP or health Limit)
HP := 100

FHP := 150

var grav : int := 10%Gravity(acceleration of gravity/the speed at which velocity changes)

var damage : int := 15


const JS : int := 90%Jump Speed
proc Movement
%Coding that enables the Jump feature
if chars (KEY_UP_ARROW) and posy < maxy - 30 and whatdotcolor (posx + 10,posy - 10) = black then
vely := JS

end if

%Left movement
if chars (KEY_LEFT_ARROW) and whatdotcolour (posx-15, posy + 24) not= black then
velx :=-15

end if

%Right movement
if chars (KEY_RIGHT_ARROW) and whatdotcolour (posx + 10, posy +24) not= black then
velx := 15
else
velx := 0
end if

if whatdotcolor(posx +20, posy + 60) = yellow then%Player loses health when touched by yellow
HP-= damage

end if
end Movement