/Badtara #kanal - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Skys · 21 Mayıs 2009, 20:57

/badtara #kanal

sistemi bende mevcuttur , ben bu koda " her 10 Sn'de kanalı taramasını isticem "

ve bu 10 Sn'i menu olarak On/off ile acıp kapatmak istiyorum

Yani "on" yaptığımda her 10 Sn'de bir taramayı başlatması ve "off" Yaparak bad taramasını kapatmasını isticem tşk ..

bende bulunan Cod :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias badtara {
  var %jnk 1  
  while %jnk <= $nick($1,0) { 
    if $ulist($nick($1,%jnk),bad,0) { 
      mode $chan +b $nick($1,%jnk) 
      kick $chan  $nick($1,%jnk) 1Nickiniz şuan kanal seviyesi ile bağdaşmıyor.. Lütfen 4"/nick yeninickiniz" 1komutu ile nickiniz değiştirin.
    }  
    inc %jnk 
  }
}

MerakLıuSer · 21 Mayıs 2009, 21:35

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias badtara {
  var %jnk 1 
  while %jnk <= $nick($1,0) { 
    if $ulist($nick($1,%jnk),bad,0) { 
      mode $chan +b $nick($1,%jnk) 
      kick $chan $nick($1,%jnk) 1Nickiniz şuan kanal seviyesi ile bağdaşmıyor.. Lütfen 4"/nick yeninickiniz" 1komutu ile nickiniz değiştirin.
    } 
    inc %jnk 
  }
}
menu status,channel,query {
  .BAD TARAMA
  ..ON://timerTARA 0 10 /badtara $$?="Her 10 saniyede bir tarancak kanal nedir?" | /echo -a Tarama aktif edildi.
  ..OFF://timerTARA off | /echo -a Tarama deaktif edildi.
}

Menüde ON tıkladığında "taranacak kanal nedir?" diye sonra belirtiğin kanalda timer'i aktif eder.
OFF yaptığında aktif ettiğin kanaldaki timer durur.

Skys · 21 Mayıs 2009, 21:38

Tşk , Hocam eline sağlık..

Cihandar · 22 Mayıs 2009, 13:24

Peki Kanal Belirtmeden Bulunduğum Tüm Kanalları Nasıl Tarabilirm ?

Difuzyon · 24 Mayıs 2009, 12:59

Aşağıdaki kod ; bulunduğunuz tüm kanallarda bad levelsine eşleşen olup olmadığını tarayacaktır.Kullanıcı listesinde(users) bad tanımına uyan nickleri , kanalda op iseniz (ban+kick) değilseniz (echo) ile bilgilendirme mesajı geçecektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias control {
  if $chan(0) >= 1 { set %difi $regsubex($dde(mirc,channels),/\*/,$null) }
  who +c $token(%difi,1,32)
}
raw 352:*:{ 
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if $me isop $2 { mode $2 +b $6 | kick $2 $6 Badnickler dışarı! }
      else { echo 06 -a $+([,$2,]) kanalında $qt($6) badnick tanımına uyuyor }
    }
  }
}
raw 315:*:{
  if %difi {
    haltdef
    set %difi $deltok(%difi,1,32)
    if $numtok(%difi,32) == 0 { unset %difi }
    else { who +c $token(%difi,1,32) }
  }
}

Kodu remote kısmına eklendikten sonra uygulamanız gereken komut: /control

İyi forumlar...

yabadabadu · 07 Mart 2010, 18:04

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] süpersin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Fr33 · 08 Mart 2010, 09:43

merhaba, [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ustad harika bir code eline sağlık tek yapmamız gereken Remote kısmına eklemek peki benim script de badnickler nick:badnick şeklin de user kısmına ekli bu code ile nasıl okutabilirim? yardımcı olur musun? Sunucuya her girdiğim de tek tek kanalları gezmek cidden vakit alıyor ve göz yoruyor bir de oper yetkisi olanlar? sanırım OP olmasına gerek yoktur. Sunucu da değil mi? Oper yetkisine sahip kişiler OP olmadan işlem yapabilir sanırım, yardımcı olursan çok sevinirim şimdiden teşk ederim. İyi forumlar.

Difuzyon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Aşağıdaki kod ; bulunduğunuz tüm kanallarda bad levelsine eşleşen olup olmadığını tarayacaktır.Kullanıcı listesinde(users) bad tanımına uyan nickleri , kanalda op iseniz (ban+kick) değilseniz (echo) ile bilgilendirme mesajı geçecektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias control {
  if $chan(0) >= 1 { set %difi $regsubex($dde(mirc,channels),/\*/,$null) }
  who +c $token(%difi,1,32)
}
raw 352:*:{ 
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if $me isop $2 { mode $2 +b $6 | kick $2 $6 Badnickler dışarı! }
      else { echo 06 -a $+([,$2,]) kanalında $qt($6) badnick tanımına uyuyor }
    }
  }
}
raw 315:*:{
  if %difi {
    haltdef
    set %difi $deltok(%difi,1,32)
    if $numtok(%difi,32) == 0 { unset %difi }
    else { who +c $token(%difi,1,32) }
  }
}

Kodu remote kısmına eklendikten sonra uygulamanız gereken komut: /control

İyi forumlar...

Zalimsin · 01 Aralık 2014, 14:06

halfop iken çalışmasını istiyorum bunu nasıl ayarlıya bilirim tşkler.

Toprak · 01 Aralık 2014, 14:13

off Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

halfop iken çalışmasını istiyorum bunu nasıl ayarlıya bilirim tşkler.

Buyrun;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias control {
  if $chan(0) >= 1 { set %difi $regsubex($dde(mirc,channels),/\*/,$null) }
  who +c $token(%difi,1,32)
}
raw 352:*:{ 
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if $me isop $2 || $me ishop $2 { mode $2 +b $6 | kick $2 $6 Badnickler dışarı! }
      else { echo 06 -a $+([,$2,]) kanalında $qt($6) badnick tanımına uyuyor }
    }
  }
}
raw 315:*:{
  if %difi {
    haltdef
    set %difi $deltok(%difi,1,32)
    if $numtok(%difi,32) == 0 { unset %difi }
    else { who +c $token(%difi,1,32) }
  }
}

Prens · 02 Aralık 2014, 13:51

Difuzyon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Aşağıdaki kod ; bulunduğunuz tüm kanallarda bad levelsine eşleşen olup olmadığını tarayacaktır.Kullanıcı listesinde(users) bad tanımına uyan nickleri , kanalda op iseniz (ban+kick) değilseniz (echo) ile bilgilendirme mesajı geçecektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias control {
  if $chan(0) >= 1 { set %difi $regsubex($dde(mirc,channels),/\*/,$null) }
  who +c $token(%difi,1,32)
}
raw 352:*:{ 
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if $me isop $2 { mode $2 +b $6 | kick $2 $6 Badnickler dışarı! }
      else { echo 06 -a $+([,$2,]) kanalında $qt($6) badnick tanımına uyuyor }
    }
  }
}
raw 315:*:{
  if %difi {
    haltdef
    set %difi $deltok(%difi,1,32)
    if $numtok(%difi,32) == 0 { unset %difi }
    else { who +c $token(%difi,1,32) }
  }
}

Kodu remote kısmına eklendikten sonra uygulamanız gereken komut: /control

İyi forumlar...

*
Kanaldan atılan badnick(ler), Alt+P (Kullanıcı) bölümüne blacklist:*show!*@* olarak eklemekteyim. Fakat sizden aldığım bu koda muaf kanal eklentisi yaptım /control yaptığımda bir etki göremedim, sizce neden olabilir hocam?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias control {
  if ($nick isop #) || ($istok(#kanal1 #kanal2 #kanal3,#,32)) return
  if $chan(0) >= 1 { set %difi $regsubex($dde(mirc,channels),/\*/,$null) }
  who +c $token(%difi,1,32)
}
raw 352:*:{ 
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if $me isop $2  $me ishop $2 { mode $2 +b $6 | kick $2 $6 («BadTara» Uygunsuz rumuz kullanmak yasak! Lütfen yeni rumuz seçiniz. }
      else { echo 06 -a $+([,$2,]) kanalında $qt($6) Badnick tanımına uyuyor... }
    }
  }
}
raw 315:*:{
  if %difi {
    haltdef
    set %difi $deltok(%difi,1,32)
    if $numtok(%difi,32) == 0 { unset %difi }
    else { who +c $token(%difi,1,32) }
  }
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Muaf Kanal/Nick Giriş Çıkış Bilgisi Kanal ve Özelde Komut Yardımı	Goemon	Conference Room (CR)	4	01 Şubat 2016 02:03
!BadTara	FirariSevdam	mIRC Scripting Sorunları	1	26 Temmuz 2014 09:35
Bu kodu kanaL Kick+ban kanal opLarı icin nasıl düzenleriz	Tinba	mIRC Scripting Sorunları	4	12 Mart 2013 07:19
!kanalekle global #kanal-adı yazınca ßot Kanal.txt'ye kaydetsin	Smith	mIRC Scripting Sorunları	10	20 Mart 2009 13:14
kanal a /cs access #kanal list çekinde services gidiyor neden ola bilir :(	EEkreMM	Servisler	3	07 Ocak 2008 17:39

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.