IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   diyalog da mdx ekleme sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/41775-diyalog-da-mdx-ekleme-sorunu.html)

egemel 22 Aralık 2007 04:27

Cevap: diyalog da mdx ekleme sorunu
 
Selamlar formlarda gezinirken bu korumayi gördüm. mdx bende ekleyip çalıştırdım. Bende de listeden silme hatası verdi.
Mesela listeye xxx ekleyince silmiyor ama *xxx* ekleyince onu siliyor.
verdiği hata * /hdel: Yetersiz veya eksik parametre (Satır 45, script6.ini)
Bu satır hatalı diyor:
hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data

alias mdxinit {
dll $mdx_fullpath SetMircVersion $version
dll $mdx_fullpath MarkDialog $dname
}
alias mdx_fullpath { return $+(",mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }

alias k_start {
hmake $1 $2
hload $1 $+($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 4 $+ $nick 12 $+ $chan 1Kanalından 12Küfür 1Sebebinden Atılmıştır.
}
}
}
alias kekle {
hadd -m kufur $calc($hget(kufur,0).item + 1) $1-
hsave kufur 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 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: {
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
mdxinit
mdx SetControlMDX $dname 1 listview flatsb header grid report > views.mdx
did -i $dname 1 1 headerdims 159:1
did -i $dname 1 1 headertext + 0 Nickler $+ $chr(9)
var %x = 1
while (%x <= $hget(kufur,0).item) {
did -ac yasak 1 $hget(kufur,%x).data
inc %x
}
}

baydo 25 Aralık 2007 02:43

Yanıt: diyalog da mdx ekleme sorunu
 
Neden save dosyası ? Txt olmuyormu ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:09.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk