Kanal Küfür Koruması
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
dialog kufur { title "Küfür Koruması [ SeeN ]" 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 %_: } } |