Operscan

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;            OPERSNIFF | OPERSCAN Script           ;;
;;                by Quakenet Scripter              ;;
;;               Uploaded by Blizzardo1             ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 ; This alias performs a special /WHO request, making it easy to catch the result.
 ; The number '123' is used to catch the reply, this can be any number 0-999,
 ; but it must be the same here and in the raw event below.
 alias operscan {
   .who * o%nt,123
 }

 ; This raw event catches the special /WHO request made by the alias above.
 raw 354:& 123 &:{
   if ($comchan($3,0)) && ($comchan($me,0)) {
     opercolor $3
   }
   haltdef
 }

 ; This local alias sets the color for a given nick on all the common channels.
 alias -l opercolor {
   var %t = $comchan($1,0), %c = 1
   while (%c <= %t) {
     cline -m 9 $comchan($1,%c) $1
     inc %c
   }
 }

 ; This raw event catches normal /WHO replies,
 ; probably done by other scripts to update the IAL.
 ; The * in the flags part indicates the user is an IRC Operator.
 raw 352:*:{
  haltdef
   if (* isin $7) && ($comchan($6,0)) && ($comchan($me,0)) {
     opercolor $6
   }
  !aline -hp @Operscan $fulldate 11User Scanned: 00 $+ 12 $+ $6 is 9Oper
}

;END WHO
raw 315:*: {
  haltdef
  !aline -hp @Operscan $fulldate 11END SCAN for 11 $+ $network
}