alias aecho {
  if ($left($active,1) == @) { echo -s  $$1- }
  else echo -a $$1-
}

alias clone {
  set %numclones 0 |  set %num $nick(#,0) | set %start $ticks
  if ($1 != $null) set %chan $1
  else set %chan #
  
  aecho <<< 12Clone Scan 1 on 1,8 %chan  1 - Scanning 4 %num 1 Users >>>
  :next
  set %site $address($nick(%chan,%num),2)
  if (%clone. [ $+ [ %site ] ]   == $null) { set %clone. [ $+ [ %site ] ]  ¤16,12 $+ $nick(%chan,%num) $+ ¤  }
  else {
    set %clone. [ $+ [ %site ] ]  %clone. [  $+ [ %site ] ] ¤16,12 $+ $nick(%chan,%num) $+ ¤  
    if (%clonenick == $null) {  
      set %clonenick %site
      inc %numclones
    }
    elseif (%site  !isin %clonenick) {
      set %clonenick %clonenick %site 
      inc %numclones
    }
  }
  dec %num
  if (%num > 0) goto next
  set %end $ticks
  if (%clonenick != $null) {
    :displaynext
    aecho 13 Clones >>> %clone. [ $+ [ $gettok(%clonenick,%numclones,32) ]  ] 2 at 12 $gettok(%clonenick,%numclones,32) 
    dec %numclones
    if (%numclones > 0) goto displaynext
  }
  else aecho 14>>>>> 2No Clones 14Found on 1,8 %chan  14>>>>>
  aecho <<< 12Clone Scan 1 completed on 1,8 %chan  1 in 4 $calc((%end - %start) / 1000) Seconds >>>
  unset %num %clone.* %clonenick %numclones %start %end %site
}


alias myfkick {
  if ($2 == $null) set %chan #
  else set %chan $2
  if ($me isop %chan) {
    set %num $ialchan($$1,%chan,0)
    if (%num != 0) {
      :next
      set %nick  $ialchan($$1,%chan,%num).nick
      if (%nick != $me) {
        if ($ialchan($$1,%chan,%num).nick !isop %chan) {
          if ($level($ialchan($$1,%chan,%num)) < 105) { 
            kick %chan $ialchan($$1,%chan,%num).nick  12Filter Kick of4 $$1 $+  
          }
        }
        dec %num
        if (%num > 0) goto next
      }
    }
    else aecho <<< 4NO 1Users Found Matching 12 $+ $$1 1>>>
  }
  else aecho <<< Your 4NOT1 a OP in  1,8 %chan  >>>
  :end
  unset %num  %chan %nick
}

alias sF4 {
  ctcp %clone.nick1 ping
  ctcp %clone.nick2 ping
}

alias sF5 {
  if (%cloneaddr != $null) && ($me isop %clonechan) {
    mode %clonechan +b %cloneaddr
    myfkick %cloneaddr %clonechan
  }
  else aecho <<< 4No 12Address In Buffer >>>
}



alias rfkick {
  set %chan $2
  set %num $ialchan($$1,$2,0)
  if (%num != 0) {
    :next
    set %nick  $ialchan($$1,$2,%num).nick
    if (%nick != $me) {
      if ($ialchan($$1,$2,%num).nick !isop %chan) {
        if ($level($ialchan($$1,$2,%num)) < 105) { 
          kick $2 $ialchan($$1,$2,%num).nick  $3-
        }
      }
      dec %num
      if (%num > 0) goto next
    }
  }
  :end
  unset %num %nick
}


on +1:join:#mIRC:{
  if ($chr(3) isin $fulladdress) {
    mode $chan +b $strip($wildsite)
    kick $chan $nick 12Get Rid of the Address Colours 
  }
  if ($ialchan($wildsite,$chan,0) == 3) {
    raw -q mode $chan +ib $wildsite
    strip +burc
    echo $chan  mode $chan +imb $wildsite
    .timer 1 1  rfkick $wildsite $chan Bye!
    .timer 1 4  rfkick $wildsite $chan 
    .timer 1 25 raw -q mode $chan -im
  }
  else if ($ialchan($wildsite,$chan,0) == 2) { 
    aecho <<<4Clones 1of12 $wildsite 1: - 12 $ialchan($wildsite,$chan,1).nick 1&12 $ialchan($wildsite,$chan,2).nick >>>
    aecho <<<4 Shift-F4 1 to PING >>>
    aecho <<<4 Shift-F5 1 to filter kick from 12 $chan >>>
    set %cloneaddr $wildsite | set %clonechan $chan
    set %clone.nick1 $ialchan($wildsite,$chan,1).nick | set %clone.nick2 $ialchan($wildsite,$chan,2).nick
  }
}