Someone

on &*:text:*:#: {
  tokenize 32 $strip($1-)
  if ($left($1,1) !isin @!.) halt
  if ($right($1,-1) == stats) var %style = astats
  elseif ($ [ $+ [ $0 ] ] isnum) {
    if ($3 == $null) { goto skipplz }
    if ($setskill($remove($1,@,!,.)) == overall) { $iif($left($1,1) == @,msg $chan $c1($+(Sorry,$chr(44))) $c2($setskill($remove($1,@,!,.))) $c1(can't be used in this feature.),notice $nick $c1($+(Sorry,$chr(44))) $c2($setskill($remove($1,@,!,.))) $c1(can't be used in this feature.)) | halt }
    if ($ [ $+ [ $0 ] ] isnum 0) { $iif($left($1,1) == @,msg $chan $c2(0) $c1(is not a real level.),notice $nick $c2(0) $c1(is not a real level.)) | halt }
    if ($ [ $+ [ $0 ] ] isnum 1-150) {
      var %style = tstat, %skill = $setskill($remove($1,@,!,.)) | set %stats.togo $ [ $+ [ $0 ] ] | goto skipmeplz
    }
    else { $iif($left($1,1) == @,msg $chan $c1(that is too high you can do up to 150) $+ $c1(.),notice $nick $c1(that is too high you can do up to 150 $+ $c1(.)) | halt }
  }
  :skipplz
  elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
  elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
  :skipmeplz
  elseif ($right($1,-1) == defname) && ($2) {
    if ($ isin $2-) { halt }
    if ($2 == -h) {
      writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($3-,$chr(32),-)
      .notice $nick You're default RSN for the host $mask($fulladdress,3) has been set to $3-
    }
    else {
      writeini DefRSN.ini RSNs $nick $replace($2-,$chr(32),-)
      .notice $nick You're default RSN for the nick $nick has been set to $2-
    }
    halt
  }
  else halt