on $*:TEXT:/^[!@>]sub */Si:#: { 
  var %send $iif(!* iswm $1,notice $nick) 
  %send [ $$2 - %total ] = [ $calc($$2 - %total) ] 
}