Kayıtlı ve Kayıtsız nickleri kontrol Addonu

Sununuz üzerindeki kayıtlı yada kayıtsız nickleri kontrol altına alıp çeşitli işlemler mi uygulamak istiyorsunuz.Ozaman bu kod tam size göre.Kodu ircforumları sitesinden alıntı yaptım.

unutmanet

Kodlayan uFuK nickli arkadaştır.

Açıklama : uFuK’a aittir.

Bu kod ile neler yapabilirsiniz ?

A) Reklam Kontrolü
Menüden Kayıtlı ve Kayıtsız Nickller İşlem Seçeneklerinden birisini seçin ve bu butona tıklayın. Seçtiğiniz seçenek durumundaki nicklere oto olarak reklam kontrol mesajı göndericek ve bu mesaja 2 saniye içerisinde cevap verenleri menüdeki belirttiğiniz kanala yazdığı mesajla birlikte kopyalacaktır. Bu menü işleme tabi değildir siz duruma göre manuel olarak işlem yapıcaksınız. (masum userlerde bu menüden etkilendiği için işleme tabi tutulmamıştır, örneğin; özel kabul addonları, oto özel mesaj addonları vb.)

B) Away Mesaj Kontrolü
Sunucunuzda away mesajını yasaklayıpta userlerinizi mağdur etmenizin bir manası yok. Bu butona tıkladıgınızda away konumundaki userleri tespit edecek ve away olanların away mesajlarını belirttiğiniz kanala kopyalayacaktır. İşleme tabi değildir, manuel işlem gerektirir)

C) Seçtiğiniz Türdeki Nicklere Mesaj Gönderme
Örneğin nicki kayıtsız kullanıcılara oto olarak kayıt mesajı gönderebilirsiniz. Yada kayıtlı kullanıcılara sistemle ilgili bilgi vermek için text mesajı gönderebilirsiniz.

 

 

 


dialog kknks {
  title "Kayıtlı ve Kayıtsız Nickler Kontrol Sistemi"
  size -1 -1 253 237
  option dbu
  list 1, 115 11 58 211, size hsbar vsbar
  box "Kayıtsız Nickler", 4, 109 2 68 224
  edit "", 2, 13 73 74 10, autohs
  edit "", 6, 13 43 74 10, autohs
  button "Hepsine Zline At", 7, 12 130 74 10
  button "Hepsine Kanalda Voice Ver", 8, 12 146 74 10
  button "Hepsinin Voicesini Geri Al", 9, 12 162 74 10
  button "Hepsini Kanala Sajoin Yap", 10, 12 179 74 10
  box "Mesaj Menüsü", 11, 3 2 98 101
  box "Global İşlemler Menüsü", 12, 2 106 98 120
  button "Away Mesaj Kontrolü Yap", 13, 12 195 74 10
  button "Reklam Mesaj Kontrolü Yap", 14, 12 211 74 10
  button "Hepsini Kanalda Banla", 15, 12 115 74 10
  edit "", 17, 13 13 74 10, autohs
  button "Nick Register Bilgisi", 16, 26 25 52 12
  button "Text Mesaj Gönder", 5, 23 54 54 12
  button "Reklam,Away Kanalı", 3, 21 85 57 9
  box "Kayıtlı Nickler", 20, 183 2 68 224
  list 34, 189 11 58 211, size hsbar vsbar
  radio "Kayıtsızlara İşlem", 18, 116 228 57 9
  radio "Kayıtlılara İşlem", 19, 190 228 52 9
  text "İşlem Yapacağınız Nick Türünü Sagdan Seçiniz", 21, 1 228 112 8
}

on *:dialog:kknks:sclick:*: {
  if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
  if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
  if ($did == 16) { 
    set %kayitmsg $did(17)
    var %i 1 
    while %i <= $lines(kayitsiz.txt) {
      msg $read(kayitsiz.txt,%i) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $read(kayitli.txt,%i) $did(6)
        inc %i
      }
    }
  }
  if $did == 3 { 
    set %ckanal $did(2)
  }
  if $did == 15 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +b $address($read(kayitsiz.txt,%i),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($read(kayitli.txt,%i),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active  -v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active  -v $read(kayitli.txt,%i)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) %ufuks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) %ufuks
        inc %i
      }
    }
  }
  if $did == 13 { 
    set %awayk on 
    .timer 1 1 who +a $active
    .timer 1 4 unset %awayk
  }
  if $did == 14 {
    set %reklamkontrol on 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    .timer 1 2 unset %reklamkontrol
  }
}
on *:dialog:kknks:sclick:*: {
  if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
  if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
  if ($did == 16) { 
    set %kayitmsg $did(17)
    var %i 1 
    while %i <= $lines(kayitsiz.txt) {
      msg $read(kayitsiz.txt,%i) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $read(kayitli.txt,%i) $did(6)
        inc %i
      }
    }
  }
  if $did == 3 { 
    set %ckanal $did(2)
  }
  if $did == 15 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +b $address($read(kayitsiz.txt,%i),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +b $address($read(kayitli.txt,%i),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active  -v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active  -v $read(kayitli.txt,%i)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) %ufuks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) %ufuks
        inc %i
      }
    }
  }
  if $did == 13 { 
    set %awayk on 
    .timer 1 1 who +a $active
    .timer 1 4 unset %awayk
  }
  if $did == 14 {
    set %reklamkontrol on 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    .timer 1 2 unset %reklamkontrol
  }
}

on *:dialog:kknks:*:*: {
  if $devent == init { 
    who $active
    did -a $dname 17 %kayitmsg
    did -a $dname 6 %globalmesaj 
    did -a $dname 2 %ckanal
    if %kayitli == on { did -c $dname 19 }
    if %kayitsiz == on { did -c $dname 18 }
    .timer 1 1 savebuf -o kknks 1 kayitsiz.txt  
    .timer 1 2 savebuf -o kknks 34 kayitli.txt
  }
  if $devent == dclick { 
    if ($did == 34) { write -ds $+ $did(34).seltext kayitli.txt | did -d kknks 34 $did(34).sel }
    if ($did == 1) { write -ds $+ $did(1).seltext kayitsiz.txt | did -d kknks 1 $did(1).sel }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
  }
}
raw 301:*: { 
  if %awayk == on {
    if $me ison %ckanal { 
      /msg %ckanal 12Nickname 4 $qt($2) 12Away Mesajı 4 $qt($3-) 
    } 
  }
}
on *:text:*:?: { 
  if %reklamkontrol == on { 
    msg %ckanal 12Reklama Takılan Rumuz: 4 $nick 12Yazdığı İleti: 4 $1-
  }
}
raw 352:*: { 
  if (*r* !iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    did -a kknks 1 $6
  }
  if (*r* iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    did -a kknks 34 $6
  }
}
menu * { 
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks }
Reklamlar

Forbid komutu ile nicke ait tüm kanalları yasaklama

Addon: /forbid <nick> (nicke ait tüm kanalları yasaklama aliası)
Tarih: 07.05.2008 Çarşamba
Yazan: Regex
Not: Lütfen kullanacaksanız ya da farklı platformlarda paylaşacaksanız, yapımcı nickini kodun başında belirtin.

Açıklama: Bu alias sayesinde, belirttiğiniz kişiye ait tüm kanallar forbid (yasak) lenir. Kanalları, kişiye whois çekerek alır. Kullanıcının bulunduğu kanallarda ~ (successor) yetkisi varsa, o kanalı kişinin kabul eder ve işlem yapar.

Örnek: Misal, Lanet nicki için komutu uyguladık (/forbid Lanet).
Lanet, #Abz kanalında ~ (founder) konumunda.
Bu durumda, mIRC’imiz bu kanalı forbidler ve kanalda bulunan tüm kullanıcılar kick edilir. Kanal, bu hadiseden sonra kullanılamaz (drop edilene kadar).

Kod:

alias forbid if !$1 { echo Hata: Nick belirtmediniz. | halt } | whois $1 | .enable #forbid
alias forbidx var %d = 1 | while %d <= $numtok($2-,32) { $iif($regex($gettok($2-,%d,32),^~),cs forbid $remove($gettok($2-,%d,32),~) $1 nickine ait tüm kanalların kullanımı yasaklanmıştır.) | inc %d } | .disable #forbid
#forbid off
raw *:*:haltdef | $iif($numeric == 319,forbidx $2 $3-)
#forbid end

Bu kod alıntı yapılmıştır.

IRC’de ortak kanalları gösteren kod

alias ortak_k {
if ($server == $null) { echo -a 4Herhangi bir server’a bağlı değilsiniz. }
elseif ($chan($me) == 0) { echo -a 4Herhangi bir kanala girmiş değilsiniz. }
elseif (!$1) { echo -a 4Ortak kanallarınızın bulunacağı nick belirtilmedi. }
elseif ($1 == $me) { echo -a 4Kendi nickinizi giremezsiniz. }
elseif ($comchan($1,0) == 0) { echo -a 4Beliritlen nick bulunamadı. }
else {
var %oid 1
set %orka $comchan($1,0)
unset %knms
while (%oid <= %orka) {
set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
inc %oid
}
return %knms
}
}
alias ortak { linesep – | echo -at  $+ $1 $+  Nicki ile Ortak Kanallarınız4: $ortak_k( $+ $1 $+ ) | linesep – }

• Kullanım:/ortak nick

Whois bilgilerindede görmek isterseniz bunuda remoteye atınız.

Kod:
raw 319:*:{
haltdef
echo -a 4» Kanalları4: $3-
echo -a 4» Ortak Kanallarınız4: $ortak_k($2)
}

Bu kod sayesinde biri ile ortak kanallara sahipseniz bu şekilde ortak kanalları görebilirsiniz.Kullanımı kolaydır.

Kanala giren nickleri kaydetme

Kanalınıza giren nickleri bu kod ile kaydebilirsiniz.Kanala giriş yapan nickleri bu kod ile kayıt edebilirsiniz.Kayıtlar mirc klasorünüzde nickler.txt yani nickler not defterine kayıt edilir.

on *:join:#Sohbet:$iif(!$read(nickler.txt,w,$nick),.write nickler.txt $nick)

Kodlayan ircforumlarından : Toprak

Özele küfür koruması ( kayıtsız nickler için )

L4roXyL

özel küfür korumasında şifresiz nick
Sana text gönderen nick’e who çekersin.
Eğer kayıtsız nick ise ve gönderdiği text’de kufur.txt dosyasındaki yasaklı kelimelerden herhangi birisi mevcut’sa bulunduğun tüm kanallar’dan banlarsın. (Kod sorunsuz çalışır)

on *:text:*:?: { inc -e $+(%,t,$nick) | if $($+(%,t,$nick),2) == 1 { .enable #u | .who $nick } | else { var %1 = 1,%2 = $lines(kufur.txt) | while %1 <= %2 { if $+(*,$read(kufur.txt,%1),*) iswm $1- && $hmatch(nick,$nick) { var %p = $nick } | inc %1 } | var %s = 1,%ss = $comchan($me,0) | while %s <= %ss { if $nick ison $comchan($me,%s) { ban -ku900 $comchan($me,%s) %p 2 Küfür. } | inc %s } } }
#u off
raw *:*: { if $numeric == 352 { if r !isincs $7 { haltdef | hadd -m nick $6 1 } } | if $numeric == 315 { haltdef | .disable #u } }
#u end

Bir nicki dondurmak

Bir nicke forbid yani tamamen yasaklamak değilde o nicki bir süre dondurmak isterseniz kullanacağınız komut aşağıdaki gibidir.

/ns suspend Nick 30d Sebeb

komutu ile yasaklayabilir.

/ns unsuspend Nick

komutu ilede suspendi kaldırabilirsiniz.Suspend komutunu kullanarkan suspendli nicki tekrar açabilirsiniz.

CHAT Eventi

CHAT Eventi

Chat eventi DCC Chat olarak kullanılan eventtir..

Parametreleri;

=$nick -> Nick

Örnek;

on *:chat:*yardim*:{ msg =$nick Sorun nedir ? }

NOT: $nick değil =$nick kullanılır

Etiketler: chat, chat echo, chat eventi, echo chat, irc chat, irc on chat, Mirc chat, mirc değişik eventler, mirc on chat, on chat, on chat eventi