Dim map(31,23)
;den Grafikmodus laden, wie vorher erwähnt 1024*768*16
Graphics 1024,768,16,1
;Läd das tileset, dessen tiles 32*32 pixel groß sind
;das erste tile hat den wert 0 und es sind insgesamt 6 dieser
;mini bilder
Tileset = LoadAnimImage("tileset.bmp",32,32,0,6)
;ein mauszeiger, den ich mit Hypersnap aus einer curser-datei
;in das bitmap-format umgewandelt habe.
Maus = LoadImage("maus.bmp")
;hier werden alle variablen globalisier, die auch in den
;functionen verwendet werden.
Global x,y,mx,my,mapx,mapy,tile = 1

;Startet die Hauptschleife
Repeat
;Aktiviert den Backbuffer
SetBuffer BackBuffer()
;ESC-Taste zum beenden des programs
If KeyDown(1) Then End
;die array wird eingelesen und die map wird gemalt
For x = 0 To 31
For y = 0 To 23
DrawImage tileset,x*32,y*32,map(x,y)
Next
Next
;Die Tasten von 1 - 6 ich erklehre mal kurz die
;functione:

;Das zu malende tile hat die framezahl :

;1-Taste = 1

;2-Taste = 2

;3-Taste = 3

;4-Taste = 4

;5-Taste = 5

;6-Taste = 0

If KeyDown(2) Then tile = 1
If KeyDown(3) Then tile = 2
If KeyDown(4) Then tile = 3
If KeyDown(5) Then tile = 4
If KeyDown(6) Then tile = 5
If KeyDown(7) Then tile = 0

;die veriablen mx und my werden den koordinaten der maus
;zugewiesen.
mx = MouseX()
my = MouseY()
;wenn man die Linke maustaste drückt....
If MouseDown(1) Then
;wird die function scroll aufgerufen....
scroll()
;und dei aktuelelle positon des mauszeigers,
;die in der function scroll berechnet wird...
;also das tile wird einfach auf klick
;gesetzt, wobei das frame des tilesets
;die veriable tile angibt.
map(mapx,mapy) = tile
End If

;die selbe prozedur, nur dass diesmal die
;rechte maustaste gedrückt wird, und das
;tile nur in das frame mit dem wert 0 umgeändert wird.
If MouseDown(2) Then
scroll()
map(mapx,mapy) = 0
End If


;S-Taste
;Die function zum speichern der map und der variabele tile
If KeyHit(31) Then save()
;L-Taste
;Funktion zum laden der map und der veriable tile
If KeyHit(38) Then load()
;malt den mauszeiger an den koordinaten mx und my, die
;vorher bereits den maus-ko. zugeteilt wurden
DrawImage maus,mx,my
;flippen und wieder zum anfang der schleife
Flip
Forever

If KeyHit(28) Then DrawImage bild,0,0,0

Graphics 800,600
SetBuffer BackBuffer()

Bild=LoadImage("bild.bmp")
malen=0
While Not KeyDown(1)


If KeyHit(28);Enter-Taste

If malen=1 Then
malen=0
ElseIf malen=0 Then
malen=1
EndIf

EndIf


Cls

If malen=1 Then DrawImage Bild,0,0,0

Flip
Wend