!addmsn|setmsn
!@msn
!@usercount

first script using tokens :o
goes into remotes
**lot of help from JayTea and Pariah :D

alias c1 { return $+(10,$1-) } 
alias c2 { return $+(04,$1-) }

on $*:text:/^[!@](msn)/Si:#:{
  var %owneg = $iif($left($1,1) == !,.notice $nick, msg $chan)
  %owneg 10msn's for4 $chan $+ 10:
  %owneg $iif(%msn. [ $+ [ $chan ] ],$+($c1,$replace(%msn. [ $+ [ $chan ] ],$chr(44),$+($c2,$chr(44),$c1))),10None set)
}

on $*:text:/^[!](addmsn|setmsn) */Si:#:{
  if ($3) {
    set %msn. [ $+ [ $chan ] ] $addtok(%msn. [ $+ [ $chan ] ],$2-,44)
    .notice $nick 10Your msn is set to:4 $2 $+ 10, Your setname is:4 $3-
  }
  else .notice $nick 10Please use4 !addmsn msnaddress yourname10.
}

on $*:text:/^[!@](usercount)/Si:#:{
  var %owneg = $iif($left($1,1) == @,msg $chan,.notice $nick)
  %owneg 10There are4 $gettok(%msn. [ $+ [ $chan ] ],0,44) 10Registered msn's
}