The mouse isn't the ideal device for this sort of object control, so I didn't think there would be many who would give this one a try.
But, being a sucker for a challenge, I've given it my best shot...
Set Display Mode 800,600,16
Hide Mouse
Sync On
CLS 0
Sync Rate 0
AutoCam Off
Backdrop On
Color Backdrop 0
Load Object "Sword.x",1
Position Object 1, 0,0,0
Rem Create Shoulder Joint Object
Make Object Sphere 2,1
Color Object 2,0
Set Object 2,1,0,1
Position Object 2,0,0,0
Glue Object To Limb 1,2,0
Fix Object Pivot 2
OFFSET LIMB 1, 0, 0, 20, 0
Position Camera 0,10,-50
Do
MMx=MouseMoveX(): MMy=MouseMoveY()
If MMx <> 0 Then Inc ObjPosX,MMx
If MMy <> 0 Then Inc ObjPosY,MMy
ZRotate Object 2,WrapValue(Object Angle Z(2)-MMx)
XRotate Object 2,WrapValue(Object Angle X(2)-MMy)
Sync
Loop
You'll need to download the attached sword I just made though.
[Edit] Damn - forgot to mention it was done in DBC, but I can't see any reason why it shouldn't work fine in DBP.
TDK_Man