Clone - Eski nick uyarı

[Aytac]

Merhabalar, [MENTION=146743]KaraDeniz[/MENTION] 'in istegi olmustu, bari kullanmak isteyen kullanabilir, Clone ve eski nick uyari sistem'lidir, Hayırlı IF'ler.

Kod :

on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }
on *:join:#: {
  if !$ial { ial on }
  if $nick == $me { return }
  hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)
  hsave eskinicks eskinicks.63
  if $numtok($hget(eskinicks,$wildsite),32) >= 2 {
    echo #  $wildsite  hostundan girmis eski nickler: $hget(eskinicks,$wildsite)
  }
  if $ialchan($wildsite,#,0) >= 2 {
    var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }
    echo #   $wildsite  bagli kanaldaki cloneler: %nicks
  }
}

@Clone penceresinde göstermek istiyorsanız alttaki kodu kullanın.

Kod :

on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }
on *:join:#: {
  if ($window(@clone) == $null) { window -mtne @clone }
  if !$ial { ial on }
  if $nick == $me || $regex($wildsite,/(Admin|Op)/i) { return }
  hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)
  hsave eskinicks eskinicks.63
  if $numtok($hget(eskinicks,$wildsite),32) >= 2 {
    echo -tm @clone  $wildsite  hostundan girmis eski nickler: $hget(eskinicks,$wildsite)
  }
  if $ialchan($wildsite,#,0) >= 2 {
    var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }
    echo -tm @clone   $wildsite  bagli kanaldaki cloneler: %nicks
  }
}