Sorry, here you go, I'll try and replace the model to a sphere in the mean time.
Strict Import "minib3d.bmx" Local screenX:Int=800,screenY:Int=600 Type TPlayer Extends TEntity Field model:TMesh Method CopyEntity:TPlayer(parent_ent:TEntity=Null) End Method Function Create:TPlayer(file$) Local ent:TPlayer = New TPlayer ent.model = LoadAnimMesh(file$) ent.EntityListAdd(entity_list) End Function Method Update() TurnEntity model,0,0,+5 End Method End Type Graphics3D screenX,screenY,32,0 Local light:TLight=CreateLight() Local alan:TPlayer=TPlayer.Create("meshes\box.b3d") While Not KeyHit(KEY_ESCAPE) UpdateWorld RenderWorld Flip Wend