Function movement()

If KeyHit(208) Then
   If map(px,py+1) < 1 Then
      py          = py       +    1
      scrolly    = scrolly    +    32
      move      =             1
      herodir      = unten
      heroframe   = heroframe   +   1
   EndIf
EndIf

If KeyHit(200) Then
   If map(px,py-1) < 1 Then
      py         = py      -    1
      scrolly      = scrolly   -   32
      move      =            1
      herodir      = oben
      heroframe    = heroframe   +   1
   EndIf
EndIf

If KeyHit(203) Then
   If map(px-1,py) < 1 Then
      px          = px      -   1
      scrollx    = scrollx   -    32
      move      =            1
      herodir      = links
      heroframe    = heroframe   +   1
   EndIf
EndIf

If KeyHit(205) Then
   If map(px+1,py) < 1 Then
      px         = px      +   1
      scrollx    = scrollx   +   32
      move      =             1
      herodir      = rechts
      heroframe    = heroframe   +   1
   EndIf
EndIf

End Function


Function drawhero()
If move = 1 Then x = px * 32 : y = py * 32 : DrawImage hero,x-scrollx,y-scrolly,heroframe

If herodir = unten Then
   If heroframe > 8 Then
      Heroframe    =   6
   EndIf
EndIf

If herodir = oben Then
   If heroframe > 2 Then
      heroframe   = 0
   EndIf
EndIf

If herodir = links Then
   If heroframe > 11 Then
      heroframe   = 9
   EndIf
EndIf

If herodir = rechts Then
   If heroframe > 5 Then
      heroframe = 3
   EndIf
EndIf


End Function

Graphics 640,480,16,0
SetBuffer BackBuffer()

;- Images laden -

Global gras    =       LoadImage("gras.bmp")
Global wasser    =      LoadImage("wasser.bmp")
Global hero   =      LoadAnimImage("hero.bmp",24,32,0,11)
MaskImage hero, 255,255,255





;- Variablen -
Global timer    =    CreateTimer(25)
Global karte   
Global px       =   10
Global py      =   7
Global move    =    1
Global scrollx   
Global scrolly
Global x,y
Global time
Global herodir
Global heroframe
Global unten,oben,rechts,links


;- Vorbereitungen laden -
Dim map(31,23)

karte = OpenFile("map.dat")


For y = 0 To 23
   For x = 0 To 31
      map(x,y) = ReadByte(karte)
   Next
Next





;- Hauptschleife :: BEGIN :: -
Repeat
drawmap()
movement()
drawhero()








WaitTimer(timer)
Flip
Cls
Until KeyHit(1):End
;- Hauptschleife :: END :: -
CloseFile karte




;- Include -
Include "func.bb"

    global  unten = 0      ; unten is gleich dem Frame wo der Spieler nach unten guggt ;)
     global oben = 4       ;      "    "  "          "     "        "  "        "         "     oben  "       "
     global links = 8       ; hoffentlich selbsterklärend...
     global rechts = 12
   
   global move = 0    ; gibt an ob der Player sich gerade bewegt...
   global player_frame
   global player_dir 

   ;Main Looop:
     
     ;Animation:
   if move = 1 then
     player_frame = player_frame + 1     ; Player Frame wird erhöht solange er sich bewegt  (move = 1)
     if player_frame = 4 then player_frame = 0   ; Sonst gehen dir schnell die Frames aus ;)
   end if

   ;Bewegung:
  If KeyDown(208) then               ; Ich hab mir jetz nich die mühe gemacht und nach scancodes geschaut
    player_x = player_x + 2        ; Je nachdem in welche richtung er läuft (sollte dir eig. klar sein)
    move = 1
   player_dir = rechts      ; also hat player_dir = 12
  else
    move = 0               
  end if

 ;... das ganze natürlich auch für links,oben,unten

   ;Zeichnen:
     DrawImage player,player_x,player_y,player_frame + player_dir    ; das is das besondere

   ; Main Looop ende...