Clone on Nicklist

menu nicklist {
  $Clonesc($snick(#,1),#)
  .$left($remove($address($snick(#,1),2),*!*@),15) $+ $iif( $len($remove($address($snick(#,1),2),*!*@)) > 15,») : who * $+ $replace($remove($address($snick(#,1),2),*!*@),.,?) $+ *
  .-
  .$ialchan($address($snick(#,1),2),#,1).nick : whois $ialchan($address($snick(#,1),2),#,1).nick
  .$ialchan($address($snick(#,1),2),#,2).nick : whois $ialchan($address($snick(#,1),2),#,2).nick
  .$ialchan($address($snick(#,1),2),#,3).nick : whois $ialchan($address($snick(#,1),2),#,3).nick
  .$ialchan($address($snick(#,1),2),#,4).nick : whois $ialchan($address($snick(#,1),2),#,4).nick
  .$ialchan($address($snick(#,1),2),#,5).nick : whois $ialchan($address($snick(#,1),2),#,5).nick
  .$ialchan($address($snick(#,1),2),#,6).nick : whois $ialchan($address($snick(#,1),2),#,6).nick
  .$ialchan($address($snick(#,1),2),#,7).nick : whois $ialchan($address($snick(#,1),2),#,7).nick
  .$ialchan($address($snick(#,1),2),#,8).nick : whois $ialchan($address($snick(#,1),2),#,8).nick
  .$ialchan($address($snick(#,1),2),#,9).nick : whois $ialchan($address($snick(#,1),2),#,9).nick
  .$ialchan($address($snick(#,1),2),#,10).nick : whois $ialchan($address($snick(#,1),2),#,10).nick
  .-
  .$iif($me isop #,Kick/Ban All) : {
    ban $active $ialchan($address($1,2),#,1).nick 2
    set %nCount 0
    :nextclone
    inc %nCount
    if ($ialchan($address($1,2),#,%nCount).nick == $me) goto nextclone
    kick # $ialchan($address($1,2),#,%nCount).nick 1,15>> Clone
    if (%nCount < $ialchan($address($1,2),#,0)) goto nextclone
  }
}
alias Clonesc {
  if (%lFilterClone == 1) { if ($ishideIPDNS($remove($address($1,2),*!*@)) == 1) return }
  return  $iif($ialchan($address($1,2),$2,0) > 1,Clone) $iif($ialchan($address($1,2),$2,0) > 1,$ialchan($address($1,2),$2,0))
}