Problem with types....

I thought i had them all figured out...
But, it seems my code still won't work and it keeps on coming up with the error message "type name not found" :(
Could someone please help me with this?
Here's the code, by the way:




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

Graphics3D 640,480

SetBuffer BackBuffer()

AmbientLight 170,170,170

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

spark=CreateSphere(10)
EntityAlpha spark,0.7
EntityColor spark,255,100,20


Type bullet

Field bulx
Field buly
Field bulz
Field alpha
Field entity

End Type

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

grasstex=LoadTexture( "C:/3dgame/grasstex.bmp" )
playertex=LoadTexture( "C:/3dgame/playertex.bmp" )
plane=LoadTerrain( "C:/3dgame/hieghtmap.bmp" )
PositionEntity plane,0,-100,0
player=LoadMesh( "C:/3dgame/player.3ds" )
RotateEntity player,0,0,0
Global piv=CreatePivot(player)
EntityColor player,140,200,150
EntityTexture plane,grasstex
EntityTexture player,playertex
ScaleEntity player,0.2,0.2,0.2
MoveEntity piv,0,-5,0




Global cam=CreateCamera()

me=1
walls=2
EntityType player,me

Type wall
Field entity
End Type

Collisions me,walls,3,1



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

While Not KeyHit(1)

If KeyDown (203) Then TurnEntity player,0,0.75,0
If KeyDown(205) Then TurnEntity player,0,-0.75,0
If KeyDown(200) Then playerspeed=playerspeed+0.1
If KeyDown(208) Then playerspeed=playerspeed-0.1
If KeyDown(30) Then MoveEntity player,0,0.5,0 MoveEntity cam,0,0.5,0
If KeyDown(44) Then MoveEntity player,0,-0.5,0 MoveEntity cam,0,-0.5,0

If playerspeed>3 Then playerspeed=3
If playerspeed<1 Then playerspeed=1


If KeyDown(45) Then

shot.bullet = New bullet
shot\bulx = playerx
shot\buly = playery
shot\bulz = playerz
shot\alpha = 1
shot\entity = CopyEntity(spark)

updatebullet

EndIf

MoveEntity player,0,0,playerspeed

smoothcam(piv,player,50)

RenderWorld
UpdateWorld

Flip

Wend

End

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

Function smoothcam(pivot,target,camspeed)


curx#=EntityX(cam)
curz#=EntityZ(cam)
destx#=EntityX(pivot,True)
destz#=EntityZ(pivot,True)

curx#=curx#+((destx#-curx#)/camspeed)
curz#=curz#+((destz#-curz#)/camspeed)
cury#=0.75

PositionEntity cam,curx#,cury#,curz#

PointEntity cam,target
End Function


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

Function updatebullet()

For shot.bullet=Each spark
EntityAlpha shot\entity,shot\alpha
shot\alpha=shot\alpha-0.02
If shot\alpha<=0 Then FreeEntity shot\entity : Delete shot
Next

End Function

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

In the function updatebullet()

Change the first line to:

For shot.bullet=Each bullet

Hope this helps

RV

Thank you very much.