Reorganized bouyancy E2 function

Taking suggestions for this awesome thing :)

Example E2 Code floats 300 kilo washing machine with phys_propertyes "metal" and type "prop_physics" :

```Perl
@inputs Prop:wirelink
runOnTick(1)
Prop:entity():setBuoyancy(100)
```