addToHealth :: Float -> PlayerS ()
addToHealth h = (pVehicle . vHealth) %= (max 0 . min 100 . (+ h))
addToHealth :: Float -> PlayerS ()
addToHealth h = (pVehicle . vHealth) %= (max 0 . min 100 . (+ h))
addToHealth h = (pVehicle . vHealth) %= (max 0 . min 100 . (+ h))