Data Problem

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

mk

Betreff: Data Problem

 BeitragSa, März 26, 2005 20:45
Antworten mit Zitat
Benutzer-Profile anzeigen
Was mache ich hier falsch? Sad

BlitzBasic: [AUSKLAPPEN] 

Graphics 800,600,32,2
SetBuffer BackBuffer()
tiles=LoadAnimImage (\"data/tiles.bmp\",50,50,0,2)

Dim map$ (10,10)
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,1,1,1,0,0,0
Data 0,0,0,0,0,1,0,0,0,0
Data 0,0,0,0,1,1,1,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0
Read map$ (x,y)
Repeat

For x=0 To 10
For y=0 To 10
DrawImage tiles,x*51,y*51,map$ (x,y)
Next
Next

Flip
Cls
Until KeyHit(1)


Mein tileset ist 100x50 Pixel gross.
Also 2 Frames Rolling Eyes
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |


I am a noob Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSa, März 26, 2005 21:02
Antworten mit Zitat
Benutzer-Profile anzeigen
du mußt deine Map erst richtig einladen und nicht nur das erste Data Feld
BlitzBasic: [AUSKLAPPEN] 
Dim map$ (10,10) 
Data 0,0,0,0,0,0,0,0,0,0 
Data 0,0,0,0,0,0,0,0,0,0 
Data 0,0,0,0,0,0,0,0,0,0 
Data 0,0,0,0,1,1,1,0,0,0 
Data 0,0,0,0,0,1,0,0,0,0 
Data 0,0,0,0,1,1,1,0,0,0 
Data 0,0,0,0,0,0,0,0,0,0 
Data 0,0,0,0,0,0,0,0,0,0 
Data 0,0,0,0,0,0,0,0,0,0 
Data 0,0,0,0,0,0,0,0,0,0 
For y= 0 To 9; nur bis 9 da 0 auch zählt
For x= 0 To 9
Read map$ (x,y)
Next Next

und in der Hauptschleife auch nur bis 9 oder halt die Schleife erst bei 1 anfangen und nicht bei 0

Hier dann nur mit 50 * nehmen oder ist das so gewollt!
BlitzBasic: [AUSKLAPPEN] 
DrawImage tiles,x*51,y*51,map$ (x,y)
[BB2D | BB3D | BB+]

mk

 BeitragSa, März 26, 2005 21:05
Antworten mit Zitat
Benutzer-Profile anzeigen
thx

Ich hab schonwieder was gelernt ^^
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |


I am a noob Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSa, März 26, 2005 21:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Also ...Problem gelöst!
[BB2D | BB3D | BB+]

mk

 BeitragSa, März 26, 2005 22:03
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hab noch ne Frage...

Ich hab so ein Data Feld:

BlitzBasic: [AUSKLAPPEN] 


Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0




Aber wenn ich das Programm Starte sieht es so aus:
http://marcelkroener.dyndns.org:81/bla.jpg

Warum ist das so?
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |


I am a noob Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

Sir Dan

 BeitragSa, März 26, 2005 22:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Zeig am besten mal den Code dazu
(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSa, März 26, 2005 22:09
Antworten mit Zitat
Benutzer-Profile anzeigen
wie lädt du die ein ?
for y = ... to ...
for x = ... to ...
[BB2D | BB3D | BB+]

mk

 BeitragSo, März 27, 2005 8:33
Antworten mit Zitat
Benutzer-Profile anzeigen
Hier ist der Code:

BlitzBasic: [AUSKLAPPEN] 



Dim map(32,28)
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0




Graphics 1024,768,0,2
SetBuffer BackBuffer()
.start

Global menu=LoadImage (\"data/menu.bmp\")
Global tile=LoadAnimImage (\"data/tileset.bmp\",25,25,0,3)
Global grass=LoadImage (\"data/grass.bmp\")
MaskImage tile,255,255,255

Repeat
DrawImage menu,100,50

If KeyHit (57) Then game

Flip
Cls
Until KeyHit (1)








Function game()

For x=0 To 31
For y=0 To 27
Read map(x,y)
Next
Next

Repeat
TileBlock grass


For x=0 To 31
For y=0 To 27
DrawBlock tile,x*25,y*25,map(x,y)
Next
Next




If KeyHit (1) Then End


Flip
Cls
Forever
End Function
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |


I am a noob Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSo, März 27, 2005 9:43
Antworten mit Zitat
Benutzer-Profile anzeigen
Die 2 bzw 4 Schleifen so abändern dann klappts auch !
BlitzBasic: [AUSKLAPPEN] 
For y=0 To 27
For x=0 To 31
[BB2D | BB3D | BB+]

Hubsi

 BeitragSo, März 27, 2005 9:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Ungetestet, sollte es aber sein:BlitzBasic: [AUSKLAPPEN] 
; Nicht ganz so richtig:

For x=0 To 31
For y=0 To 27
Read map(x,y)
Next
Next
BlitzBasic: [AUSKLAPPEN] 
; Wohl richtiger:

For y=0 To 27
For x=0 To 31
Read map(x,y)
Next
Next
Der Unterschied ist zu erkennen und der Grund klar?

War Ralli wohl schneller Very Happy
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group