Please help No Collisions????
;Collisions With Cartography Shop
; Collision variables...
Const COLLISION_OBSTICLE = 1 ; Walls, etc..
Const COLLISION_PLAYER = 2 ; The player..
If Windowed3D() Graphics3D 800,600,16,1
SetBuffer BackBuffer()
;cam=CreateCamera()
;CameraRange cam,1,100
;MoveEntity cam,0,60,-100
;EntityType cam,1
;CameraZoom cam,1.5
Collisions COLLISION_PLAYER,COLLISION_OBSTICLE,2,2
Global sceneCamPiv = CreatePivot()
; Turn the pivot into the player...
EntityType sceneCamPiv,COLLISION_PLAYER
EntityRadius sceneCamPiv,2
; Attach the camera to the pivot
Global sceneCamera = CreateCamera(sceneCamPiv)
map=LoadMesh("Level1.x")
lightmap=LoadMesh("Level1_lm.x")
EntityFX map,1
EntityFX lightmap,1
EntityBlend lightmap,2
EntityParent lightmap,map
EntityType map,COLLISION_OBSTICLE
While Not KeyHit(1)
If KeyHit(17)
wire=Not wire
WireFrame wire
EndIf
If KeyDown(200) Then
MoveEntity sceneCamPiv,0,0,4
EndIf
If KeyDown(208) Then
MoveEntity sceneCamPiv,0,0,-4
EndIf
If KeyDown(203) Then
TurnEntity sceneCamPiv,0,1,0
EndIf
If KeyDown(205) Then
TurnEntity sceneCamPiv,0,-1,0
EndIf
RenderWorld
Flip
Wend
;Collisions With Cartography Shop
; Collision variables...
Const COLLISION_OBSTICLE = 1 ; Walls, etc..
Const COLLISION_PLAYER = 2 ; The player..
If Windowed3D() Graphics3D 800,600,16,1
SetBuffer BackBuffer()
;cam=CreateCamera()
;CameraRange cam,1,100
;MoveEntity cam,0,60,-100
;EntityType cam,1
;CameraZoom cam,1.5
Collisions COLLISION_PLAYER,COLLISION_OBSTICLE,2,2
Global sceneCamPiv = CreatePivot()
; Turn the pivot into the player...
EntityType sceneCamPiv,COLLISION_PLAYER
EntityRadius sceneCamPiv,2
; Attach the camera to the pivot
Global sceneCamera = CreateCamera(sceneCamPiv)
map=LoadMesh("Level1.x")
lightmap=LoadMesh("Level1_lm.x")
EntityFX map,1
EntityFX lightmap,1
EntityBlend lightmap,2
EntityParent lightmap,map
EntityType map,COLLISION_OBSTICLE
While Not KeyHit(1)
If KeyHit(17)
wire=Not wire
WireFrame wire
EndIf
If KeyDown(200) Then
MoveEntity sceneCamPiv,0,0,4
EndIf
If KeyDown(208) Then
MoveEntity sceneCamPiv,0,0,-4
EndIf
If KeyDown(203) Then
TurnEntity sceneCamPiv,0,1,0
EndIf
If KeyDown(205) Then
TurnEntity sceneCamPiv,0,-1,0
EndIf
RenderWorld
Flip
Wend