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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - /Badtara #kanal (https://www.ircforumlari.net/mirc-scripting-sorunlari/211730-badtara-kanal.html)

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... }

    }

  }

}

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...]

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

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) {

Cevap: /Badtara #kanal

değiştirme isteyen bişey yok orada b ana diyorsan

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.

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?

Cevap: /Badtara #kanal

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] inceleme imkanınız oldu mu.

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.