İRC PAYLASİM www.ircpaylasim.tr.gg

http://ircpaylasim.tr.gg

İRCPAYLASİM SIK KULLANILANLARA EKLE!
   
  İRc Paylaşım
  Küfür Koruması
 

dialog kufur {
  title "Küfür Koruması [ NaTSuKa ]"
  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 == { 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 %_:
  }
}





Bu sayfa hakkındaki yorumlar:
Yorumu gönderen: eran, 16.09.2008, 12:58 (UTC):
vatana millete hayırlı rometelar tşk cano

Yorumu gönderen: Selam , 15.09.2008, 16:44 (UTC):
selam genc sevdım senı:D



Bu sayfa hakkında yorum ekle:
İsminiz:
Mesajın:

 
  Bugün 19 ziyaretçi (84 klik) kişi burdaydı! (2008-2009 © Copyright By Chaos ® Tüm Hakları saklıdır)  
 
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=