sprites help

[metachief]

proc game

Window.Hide (main_win)
campaign_win := Window.Open ("position:centre,centre,graphics:850,610,title:CAMPAIGN")

var left, right : boolean := false
const grav := 1
const jump_s := 1.2
var run_s : real
var x, y : real
var vel_y : real
var jump : boolean
var key : array char of boolean

run_s := 13
x := 400
y := 8
jump := false

View.Set ("offscreenonly")

loop

Input.KeyDown (key)

if key ('a') then

loop
right := false
left := true

Pic.Draw (pic1l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic2l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic3l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic4l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic5l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic6l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic7l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic8l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic9l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls

Pic.Draw (pic10l, round (x - 70), round (y), picMerge)
x := x - run_s
delay (60)
View.Update
cls
exit
end loop
end if

if key ('d') then
loop
left := false
right := true
Pic.Draw (pic1r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls


Pic.Draw (pic2r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls

Pic.Draw (pic3r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls


Pic.Draw (pic4r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls

Pic.Draw (pic5r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls

Pic.Draw (pic6r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls

Pic.Draw (pic7r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls

Pic.Draw (pic8r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls


Pic.Draw (pic9r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls

Pic.Draw (pic10r, round (x), round (y), picMerge)
x := x + run_s
delay (60)
View.Update
cls
exit
end loop
end if

if key ('w') and jump = false then
jump := true
vel_y := jump_s
Pic.Draw (pic11r, round (x), round (y), picMerge)
View.Update
cls
end if

if jump = true then
if y < 200 then
jump := false
end if
y := y + vel_y
vel_y := vel_y - grav
end if

end loop

Window.Close (campaign_win)
Window.Show (main_win)
Window.SetActive (main_win)

end game

[StealthArcher]

What do you even want?

And, USE CODE TAGS.