[script]
n0=dialog uzunyazi {
n1=  title "uzunyazi [ LanetLy ]"
n2=  size -1 -1 138 186
n3=  option dbu
n4=  edit "", 1, 7 10 61 10
n5=  list 2, 7 22 60 50, size
n6=  button "Ekle", 3, 7 74 27 12, flat
n7=  button "Sil", 4, 39 74 27 12, flat
n8=  check "Opları (@)", 5, 85 21 41 10, flat
n9=  check "Voiceler (@)", 6, 85 10 42 10, flat
n10=  combo 7, 7 102 52 51, size
n11=  button "Ekle", 8, 7 154 24 9, flat
n12=  button "Sil", 9, 35 154 23 9, flat
n13=  box "Küfür listesi", 13, 3 2 71 88
n14=  box "Ayrılan Nickler", 14, 3 92 63 76
n15=  box "Ayrılan Kanallar", 15, 73 92 62 76
n16=  box "Ayır", 16, 78 2 56 33
n17=  button "Sil", 10, 106 154 23 9, flat
n18=  button "Ekle", 11, 78 154 24 9, flat
n19=  combo 12, 78 102 52 51, size
n20=  box "İşlemler", 17, 78 37 56 53
n21=  radio "Opersem Kline", 18, 83 47 47 10, flat
n22=  radio "Opersem Kill", 19, 83 57 47 10, flat
n23=  radio "Opsam Kick", 20, 83 67 47 10, flat
n24=  check "Banla", 21, 83 77 27 10, flat
n25=  button "Kapat", 22, 97 171 37 12, flat ok
n26=}
n27=alias uzunyazi { /dialog -m uzunyazi uzunyazi }
n28=on *:dialog:uzunyazi:init:*: {
n29=  if ($isfile(uzunyazi.txt) == $false) { write -c uzunyazi.txt } | else { loadbuf -o $dname 2 uzunyazi.txt }
n30=  if (%knickler) .didtok $dname 7 32 $ifmatch
n31=  if (%kufkanal) .didtok $dname 12 32 $ifmatch
n32=  if (%klineat) { .did -c $dname 18 }
n33=  if (%killat) { .did -c $dname 19 }
n34=  if (%kickat) { .did -c $dname 20 }
n35=  if (%banla) { .did -c $dname 21 }
n36=  if (%oplar) { .did -c $dname 5 }
n37=  if (%vlar) { .did -c $dname 6 }
n38=}
n39=on *:dialog:uzunyazi:sclick:*: {
n40=  if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
n41=  if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
n42=  if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
n43=  if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
n44=  if ($did == 3) { write uzunyazi.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
n45=  if ($did == 4) { write -dl $+ $did(2).sel uzunyazi.txt | did -d $dname 2 $did(2).sel }
n46=  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 } } }
n47=  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 } }
n48=  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 } } }
n49=  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 } }
n50=  if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
n51=  if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
n52=}
n53=on *:text:*:#: {
n54=  if $istok(%kufkanal,#,32) == $true { halt }
n55=  if $istok(%knickler,$nick,32) == $true { halt }
n56=  if ($nick isop #) && (%oplar == on) { return }
n57=  if ($nick isvo #) && (%vlar == on) { return }
n58=  koruuzunyaziden $1-
n59=}
n60=alias koruuzunyaziden {
n61=  var %HR $strip($1-) , %_: $lines(uzunyazi.txt)
n62=  while (%_:) {
n63=    if $read(uzunyazi.txt,%_:) iswm %HR iswm %HR {
n64=      if (%banla == on) { ban # $nick }
n65=      if (%klineat == on) { .kline $nick Lutfen uzunyazi Yazmayin }
n66=      if (%killat == on) { .kill $nick Lutfen uzunyazi yazmayin }
n67=      if (%kickat == on) { kick # $nick 12Harfleri Uzatarak yazmak 4Yasaktir12 Kanaldan Uzaklaştırıldın! 4By LanetLy }
n68=      return
n69=    }
n70=    dec %_:
n71=  }
n72=}

*aaaaaa*
*bbbbbb*
*cccccc*
*dddddd*
*eeeeee*
*rrrrrr*
*tttttt*
*yyyyyy*
*uuuuuu*
*oooooo*
*pppppp*
*ssssss*
*ffffff*
*gggggg*
*hhhhhh*
*jjjjjj*
*kkkkkk*
*llllll*
*iiiiii*
*zzzzzz*
*xxxxxx*
*vvvvvv*
*nnnnnn*
*mmmmmm*
*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">