clone.txt

on ^*:join:#:{
  if ($nick != $me) {
    if ($ialchan($wildsite,$chan,0) > 1) {
      set %~clone.w-c 0
      :start
      inc %~clone.w-c
      if ($ialchan($wildsite,$chan,%~clone.w-c) == $null) {
        haltdef
        if ( $me isop $chan ) {
          echo $colour(join) $chan [[ $+ $asctime(HH:nn) $+ ] *** Join: $nick ( $+ $address $+ ) Clones: $nick & %~clone.w-m ¤ Press F6 to kickban
          set % $+ $chan $nick
        }
        else {
          echo $colour(join) $chan [[ $+ $asctime(HH:nn) $+ ] *** Join: $nick ( $+ $address $+ ) Clones: $nick & %~clone.w-m
        }
        unset %~clone.w-c %~clone.w-m
      }
      elseif ($ialchan($wildsite,$chan,%~clone.w-c).nick == $nick) { goto start }
      else { set %~clone.w-m %~clone.w-m $ialchan($wildsite,$chan,%~clone.w-c).nick | goto start }
    }
  }
}

}
on *:INVITE:#: {
/set %joininvitechan $chan
/echo $colour(invite) -a *** [[ $+ $asctime(HH:nn) $+ ]  $+ $nick $+  ( $+ $address $+ ) invites you to join  $+ %joininvitechan $+  ¤ Press F11 to join it
}