Mine

on *:TEXT:!fund*:#:{ The current fund for w00tpecker is %fund $+ . }
on *:TEXT:!addfund*:#:{ if ($2 !isnum) { notice $nick It must be a number. }
  if ($right($2,1) == k) { set %fund1 $calc($remove($2,k)*1000) | set %fund $calc(%fund + %fund1) | notice $nick Thanks for the donation. W00tpecker now has %fund gp. | halt }
  if ($right($2,1) == m) { set %fund1 $calc($remove($2,m)*1000000) | set %fund $calc(%fund + %fund1) | notice $nick Thanks for the donation. W00tpecker now has %fund gp. | halt }
  if ($right($2,1) isnum) { set %fund1 $2) | set %fund $calc(%fund + %fund1) | notice $nick Thanks for the donation. W00tpecker now has %fund gp. | halt }
}