Graphics 640,480,16,2
;------------------------------------------------------1
SetBuffer BackBuffer()
;------------------------------------------------------2



While Not KeyHit(1)
;------------------------------------------------------3


For i_y = 0 To 10
;------------------------------------------------------4
   For i_x = 0 To 10
   ;------------------------------------------------------5
   
   
      Rect 0 + (i_x * 32),0 + (i_y * 32),32,32,0
      ;------------------------------------------------------6
      
         If MouseX() > 0 + (i_x * 32) And MouseX() < 0 + (i_x * 32)+32 And MouseY() > 0 + (i_y * 32) And MouseY() < 0 + (i_y * 32) + 32
         ;------------------------------------------------------   7
            Color 255,0,0
            ;------------------------------------------------------8
               Rect 0 + (i_x * 32),0 + (i_y * 32),32,32,1
               ;------------------------------------------------------9
            Color 255,255,255
            ;------------------------------------------------------10
         EndIf
         ;------------------------------------------------------11
         
   Next
   ;------------------------------------------------------12
Next
;------------------------------------------------------13




Flip:Cls
;------------------------------------------------------14
Wend:End
;------------------------------------------------------15

Graphics 640,480,16,2
;------------------------------------------------------1
SetBuffer BackBuffer()
;------------------------------------------------------2

farbe = 1

While Not KeyHit(1)
;------------------------------------------------------3


For i_y = 0 To 14
;------------------------------------------------------4
   For i_x = 0 To 19
   ;------------------------------------------------------5
   
   
      Rect 0 + (i_x * 32),0 + (i_y * 32),32,32,0
      ;------------------------------------------------------6
       
         If MouseX() > 0 + (i_x * 32) And MouseX() < 0 + (i_x * 32)+32 And MouseY() > 0 + (i_y * 32) And MouseY() < 0 + (i_y * 32) + 32
         ;------------------------------------------------------   7
         If farbe = 1 Then Color 255,0,0
         If farbe = 2 Then Color 0,0,255
         If KeyHit(2) Then farbe = 1 ; taste 1
         If KeyHit(3) Then farbe = 2 ; taste 2
            ;------------------------------------------------------8
               Rect 0 + (i_x * 32),0 + (i_y * 32),32,32,1
               ;------------------------------------------------------9
            Color 255,255,255
            ;------------------------------------------------------10
         EndIf
         ;------------------------------------------------------11


         
   Next
   ;------------------------------------------------------12
Next
;------------------------------------------------------13




Flip:Cls
;------------------------------------------------------14
Wend:End
;------------------------------------------------------15

;Auflösung und Buffer einstellen
Graphics 800,600,16,1
SetBuffer BackBuffer()

Global mapx = 19
Global mapy = 25

Global tilex = 32
Global tiley = 32

Global mx,my;maus possitionen
Global c=2;gibt an welches gelände gewählt ist
Global datei;Benötigt man beim Speichern. ERklährt sich weiter unten von selbst(Wissen wie man Speichert vorausgesetzt)

Dim grafik(4);Hier werden die Grafiken für Wasser,Wiese,Feuer,Sand gespeichert. Der RPG TutorialSChöpfer macht das anders, aber das ist fast genauso, nur das er alle Grafiken in einem BMP anstatt in 4 speichert.

For x=1 To 4;laden der Grafiken
grafik(x)=LoadImage("tile"+Str$(x)+".bmp")
Next

Dim map(mapx,mapy);die map

For y=0 To mapx-1
For x=0 To mapy-1
map(x,y)=1;Jedes Feld wird auf 1 gesetzt
Next
Next



;#########################################################################
;#################### HAUPTSCHLEIFE ######################################
;#########################################################################
Repeat
Cls

save()
load()


;mit den Tasten 1-4 wählt man eine Geländeart(Wasser,Wiese,...)
If KeyHit(2)Then c=1
If KeyHit(3)Then c=2
If KeyHit(4)Then c=3
If KeyHit(5)Then c=4

If MouseHit(2)Then;Wenn rechte Maustaste gedrückt wird, soll durchgescrollt werden
c=c+1;c wird um eins erhöht. Bewirkt das Durchschalten mit der Rechten Maustaste durch die Geländearten(wahlweise anstatt der Tasten 1-4)
If c=5 Then c=1;Wenn c=5 ist, muss es wider 1 sein, weil wir keine Geländeart 5 haben
End If
;zeigerkoordinaten
If MouseX()<mapx*tilex Then mx=MouseX()/tilex;Solange sich die maus in unserem 10*10 großen Feld befindet, ist mx,my=die Mausposition
If MouseY()<mapy*tiley Then my=MouseY()/tiley;es muss durch 30 dividiert werden, weil jedes unserer Felder nicht 1 sondern 30 Pixel groß ist.
;
If MouseDown(1) Then;wenn linke Maustaste gedrückt wird
map(mx,my)=c;Das Feld der map, an der sich die Maus befindet, wird auf die Zahl unserer ausgewählten Geländeart gesetzt. Auf der Stelle der Map befindet sich dann die Geländeart.
End If


For y=0 To mapx-1
For x=0 To mapy-1
DrawBlock grafik(map(x,y)),x*tilex,y*tiley;Die Karte wird gemalt. Und zwar die Grafik für die Nummer, die in dem Feld gespeichert ist(1 für Wasser,...). *30, weil die einzelnen Kacheln(Grafiken für die Geländeart) ja im Abstand von 30 Pixeln gemalt werdne sollen
Next
Next
;
;Eine Art Cursor wird gemalt. Der sieht aus, wie die ausgewählte Geländeart
DrawBlock grafik(c),mx*tilex,my*tiley

Color 255,0,0
Rect mx*tilex,my*tiley,tilex,tiley,0;Ein Rotes, lehres Rechteck wird um den Corsor gemalt

 
Flip
Until KeyHit(1)
End



;############## speichern ####################################################
Function save()
If KeyHit(31)Then
datei=WriteFile("map1.dat");Pfad
For y=0 To mapx-1
For x=0 To mapy-1
WriteLine datei,map(x,y);Für jedes Feld der Map wird die Zahl gespeichert, die wir dem Feld mit dem Editor übergeben haben. Wenn man die Karte dann laden möchte, muss man für jedes Feld eines Arreys diese Zahl laden(seht ihr in dem anderen Programm)
Next
Next
CloseFile datei
End If
End Function
;########## laden ########################################################
Function load()
If KeyHit(38)
datei=ReadFile("map1.dat")
For y=0 To mapx-1
For x=0 To mapy-1
map(x,y)=ReadLine(datei);jedes Feld bekommt die Zahl, die das Feld im abgespeicherten Arrey hat.
Next
Next
CloseFile datei
EndIf
End Function

;Auflösung und Buffer einstellen
Graphics 800,600,16,1
SetBuffer BackBuffer()

Global mapx = 19
Global mapy = 25

Global tilex = 32
Global tiley = 32

Global mx,my;maus possitionen
Global c=2;gibt an welches gelände gewählt ist
Global datei;Benötigt man beim Speichern. ERklährt sich weiter unten von selbst(Wissen wie man Speichert vorausgesetzt)

Dim grafik(4);Hier werden die Grafiken für Wasser,Wiese,Feuer,Sand gespeichert. Der RPG TutorialSChöpfer macht das anders, aber das ist fast genauso, nur das er alle Grafiken in einem BMP anstatt in 4 speichert.

For x=1 To 4;laden der Grafiken
grafik(x)=LoadImage("tile"+Str$(x)+".bmp")
Next

Dim map(mapx,mapy);die map

For y=0 To ( mapy-1) ;<<<<<<<<<<<<Fehler 1 (behoben)
For x=0 To (mapx-1) ;<<<<<<<<<<<<<Fehler 2 (behoben)
map(x,y)=1;Jedes Feld wird auf 1 gesetzt
Next
Next



;#########################################################################
;#################### HAUPTSCHLEIFE ######################################
;#########################################################################
Repeat
Cls

save()
load()


;mit den Tasten 1-4 wählt man eine Geländeart(Wasser,Wiese,...)
If KeyHit(2)Then c=1
If KeyHit(3)Then c=2
If KeyHit(4)Then c=3
If KeyHit(5)Then c=4

If MouseHit(2)Then;Wenn rechte Maustaste gedrückt wird, soll durchgescrollt werden
c=c+1;c wird um eins erhöht. Bewirkt das Durchschalten mit der Rechten Maustaste durch die Geländearten(wahlweise anstatt der Tasten 1-4)
If c=5 Then c=1;Wenn c=5 ist, muss es wider 1 sein, weil wir keine Geländeart 5 haben
End If
;zeigerkoordinaten
If MouseX()<mapx*tilex Then mx=MouseX()/tilex;Solange sich die maus in unserem 10*10 großen Feld befindet, ist mx,my=die Mausposition
If MouseY()<mapy*tiley Then my=MouseY()/tiley;es muss durch 30 dividiert werden, weil jedes unserer Felder nicht 1 sondern 30 Pixel groß ist.
;
If MouseDown(1) Then;wenn linke Maustaste gedrückt wird
map(mx,my)=c;Das Feld der map, an der sich die Maus befindet, wird auf die Zahl unserer ausgewählten Geländeart gesetzt. Auf der Stelle der Map befindet sich dann die Geländeart.
End If


For y=0 To mapy-1 ;<<<<<<<<<<<<Fehler 3 (behoben)
For x=0 To mapx-1 ;<<<<<<<<<<<<Fehler 4 (behoben)


DrawBlock grafik(map(x,y)),x*tilex,y*tiley;Die Karte wird gemalt. Und zwar die Grafik für die Nummer, die in dem Feld gespeichert ist(1 für Wasser,...). *30, weil die einzelnen Kacheln(Grafiken für die Geländeart) ja im Abstand von 30 Pixeln gemalt werdne sollen
Next
Next
;
;Eine Art Cursor wird gemalt. Der sieht aus, wie die ausgewählte Geländeart
DrawBlock grafik(c),mx*tilex,my*tiley

Color 255,0,0
Rect mx*tilex,my*tiley,tilex,tiley,0;Ein Rotes, lehres Rechteck wird um den Corsor gemalt

 
Flip
Until KeyHit(1)
End



;############## speichern ####################################################
Function save()
If KeyHit(31)Then
datei=WriteFile("map1.dat");Pfad
For y=0 To mapx-1
For x=0 To mapy-1
WriteLine datei,map(x,y);Für jedes Feld der Map wird die Zahl gespeichert, die wir dem Feld mit dem Editor übergeben haben. Wenn man die Karte dann laden möchte, muss man für jedes Feld eines Arreys diese Zahl laden(seht ihr in dem anderen Programm)
Next
Next
CloseFile datei
End If
End Function
;########## laden ########################################################
Function load()
If KeyHit(38)
datei=ReadFile("map1.dat")
For y=0 To mapx-1
For x=0 To mapy-1
map(x,y)=ReadLine(datei);jedes Feld bekommt die Zahl, die das Feld im abgespeicherten Arrey hat.
Next
Next
CloseFile datei
EndIf
End Function