dialog kufur {
  title “Küfür Koruması [ SoyLe.Net]“
  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 { /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 2Lutfen kufur etmeyin }
      if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
      if (%kickat == on) { .kick $chan $nick 2Kanal genelinde uygunsuz hareket }
      return
    }
    dec %_:
  }
}

 

not: ALT + R Remote kısmına ekleniyor

paneli acmak için kodu ekledikten sonra /kufur yazmanız yeterli

Etiketler: Mirc Hazır Kodlar, kanal küfür koruması, küfür, küfür koruması | Yorum Yap