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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Korumalarla Ilgili (https://www.ircforumlari.net/mirc-scripting-sorunlari/169514-korumalarla-ilgili.html)

Korumalarla Ilgili

/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?

Cevap: Korumalarla Ilgili

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

Cevap: Korumalarla Ilgili

Alıntı:

TRENDY Nickli Üyeden Alıntı (Mesaj 613868)

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.

Cevap: Korumalarla Ilgili

Kod:

 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

  }

Cevap: Korumalarla Ilgili

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.

Cevap: Korumalarla Ilgili

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 614413)

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

Cevap: Korumalarla Ilgili

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

Cevap: Korumalarla Ilgili

Kod:

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

  }

}

Cevap: Korumalarla Ilgili

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

Cevap: Korumalarla Ilgili

Ş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