Pacman -Dimfeld wird falsch dargestellt [ERLEDIGT]

Übersicht

BlitzBasic

Beginners-Corner

	mas93 Betreff: Pacman -Dimfeld wird falsch dargestellt [ERLEDIGT]	Do, Aug 02, 2007 21:18 Antworten mit Zitat
Hi, Ich veruche gerade ein Pacman in 3d. Aber die map wird falsch gezeichnet. Code: [AUSKLAPPEN] [EINKLAPPEN] Dim cube(400) AppTitle "Pacman 3D Version "+Version$ Graphics3D 800,600,32,2 SetBuffer BackBuffer() tex=LoadTexture("rot.png") texgreen=LoadTexture("grün.png") cam=CreateCamera() pac=LoadMesh("meshs\pac.b3d") PositionEntity pac,0,0,10 EntityTexture pac,tex light=CreateLight() PositionEntity cam ,0,20,0 RotateEntity cam,50,0,0 terrain=CreateTerrain(64) Dim map(20,20) Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,2 Data 2,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2 Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 For J=0 To 20 For I=1 To 20 Read map(I,J) Next Next For J=0 To 20 For I=0 To 20 If map(I,J)=2 Then cube(IJ)=CreateCube() ScaleEntity cube(IJ),2,2,2 PositionEntity cube(IJ),I2,0,J2 EntityTexture cube(IJ),texgreen Print I+" "+J Delay 100 EndIf Next Next Es wird zwar etwas angezeigt, aber nicht so wie es sollte wäre nett wenn ihr mir helfen könntet. mfg mas93 [EDIT] UPPPS schreibfehler^^ Hat sich erledigt
www.lpbase.de Meine Linkin Park Fanseite[Noch im Aufbau]

mas93

Betreff: Pacman -Dimfeld wird falsch dargestellt [ERLEDIGT]

Do, Aug 02, 2007 21:18
Antworten mit Zitat

Hi,
Ich veruche gerade ein Pacman in 3d.

Aber die map wird falsch gezeichnet.

Code: [AUSKLAPPEN]

Dim cube(400)

AppTitle "Pacman 3D Version "+Version$
Graphics3D 800,600,32,2
SetBuffer BackBuffer()

tex=LoadTexture("rot.png")
texgreen=LoadTexture("grün.png")

cam=CreateCamera()
pac=LoadMesh("meshs\pac.b3d")
PositionEntity pac,0,0,10
EntityTexture pac,tex
light=CreateLight()

PositionEntity cam ,0,20,0
RotateEntity cam,50,0,0
terrain=CreateTerrain(64)

Dim map(20,20)
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,2
Data 2,0,0,0,3,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

For J=0 To 20
For I=1 To 20
   Read map(I,J)
Next
Next

For J=0 To 20
For I=0 To 20
   If map(I,J)=2 Then
      cube(I*J)=CreateCube()
      ScaleEntity cube(I*J),2,2,2
      PositionEntity cube(I*J),I*2,0,J*2
      EntityTexture cube(I*J),texgreen
      Print I+" "+J
      Delay 100
   EndIf
Next
Next

Es wird zwar etwas angezeigt, aber nicht so wie es sollte

wäre nett wenn ihr mir helfen könntet.
mfg
mas93

[EDIT]

UPPPS schreibfehler^^
Hat sich erledigt

www.lpbase.de
Meine Linkin Park Fanseite[Noch im Aufbau]