Forums Scripts & Popups Help Needed

alias kick2 {
  var %chan = $$1
  var %nick = $$2
  var %reason = Clones not allowed
  var %i = 0
  var %MAX = $nick(%chan,0)
  while (%i <= %MAX) {
    var %nick2kick = $nick(%chan,%i)
    if $address(%nick2kick,2) iswm $address(%nick,2) { kick %chan %nick2kick %reason }
    inc %i
  }
}

on 1:JOIN:#:{
  ;----- CLONESCAN SECTION
  :clonescanner
  if ($nick == $me) { goto cloneskip }
  if ($address($nick,2) == $address($me,2)) { goto cloneskip }
  if ($nick isop $chan) { goto cloneskip }
  unset %Clone
  :loop
  inc %Clone
  %Clone.Name = $ialchan($address($nick,2),$chan,%Clone).nick
  if (%Clone.Name == $nick) { goto loop }
  if (%Clone.Name isop #) { goto loop }
  if (%Clone.Name == $null) { goto cloneskip }   
  echo -a  CLONES DETECTED: $nick and %Clone.Name in $chan $+ ...
  goto loop  
  :cloneskip
  unset %Clone | unset %Clone.Name
}
;This baby will echo to you when someone loads in a clone to your chan, and it is the nick on the RIGHT side that is the clone. right click on it and select your newly added nicklist "clonekick" (see below).
;it will surely ignore if it is you and/or if its an @ (if nick1 is opped when the clone joins)
;it can also easilly be changed to autoboot the clone.


Menu nicklist {
-
  $iif($me !isop #,$style(2)) Clone Kick:kick $$1 Get that Clone Outa here!-
}
;new nicklist item, so you can right click on the clonename and kick it :)
;the item is ghosted out if youre not opped...

alias ak {
  if $chan(#).ial {
    if ($2 != $null) {
      %total.matched = 1
      while (%total.matched <= $ialchan($1,$chan,0)) {
        if ($ialchan($$1,$chan,%total.matched).nick != $me) { kick $chan $ialchan($$1,$chan,%total.matched).nick k $$2- }
        inc %total.matched
      }
      unset %total.matched
      halt
    }
    if ($2 == $null) {
      %total.matched = 1
      while (%total.matched <= $ialchan($1,$chan,0)) {
        if ($ialchan($$1,$chan,%total.matched).nick != $me) { kick $chan $ialchan($$1,$chan,%total.matched).nick k $me }
        inc %total.matched
      }
      unset %total.matched
      halt
    }
  }
  else { echo $colour(info) $chan IAL for $chan isn't on. /who $chan to update }
}