BASIC

Author Topic: Eine Map erstellen mit DATA und laden mit RESTORE !  (Read 2603 times)

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5009
  • O Rly?
    • View Profile
So, Willkommen zu einen weiteren kleinen Tutorial von -> hmm... mir :D

Heute will ich euch zeigen, wie man eine simple Map erstellt mit DATA und es mit RESTORE läd!
Sinn und Zweck von dieser Methode ist es, ohne externe Dateien simple Maps erstellen zu können.

Wie immer rede ich nicht um den heißen Brei und komm gleich zur Sache ;)

Zuerst brauchen wir ein kleines Bildchen/Sprite:

Code: GLBasic [Select]
// Wandsprite
DRAWRECT 0,0,32,32, RGB(0xc8, 0xc8, 0xc8)
DRAWRECT 2,2,30,30, RGB(0x7d, 0x7d, 0x7d)
DRAWRECT 2,2,28,28, RGB(0xf3, 0xf3, 0xf3)
GRABSPRITE 1, 0,0,32,32  // Spritenummer 1

LOCAL TileX = 32 // Spritebreite
LOCAL TileY = 32 // Spritehöhe
 

Das Ergebnis ist ein Kachelartitiges Sprite, das wir super für unsere kleine Testmap benutzen können!

So jetzt brauchen wir noch ein Map-array:

Code: GLBasic [Select]
GLOBAL map[]
DIM map[20][15]

Nun kommt der Trick an der ganzen Sache ( Bin mir sicher, dass manche den Befehl noch garnicht kennen :D ).
Die Mapdaten angeben:

Code: GLBasic [Select]
STARTDATA map1:
        DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,1
        DATA 1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1
        DATA 1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
ENDDATA

Da wir jetzt die Mapdaten haben, müssen wir diese natürlich beim Start des Programmes/Spieles auslesen:
( ABER VORSICHT( is cool man :D )! : Man MUSS in X-Richtung auslesen, so ergibt sich folgender Code:

Code: GLBasic [Select]
RESTORE map1
FOR y = 0 TO 14
        FOR x = 0 TO 19
                READ map[x][y] // Daten in der Map speichern!
        NEXT
NEXT


Hmm, nu?
Ich gehe mal davon aus, das jeder weiss wie man eine Map anzeigt aus einem Array... oder?

Hier mal der ganze Code:

Code: GLBasic [Select]
DRAWRECT 0,0,32,32, RGB(0xc8, 0xc8, 0xc8)
DRAWRECT 2,2,30,30, RGB(0x7d, 0x7d, 0x7d)
DRAWRECT 2,2,28,28, RGB(0xf3, 0xf3, 0xf3)
GRABSPRITE 1, 0,0,32,32

LOCAL TileX = 32
LOCAL TileY = 32

GLOBAL map[]
DIM map[20][15]

RESTORE map1
FOR y = 0 TO 14
        FOR x = 0 TO 19
                READ map[x][y]
        NEXT
NEXT


WHILE TRUE
       
        FOR x = 0 TO 19
                FOR y = 0 TO 14
               
                        SELECT map[x][y]
                                CASE 0
                                        // Draw nothing!
                                CASE 1
                                        // Zeichne die Kachel an Position x * Kachelbreite, y * Kachelhöhe
                                        DRAWSPRITE 1,x*TileX,y*TileY
                        ENDSELECT
               
                NEXT
        NEXT
       
               
SHOWSCREEN
WEND
END




STARTDATA map1:
        DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,1
        DATA 1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1
        DATA 1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
        DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
ENDDATA

Hoffe ihr könnt damit was anfangen, wenn nicht, dann einfach überlesen :P
I <3 DGArray's :D

PC:
AMD RYzen 7 1700 @3.9Ghz, 16GB HyperX Fury 2666Mhz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline Quentin

  • Prof. Inline
  • *****
  • Posts: 915
    • View Profile
yep. DATA ist super, um mal auf die Schnelle was zu testen. Viel praktischer als mit Dateien zu hantieren.
Schön erklärt.