A function for paying corruption (with events).
Handle corruption in production phase.
Remove unpaid-corruption function (unneeded).