IRCDForum - IRC ve mIRC Kullanıcı Topluluğu  
Geri Git   IRCDForum - IRC ve mIRC Kullanıcı Topluluğu > IF- mIRC Scripting > mIRC Scripting Hazır Kodlar


Kanal Küfür Koruması

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.


Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
Konu Araçları Görünüm Modları
Old 05 Aralık 2023, 16:42   #1
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan Kanal Küfür Koruması

Kod
dialog kufur {
  title "Küfür Koruması"
  size -1 -1 138 186
  option dbu
  edit "", 1, 7 10 61 10
  list 2, 7 22 60 50, size
  button "Ekle", 3, 7 74 27 12, flat
  button "Sil", 4, 39 74 27 12, flat
  check "Opları (@)", 5, 85 21 41 10, flat
  check "Voiceler (@)", 6, 85 10 42 10, flat
  combo 7, 7 102 52 51, size
  button "Ekle", 8, 7 154 24 9, flat
  button "Sil", 9, 35 154 23 9, flat
  box "Küfür listesi", 13, 3 2 71 88
  box "Ayrılan Nickler", 14, 3 92 63 76
  box "Ayrılan Kanallar", 15, 73 92 62 76
  box "Ayır", 16, 78 2 56 33
  button "Sil", 10, 106 154 23 9, flat
  button "Ekle", 11, 78 154 24 9, flat
  combo 12, 78 102 52 51, size
  box "İşlemler", 17, 78 37 56 53
  radio "Opersem Kline", 18, 83 47 47 10, flat
  radio "Opersem Kill", 19, 83 57 47 10, flat
  radio "Opsam Kick", 20, 83 67 47 10, flat
  check "Banla", 21, 83 77 27 10, flat
  button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
  if (%knickler) .didtok $dname 7 32 $ifmatch
  if (%kufkanal) .didtok $dname 12 32 $ifmatch
  if (%klineat) { .did -c $dname 18 }
  if (%killat) { .did -c $dname 19 }
  if (%kickat) { .did -c $dname 20 }
  if (%banla) { .did -c $dname 21 }
  if (%oplar) { .did -c $dname 5 }
  if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
  if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
  if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
  if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
  if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
  if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
  if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
  if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
  if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
  if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
  if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
  if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
  if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
  if $istok(%kufkanal,#,32) == $true { halt }
  if $istok(%knickler,$nick,32) == $true { halt }
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  korukufurden $1-
}
alias korukufurden {
  var %HR $strip($1-) , %_: $lines(kufur.txt)
  while (%_:) {
    if $read(kufur.txt,%_:) iswm %HR iswm %HR {
      if (%banla == on) { .mode $chan +b $wildsite }
      if (%klineat == on) { .kline $nick Lutfen kufur etmeyin }
      if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
      if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
      return
    }
    dec %_:
  }
}

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29

Cevapla

Yer İmleri

Etiketler
kanal, koruması, küfür

Konu Araçları
Görünüm Modları

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı