Something

on *:connect: {
  if ( $network == PurpleSurge ) {
    /timersppnicks 0 3600 /who #spp
    /timerwifinicks 0 3600 /who #spp-wifi
  }
}

alias clonescanner {
  var %allclones = x
  var %clonenicks = $null
  var %totalclonenicks = 0
  var %y = 0
  var %z
  while (%y <= $nick($chan,0)) {
    inc %y
    %z = %y
    while (%z <= $nick($chan,0)) {
      inc %z
      if (($address($nick($chan,%y),2) == $address($nick($chan, %z),2)) && ($istok(%allclones,%z,46) == $false)) {
        if (%totalclonenicks = 0) {
          %clonenicks = $nick($chan,%y) $+ $chr(44) $+ $chr(32) $+ $nick($chan,%z)
          if (%allclones == x) {
            %allclones = %y $+ $chr(46) $+ %z)
          }
          else {
            %allclones = %allclones $+ $chr(46) $+ %z
          }
        }
        else {
          %clonenicks = %clonenicks $+ $chr(44) $+ $chr(32) $+ $nick($chan,%z)
          %allclones = %allclones $+ $chr(46) $+ %z
        }
        inc %totalclonenicks
      }
    }
    if (%clonenicks != $null) {
      //echo -a 11,6 $+ $address($nick($chan,%y),2) -- %clonenicks
    }
    %clonenicks = $null
    %totalclonenicks = 0
  }
}