Graphics3d 640,480,16,2.
Suelo=loadmesh(suelo.3ds).
Pelota=loadmesh(pelota.3ds).
Cámara=createcamera (pelota).
Light=createlight().
Positionentity cámara,0,50,-25.
Turnentity cámara,45,0,0.
While not keyhit(1) t tif keydown(2 then moveentity pelota,0,0.5,0 rotatemesh pelota,10,0,0 tend if tif y#>0 then moveentity pelota,0,-0.5,0 rotatemesh pelota,10,0,0 tend if tif keydown(200) then moveentity pelota,0,0,0.5 rotatemesh pelota,2.8,0,0 tend if tif keydown(20 then moveentity pelota,0,0,-0.5 rotatemesh pelota,-2.8,0,0 tend if tif keydown(203) then Turn Entity pelota,0,1,0 tend if tif keydown(205) then Turn Entity pelota,0,-1,0 tend if t updateworld renderworld flip t.
Wend.
End.