Dave

/* 
For use in #ThePC at the SwiftIRC network only 
Made by Bounce @ irc.SwiftIRC.net 

Usage: !Check #Channel 
Users found on both channels will me messaged to #ThePc.staff 
*/ 

on $*:Text:/^!Check (.*)/Si:#ThePC.staff:Scan $2 $chan $nick 
alias -l Scan { 
  if ($me == Davidc2011) {
    if ($3 !isop $2) && ($3 !ishop $2) halt 
    elseif ($me !ison #ThePC) { msg $2 Error: I am not on $v2 | halt } 
    elseif ($left($1,1) != $chr(35)) || ($1 == #ThePC) { msg $2 Error: $1 is not a valid channel. | halt } 
    else { 
      msg $2 $c1(Please wait...) 
      Scan.Ial $1-3 
    } 
  } 
}
alias -l Scan.Ial { 
  if ($me == Davidc2011) {
    var %x = 1, %y = 0 
    while (%x <= $nick(#Thepc,0)) { 
      if ($ial($nick(#Thepc,%x),0) == 0) inc %y 
      inc %x 
    } 
    if (%y > 0) { 
      who #ThePC 
      .timer 1 3 Scan.Ial $1-3 
    } 
    else Scan.Address $1-3 
  } 
}
alias -l Scan.Address { 
  if ($me == Davidc2011) {
    remini ThePC.ini Users 
    var %x = 1 
    while (%x <= $nick(#thepc,0)) { 
      if ($nick(#thepc,%x) == $me) noop 
      else writeini ThePC.ini Users $address($nick(#thepc,%x),2) y 
      inc %x 
    } 
    msg $2 $c1(Now joining) $c2($1) 
    part #Thepc,#Thepc.staff 
    .timer 1 3 Scan.Channel $1-3 
  } 
}
alias -l Scan.Channel { join $1 | .timer 1 3 Scan.Who $1-3 } 
alias -l Scan.Who { who $1 | .timer 1 3 Scan.Check $1-3 } 
alias -l Scan.Check { 
  if ($me == Davidc2011) {
    if ($me !ison $1) { 
      scon 3 join #ThePc 
      scon 3 join $2 th3k3y 
      scon 3 .timer 1 2 msg $2 Error: I cannot join $1 
      halt 
    } 
    remini ThePC.ini Data 
    var %x = 1, %y = 0 
    while (%x <= $nick($1,0)) { 
      if ($nick($1,%x) == $me) noop 
      elseif ($readini(ThePC.ini,Users,$address($nick($1,%x),2))) { 
        inc %y 
        writeini ThePC.ini Data %y $+($nick($1,%x),$chr(124),$address($nick($1,%x),2)) 
      } 
      inc %x 
    } 
    part $1 
    .timer 1 3 Scan.End $1-3 %y 
  } 
}
alias -l Scan.End {
if ($me == Davidc2011) { scon 3 join #ThePC | join #ThePC.staff th3k3y | .timer 1 3 Scan.Result $1-4 } }
alias -l Scan.Result { 
  if ($me == Davidc2011) {
    var %x = 1 
    while (%x <= $4) { 
      var %r = $readini(ThePC.ini,Data,%x) 
      scon 3 scon 3 msg $2 $c1($+(%x,:)) $c2($gettok(%r,1,124)) $c1(was found in) $c2($1) $c1(- Address:) $c2($gettok(%r,2,124))
      unset $+(%,ThePC.user,%x) 
      inc %x 
    } 
  } 
}
alias -l c1 return $+($chr(3),14,$1-) 
alias -l c2 return $+($chr(3),04,$1-)