Collision problem...

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

elseano

Hi all.
I just wrote this quickly about 15 minutes ago, while trying to make some form of first person game. This is all I've got so far:

Graphics3D 800,600,32,1

SetBuffer BackBuffer()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global font=LoadFont( "Lucida Console",18 )
SetFont font

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global cam=CreateCamera()
PositionEntity cam,0,5,-3
Global campiv=CreatePivot()
EntityParent cam,campiv

;CameraFogMode cam,1
;CameraFogColor cam,200,230,235
;CameraFogRange cam,1,2000
CameraRange cam,1,115000
CameraClsColor cam,0,20,30

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mainlight=CreateLight()
LightColor mainlight,230,240,255
PositionEntity mainlight,10,3,7

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global level=LoadMesh( CurrentDir()+"/building.3ds" )
Global leveltex=LoadTexture( CurrentDir()+"/buildingmap.bmp" )

EntityTexture level,leveltex
EntityAlpha level,1
EntityShininess level,0.5

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Const levelcol=0
Const camcol=1

EntityType level,levelcol
EntityType cam,camcol

Collisions camcol,levelcol,2,1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global sky=CreateSphere(64)
FlipMesh sky
ScaleEntity sky,2000,2000,2000

skytex=LoadTexture( CurrentDir()+"/sky.bmp" )
ScaleTexture skytex,0.5,0.5

EntityTexture sky,skytex

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

While Not KeyHit(1)

TurnEntity sky,0.1,0.05,-0.2

If KeyDown(17) Then MoveEntity cam,0,0,1.6
If KeyDown(31) Then MoveEntity cam,0,0,-1.6
If KeyDown(30) Then MoveEntity cam,-1.6,0,0
If KeyDown(32) Then MoveEntity cam,1.6,0,0

	mxspd#=MouseXSpeed()*0.25
	myspd#=MouseYSpeed()*0.25
	
		mxspd=mxspd*0.6
		myspd=myspd*0.6
		
	campitch=campitch+myspd
	If campitch<-85 Then campitch=-85
	If campitch>85 Then campitch=85
		
	MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
	
	RotateEntity cam,campitch,EntityYaw(cam)-mxspd,0
	RotateEntity cam,campitch,EntityYaw(cam)-mxspd,0
	
	If EntityCollided(cam,levelcol) Then
		Text 400,300,"Collision Detected",True,True ;Why doesn't this...
		MoveEntity cam,0,0,0 ;...or this work?
	EndIf
	

RenderWorld()
UpdateWorld()


Flip

Wend

End

Everything works, except for the collisions. It's probably just some thing I haven't done or I've mispelled something, can anyone tell me why the collisions aren't working?