Strict
Import bmx3d.max3doop

TMax3d.Graphics 800,600


TMax3D.EnableCollisions 1,1,1000,0,0
TMax3D.EnableCollisions 1,10,1000,0,0


TMax3D.SetAmbientColor .5,.5,.5
TMax3D.DisableShadows()

Local camera:TCamera=TCamera.Create()



Local white:TMaterial=TMaterial.Create()
White.SetColor("DiffuseColor",1,1,1)

Local green:TMaterial=TMaterial.Create()
green.SetColor("DiffuseColor",0,1,0)

Local yellow:TMaterial=TMaterial.Create()
yellow.SetColor("DiffuseColor" , 1 , 1 , 0)
Local lightTex:TTexture = New TTexture


Local light:TLight = TLight.CreateSpotLight()
light.Move(20,20,20)
light.Turn(0 , 120 , 0)

TModel.CreateSphere(yellow,.5,0,0).SetParent(light)

Local shape:TModel=TModel.CreateBox( white,1,1,1,1,1 )
shape.Hide()

Local ground:TModel = TModel.CreateBox( yellow , 50 , .1 , 50 , 10 , 0 )

Local yaw#,pitch#=45,zoom#=-50,rot#=0

While Not KeyHit( KEY_ESCAPE )

   If KeyDown( KEY_SPACE )
      For Local i=0 Until 3
         rot:+25
         Local copy:TEntity=shape.Copy()
         copy.turn rot,0,0
         copy.Move 0,Cos( MilliSecs()/3 )*3+15,Sin( MilliSecs() )*6+12;
         Global n
         n:+1
      Next
   EndIf

   If KeyDown( KEY_LEFT )
      yaw:-1
   Else If KeyDown( KEY_RIGHT )
      yaw:+1
   EndIf
   
   If KeyDown( KEY_UP )
      pitch:+1
   Else If KeyDown( KEY_DOWN )
      pitch:-1
   EndIf

   If KeyDown( KEY_A )
      zoom:+.5
   Else If KeyDown( KEY_Z )
      zoom:-.5
   EndIf
   
   camera.SetTranslation 0,0,0
   camera.SetRotation yaw,pitch,0
   camera.Move 0,0,zoom
   
   TMax3D.UpdateWorld
   TMax3D.RenderWorld
   
   
   Flip 0
   
Wend