Implement set animations

This will only work after ply:GetAllowWeaponsInVehicle() is fixed to actually return something.
Merge pull request #703 from robotboy655/patch-4

Implement seat animations