Руководствуясь логикой, очень легко написать такую функцию.
function AddPlayerResource(pl, res, delta)
if GetPlayerResource(pl, res)+delta>=0 then
SetPlayerResource(pl, res, GetPlayerResource(pl, res)+delta)
else _ERRORMESSAGE("Resource quantity cannot be negative!")
end
end
В принципе, можете каждый раз писать: выставить ресурсов в СколькоЕстьРесурса+Добавк