Primitiver Leveleditor

[Fauk]

Ich habe mich gestern und heute mal ne Stunde hingesetzt und nen primitiven Karteneditor gebastelt. Ist nichts besonderes und eher für kleine Sachen bzw. Tests gedacht.

Hier könnt ihr euch das Programm mit Quellcode und Testmaterialen runterladen:
http://rapidshare.com/files/168859303/Leveleditor.rar

Und hier ist die Funktion zum Laden von den Karten:

Code (glbasic) Select Expand


// ------------------------------------------------------------------------------ //
// -----> MapLaden <----- //
// ------------------------------------------------------------------------------ //

SUB MapLaden:
Map$ = FILEREQUEST$(TRUE,"")
TempMap = OPENFILE(1,Map$,TRUE)

IF TempMap = TRUE
READWORD 1,Map_X
READWORD 1,Map_Y

DIM Karte[Map_X][Map_Y]

FOR x = 0 TO (Map_X - 1)
FOR y = 0 TO (Map_Y -1)
READWORD 1,Tile
Karte[x][y] = Tile
NEXT
NEXT
ELSE
PRINT "Karte konnte nicht geladen werden." ,200,200
ENDIF
ENDSUB


Dann muss man nur noch die Map zeichnen, im Falle der Testfiles sähe das so aus:

Code (glbasic) Select Expand


FUNCTION Map:
FOR x = 0 TO (Map_X - 1)
FOR y = 0 TO (Map_Y - 1)
IF Karte[x][y] = 0 THEN DRAWSPRITE 0,(x*32) + Scroll_X,(y*32) + Scroll_Y
IF Karte[x][y] = 1 THEN DRAWSPRITE 1,(x*32) + Scroll_X,(y*32) + Scroll_Y
IF Karte[x][y] = 2 THEN DRAWSPRITE 2,(x*32) + Scroll_X,(y*32) + Scroll_Y
IF Karte[x][y] = 3 THEN DRAWSPRITE 3,(x*32) + Scroll_X,(y*32) + Scroll_Y
NEXT
NEXT
ENDFUNCTION


Am Anfang gibt man erstmal ein welche Größe das Datenfeld haben soll (Erste Eingabe lx und zweite ly bei Karte[lx][ly]).
Zwischen den verschiedenen Tiles kann man mit den Tasten 1 - 4 wechseln. Zum Speichern drückt man 's'.

Vielleicht kanns ja wer brauchen

Gruß
Fauk

[mathux]

Nettes Ding, erinnert mich an meinen ersten Karteneditor für ein 3D Labyrinthspiel, dass ich in Blitz3D geschrieben hab.
Hach ja, wann kommt endlich die Freizeit wieder 
Und GLBasic 6 natürlich, ich freu mich schon so auf die GUI Befehle. Dann hab ich ne Ausrede es auch in der Uni zu benutzen 

[Fauk]

Ach, GLBasic bekommt GUI-Befehle? Wann kommt den das gute Update?^^

[Schranz0r]

Wenns fertig ist 

[trucidare]

Ehh? ihr solltet mal in den samples Ordner schauen.

[Schranz0r]

Schau mal aufs Datum du Held...

[trucidare]

Heul doch

[Foo]

Sorry, dass ich den Thread aus der Versenkung hole, aber hat jemand noch die rar-Datei?