Someone

alias scan { 
  if (!%scan::clone) { 
    if ($1) { 
      if ($me ison $1) { 
        echo -a + Starting scan on channel $+(",$1,".) 
        set %scan::clone 1 
        who $1 
      } 
      else echo -a + You must be on $+(",$1,") to perform a clone scan on it. 
    } 
    elseif ($left($active,1) == $chr(35)) { 
      echo -a + Starting scan on channel $+(",$active,".) 
      set %scan::clone 1 
      who $active 
    } 
    else echo -a + If you don't supply a channel, your active window must be a one. 
  } 
  else echo -a + There is already a clone scan going on. 
} 
raw 352:*:{ 
  if (%scan::clone) { 
    inc %scan::host:: [ $+ [ $4 ] ] 
    set %scan::nick:: [ $+ [ $4 ] ] $iif(%scan::nick:: [ $+ [ $4 ] ],%scan::nick:: [ $+ [ $4 ] ] $+ $chr(44) $+($6),$+($6)) 
    haltdef 
  } 
} 
raw 315:*:{ 
  if (%scan::clone) { 
    var %scan::loop 1 
    while (%scan::loop <= $var(%scan::host::*,0)) { 
      if ($var(%scan::host::*,%scan::loop).value > 1) { 
        echo -a - $+($var(%scan::host::*,%scan::loop).value) clones found on host $+(",$gettok($var(%scan::host::*,%scan::loop),3,58),") ( $+ $var(%scan::nick::*,%scan::loop).value $+ ) 
        inc %scan::loop 
        set %scan::found 1 
      } 
      else inc %scan::loop 
    } 
    if (!%scan::found) echo -a - No clones found 
    echo -a + Clone scan complete. 
    unset %scan::* 
    haltdef 
  } 
}