Standart Kanala Giren Aynı Kİşileri Görme

on *:join:*: {
  %AyniKisi = $ialchan($wildsite,#,0)
  if ( %AyniKisi > 1 ) {
    var %Kisi = 1
    set %Ayni.Kisiler
    while (%Kisi <= %AyniKisi)  {
      %Ayni.Kisiler = %Ayni.Kisiler  $ial($wildsite,%Kisi).nick
    inc %Kisi  }
  /echo $chan %Uyari  4CLONE 2( Aynı Kişi Yada Aynı Cafe ) 2»4 $remove(%Ayni.Kisiler,) 2 %AyniKisi 4Tane . }
  set %Degistir $read -s $+ $address($nick,4) Notes.ini
  if (%Degistir == $null) {
    haltdef
    write Notes.ini $address($nick,4) $nick
    halt  
  }
}