mpx%=0      ;aktuelle mausposition
mpy%=0      ;aktuelle mausposition
npx%=0      ;mausposition raster
npy%=0      ;mausposition raster
mt1%=0      ;maustaste links
mt2%=0      ;maustaste rechts
tpx%=74      ;tilemapscrollposition
tpy%=74      ;tilemapscrollposition
fpx%=0      ;maus auf feldposition
fpy%=0      ;maus auf feldposition
swp%=0       ;swap map [0/1]

Graphics 1024,768,32,1
SetBuffer BackBuffer()

Global blocks=LoadAnimImage ("t5.bmp",64,64,0,96)
MaskImage blocks,255,0,255

Dim vgm%(159,159)

;neuen level laden
file=ReadFile("rohling.map")
For y=0 To 139
 For x=0 To 139
  vgm(x,y)=ReadByte(file)
 Next
Next




;hauptprogramm
While Not KeyHit(1)

 ;variablen
 mpx=MouseX()
 mpy=MouseY()
 npx=Int(mpx/64)*64
 npy=Int(mpy/64)*64
 mt1=MouseDown(1)
 mt2=MouseDown(2)

 ;tastaturabfrage
 If KeyDown(203) Then tpx=tpx-1:If tpx<000 Then tpx=000
 If KeyDown(205) Then tpx=tpx+1:If tpx>148 Then tpx=148
 If KeyDown(200) Then tpy=tpy-1:If tpy<000 Then tpy=000
 If KeyDown(208) Then tpy=tpy+1:If tpy>148 Then tpy=148
 If KeyDown(31) Then SaveImage
 If KeyDown(38) Then LoadImage
 If KeyHit(57) Then swp=1-swp

 ;variablen
 fpx=tpx+(mpx/64)
 fpy=tpy+(mpy/64)

 ;map zeichnen
 For y=0 To 11
  For x=0 To 11
   If vgm(x+tpx,y+tpy)>0 Then DrawImage blocks,x*64,y*64,vgm(x+tpx,y+tpy)
  Next
 Next

 ;fadenkreuz mitte map
 Rect 5119-tpx*64,5060-tpy*64,2,120
 Rect 5060-tpx*64,5119-tpy*64,120,2

 ;menü zeichnen
 For y=0 To 11
  For x=0 To 3
   DrawImage blocks,768+x*64,y*64,x+y*8+swp*4
   Color 0,0,0:Rect 768+x*64,y*64,64,64,0
  Next
 Next

 ;bildschirmauswahl
 If mpx<768 Then
  Color 0,0,0
  Rect npx,npy,64,64,1
  DrawImage blocks,npx,npy,auswahl
  If mt1=1 Then vgm(fpx,fpy)=auswahl
  If mt2=1 Then auswahl=vgm(fpx,fpy)
 Else
  DrawImage blocks,npx,npy,(npx/64)-12+(npy/8)+swp*4
  If mt1=1 Then auswahl=(npx/64)-12+(npy/8)+swp*4
  If mt2=1 Then auswahl=(npx/64)-12+(npy/8)+swp*4
 End If

 ;mousecursor
 Color 255,255,255
 Rect mpx-12,mpy-1,25,3
 Rect mpx-1,mpy-12,3,25
 Rect npx,npy,64,64,0

 ;scrollbalken
 Color 255,255,255
 Rect tpx*4.8,0,58,1
 Rect tpx*4.8,767,58,1
 Rect 767,tpy*4.8,1,58
 Rect 0,tpy*4.8,1,58

 ;Delay 30
 Flip
 Cls
Wend
End




;level speichern
Function SaveImage()
 SetBuffer FrontBuffer()

 WritePixel 0,0,0
 For y=0 To 767 Step 2
  For x=0 To 1023 Step 2
   WritePixelFast x+1,y+1,0
   WritePixelFast x,y,0
  Next
 Next

 FlushKeys
 Color 255,255,255
 Text 100,128,"dateinamen zum speichern der map eingeben"
 Text 100,144,"drücken sie einfach [ENTER] um zurück zu kommen"

 Locate 100,160
 name$=Input$("dateiname: ")

 If Not name$="" Then
  newfile=WriteFile(name$)

  For y=0 To 159
   For x=0 To 159
    WriteByte(newfile,vgm(x,y))
   Next
  Next
 End If

 SetBuffer BackBuffer()
End Function




;neuen level laden
Function LoadImage()
 SetBuffer FrontBuffer()

 WritePixel 0,0,0
 For y=0 To 767 Step 2
  For x=0 To 1023 Step 2
   WritePixelFast x+1,y+1,0
   WritePixelFast x,y,0
  Next
 Next

 FlushKeys
 Color 255,255,255
 Text 100,128,"dateinamen zum laden der map eingeben"
 Text 100,144,"drücken sie einfach [ENTER] um zurück zu kommen"

 Locate 100,160
 name$=Input$("dateiname: ")

 If Not name$="" Then
  newfile=ReadFile(name$)

  For y=0 To 159
   For x=0 To 159
    vgm(x,y)=ReadByte(newfile)
   Next
  Next
 End If

 SetBuffer BackBuffer()
End Function