Çevrimiçi

Merhaba arkadasLar Küfür korumasına kelime eklemeye calıştıgımda hata veriyor..

verdiği hata:

* /dialog: 'yasak' Isim kullanılıyor (Satır 41, script20.ini)


kod bu
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 }
}


hatayı bulamadım.. bu konuda yardımcı olurmusunuz

 

Çevrimdışı

on *:dialog:yasak:init:0: {

bu ID de başka bir dialog daha var, yada aynı kod iki remote'da ekli.

__________________
2b|!2b=?

 

Çevrimiçi

CoCoRiCo Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:dialog:yasak:init:0: { bu ID de başka bir dialog daha var, yada aynı kod iki remote'da ekli.

CoCoRiCo Hocam bende o şekilde düşündüm scriptte tüm dosyalara baktım fakat o şekilde birşey bulamadım. şu var birde küfür paneline kelimeyi yazıyorum ekle butununa bastıgımda panel gidip geliyor..

tekrar bi gözden geciriyim ben CoCoRiCo cok tşk ederim ilgin için

 

Çevrimdışı

C:\Documents and Settings\User\Application Data\mIRC\Remote\Save\kufur.save

bunu oluşturup Load ettim

bende hmake hatası verdi.

" /hmake: table 'kufur' exists (line 16, script8.ini)"

Belirtilen 16. satırda onu Disable ettim çalıştı bir hata vermedi.

Kufur.save dosyası içeriği

1

2
gygyg
3
123456789098765432345678765432234567876543
4
Deneme
5
Deneme1
6
Deneme2
7
Deneme
8
Deneme3
9
Deneme4
12
Deneme7
13
Deneme7
10
Deneme5
11
Deneme6
14
Deneme8
15
Deneme9

 

Çevrimiçi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yani cözüm olarak ne öneriyorsunuz ?

başka 2ci bir remote yok, baska bir dialogta da kullanılmıyor bu ID

 

Sanırım dialog acıkken tekrar yasak komutunu kullanmıssın. Bende yukledim herhangi bi sorun yok.

 

Çevrimdışı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'nunda belirttiği üzere ve seninde scriptten gelen hatada gördüğün gibi aynı
ID veya isimle bir diyalog penceren mevcut. İsim değiştirdiğinde aynı hatayı alıcağını sanmıyorum. Aynı şekilde açık diyalog varken yeniden komutu kullnırsan açık olan diyalog olduğu için bu hatayı alabilirsin.