Graphics 640,480
SetBuffer BackBuffer()


Dim tilepack(100)
tilepack(1)=LoadAnimImage(\"tileset.bmp\",32,32,0,44)

Dim Level(1000,100,100) ;1000 = Gesamtzahl der Level
                        ;100 = x und danach y achse                 


Levelx=30
Levely=30

aktlevel=1



Repeat
Cls 


For  X=1 To Levelx
For  Y=1 To Levely
DrawImage tilepack(1),X*32-32,Y*32-32,Level(aktlevel,X,Y)
Next
Next 

If KeyHit(20) Then ; Taste \"T\"
Cls
FlushKeys
Color 255,0,0
For i=0 To 43
x=i Mod 11
y=i /11
DrawImage TilePack(1),x*32,y*32,i
Text x*32,y*32,i
Flip
Next 
akttile=Input(\"Welches Tile?\")
End If

For x=1 To levelx
For y=1 To levely
DrawImage TilePack(1),x*32-32,y*32-32,Level(aktlevel,x,y)
If MouseX()>x*32-32 And MouseY()>y*32-32  And MouseX()<x*32 And MouseY()<y*32 And MouseDown(1) Then
Level(aktlevel,x,y)=akttile
End If
Next
Next

If KeyHit(2) Then SaveBuffer BackBuffer(),\"c:\screen.bmp\"

If KeyHit(57) Then map1_datei=WriteFile(\"map1.txt\");HIER FUNKTIONIERT
For x=1 To levelx                                                   ;DAS NET :cry: 
For y=1 To levely
WriteInt Level(aktlevel,x,y),akttile
Next
Next 
CloseFile map1_datei








Flip 
Until KeyHit(1)