IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   /Badtara #kanal (https://www.ircforumlari.net/mirc-scripting-sorunlari/211730-badtara-kanal.html)

Skys 21 Mayıs 2009 20:57
/Badtara #kanal
 
/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:
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
Cevap: /Badtara #kanal
 
Kod:
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
Cevap: /Badtara #kanal
 
Tşk , Hocam eline sağlık..

Cihandar 22 Mayıs 2009 13:24
Cevap: /Badtara #kanal
 
Peki Kanal Belirtmeden Bulunduğum Tüm Kanalları Nasıl Tarabilirm ?

Difuzyon 24 Mayıs 2009 12:59
Cevap: /Badtara #kanal
 
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:
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
Cevap: /Badtara #kanal
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] süpersin :)

Fr33 08 Mart 2010 09:43
Cevap: /Badtara #kanal
 
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.
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 718000)
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:
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
Cevap: /Badtara #kanal
 
halfop iken çalışmasını istiyorum bunu nasıl ayarlıya bilirim tşkler.

Toprak 01 Aralık 2014 14:13
Cevap: /Badtara #kanal
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1041559456)
halfop iken çalışmasını istiyorum bunu nasıl ayarlıya bilirim tşkler.
Buyrun;

Kod:
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
Cevap: /Badtara #kanal
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 718000)
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:
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:
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) }
  }
}

muratt_aziz 02 Aralık 2014 18:36
Cevap: /Badtara #kanal
 
Kod:
raw 352:*:{
  if %difi {
    haltdef
    if $regex($level($6),/^(bad)$/) {
      if ($nick isop #) || ($istok(#Bulmaca #kanal2 #kanal3,$2,32)) return
      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... }
    }
  }
}

Feragat 02 Aralık 2014 21:52
Cevap: /Badtara #kanal
 
/who +c #Kanal sonucunda raw 352:*: 'nin verdiği cevaplarda $nick tanımı sunucu ismi olarak dönmektedir.
Ortaya; if (irc.sunucu.com isop #) gibi bir sonuç çıkacaktır. Bununda bize bir yararı olmayacaktır.

Kod:
raw 352:*:echo 4 -aetg $numeric $!6 Değeri:: $6  -- $!nick Değeri::- $nick
üstteki kodu ekleyip /who +c #kanal yaparak sonucu görebilirsiniz.

Ayrıca @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , Kodu yanlış kopyalamışsın, bir önceki sayfada paylaştığın kod'da bulunan koşul hatalı.
Kod:
if $me isop $2 $me ishop $2 {
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın paylaştığı gibi yapmalısın koşulu;
Kod:
if $me isop $2 || $me ishop $2 {
Olması gereken hali:

Kod:
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)$/) {
    ;Muaf #Kanal(lar) alttaki satıra eklenmeli.
      if ($istok(#kanal1 #kanal2 #kanal3,$2,32)) { halt }
      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) }
  }
}
- Herhangi bir hatayla karşılaşırsan bildirirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

muratt_aziz 03 Aralık 2014 15:15
Cevap: /Badtara #kanal
 
Kod:

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 ($6 isop $2) || ($istok(#k #kanal2 #kanal3,$2,32)) return
      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) }
  }
}
istediğin kod bu sanıyorum

Toprak 03 Aralık 2014 15:17
Cevap: /Badtara #kanal
 
Kod:
if $me isop $2 $me ishop $2 {
Olarak degil
Kod:
if $me isop $2 || $me ishop $2 {
Olarak düzeltin.

Kısaca;

Kod:
if $regex($nick($2,$me).pnick,/(@|&|%|~|\.)/i) {

muratt_aziz 03 Aralık 2014 15:29
Cevap: /Badtara #kanal
 
değiştirme isteyen bişey yok orada b ana diyorsan

Feragat 03 Aralık 2014 20:15
Cevap: /Badtara #kanal
 
Alıntı:
muratt_aziz Nickli Üyeden Alıntı (Mesaj 1041561567)
değiştirme isteyen bişey yok orada b ana diyorsan
Bu (2.) sayfanın en başındaki mesajında, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'in paylaştığı ve senin bir kısmına eklenti yaptığın kod'da aynı koşul hatalı yine. Onun için söylemiştir. Son attığın mesaj için değil.
Zaten @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] de hatalı paylaşmıştı, aynı şeyi ben de belirttim if koşulundaki (||) "veya" operatörünü kullanması gerektiğini. Şuan bir sorun yok, iyi forumlar.

Prens 04 Aralık 2014 13:06
Cevap: /Badtara #kanal
 
Bu kadar sizlere yük olmaktan dolayı öncelikle çok mahçubum. Sizlerin emeği,yardım sever kişiliğinizden dolayıda ne kadar teşekkür etsem az gelir. Merak ettim sorun badnick korumamda mı yoksa temin ettiğim badtarama da mı işin içinden affınıza sığınarak çıkamadım.

Badnick korumam;
Kod:
alias -l _buser { .guser blacklist $1 3 }
alias -l _rbuser { .ruser blacklist $1 3 }
alias -l _luser { dialog -m _blacklist _blacklist }
alias -l _blist {
  did -r _blacklist 11
  var %_btotal = $ulist(*,blacklist,0) , %_b = 0
  while (%_b < %_btotal) {
    inc %_b
    did -a _blacklist 11 $ulist(*,blacklist,%_b)
  }
}
alias karaliste /dialog -m _blacklist _blacklist
dialog _blacklist {
  title "Yasaklı Rumuz Listesi"
  size -1 -1 150 110
  option dbu
  text "Yasaklı Rumuz Ekleyin:" , 10 , 10 5 95 10 , left
  combo 11 , 10 15 95 85 , extsel sort autohs autovs
  edit "" , 12 , 10 95 95 10 , read autohs
  button "&Ekle" , 20 , 115 35 30 20 ,flat
  button "&Sil" , 30 , 115 60 30 20 , flat
  button "Tamam" , 40 , 115 85 30 20 , ok, flat
}
on *:dialog:_blacklist:init:*: {
  _blist
}
on *:dialog:_blacklist:sclick:*: {
  if ($did == 20) {
    if ($did(11).text != $null && $level($did(11).text) != blacklist) {
      var %_badd = $did(11).text
      .auser blacklist %_badd
      _blist
      did -o $dname 12 1 %_badd listeye eklendi.
    }
  }
  if ($did == 30) {
    if ($did(11).text != $null && $level($did(11).text) == blacklist) {
      var %_brem = $did(11).text
      .ruser blacklist %_brem
      _blist
      did -o $dname 12 1 %_brem listeden silindi.
    }
  }
}
#bd on
on !*:join:#: {
  if ($istok(nick1 nick2 nick3 TestOyun Radyo Kelime Oyuncu SoyleNet Soyle.Net Global NickServ MemoServ ChanServ Administrator,$nick,32)) { halt }
  if ($nick isop #) || ($istok(#mirchelp #kanal-devir #help #kontrol #bilgi #op #yönetim #operhelp #cinsellik #bulsende #oyun #bulmaca #yarisma #eglence,#,32)) return
  if ($chan == #cinsellik) { halt }
  if $ulist($nick,blacklist,*) || $ulist($nick,Filtre,*) { mode $chan +b $nick $+ !*@* | kick $chan $nick 1Uygunsuz rumuz kullanmak yasak! Lütfen yeni rumuz seçiniz. }
}

#bd end
menu * {
  Badnick - Ayarlar
  .Dialog Aç:/karaliste
  .Aç:.enable #bd | echo -a $timestamp 0,6|0,7|0,4 Badnick Koruması 0,6|0,7|0,2 Açık  0,6|0,7|
  .Kapat:.disable #bd | echo -a $timestamp 0,6|0,7|0,4 Badnick Koruması 0,6|0,7|0,2 Kapalı  0,6|0,7|
  .Durum< $iif($group(#bd) = on, Açık , Kapalı ) > :.
}
Buna ilaveten badtarama olarak hangisini ekleyim?

Prens 05 Aralık 2014 15:13
Cevap: /Badtara #kanal
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] inceleme imkanınız oldu mu.

Feragat 06 Aralık 2014 15:07
Cevap: /Badtara #kanal
 
Alıntı:
Prens Nickli Üyeden Alıntı (Mesaj 1041563321)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] inceleme imkanınız oldu mu.
İki kod'un birleştirilmiş halini PM attım.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk