Implement set animations

This will only work after ply:GetAllowWeaponsInVehicle() is fixed to actually return something.