Nützlich
Nun wollen wir einen Editor machen. Es soll ein 2D-Mapeditor werden, es ist ganz leicht und beiinhaltet nicht so viel Code wie das letzte Kapitel.
Also, die ersten Zeilen:
________________________________
Graphics 800,600,16,1
SetBuffer BackBuffer
________________________________()
Sollte noch jeder verstehen.
________________________________
Global ende;solange ende=0 ist, läuft das Programm
Global mx,my;Position der Maus. So müssen wir im Programm nur einmal den Befehl MouseX(),MouseY() benutzen und können dasn mx,my benutzen
Global c=2;c gibt an, welche Geländeart gerade gewählt ist(1=Raumschiff,2=Stern1,3=Stern2,4=Stern3,5=Raumschiff)
Global datei;Benötigt man beim Speichern. Erklährt sich weiter unten von selbst(Wissen wie man Speichert vorausgesetzt)
Dim grafik(4)For x=1 To 4
grafik(x)=LoadImage("tile"+Str$(x)+".bmp")
Next
________________________________
So, jetzte haben wir eingestellt, dass immer das jeweilige Teil geladen wird und das wir die Maus benutzten könnnen.
-wird fortgesetzt-
|
