-----------------------------------

Darkmantis

Tue Oct 18, 2005 3:09 pm


I need help to make my pic move useing the keyboard!

-----------------------------------

I've been useing this code in school and it works but for some reason it doesn't work for me at home. PLz help me!

setscreen ("graphics:400,400")
var x, y, button : int
var kp : string (1)
x := 100
y := 100
procedure drawcar
    Pic.ScreenLoad ("car1.bmp", x - 10, y - 10, picMerge)
    delay (10)
end drawcar

procedure erasecar
    drawfilloval (x, y, 50, 50, white)
end erasecar

kp := "z"
drawcar

loop
    if hasch then
        getch (kp)
    end if

    
    if kp= KEY_RIGHT_ARROW then  Keystroke Codes.


-----------------------------------

Darkmantis

Tue Oct 18, 2005 8:52 pm



-----------------------------------

ok thanks a lot