User Search Script by RealName and SAJON him to channel

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This mIRC script lets you search users by REALNAME mask and make them join your channel
; You have to prepare file named "ids.txt" with REALNAME ids of people you like to join your channel
; Each REALNAME record has to start as newline. Put this file to the following directory:
; (Your hard drive where mIRC is installed)/users/(Your User Name)/Application Data/mIRC
; For example it might be the following file: C:/users/root/Application Data/mIRC/ids.txt
; To get simple REALNAME record run "/who yournick" in IRC to see your own REALNAME record (after :0)
; Next, add the following script lines to the mIRC - Tools - Script editor (Alt+R) - Remote section
; After you add them at the bottom, please run the script like following:
; /usearch #channel-to-search #channel-to-invite
; NEW VERSION 4.22                                               written by Security XIII on 26.12.2014
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; custom alias "/usearch #channel-to-search #invite-channel"
alias usearch {
  ; request names list
  who $$1
  ; global variable storing the name of the channel
  set -en %usearch $1
  set -en %invitech $2
  set -en %word 1
  unset %compare
}

; who reply
raw 352:*: {
  ; reply is for the channel in question
  if ($2 == %usearch) {
    echo -a UserID: %word
    set %unick $6
    ;who %unick
    set %urealname $9-
    echo -a UserNick: %unick
    echo -a UserRealName: %urealname
    while ($read(ids.txt, nw, %urealname $+ *, $calc($readn + 1))) set %compare $v1
    echo -a comparing %urealname to $left(%compare,50)
    if %urealname == $left(%compare,50)) { SAJOIN %unick %invitech }
    else { echo -a user realname not found in list }

    inc %word
    unset %compare
    ; halt default display
    haltdef
  }
}

; 'end of who' reply
raw 315:*: {
  ; reply is for the channel in question
  if ($2 == %usearch) {
    unset %usearch
    haltdef
  }
}