if ( $1 == !addcommand ) {
    if ($nick isop $chan) {
      if (!$istok(%reservedcommands,$lower($2),32)) {
        if ( !* !iswm $2 ) {
          if ($regex($2-,/[\/\\^$()\[\]{}|*+?]/)) {
            msg $chan $+(@,$nick) Invalid command.
            echo $chan $regex($2-,/[\/\\^$()\[\]{}|*+?]/)
            return
          }
        }
        write $+($chan,.,COMMANDS.txt) $+($lower($2),$chr(32),$3-)
        msg $chan $lower($2) is now recorded.
        echo $chan $regex($2-,/[\/\\^$()\[\]{}|*+?]/)
      }
    }
  }