; Code by Keimax
Graphics 1024,768,16,1
SetBuffer BackBuffer()


Global datei
Global mx,my

Dim map(200,200)  ;Die Map


While Not KeyHit(1)
Cls
If KeyHit(2) Then laden     ; Taste 1 = laden
If KeyHit(3) Then speichern ; Taste 2 = speichern
zeichnen

Flip
Wend



Function zeichnen()


For x=0 To 199
For y=0 to 199

mx=MouseX()/40
my=MouseY()/40

If map(x,y) = 1 Then Rect x*40,y*40,41,41,c

Next
Next

Rect mx*40,my*40,40,39,0  ; Mauscursor malen

If MouseDown(1) Then map( mx,my)=1  ; Tile setzen
If MouseDown(2) Then map( mx,my)=0  ; Tile löschen

End Function



Function laden()

datei=openFile("level.dat"); Datei im Verz.

For x=0 To 199
For y=0 to 199
 If Not Eof(datei) Then map(x,y) = ReadByte(datei)
Next
Next

CloseFile datei

End Function




Function speichern()

datei=WriteFile("level.dat") ; Speichern in die Datei

For x=0 To 199
For y=0 to 199
WriteByte datei,map(x,y);Für jedes Feld der Map wird die Zahl gespeichert.
Next
Next
CloseFile datei

End Function

; Die Function um die datei zu laden
Function load()
;Level.dat öffnen
Level = OpenFile("Level.dat")
; Das level laden
For y = 0 To maphigh
For x = 0 To mapwidth
map(x,y) = ReadLine(Level)
Next
Next
; Datei wieder schließen
CloseFile u$
End Function