Skaliteforum Sınırsız Paylaşım  

Geri git   Skaliteforum Sınırsız Paylaşım > İRCD - İRC > Mirc Scripting > Hazır Kodlar

Hazır Kodlar Scriptiniz için kullanabileceğiniz, kodlama bilginizi geliştirmenize yardımcı olacak hazır kodlar.

SKaliteForum Üye ol

 
 
Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 07-31-2009, 10:34 AM   #1
CaN
Kıdemli Üye
 
CaN - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Nov 2008
Bulunduğu yer: Türkiye
Mesajlar: 1.080
CaN is on a distinguished road
CaN - MSN üzeri Mesaj gönder CaN - YAHOO üzeri Mesaj gönder CaN isimli Üyeye Skype üzeri Mesaj gönder
Post İşte %100 kanal koruma remotesi

Tüm kodları mIRC (scriptinizde) alt-r / remote bölümüne paste (yapıştırınız).
NOT: kodları eklerken alt-r remote bölümünde dosya'dan yeni dosyayı tıklıyoruz ve her bir kodu her bir yeni sayfaya ekliyoruz, en altta verdiğim tüm kanallardan ban kodu için bu işlem geçerli değildir, tban kodunu alias bölümünde kodların en altına yapıştırabilirsiniz.
-----------------------------------------------------------------------
Bad nick ( kötü rumuz ) kodu.

Kod:
menu status,menubar,channel { 
  » Badnick Korumasi  ~
  ..$iif($group(#aeg) == on,$style(2)) aç:.enable #aeg | $input(Stil Yazi Tipi Aç?ld?,io,aeg)
  ..$iif($group(#aeg) == off,$style(2)) kapat:.disable #aeg | $input(Stil Yazi Tipi Kapat?ld?,io,aeg)
  .. Badnick Ekle { auser Badnick $$?=" Ekliyeceginiz Badnick Giriniz Örnek: *manyak* Seklinde " }
  .. Badnick Sil { ruser Badnick $$?=" Sileceginiz Badnick Giriniz Örnek: *manyak* Seklinde "  }
}

#aeg on
on @Badnick:join:#: {
  if $nick == $nick {
    mode $chan +b $nick $+ *!*@*
    kick $chan $nick 2Lütfen Nick Degistiriniz ( 4/nick YeniNick2 )
    echo -a %logo 4 $ulist($nick) 12Listesindeki 4 $nick 12Badnick 4 $chan 12 Kanalina Girmistir
  }
}
#aeg end

Küfür koruma kodu.

Kod:
menu channel,status,menubar {
  ® Koruma ßy CaN
  .GösTeR:.dialog -m king king
  .Aç:.enable #real | .enable #real2 | echo -a 9,1Korumalar Aktif Edildi Lütfen Ban Ayarlarinizi Kontrol 

Ediniz!.
  .Kapat:.disable #real | .disable #real2 | echo -a 8,1 Korumalar ?uanda Pasif Konumda....
}
dialog king {
  title " . . . . . : : : : : Küfür Koruma : : : : : . . . . "
  size -1 -1 190 208
  option dbu
  button "EKLE", 2, 82 8 19 9
  button "SiL", 3, 105 8 19 9
  edit "", 4, 4 167 184 10, autohs
  button "< < KAYDET / ÇIK > >", 5, 52 183 77 22, ok
  box "BiLGi ALANI << BY: ReaL_KinG >>", 7, 81 103 106 61
  radio "SADECE BAN", 6, 82 33 48 10, push
  radio "KONU?AMASIN", 8, 134 47 48 10, push
  radio "KiCK + BAN", 9, 82 47 48 10, push
  radio "SADECE KiCK", 10, 134 33 48 10, push
  edit "", 11, 99 89 53 10, autohs
  check "Ban Süresini Belirlemek istiyorum", 12, 82 66 103 10
  text "BAN SÜRESi SN.", 13, 99 79 52 8, center
  edit "", 1, 5 8 72 10 , autohs
  list 14, 5 19 73 146, size
  text "", 16, 82 111 103 52
}
on 1:dialog:king:*:*:{
  if ($devent == sclick) {
    if ($did == 2) {
      var %ekle $did(1).text 
      if (%ekle == $null) { halt $input(Eklemek için Birseyler Yazmalisin,owud,HATA) }
      elseif $read(küfür.txt,w,%ekle) { halt $input(Ekelemek istediginiz Kelime Listede 

Mevcut,oiud,B?LG?) }
      else { write küfür.txt %ekle | did -a $dname 14 $did(1).text | did -r $dname 1 $did(1).text | did 

-a $dname 16 Kelime Basari ile Eklendi }
    } 
    if ($did == 3) {
      if ($did(14).sel == 0) { halt $input(Seçim Yapmadan Silenide ilk Kez Görüyorum,owud,HATA) }
      else { write -dl $+ $did(14).sel küfür.txt | did -d $dname 14 $did(14).sel }
    }
    if ($did == 6) {
      if ($did(6).state == 1) { set %ban sadeban | set %bantip ban -u | .enable #real | .disable #real2 }
    }
    if ($did == 8) {
      if ($did(8).state == 1) { set %ban konusma | .enable #real2 | .disable #real | did -b $dname 11 | 

did -u $dname 12 | halt $input(Bu Ban Tipini Kullanirsaniz Süre Kullanamazsiniz!,oiud,BiLGi) } 
    }
    if ($did == 9) { 
      if ($did(9).state == 1) { set %ban kickban | set %deger kick | .enable #real | .disable #real2 } 
    }
    if ($did == 10) {
      if ($did(10).state == 1) { set %ban kick | unset %bantip .enable #real | .disable #real2 | did -b 

$dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullanirsaniz Süre Kullanamazsiniz!,oiud,BiLGi) 

} 
    }
    if ($did == 12) {
      if ($did(12).state == 1) { set %süre aç?k | did -e $dname 11 }
      if ($did(12).state == 0) { set %süre kapal? | did -b $dname 11 }
    }
    if ($did == 5) {
      if ($did(4) == $null) { halt $input(Kick Mesaj? Belirlemediniz!!,oiud,BiLGi) }
      if ($did(11) == $null) && ($did(12).state == 1) { did -u $dname 12 | did -b $dname 11 | set %süre 

kapal? | halt $input(Zaman Belirlemedi?iniz için Ban Tipi Süresize Çevirildi,oiud,BiLGi) }
      else { set %kickmsg $did(4) | set %zaman $did(11) }
    }
  }
  if ($devent == init) {
    loadbuf -o $dname 14 $shortfn(küfür.txt)
    if (%ban == sadeban) { did -c $dname 6 | unset %de?er }
    if (%ban == konu?ma) { did -c $dname 8 }
    if (%ban == kickban) { did -c $dname 9 }
    if (%ban == kick) { did -c $dname 10 | unset %bantip | unset %zaman | did -b $dname 11 } 
    if (%süre == aç?k) { did -c $dname 12 }
    if (%süre == kapal?) { did -b $dname 11 | unset %zaman }
    did -a $dname 4 %kickmsg
    did -a $dname 11 %zaman
  } 
  if ($devent == mouse) {
    if ($did == 6) did -ra $dname 16 Bu Seçenegi Tikladiginizda Eger Süre Belirtirseniz Kişi Sadece 

Belirlediginiz süre Boyunca Ban 'li Kalir.. Eger Süre Belirlenmemis ise Ban Chan Serv Yada Manuel 

Çözülebilir..
    if ($did == 8) did -ra $dname 16 Bu Seçenegi Tikladiginizda Süre belirtemezsiniz.. Kisi Kanala Girip 

Çikabilir Fakat Kanala Yazi Yazamaz..
    if ($did == 2) did -ra $dname 16 Bu Buton ile istedi?iniz Bir Kelimeyi Listenize Ekleyebilirsiniz.. 

Kelimenin Basina (*) isaretini Koyarsaniz Kelimeden Önce Yazilan Yaziyida Kapsar. Eger Sonuna (*) isareti 

Koyarsaniz Kelimeden Sonra Yazilan Yaziyida Kapsar.. Eger iki Tarafada Yildiz Koyarsaniz Kelimeyi Yazilan 

Metnin içinde Arar. 
    if ($did == 3) did -ra $dname 16 Bu Buton ile Listede Seçilmis Olan Kelimeyi Silebilirsiniz.. Eger 

Listeden Seçim yapilmadiysa Silemezsiniz.. Silmek için Bir Kelime Seçmek Zorunludur.. 
    if ($did == 9) did -ra $dname 16 Bu Seçene?i Tikladiginizda Eger Süre Belirtirseniz Kisi Kanaldan Hem 

BAN 'lanir Ve Kick Edilir.Belirtilen Sürenin Sonunda BAN Kendi Çözülür.. Eger Süre Belirtilmemis ise Ban 

Chan Serv Yada Manuel Çözülebilir.. 
    if ($did == 10) did -ra $dname 16 Bu Seçenegi Tikladiginizda Süre Belirtemezsiniz.. Kisi Sadece 

Kanaldan Kick Edilir.. Büyük Bir ihtimalle Tekrar Gelecektir.. 
    if ($did == 14) did -ra $dname 16 Bu Liste Sizin Eklemek istediginiz Kelimeleri Gösterir.. Eger Ayni 

Kelimeyi Eklemek isterseniz Sizi Uyarir..
    if ($did == 5) did -ra $dname 16 Bu Buton Tikladiginizda Eksik yada Yanliz Birseyler Var ise Size 

Uyari Verecektir.. Ve Ayarlari Kaydedip ileti Kutusunu Kapatir..
    if ($did == 12) did -ra $dname 16 Bu Seçenek BAN Tipi Seçtiginizde Size BAN Süresi Belirlemek Gibi 

Bir Seçenek Sunar.. E?er Süre Belirtilmeyen Bir BAN Tipi Seçerseniz Otmatik Ayarlanir.. 
    if ($did == 1) did -ra $dname 16 Listeye Eklemek istedi?iniz Kelimeyi Buraya Yaziniz.. Varolan 

Kelimeleri Eklemezsiniz...
  if ($did == 11) did -ra $dname 16 Bu Kutucuga Ban Süresini Yazabilirsiniz.. Eger Harf Girmeyi 

Denerseniz Bu Mümkün Olmayacaktir.. Sadece Rakam Olarak Ban Süresi .sn Olarak Yazilabilir. Yada Bos 

Birakilir.. örnek : 600 }
  if ($did == 4) did -ra $dname 16 Bu Kutucuga Kendi Kick Mesajinizi Yazabilirsiniz.. Kisi Kanaldan Sizin 

Tarafinizdan Kick Edilirse Bu Mesaj Görüntülenir.. Karizma Birsey Olmasi sartiyla 
  if ($devent == edit) {
    if ($did == 11) && ($did(11) !isnum) did -r $dname 11
  }
}
#real on
on 1@:TEXT:*:#:{
  var %t 1
  while (%t <= $lines(küfür.txt)) {
    if ($read(küfür.txt,%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %de?er $chan $nick %kickmsg 

}
    inc %t
  }
}
#real end
#real2 off
on 1@:TEXT:*:#:{
  var %t 1
  while (%t <= $lines(küfür.txt)) {
    if ($read(küfür.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* }
    inc %t
  }
}
#real2 end
#real on
on 1@:ACTION:*:#:{
  var %t 1
  while (%t <= $lines(küfür.txt)) {
    if ($read(küfür.txt,%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %de?er $chan $nick %kickmsg 

}
    inc %t
  }
}
#real end
#real2 off
on 1@:ACTION:*:#:{
  var %t 1
  while (%t <= $lines(küfür.txt)) {
    if ($read(küfür.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* }
    inc %t
  }
}
Extra Küfür & Kötü rumuz Koruma sistemi; bu kod ile dilediğimiz yasaklı nick & kelimeleri scriptimize ekleyebiliriz.

Kod:
alias CaN {
  if !$istok(isimsiz ,$1,32) { return $false }
  goto $1
  :isimsiz
  var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $CaN(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }
}
on @*:text:*:#:if $CaN(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanimi }

alias CaN { dialog -m CaN CaN }
dialog CaN {
  title "BadNick & Kufur Koruma Sistemi ßy CaN"
  size -1 -1 226 102
  option dbu
  list 2, 38 22 70 58, size
  list 5, 118 22 70 58, size
  edit "", 10, 38 12 70 10
  edit "", 11, 118 12 70 10
  box "BAD NICK", 6, 5 3 107 81
  box "KUFUR", 7, 114 3 107 81
  button "T A M A M", 1, 38 87 148 12,ok
  button "EKLE", 3, 10 14 24 28
  button "KALDIR", 4, 10 45 24 28
  button "EKLE", 8, 192 14 24 28
  button "KALDIR", 9, 192 45 24 28
}
on *:dialog:CaN:INIT:*: {
  if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } 
  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } 
  if (%badnick) .didtok $dname 2 32 $ifmatch 
  if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:CaN:sclick:*:{
  if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
  if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
  if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } 
  if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }

}
on *:dialog:CaN:sclick:1:{ 
  set %badnick $didtok($dname,2,44)
  set %kufur $didtok($dname,5,44)
}
Tekrar/flood koruması.

Kod:
;$_isrepeat(nick,#kanal,text,tekrar,saniye)
alias _isrepeat {
  if ($isid) {
    inc %prot.repeat. $+ $2 $+ . $+ $1 $+ . $+ $encode($3,m)
    if (!$timer($+(prot.repeat.,$2,.,$1,.,$encode($3,m))) ) { $+(.timerprot.repeat.,$2,.,$1,.,$encode($3,m)) 1 $5 unset $+(%,prot.repeat.,$2,.,$1,.,$encode($3,m)) }
    if (%prot.repeat. [ $+ [ $2 ] $+ ] . [ $+ [ $1 ] $+ ] . [ $+ [ $encode($3,m) ] ] >= $4) { unset $+(%,prot.repeat.,$2,.,$1,.,$encode($3,m)) | return $true }
    else { return $false }
  }
}
on @*:text:*:#:{ if $nick isreg # && $_isrepeat($nick,#,$remove($strip($1-),$chr(32)),3,5) { ban -k # $nick 2Çok fazla tekrar etme }
Tüm kanallardan ban kodu. ( Scriptimizde alt-r / alias bölümüne yapıştırıyoruz. )
Kod:
/Tban {
  var %? $comchan($1,0)
  while (0 < %?) {
    if ($me isop $comchan($1,%?)) {
      ban $comchan($1,%?) $1 
      kick $comchan($1,%?) $1
    }
    dec %?
  }
Lütfen sorunlarınızı bana iletiniz.
__________________
Farkını keşfetmeye hazır mısın?
Forum adresimiz; www.Skaliteforum.com
Sohbet chat portalımız; www.Sohbetkalite.com
Sunucuya irc üzerinden bağlanmak ve Resmi mIRC'imizi edinmek için; www.Sohbetkalite.com/Skalite.exe adresinden yararlanabilirsiniz.


http://www.fenerbahcemaclari.com/images/ankaragucu.jpg

Konu CaN tarafından (07-31-2009 Saat 10:56 AM ) değiştirilmiştir.
CaN isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
 

Bookmarks

Etiketler
kanal, koruma, remotesi, İşte


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı

Hizli Erisim

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
ortak kanaL nasılmı Bronx Hazır Kodlar 1 02-24-2009 03:54 PM
AsLi Karakter Remotesi Bronx Hazır Kodlar 0 02-02-2009 09:44 AM
İtitraf ediyorum koruma botlarını pek sevmem SyBeR Geyiklerin Efendisi 1 09-21-2008 08:44 PM
i$te herkes'in Sorduğu yazı Remotesi Bronx Hazır Kodlar 0 08-24-2008 06:35 PM
Saldırılara karşı koruma SyBeR Hazır Kodlar 0 08-06-2008 05:10 PM

SKaliteForum Sistem Bilgileri Yasal Uyarı
sohbetalmanya sohbetavrupa sohbetavrupa sohbet
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
vBulletin 3.7.2 Türkçe Yapımcı : Skaliteforum.COM


Sohbet sitelerimiz : sohbet

SKaliteForum Forum içerisinde yazılan tüm yazılardan kullanıcının kendisi mesuldur. Herhangi bir şikayet , istek , bilgi için admin@skaliteforum.com adresine mail atabilirsiniz.

SKaliteForum | Bilgi Paylasim Platformudur


WEZ Format. Şuan Saat: 07:41 AM.




canli casino bahis siteleri

ümraniye escort istanbul escort