Dim-map

Übersicht

BlitzBasic

Beginners-Corner

	102030 Betreff: Dim-map	Sa, Mai 01, 2010 17:58 Antworten mit Zitat
Hallo, ich mache mir gerade einen map, aber sie ist irgendiwie gedreht. Was hab ich falsch gemacht? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 Restore daten Dim Hoehen_Farben(3,2) For i=0 To 3 For e=0 To 2 Read Hoehen_farben(i,e) Next Next Dim Hoehen(5,7) For x=0 To 7 For y=0 To 5 Read Hoehen(y,x) Next Next While Not KeyDown(1) Cls For x=0 To 7 For y=0 To 5 Color Hoehen_farben(Hoehen(y,x),0),Hoehen_farben(Hoehen(y,x),1),Hoehen_farben(Hoehen(y,x),2) Rect x100,y100,100,100,1 Color 225,225,255 Next Next Flip Wend WaitKey End .daten Data 0,0,225 Data 225,225,0 Data 0,100,0 Data 225,0,0 Data 3,2,2,1,0,0 Data 3,2,2,1,0,0 Data 2,2,2,1,1,1 Data 2,2,2,2,2,2 Data 3,3,2,2,2,2 Data 2,2,2,0,0,0 Data 2,2,0,0,2,2 Data 2,2,0,2,2,2 Data 0,0,0,0,0,0,0,0 Data 0,1,1,1,1,1,1,0 Data 0,0,1,2,3,3,1,0 Data 0,0,1,2,2,2,1,0 Data 0,1,1,1,1,1,1,0

102030

Betreff: Dim-map

Sa, Mai 01, 2010 17:58
Antworten mit Zitat

Hallo, ich mache mir gerade einen map,
aber sie ist irgendiwie gedreht.
Was hab ich falsch gemacht?
Code: [AUSKLAPPEN]

Graphics 800,600,16,2
Restore daten
Dim Hoehen_Farben(3,2)
For i=0 To 3
   For e=0 To 2
      Read Hoehen_farben(i,e)
   Next
Next
Dim Hoehen(5,7)
For x=0 To 7
   For y=0 To 5
      Read Hoehen(y,x)
   Next
Next
While Not KeyDown(1)
Cls
For x=0 To 7
   For y=0 To 5
      Color Hoehen_farben(Hoehen(y,x),0),Hoehen_farben(Hoehen(y,x),1),Hoehen_farben(Hoehen(y,x),2)
      Rect x*100,y*100,100,100,1
      Color 225,225,255
   Next
Next
Flip
Wend
WaitKey
End

.daten
Data 0,0,225
Data 225,225,0
Data 0,100,0
Data 225,0,0

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

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

	ToeB	Sa, Mai 01, 2010 18:08 Antworten mit Zitat
du must bei read x und y tauschen, also Code: [AUSKLAPPEN] [EINKLAPPEN] for y = 0 to MapHeight for x = 0 to MapWidth Read map(x,y) mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Sa, Mai 01, 2010 18:08
Antworten mit Zitat

du must bei read x und y tauschen, also

Code: [AUSKLAPPEN]

for y = 0 to MapHeight
for x = 0 to MapWidth
Read map(x,y)

mfg ToeB

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!