Détection Clones (Ban/Join)

[chain]

alias g_c {
  var %gc_mask = $$1, %gc_chan = $$2, %gc_nick = $$3, %gc_total = $ialchan(%gc_mask,%gc_chan,0), %gc_event = $prop
  if (%gc_total >= 2) {
    var %gc_mask_out %gc_mask, %inc_clones 1
    remini clones.ini %gc_chan %gc_event
    while (%inc_clones <= %gc_total) {
      var %gc_inc_nick = $ialchan(%gc_mask,%gc_chan,%inc_clones).nick
      if (%gc_nick == %gc_inc_nick) { writeini clones.ini %gc_chan %gc_event $readini(clones.ini,$2,%gc_event) $+(,$cnick(%gc_inc_nick).color,,%gc_inc_nick,) }
      else { writeini clones.ini %gc_chan %gc_event $readini(clones.ini,$2,%gc_event) $+(,$cnick(%gc_inc_nick).color,%gc_inc_nick) }
      inc %inc_clones
      }
    writeini clones.ini %gc_chan $+(%gc_event,_,mask) %gc_mask
    if (%gc_total > 10) { echo 1 -et $chan $+(4,$chr(215),) Attention !03 %gc_chan 6»4 %gc_total clones 12sur le mask14 %gc_mask_out }
    else { echo 1 -t $chan $+(4,$chr(215),3) %gc_chan 06»4 %gc_total clones 12sur3 %gc_mask_out 4» $readini(Clones.ini,%gc_chan,%gc_event) }
  }
}
;## Join - Détection sur l'host
On *:JOIN:#:{ if ($nick != $me) { if ($ialchan($address($nick,2),$chan,0) >= 2) { $g_c($address($nick,2),$chan,$nick).join } } }
;## Ban - Détection sur le mask banni
On *:BAN:#:{
var %banmask = $iif($regex($banmask,(~q:|~n:|~j:)) == 1 && ~?:* iswm $banmask,$token($banmask,2-,58),$banmask)
if (~q:*!*@* iswm $banmask) { $g_c(%banmask,$chan,$nick).ban_quiet }
elseif (~n:*!*@* iswm $banmask) { $g_c(%banmask,$chan,$nick).ban_nickchange }
elseif (~j:*!*@* iswm $banmask) { $g_c(%banmask,$chan,$nick).ban_join }
elseif (*!*@* iswm $banmask && ~?:* !iswm $banmask) { $g_c(%banmask,$chan,$nick).Ban }
}