sync off:sync rate 58
for x = 1 to 20
load object "test2.x",1
set camera range 2,10000
set camera fov 54
position object 1,0,0,0
scale object 1,1600,3200,1600
next x
randomize timer()
do
if spacekey()=1
For x = 1 to 20 :Link Limb x+20,x+20,x+20 : Save Object "test.dbo",x :Next x
endif
MOVE CAMERA (UPKEY() - DOWNKEY())*2.5
ROTATE CAMERA WRAPVALUE(CAMERA ANGLE X()+(MOUSEMOVEY()*1.1)), WRAPVALUE(CAMERA ANGLE Y()+(MOUSEMOVEX()*1.1)),0
text 200,200,"polys : "+str$(STATISTIC(1))
text 400,200,"fps : "+str$(screen fps())
sync
loop