Çevrimdışı

birde bu var.


rkadaşlar birde söyle bir sorunum var yardımcı olurmusunuz teşekkür ediyorum.

* /hmake: 'kufur' Tablosu zaten var (Satır 16, kufur.exe) ( ALDİĞİM HATA )

KODE :
Alıntı:
on *:text:*:#: {
if $istok(%muaf1,#,32) == $true { halt }
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
if $hfind(kufur,$1-,1,W).data {
if (%kuf1kick == 1) { .kick # $nick 4 %Kufursebeb | ban -u $+ %bantime # $nick 5 }
if {%kuf1kill == 1} { kill $nick 4Küfür Etmeyiniz Kanalda! }
if {%kuf1kline == 1} { kline $nick 4Küfür Etmeyiniz Kanalda! }
inc %istaKufur
inc %istabutun
}
}
}
alias k_start {
hmake $1 $2
hload $1 $+(Remote\Save\,$1,.save)
}
alias kstart {
k_start kufur 1000
}
on *:start: { kstart }


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 "Küfür Koruması"
size -1 -1 141 185
option dbu
edit "", 2, 67 62 69 12, multi return
list 1, 5 48 59 132, size
box "", 7, 2 41 137 143
list 3, 74 87 57 9, size
list 4, 74 102 57 9, size
list 5, 72 140 63 8, size
box "", 6, 2 -1 137 43
radio "Kick + Ban", 8, 6 6 88 8
radio "Opersem Kill", 9, 6 18 86 8
radio "Opersem Kline", 10, 6 30 87 8
}


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 }
if ($did = 5) { .timer 1 0 dialog -x $dname $dname }
if ($did = 8) { if ($did($dname,8).state == 1) { unset %kuf1* | set %kuf1kick 1 } | else { set %kuf1kick 0 } }
if ($did = 9) { if ($did($dname,9).state == 1) { unset %kuf1* | set %kuf1kill 1 } | else { set %kuf1kill 0 } }
if ($did = 10) { if ($did($dname,10).state == 1) { unset %kuf1* | set %kuf1kline 1 } | else { set %kuf1kline 0 } }
}

alias deneme .timer 1 0 .dialog -x $1 $1 | .timer 2 0 .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
}
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8,9,10 -12 700 Tahoma
mdx SetControlMDX $dname 3,4,5 ToolBar flat wrap arrows nodivider list > $bars
mdx SetBorderStyle 3,4,5
did -i $dname 5 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 5 1 bmpsize 16 16
did -i $dname 5 1 setimage icon large remote\dll\Kick.ico
did -a $dname 5 +a 1 Tamam \ Kapat $chr(9) $+ Tamam
did -i $dname 4 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage icon large remote\dll\del.ico
did -a $dname 4 +a 1 Listeden Sil $chr(9) $+ Sil
did -i $dname 3 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 3 1 bmpsize 16 16
did -i $dname 3 1 setimage icon large remote\dll\add.ico
did -a $dname 3 +a 1 Listeye Ekle $chr(9) $+ Ekle
if (%kuf1kick == 1) { did -c $dname 8 }
if (%kuf1kill == 1) { did -c $dname 9 }
if (%kuf1kline == 1) { did -c $dname 10 }
}