[joligario]

Untested and assuming the amount is set in cp:

if (defined($qglobals{spellspent})) {
  $total = $qglobals{spellspent};

  $pp = int($total / 1000);
  $remainder = $total - $pp * 1000;

  $gp = int($remainder / 100);
  $remainder = $remainder % 100;

  $sp = int($remainder / 10);
  $remainder = $remainder % 10;

  $cp = $remainder;

  quest::givecash($cp, $sp, $gp, $pp);
}