All pastes #583211 Raw Edit

Stuff

public text v1 · immutable
·published 2007-06-22 08:28 UTC
rendered paste body
alias pccheck {
  .window @PC-Channel-Scanner
  echo @PC-Channel-Scanner Scanning #PCPlace For Multi-Pc-Channelers.....
  var %i = 1
  set %x $nick(#PCPlace,0)
  .enable #MassPCChanCheck
  while (%i <= %x) {
    whois $nick(#PCPlace,%i)
    inc %i
  }
}
#MassPCChanCheck off
raw *:*:{
  haltdef
  if ($numeric == 319) {
    inc %checkcount
    if (*pc* iswm $remove($3-,#PCPlace) || *pest* iswm $remove($3-,#PCPlace,#PCPalace)) {
      echo @PC-Channel-Scanner $2 Is on $3- $+ !
      inc %badcheckcount
    }
    if (%checkcount == $calc(%x - 1)) {
      .disable #MassPCChanCheck 
      echo @PC-Channel-Scanner Scanned a Total of %checkcount Users. %badcheckcount Were found to be on Multiple PC Channels.
      unset %*checkcount
    }
  }
}
#MassPCChanCheck end