;GETTING PENITENT FEES******************************************************************
:PENITENTFEES100
if
	num_suited > paidpenitents
then
	set paidpenitents (num_suited)
	addenergy 5000
	say "lev07_fees01"
end