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/)
-   -   Badnick Korumasina Ek (https://www.ircforumlari.net/mirc-scripting-sorunlari/481616-badnick-korumasina-ek.html)

By_ATMACA 12 Mayıs 2012 15:07
Badnick Korumasina Ek
 
Kod:
lias Bads { dialog -m Bads Bads }
#shitlizt on
on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#:{
  if ($nick != $me) {
    qline $nick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
    if (%banx == !) { /qline # $$1 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız. | /qline $$1 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.) }
  }
}
#shitlizt end
dialog Bads {
  title "[ Bad Nick / Düşman Menü ]"
  size -1 -1 385 340
  button "&Kapat", 1, 323 198 58 30,ok
  list 2, 165 20 210 135, sort
  box "Düşman Listen", 3, 160 5 220 145
  edit "", 4, 165 165 210 20, autohs
  box "Eklenecek Nicki Yazınız", 5, 160 150 220 45
  button "E&kLe", 6, 160 200 50 20
  box "Note:", 7, 160 225 220 35
  text "Nick Üzerinde Çift Tıklamak Siler", 8, 190 240 180 45 
  box "Ban Seçin", 9, 5 5 150 225
  radio " 0: *!user@host", 10, 20 20 120 20
  radio "1: *!*user@host", 11, 20 40 120 20
  radio "2: *!*@host", 12, 20 60 120 20
  radio "3: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 13, 20 80 120 20
  radio "4: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 14, 20 100 120 20
  radio "5: nick!user@host", 15, 20 120 120 20
  radio "6: nick!*user@host", 16, 20 140 120 20
  radio "7: nick!*@host", 17, 20 160 120 20
  radio "8: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 18, 20 180 120 20
  radio "9: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 19, 20 200 120 20
  box "Giriş Yaptığında:", 20, 5 235 150 75
  check "Sadece Kick", 21, 20 255 100 20
  check "Kick+Ban", 22, 20 275 100 20
  button "De&fault", 23, 215 200 50 20
  button "&Özellik", 24, 270 200 50 20
  edit "", 26, 165 280 210 20, autohs
  box "Kick Mesajınız", 25, 160 265 220 45
  button "Düşman Listesi Açık", 27, 5 315 180 20
  button "Düşman Listesi Kapalı", 28, 200 315 180 20
}
alias shitdefmsg { return  4Bad Nick / Düşman Listemdesin.! }
alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads
alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren İstenmeyen Kişiler Kick Sebebiyle Birlikte Kanaldan Atılır.
on *:dialog:Bads:dclick:2:{ /.ruser 666 $did(2).seltext | did -d Bads 2 $did(2).sel }
on *:dialog:Bads:sclick:6:{ if ($did(4) != $null) { did -a Bads 2 $did(4) | .auser 666 $did(4) | did -fr Bads 4 } }
on *:dialog:Bads:sclick:10:{ set %mazk 0 }
on *:dialog:Bads:sclick:11:{ set %mazk 1 }
on *:dialog:Bads:sclick:12:{ set %mazk 2 }
on *:dialog:Bads:sclick:13:{ set %mazk 3 }
on *:dialog:Bads:sclick:14:{ set %mazk 4 }
on *:dialog:Bads:sclick:15:{ set %mazk 5 }
on *:dialog:Bads:sclick:16:{ set %mazk 6 }
on *:dialog:Bads:sclick:17:{ set %mazk 7 }
on *:dialog:Bads:sclick:18:{ set %mazk 8 }
on *:dialog:Bads:sclick:19:{ set %mazk 9 }
on *:dialog:Bads:sclick:21:{ if (%banx == !) { unset %banx | did -u Bads 22  } | else { set %banx ! | did -c Bads 22 } }
on *:dialog:Bads:sclick:22:{ if (%banx == $null) { set %banx ! | did -u Bads 21 } | else { unset %banx | did -c Bads 21 } }
on *:dialog:Bads:sclick:23:{
  set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c Bads 12,22
  did -a Bads 26 %shitkickmsg | did -u Bads 10,11,13,14,15,16,17,18,19,21
}
on *:dialog:Bads:sclick:24:{ s_about_s }
on *:dialog:Bads:edit:26:{ set %shitkickmsg $did(26) }
on *:dialog:Bads:sclick:27:{ .enable #shitlizt | did -e Bads 21,22 }
on *:dialog:Bads:sclick:28:{ .disable #shitlizt | did -b Bads 21,22 }
on *:dialog:Bads:init:*:{
  if ($group(#shitlizt) == off) { did -b Bads 21,22 }
  if (%mazk == 0) { did -c Bads 10 }
  if (%mazk == 1) { did -c Bads 11 }
  if (%mazk == 2) { did -c Bads 12 }
  if (%mazk == 3) { did -c Bads 13 }
  if (%mazk == 4) { did -c Bads 14 }
  if (%mazk == 5) { did -c Bads 15 }
  if (%mazk == 6) { did -c Bads 16 }
  if (%mazk == 7) { did -c Bads 17 }
  if (%mazk == 8) { did -c Bads 18 }
  if (%mazk == 9) { did -c Bads 19 }
  if (%banx == $null) { did -c Bads 21 }
  if (%banx == !) { did -c Bads 22 }
  did -a Bads 26 %shitkickmsg
  if ($ulist(*,666,0) != $null) {
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,666,0)) {
      inc %cnt.shit 1
      did -a Bads 2 $ulist(*,666,%cnt.shit)
    } 
    unset %cnt.shit
  }
}
alias badnick { /qline $$1 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.  | halt }
#blacklist on
on +@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#: { badnick $nick }
#blacklist end
on *:dialog:Bads:*:*:{
  dll dll/mdx.dll SetMircVersion $version | dll dll/mdx.dll MarkDialog $dname
  dll dll/mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,25,27,28, 12 700 Tahoma
  dll dll/mdx.dll SetFont  +b 3,26,27 700 Tahoma
}
Ben SoyLe Bir Badnick Korumasi KuLLaniorum Buna Ek oLarak
Ben Kanallda oP oLmasam Dahi Devreye Girmesini istiyorum.
KanaLa Girdigimde KanaLi tarayip KaraListemddekiLere qLine atmak istiyorum.
Birde KanaLda Nick Degistirip Badnick oLan kısıLerın Karalistemde ise qline atmak isyorum

q0kh4n 13 Mayıs 2012 08:37
Cevap: Badnick Korumasina Ek
 
PHP- Kodu:
alias badnicktara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick($1,0) {
    %:gnick = $nick($1,%s)
    if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {
      inc %:bulunan 1
      mode $1 +b %:gnick
      kick $1 %:gnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
    }
    inc %s
  }
  echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}

on *:nick: {
  if $level($newnick $+ !*@*) == 666 {
    qline  $newnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
  }
}

on *:join:#: {
  if $nick == $me {
    badnicktara #
  }
} 

istediklerin tam oalrak bu. forumda zaten mevcur olan kodlardı istediğin şekilde düzenledim. hangi kanala girersen badnick listen taranacak kanaldan atılacaklar bunun için en az ircop olman gerek. yoksa sıkıntı yaşarsın

By_ATMACA 13 Mayıs 2012 15:38
Cevap: Badnick Korumasina Ek
 
Alıntı:
q0kh4n Nickli Üyeden Alıntı (Mesaj 1041117290)
PHP- Kodu:
alias badnicktara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick($1,0) {
    %:gnick = $nick($1,%s)
    if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {
      inc %:bulunan 1
      mode $1 +b %:gnick
      kick $1 %:gnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
    }
    inc %s
  }
  echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
 
on *:nick: {
  if $level($newnick $+ !*@*) == 666 {
    qline  $newnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
  }
}
 
on *:join:#: {
  if $nick == $me {
    badnicktara #
  }
} 

istediklerin tam oalrak bu. forumda zaten mevcur olan kodlardı istediğin şekilde düzenledim. hangi kanala girersen badnick listen taranacak kanaldan atılacaklar bunun için en az ircop olman gerek. yoksa sıkıntı yaşarsın
Dostum Kod guzeL ÇaLişior Fakat KanaLa Girişte BadnickLeri Taramior.

q0kh4n 13 Mayıs 2012 18:09
Cevap: Badnick Korumasina Ek
 
sen kanala girinde girdiğin kanalı tarayacak dimi eğer öyleyse çalışması lazım kodda sorun yok

Prens 14 Mayıs 2012 10:35
Cevap: Badnick Korumasina Ek
 
Peki burada, badnick.txt 'te bulunan nick'leri mi tarayıp atıyor?

Bence kodun mantığı şu olmalı;

Kimi korumalar sunucudan atıyor, user kaybına neden olmaması için, bunun yerine; kişinin nick'i Frozen/yasaklanmalı yasaklanması halinde zaten otomatikmen Guest12345 olur. Bu şekilde kanalda kalmasında sakınca olmaz ve bir daha o nick'i zaten başkasınında kullanmasına engel olunmuş olur.

By_ATMACA 17 Mayıs 2012 21:03
Cevap: Badnick Korumasina Ek
 
Alıntı:
q0kh4n Nickli Üyeden Alıntı (Mesaj 1041117600)
sen kanala girinde girdiğin kanalı tarayacak dimi eğer öyleyse çalışması lazım kodda sorun yok
Her KanaLda ayni işlevi görüyor Bu sekilde
20:55:36) • Giris : asds (By_ATMACA@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].SunuCu.Com)
2 Badnickler tarandi: #Deneme - 0 badnick bulundu.
»»» • Topic •
»»» • Tarih • Tue May 08 13:06:43 2012
»»» • Topic Kurucu • By_ATMACA
»»» Kanal Modları +nrst

q0kh4n 17 Mayıs 2012 23:13
Cevap: Badnick Korumasina Ek
 
iyide sen muaf kanal istemedin ki girdiğim kanalı tarasın dedin :)

By_ATMACA 18 Mayıs 2012 02:27
Cevap: Badnick Korumasina Ek
 
Bende onu diyorum 2 badnick tarandi bulunan badnick 0 diyor her seferin de hata var bi yerde ? :)

q0kh4n 18 Mayıs 2012 10:58
Cevap: Badnick Korumasina Ek
 
hata falan yok bende kullanıyorum o kodu gayet sağlıklı çalışıyor. join kısmını silip

PHP- Kodu:
on *:input:#:if $1 == !tara { badnicktara $active } 
bulunduğun kanalda !tara dersen o kanalı tarar daha sağlıklı olur mircini açtığında kasma olmaz

By_ATMACA 18 Mayıs 2012 14:08
Cevap: Badnick Korumasina Ek
 
[14:06] <By_ATMACA> ¡†ara
2 Badnickler tarandi: #sohbet - 0 badnick bulundu. Tarananan Hep 2 BuLunan Hep 0 :)
Her seferinde Bunu Dio içerde 50 User oLsada Bunu 100 User oLsada Bunu dio Bunu anLatmaya ÇaLişiorum Sana.

q0kh4n 18 Mayıs 2012 15:13
Cevap: Badnick Korumasina Ek
 
ordaki 2 nin önünde ctrl + k yaparsan renk kodu gelir o yazıda lacivert çıkar yani ordaki 2 yi silsen bişey olmaz. bulunan badnick 0'a gelince badnick listende fazla badnick yok sanırım onun için hiç kimsey iatmıyo koruman. listeyi genişletmeyi dene faydası olur


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

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