Graphics 1024,768,16,2

Global x,y,z,px=7,py=1
Global mob,mobgo
Global mob1x=2,mob1y=2,mob2x=2,mob2y=3
Global token,death
Global zeit,frmtime_fire,frmtime_flag
Global timer         = CreateTimer(60)
Global player        = LoadImage("char.bmp")
Global mpics         = LoadAnimImage("mob.png",32,32,0,2)
Global eldor_map     = LoadAnimImage("map.bmp",32,32,0,40)
Global mirror        = LoadImage("mirror.bmp")

Include "ed.bb"
Include "mb.bb"

ClsColor 255,255,255
Cls
MaskImage mirror,255,255,255
DrawImage mirror,268,195
WaitKey
ClsColor 0,0,0

Repeat
SetBuffer BackBuffer()
Cls
Color 255,255,255

eldor()
mobs()
zz()

x=px*32:y=py*32:DrawImage player,x,y
x=mob1x*32:y=mob1y*32:DrawImage mpics,x,y,0
x=mob2x*32:y=mob2y*32:DrawImage mpics,x,y,1
If KeyDown(200) And death=0 Then:If map(px,py-1)<2 Then py=py-1
EndIf
If KeyDown(208) And death=0 Then:If map(px,py+1)<2 Then py=py+1
EndIf
If KeyDown(203) And death=0 Then:If map(px-1,py)<2 Then px=px-1
End If
If KeyDown(205) And death=0 Then:If map(px+1,py)<2 Then px=px+1
End If

Text 0,50,mob2x+" :mob2x"
Text 0,62,mob2y+" :mob2y"

Color 0,0,0
If mob1x=px And mob1y=py Then death=1
If death=1 Then Text 200,200,"TOOOOOOT!"

Flip(0)
WaitTimer(timer)
Until KeyHit(1)
FreeImage player
FreeImage mpics
FreeImage eldor_map
FreeImage mirror
FreeTimer(timer)
End

bitte um klärung!

Function eldor()
   karte$=ReadFile("eldor"+token+".map")
   For x=0 To 27:For y = 0 To 23
      tile=ReadLine(karte$)
      map(x,y)=ReadInt(karte$)
   Next:Next
   CloseFile(karte$)
   
   For x=0 To 27:For y=0 To 23
      DrawBlock eldor_map,x*32-scrollx,y*32-scrolly,map(x,y)
   Next:Next
End Function