;Grafik-Einstellungen
AppTitle    "Neues Projekt"
Graphics    1024, 768, 16, 1
SetBuffer   BackBuffer()
Jones     = LoadAnimImage ("Jones.bmp", 64, 64, 0, 28)
Wüste     = LoadImage     ("Wüste.bmp")

MaskImage   Jones, 255, 255, 255

Const Laufen_Links      = 14                                 
Const Laufen_Rechts     =  7                               
Const Laufen_Oben       = 21                               
Const Laufen_Unten      =  0

Const Stehen_Links      = 20
Const Stehen_Rechts     = 13
Const Stehen_Oben       = 27
Const Stehen_Unten     =  6
                                   
Timer                   = CreateTimer (15)

;Spielfigur-Position ( Zu Spielbeginn )
X = 512
Y = 384

;Hauptschleife
While Not KeyDown(1)
 
 Cls
  DrawImage Wüste, 0, 0
  DrawImage Jones, X, Y, Frame + Dir
 
    If Frame =  5 Then Frame =  0
    If Frame = 12 Then Frame =  7
    If Frame = 19 Then Frame = 14
    If Frame = 26 Then Frame = 21

    If     KeyDown(200) And KeyDown(203) Then                                 ;O+L
       Y = Y - 7 : X = X - 7  : Dir = Laufen_Links  : Frame = Frame + 1
   ElseIf KeyDown(200) And KeyDown(205) Then                                 ;O+R
       Y = Y - 7 : X = X + 7  : Dir = Laufen_Rechts : Frame = Frame + 1
   ElseIf KeyDown(208) And KeyDown(203) Then                                 ;U+L
       Y = Y + 7 : X = X - 7  : Dir = Laufen_Links  : Frame = Frame + 1
    ElseIf KeyDown(208) And KeyDown(205) Then                                 ;U+R
        Y = Y + 7 : X = X + 7  : Dir = Laufen_Rechts : Frame = Frame + 1
    ElseIf KeyDown(203) Then                                                                       
                   X = X - 10 : Dir = Laufen_Links  : Frame = Frame + 1
    ElseIf KeyDown(205) Then                                                                       
                   X = X + 10 : Dir = Laufen_Rechts : Frame = Frame + 1
    ElseIf KeyDown(200) Then                                                                       
                   Y = Y - 10 : Dir = Laufen_Oben   : Frame = Frame + 1
    ElseIf KeyDown(208) Then                                                                         
                   Y = Y + 10 : Dir = Laufen_Unten  : Frame = Frame + 1
   EndIf

    WaitTimer Timer

    ;Bildschirmrand
    If X   >  960 Then X =  960
    If X   <    0 Then X =    0
    If Y   >  704 Then Y =  704
    If Y   <    0 Then Y =    0

 Flip 
         
Wend