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

TRENDY · 01 Ocak 2009, 02:07

/dialog: 'yasak' name in use (line 26, Sercan7.tcl)

* Deleted item '563' from hash table 'kufur'
-
* /hsave: invalid parameters (line 43, Sercan7.tcl)

Yasak Kelimeleri Ekledigimde Filan Bu Hatalari Veriyo Nedendir Acaba Arkadaşlar yardımcı Olurmusunuz?

TRENDY · 01 Ocak 2009, 16:09

Buraya Cvp Verecek Arkadaş Yok Galiba Yinede Tşk.

XcLusive · 01 Ocak 2009, 17:01

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

/dialog: 'yasak' name in use (line 26, Sercan7.tcl)

* Deleted item '563' from hash table 'kufur'
-
* /hsave: invalid parameters (line 43, Sercan7.tcl)

Yasak Kelimeleri Ekledigimde Filan Bu Hatalari Veriyo Nedendir Acaba Arkadaşlar yardımcı Olurmusunuz?

1. dialog kullanılıyor diyor

2. -s kullanılmış item silerken echo olarak gösteriyor

3.hsave kayıt işlemi yapılırken eksik birşeyler var, kodları görmeden sana verebileceğim bilgiler bu kadar..
sercan7.tcl dosyasındaki 20-30 ve 35-50 arası satırları buraya kopyalarsan yardım edebiliriz.

TRENDY · 01 Ocak 2009, 19:38

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 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\Korumalar\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: {
  mdx.dll MarkDialog $dname
  mdx SetFont 1,2,3,4,5 14 700 arial
  mdx SetColor $dname 1,2 textbg $rgb(218,218,218)
  mdx.dll SetColor $dname 1,2 background $rgb(218,218,218)
  mdx.dll SetColor $dname 3,4,5 background $rgb(010,180,255)
  mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
  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
  }

XcLusive · 01 Ocak 2009, 20:16

hsave kufur Remote\Korumalar\kufur.save

satırını

hsave -i kufur Remote\Korumalar\kufur.save

olarak değiştir

silme ve ekleme işleminde dialog'u kapatıp açtırmışsın o yüzden dialog kullanılıyor hatası alıyorsun ondada farklı bir yöntem dene.
did -r $dname 1 | loadbuf -o $dname 1 kufur.txt
gibi ayarlıyabilirsin.

TRENDY · 02 Ocak 2009, 00:47

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

silme ve ekleme işleminde dialog'u kapatıp açtırmışsın o yüzden dialog kullanılıyor hatası alıyorsun ondada farklı bir yöntem dene.
did -r $dname 1 | loadbuf -o $dname 1 kufur.txt
gibi ayarlıyabilirsin.

Burayı Tam Olarak Anlıyamadım Nasıl Olacağını Anlatırsan Sevinirim XcLusive

XcLusive · 02 Ocak 2009, 13:06

kodların tamamını kopyalarsan yardımcı olabilirim.

TRENDY · 02 Ocak 2009, 14:26

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1dGNi9XeHQvZjUwL1hJPQ== }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) } 
alias mdx.dll { return $dll(dll\mdx.dll,$1,$2-) }
alias k_start {
  hmake $1 $2
  hload $1 $+(Remote\Korumalar\,$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 -a + $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 -i kufur Remote\Korumalar\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 -i kufur Remote\Korumalar\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: {
  mdx.dll MarkDialog $dname
  mdx SetFont 1,2,3,4,5 14 700 arial
  mdx SetColor $dname 1,2 textbg $rgb(218,218,218)
  mdx.dll SetColor $dname 1,2 background $rgb(218,218,218)
  mdx.dll SetColor $dname 3,4,5 background $rgb(010,180,255)
  mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
  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
  }
}

XcLusive · 02 Ocak 2009, 15:06

script'te test ettimde şuan için hiçbir sorun yok gibi hsave olayını yapmışsın gayet düzgün çalışıyor?

TRENDY · 02 Ocak 2009, 15:14

Şimdi Bende Açtım Bi Sorun Yok Görünüyo Hata Vermiyo Dialogta inş Böyle Devam Eder Yardımların Içinde Teşekkürler

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Göz ile ilgili Deyimler - Gözle ilgili Deyim	Zen	Atasözleri ve Deyimler	0	03 Şubat 2013 12:20
KorumaLarLa İLgLi	Orhan_VeLi	mIRC Scripting Sorunları	12	23 Ocak 2009 00:00
korumalarla ilgili	HaLiKaRNaSX	mIRC Scripting Sorunları	3	08 Mart 2006 19:47

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.