Kodeyi birbaşka kodeye çevirme.
 

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 == 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 %_:
}
}

Bu kodeyi badnick kodesine çevirme imkanımız var mı ?
Bu kodeden " Ayır, Opersem Kline, Opersem Kill " gibi seçeneklerinde çıkarabilirseniz çok iyi olur. Onların yerine OP oldugumda tarama yapmasını ayrılan kanal ve ayrılan nicklerdekini es geçmesini ve nick değiştiğinde badnickse ayrılan kanal ve ayrılan nicklerinden biri degilse atmasını istiyorum. Bu pc`nin kasılmasına neden olmaz dimi.? Yardımlarınız için çok teşekkürler...

İyi forumlar.

Cevap: Kodeyi birbaşka kodeye çevirme.
 

Meraklıuser Bu Cod'u Badnick Korumasına Cevirmek Yerine Yeniden Bir Cod yazmak Biraz daha Mantıklı Geliyor. Bu Code'yi Başka Bir Code'ye Cevirirken Yani Codları Değişirken Bazı Sorunlarla Karşılaşılabilir.