Select move
 
 ;links
   Case 1
      ;Spielerposition ändern
      scrollx = scrollx - 2
      ppx = ppx - 2
      ;Variable, die zählt wie weit der Spieler bereits bewegt wurde
      counter=counter+1
    
      If counter = 16 Then       ;dort muss eine 16 stehen weil die map  32x32 gross ist den 16+16 = 32
         px = px - 1
         counter = 0
       move = 0
       
      EndIf
   

End Select





;Cursor Links
If KeyDown(203) Then
   ;Kollision checken, wie ihr es schon kennt
   If map(px-1,py) < 1 Then ;wenn etwas größer als 1 ist kann man nicht weiter z.b. 5 ist größer als 1 deswegen kann man dort nicht durch diese wiese hat den wert 0 im array und 0 ist KLEINER ! als 1 also kann man ber die wiese gehen 
   move= 0
   If move=0 Then
         ;die Scrollroutine move=1 wird aufgerufen
         move = 1 ; move = 1 das wird gebraucht im in case 1 zu kommen
      End If
   End If
End If

Select move
 
 ;links
   Case 1
      ;Spielerposition ndern
      scrollx = scrollx - 2
      ppx = ppx - 2
      ;Variable, die zhlt wie weit der Spieler bereits bewet wurde
      counter=counter+1
   
      If counter = 16 Then       ;dort muss eine 16 stehen weil die map  32x32 gross ist den 16+16 = 32
         px = px - 1
         counter = 0
       move = 0
       
      EndIf
   

End Select





;Cursor Links
If KeyDown(203) Then
   ;Kollision checken, wie ihr es schon kennt
   If map(px-1,py) < 1 Then ;wenn etwas größer als 1 ist kann man nicht weiter z.b. 5 ist größer als 1 deswegen kann man dort nicht durch diese wiese hat den wert 0 im array und 0 ist KLEINER ! als 1 also kann man ber die wiese gehen 
   move= 1

   End If
End If



Flip
Forever