I wrote a new program that places 10 cylinders at the end of the bowling lane and a sphere at the beginning of the lane. Pressing the up arrow key causes the ball to run to the cylinders. Here's the code:
Open in online IDEGraphics3D 800,600 SetBuffer BackBuffer() camera=CreateCamera() CameraClsColor camera,239,239,239 PositionEntity camera,0,25,-25 light=CreateLight() RotateEntity light,0,90,0 plane=CreatePlane() EntityColor plane,255,128,0 pin=CreateCylinder(16) EntityColor pin,255,255,255 ScaleMesh pin,2.5,15,2.5 PositionEntity pin,0,7.5,720 CopyEntity(pin) PositionEntity pin,6,7.5,732 CopyEntity(pin) PositionEntity pin,-6,7.5,732 CopyEntity(pin) PositionEntity pin,0,7.5,744 CopyEntity(pin) PositionEntity pin,12,7.5,744 CopyEntity(pin) PositionEntity pin,-12,7.5,744 CopyEntity(pin) PositionEntity pin,6,7.5,756 CopyEntity(pin) PositionEntity pin,-6,7.5,756 CopyEntity(pin) PositionEntity pin,18,7.5,756 CopyEntity(pin) PositionEntity pin,-18,7.5,756 ball=CreateSphere(16) EntityColor ball,63,63,63 ScaleMesh ball,4.25,4.25,4.25 PositionEntity ball,0,4.25,0 While Not KeyDown( 1 ) If KeyDown( 200 )=True Then MoveEntity ball,0,0,0.25 RenderWorld Flip Wend End