Willy, I see your cut and pasting is causing you trouble (x,y,z).
8)
Function LinearDamp(body,damp#)
dBodyAddForce body,dBodyGetLinearVelX(body)*-damp,dBodyGetLinearVelY(body)*-damp,dBodyGetLinearVelZ(body)*-damp
End Function
ps. Thanks for the code assist VIP3R.