ON *:LOAD:{
  if (!%nc.tail) {
    set %nc.tail $input(닉컴플리트가 작동될때 필요한 말꼬리를 정해주세요 $+ $chr(13) $+ (기본값은 콜론(:)),eoq,NickComplete Prompt,:)
  }
}
#nickcomplete ON
ON *:INPUT:#:{
  if ($2 && !$inpaste) {
    if ($right($1,1) == %nc.tail) {
      var %nc = $left($1,$calc($len($1) - 1))
      msg # $nc.getnick(#,%nc) %nc.tail $2-
      halt
    }
  }
}
#nickcomplete END

alias nc.getnick {
  var %nc.chan = $1
  var %nc.nick = $2
  var %nc.nicklen = $len(%nc.nick)
  var %i = 1
  var %nc.loop = $nick(%nc.chan,0)
  while (%i <= %nc.loop) {
    if (%nc.nick == $left($nick(%nc.chan,%i),%nc.nicklen)) {
      return $nick(%nc.chan,%i)
      break
    }
    inc %i
  }
  if (%i >= %nc.loop) {
    var %j = 1
    var %nc.nickwm = * $+ %nc.nick $+ *
    while (%j <= %nc.loop) {
      if (%nc.nickwm iswm $nick(%nc.chan,%j)) {
        return $nick(%nc.chan,%j)
        break
      }
      inc %j
    }
    return %nc.nick
  }
}

alias nc.on {
  enable #nickcomplete
}

alias nc.off {
  disable #nickcomplete
}

alias nc {
  var %grp = #nickcomplete
  $iif($group(%grp).status,enable %grp,disable %grp)
}