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

Global x,y,tile=0,scroll_x,scroll_y,set=1

Global tileset  = LoadAnimImage("gfx\tileset.png",16,16,0,4)
Global tileset2 = LoadAnimImage("gfx\tileset2.png",16,16,0,2):MaskImage tileset2,255,0,255

maus = LoadImage("gfx\maus.bmp")

Dim map(200,200)
Dim item(20,20)

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
While Not KeyHit(1)
   Cls
   
   mx=MouseX()
   my=MouseY()
   
   For x=0 To 200
      For y=0 To 200
         DrawBlock tileset,x*16-scroll_x,y*16-scroll_y,map(x,y)
      Next
   Next
   
   For x=0 To 20
      For y=0 To 20
         DrawImage tileset2,x*16-scroll_x,y*16-scroll_y,item(x,y)
      Next
   Next
   
   If KeyHit(57) Then tile=tile+1
   If tile>=3 Then tile=3
   If tile<=0 Then tile=0
   
   If KeyHit(31) Then save()
   If KeyHit(38) Then load()
   
   If MouseX()<=0                  Then scroll_x=scroll_x-4
   If MouseX()>=GraphicsWidth()-5  Then scroll_x=scroll_x+4
   If MouseY()<=0                  Then scroll_y=scroll_y-4
   If MouseY()>=GraphicsHeight()-5 Then scroll_y=scroll_y+4
   
   If KeyHit(27) Then set=set+1
   If KeyHit(53) Then set=set-1
   If set>=2 Then set=2
   If set<=1 Then set=1
   
   If MouseDown(1) Then
      mapx=(mx)/16
      mapy=(my)/16
      If set=1 Then
         map(mapx+scroll_x/16,mapy+scroll_y/16)=tile
      EndIf
      If set=2 Then
         item(mapx+scroll_x/16,mapy+scroll_y/16)=1
      EndIf
   EndIf
   
   If MouseDown(2) Then
      mapx=(mx)/16
      mapy=(my)/16
      map(mapx+scroll_x/16,mapy+scroll_y/16)=0
   EndIf
   
   DrawImage maus,mx,my
Flip
Wend
End

Function save()
   karte$ = WriteFile("map1.map")
   For x = 0 To 200
      For y = 0 To 200
         WriteLine(karte$,tile)
         WriteInt(karte$,map(x,y))
      Next
   Next
   For x=0 To 20
      For y=0 To 20
         WriteInt(karte$,item(x,y))
      Next
   Next
   CloseFile(karte$)
End Function

Function load()
   karte$ = ReadFile("map1.map")
   For x = 0 To 200
      For y = 0 To 200
         tile = ReadLine(karte$)
         map(x,y)  = ReadInt(karte$)
      Next
   Next
   For x=0 To 20
      For y=0 To 20
         item(x,y) = ReadInt(karte$)
      Next
   Next
   CloseFile(karte$)
End Function

For x=0 To 200
      For y=0 To 200
         DrawBlock tileset,x*16-scroll_x,y*16-scroll_y,map(x,y)
      Next
   Next

For x=0 To 200
      For y=0 To 200
         If x*16>scroll_x and x*16<scroll_x+GraphicsWidth() and y*16>scroll_y and y*16<scroll_y+GraphicsHeight() Then
           DrawBlock tileset,x*16-scroll_x,y*16-scroll_y,map(x,y)
         Endif
      Next
   Next

   For my = 0 To map_w - scroll_y
      For mx = 0 To map_h - scroll_x
         DrawImage usedtileset, mx * 32, my * 32, map(mx + scroll_x, my + scroll_y)
      Next
   Next