Blitz3D Cube Fun

[3dzForMeStill]

; Some nice Blitz3D code 

; Turning a cube into a wall
; use walls to create maps
; CREDITING Paks for original cube spinny code.......
; https://github.com/Pakz001/Blitz3d/blob/master/CreateCube%20to%20Wall.bb

Graphics3D 640,480
SetBuffer BackBuffer()



Global ang
Global wall

wall = CreateCube()
ScaleEntity wall,1,1,0.05
PositionEntity wall,x,y,0
ang=0

cam = CreateCamera()
MoveEntity cam, 0,0,-4


While KeyDown(1) = False
   ang=ang+1
   If ang>359 Then ang=0
   RotateEntity wall,0,ang,0
   RenderWorld
   Flip
   
   ; moving it aobut a bit...........
   If X<300
      X=X+1
      MoveEntity wall,0.05,0,0
   EndIf
   
   If X=300
      MoveEntity wall,-0.15,0,0
      X=0
   EndIf
   
Wend

End

[3dzForMeStill]

;Now with moving camera!!!!

; Turning a cube into a wall
; use walls to create maps
; CREDITING Paks for original cube spinny code.......
; https://github.com/Pakz001/Blitz3d/blob/master/CreateCube%20to%20Wall.bb

;v2 with receding camera on a counter

Graphics3D 800,600
SetBuffer BackBuffer()



Global ang
Global wall

wall = CreateCube()
ScaleEntity wall,1,1,0.05
PositionEntity wall,x,y,0
ang=0

cam = CreateCamera()
MoveEntity cam, 0,0,-4


While KeyDown(1) = False
   
   
   counter=counter+1
   
   ang=ang+1
   If ang>359 Then ang=0
   RotateEntity wall,0,ang,0
   RenderWorld
   ;Flip
   
   ; moving it aobut a bit...........
   If X<300
      X=X+1
      MoveEntity wall,0.05,0,0
   EndIf
   
   If X=300
      MoveEntity wall,-0.15,0,0
      X=0
   EndIf
   
   If counter=100 Then
      maxcounter=maxcounter+1
      counter=0
      MoveEntity cam,0,0,-1
   EndIf
   
   
   
   Text 20,20,"counter"
   Text 120+(maxcounter*20),20,maxcounter
   
   Flip
   
Wend

End