sync on:sync rate 85
for x = 1 to 20
load object "test2.x",1
set camera range 1,20000
set camera fov 45
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