trouble with coins

Blitz3D Forums/Blitz3D Beginners Area/trouble with coins

EDIT: Did not see earlier post (wasn't there when I typed this)

try this:
graphics3d 600,600,32,2
setbuffer backbuffer()

type coinobj

field enthandle

end type

bob=createsphere(8)
camera=createcamera(bob)
moveentity camera,7,-7
pointentity camera,bob
entitytype bob,1
entityradius bob,1.0


for x=0 to 5
for z=0 to 5
coin.coinobj=new coinobj
coin\enthandle = createsphere()
entitytype coin\enthandle,2
entityradius coin\enthandle,1.0
positionentity coin\enthandle,x*3,0,z*3
next
next

collisions 1,2,1,2

repeat

if keydown(200) then moveentity bob,0,0,0.2
if keydown(208) then moveentity bob,0,0,-0.2
if keydown(203) then turnentity bob,0,1,0
if keydown(205) then turnentity bob,0,-1,0

for colid=1 to countcollisions(bob)
   for coin.coinobj=each coinobj
     if collisionentity(bob,colid)=coin\enthandle then hideentity coin\enthandle
   next
next

for coin.coinobj=each coinobj
turnentity coin\enthandle,0,0.5,0
next

updateworld
renderworld
flip

until keydown(1)
end