Someone

on *:TEXT:!settotal *:#:{ 
  set %total $2-  
  notice $nick The total amount to start is $2- $+ . 
} 
on *:TEXT:!total:#:{ 
  if $nick isreg $chan { halt } 
  else { notice $nick You currently have the following left: %total $+ ! } 
} 
on $*:TEXT:/^[!@>]sub */Si:#: { 
  var %send $iif(!* iswm $1,notice $nick) 
  %send [ $$2-%total ] = [ $calc($$2-%total) ] 
}