Stuff

alias c1 { return 4( $1-) }
alias c2 { return 2 ( $1-) }

on *:text:*:#: {
  tokenize 32 $strip($1-)
  if ($left($1,1) !isin @~.) halt
  if ($right($1,-1) == stats) var %style = astats
  elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
  elseif ($setskill($remove($1,@,~,.))) var %style = istat, %skill = $setskill($remove($1,@,~,.))
  elseif ($right($1,-1) == setrsn) && ($2) {
    writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
    .notice $nick 10 You're default RSN for the host $mask($fulladdress,3) has been set to $2-
    halt
  }