1- Konu Yanlış Yere Açılmış. İlgili Yetkililer İlgili ßölüme Taşır Umarım.
2- Eklediğin Küfürleri, Hash Tablosundan mı, Users(Kullanıcı) Kısmından mı, Dosyadan mı Okutacaksın? Önce ßuna Karar Vermelisin, Hash Kullanımını ßilmiyorsan, ßu ßiraz Zamanını Alabilir, Random Koruması Yapacaksan, Malum, Users Kısmına Hem ßadNick , Hem Küfür vs Ekleyeceğin İçin Onunda Kullanımını ßilmen Gerecekecek İyice, Çünkü Users İçin Text Event'i İçin Atayacağın Değer Diğerlerini Etkilemeli, Dosyadan Okutacaksan, Write İle Yazdırıp Silmen Lazım ßunun İçinde Gerek Help Dosyasından Gerekse Sağda Solda Araştırıp Öğrenmen Lazım...Öncelikle Hangi Koruma Sisteminden Yapacağına Karar Vermelisin..
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:dialog:koruma:sclick:*:{
;Eğer 2 Numaralı Did Kullanıldığında Ekle, ( kufur.txt vs )
if ($did = 2) { .işlemler }
;Eğer 3 Numaralı Did Kullanıldığında Sil, ( kufur.txtden mi artık nereden siliyorsa )
if ($did = 3) { .işlemler }
;Eğer 6 Numaralı Did Kullanıldığında Dialogu Kapat
if ($did = 6) { .Dialog -x koruma koruma }
}
vs vs vs.. ßana Sorarsan, Ne Tür ßir Ekleme Türü Yapacaksan Ona ßenzer Korumaları Araştır, Nasıl Yapıldığı Mantığına ßak İstersen.
ßir İki Tanesini Paylaşayım..
Sanırım Aşağıdaki IrCbaStarD'ın Kodu
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1dGNi9XeHQvZjUwL1hJPQ== }
alias k_start {
hmake $1 $2
hload $1 $+(remote\save\,$1,.save)
}
alias kstart {
k_start kufur 1000
}
on *:start: { kstart }
on *:text:*:#: {
if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
if $hfind(kufur,$1-,1,W).data {
ban -u900 # $nick 2 | .kick # $nick %kufur.yazi
echo -s + $timestamp $+ $nick $+ $chan Kanalından Küfür Sebebinden Atılmıştır.
}
}
}
alias kekle {
hadd -m kufur $calc($hget(kufur,0).item + 1) $1-
hsave kufur remote\save\kufur.save
}
alias yasak { dialog -m yasak yasak }
dialog yasak {
title "Yasak Kelimeler..."
size -1 -1 205 210
option pixels
edit "", 2, 121 19 68 23, multi return
button "Ekle", 3, 121 60 60 17, flat
button "Sil", 4, 121 86 60 17, flat
button "Tamam", 5, 122 115 60 17, flat ok
list 1, 11 18 103 183, size
icon 6, 136 153 32 32
box "", 7, 5 6 188 202
}
on *:dialog:yasak:sclick:*:{
if ($did = 4) {
hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data
hsave kufur remote\save\kufur.save
deneme $dname
}
if ($did = 3) { kekle $did($dname,2) | deneme $dname }
}
alias deneme dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasak:init:0: {
var %x = 1
while (%x <= $hget(kufur,0).item) {
did -ac yasak 1 $hget(kufur,%x).data
inc %x
}
}
alias kaydet {
var %q 1
while (%q <= $hget(kufur,0).item) {
write kufur.txt $hget(kufur,%q).data
inc %q
}
}
İkinci ßir Örnek..
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#sweard on
on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) isin %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick %küfürkickmsg | .ban # $nick 2 }
if (%banet == on) { .kick # $nick %küfürkickmsg | .ban # $nick 2 }
return
}
dec %i
}
}
#sweard end
dialog swear {
title "Küfür Listesi"
size -1 -1 101 109
option dbu
box "", 1, 1 -1 99 109
combo 2, 4 5 63 97, size
button "Ekle", 3, 69 33 27 10
button "Sil", 4, 69 46 27 10
box "Ceza", 7, 6 209 84 45
check "Kick ", 8, 23 213 39 10
check "Ban ", 9, 41 204 32 10
edit "", 10, 77 209 23 12, disable
text "Ötekiler", 11, 115 205 21 8, disable
box "Haricinickler", 12, 16 207 84 31
check "oplar", 13, 6 232 77 10
check "+Voiceler", 14, 14 234 75 10
box "Kick Mesajı", 15, 2 212 182 27
edit "", 16, 13 221 174 13, autohs
button "Tamam", 5, 69 59 27 10, ok
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
vs vs vs .. Umarım İşine Yararlı ßilgiler Olur..
Hoşça Paylaşımlar.