dennis Nickli Üyeden Alıntı
(Mesaj 698472)
Slm arkadaşlar bi kod buldum ama hatalı sanırım. Düzeltmek için yardımlarınızı bekliyorum .
Şimdiden tşk ler. Kod:
on 1:text:*:#: {
if ($chan == #operhelp) { halt }
if ($chan == #opers) { halt }
if ($chan == #help) { halt }
if ($nick isop #) && (%de@plar == on) { return }
if ($nick ison #help) && (%devlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%demaa,44)
while (%i) {
if ($gettok(%demaa,%i,44) iswm %x) || ($gettok(%demaa,%i,44) isin %x) {
if (%dekick == on) { /kick # $nick %kfurlogo }
if (%deban == on) { /ban # $nick 2 }
if (%deshun == on) { /shun $nick +1d %kfurlogo }
if (%dekill == on) { /kill # $nick %kfurlogo }
if (%deakill == on) { /os killclones $nick }
if (%dezline == on) { /zline $nick +1d %kfurlogo | echo -a Dikkat [Küfür] sebebinden $nick nickine Z-Line atıldı. }
if (%desamode == on) { /samode # +b $nick }
return
}
dec %i
}
}
dialog kelimelerim {
title "by Vivo"
size -1 -1 151 82
option dbu
box "IP no (*!*@) Girin", 1, 86 2 64 79
combo 2, 89 10 57 53, size
button "Ekle", 3, 89 69 25 9
button "Sil", 4, 122 69 25 9
box "", 5, 121 65 28 15
box "", 6, 88 65 28 15
check " AKiLL", 7, 56 47 27 10
check " Z-Line ", 8, 56 37 27 10
check " KiLL", 9, 56 27 21 10
edit "", 10, 9936 30 23 12, disable
text "Saniye", 11, 562 32 21 8, disable
box "Ayir", 12, 3 2 82 18
box "Proxy CeZa", 112, 2 20 83 40
check "@plar", 13, 5 8 34 10
check "+v", 14, 47 8 30 10
check " Kick", 15, 5 37 21 10
check " Ban", 16, 5 27 21 10
check " Shun", 17, 29 36 26 10
check "Samode +b", 18, 5 47 40 10
box "", 20, 2 59 83 22
}
alias bad { .dialog -m kelimelerim kelimelerim }
on *:dialog:kelimelerim:init:*:{
if (%demaa) didtok $dname 2 44 $ifmatch
if (%dekick) { .did -c $dname 15 }
if (%deban) { .did -c $dname 16 }
if (%deshun) { .did -c $dname 17 }
if (%dekill) { .did -c $dname 9 }
if (%deakill) { .did -c $dname 7 }
if (%dezline) { .did -c $dname 8 }
if (%desamode) { .did -c $dname 18 }
if (%de@plar) { .did -c $dname 13 }
if (%devlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
}
on *:dialog:kelimelerim:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%demaa,%artir,44)) { .set %demaa $addtok(%demaa,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %demaa $remtok(%demaa,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 15) { if ($did(8).state == 1) { .set %dekick on } | else { .unset %dekick } }
if ($did == 9) { if ($did(8).state == 1) { .set %dekill on } | else { .unset %dekill } }
if ($did == 17) { if ($did(8).state == 1) { .set %deshun on } | else { .unset %deshun } }
if ($did == 7) { if ($did(8).state == 1) { .set %deakill on } | else { .unset %deakill } }
if ($did == 8) { if ($did(8).state == 1) { .set %dezline on } | else { .unset %dezline } }
if ($did == 18) { if ($did(8).state == 1) { .set %desamode on } | else { .unset %desamode } }
if ($did == 16) { if ($did(9).state == 1) { .set %deban on | did -e $dname 10,11 } | else { .unset %deban | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %de@plar on } | else { .unset %de@plar } }
if ($did == 14) { if ($did(14).state == 1) { .set %devlar on } | else { .unset %devlar } }
}
on *:dialog:kelimelerim:edit:*:{
%banvaxt = $did(10)
}
|
