Untitled

on *:TEXT:!settotal *:#:{ 
  set %total $2-  
  notice $nick The total amount to start is $2- $+ . 
} 
on $*:TEXT:/^[!@>]sub */Si:#: { 
  var %send $iif(!* iswm $1,notice $nick) 
  %send [ $$2 - %total ] = [ $calc($$2 - %total) ] 
}