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/)
-   -   sorunlu kod (https://www.ircforumlari.net/mirc-scripting-sorunlari/528570-sorunlu-kod.html)

Kimimben 21 Nisan 2013 01:14
sorunlu kod
 
Kod:
on *:LOAD:{
  echo -a mIRC Messenger Kişi Listesi
  echo -a Coder ßy KiLL
  echo -a Sağ Tıklayıp ® Messenger Kişi Listesi Sekmesinden Ulaşabirsin..
  echo -a Kişilerini Kısa Yoldan Nick Listesine Sağ Tıklayarak Gelen Seçenekten Ekleyebilirsin..
}
menu status,menubar {
  ® mIRC Messenger Kişi Listesi:.dialog -m messenger messenger
}
menu nicklist {
  Messenger Kişi Listesine Ekle:.write messenger.txt $$1 | /echo -a $$1 Nick Messenger Kişi Listesine Eklendi.
}
dialog messenger {
  title "mIRC Messenger Kişi Listesi"
  size -1 -1 121 233
  option dbu
  box "", 11, 3 26 115 170
  list 1, 57 35 58 155, size
  text "Kişi Ekle", 4, 20 38 20 8
  edit "", 2, 7 49 45 12
  button "TAMAM", 8, 7 127 45 60, ok
  button "EKLE", 3, 7 65 45 15
  button "SİL", 9, 7 85 45 15
  button "SIFIRLA", 10, 7 105 45 15
  box "", 13, 3 195 117 35
  radio "", 5, 5 200 8 10, flat
  text "Sadece Listemde Olan Arkadaslarim Yazsin", 6, 13 201 104 8
  radio "", 7, 5 215 10 10, flat
  text "Herkes Bana Yazabilsin", 14, 13 217 104 8
}
on *:dialog:messenger:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(messenger.txt) | did -c $dname 1 1
    if ($group(#open) == on) { did -c messenger 5 }
    if ($group(#open) == off) { did -c messenger 7 }
  }
  if ($devent == sclick) {
    if ($did == 3) {
      var %ekle = $did(2).text
      if $read(messenger.txt,w,%ekle) {
        echo -a 4 %ekle 2Nicki Zaten 4Messenger2 Listenizde Var. "
      }
      else {
        write messenger.txt %ekle | did -a $dname 1 %ekle | did -d $dname 1 $did(1).text | did -r $dname 2
      }
    }
    if ($did == 9) {
      if $read(messenger.txt,w,$did(1).seltext) { write $+(-dl,$readn) messenger.txt | /echo -a 4 $did(1).seltext 2Nicki Messenger Listenizden Silindi. | did -d $dname 1 $did(1).sel }
    }
    if ($did == 10) {
      if ($$?!="Messenger Listenizi Sıfırlamak İstediğiniz Eminmisiniz?" == $true) { set %saynick $lines(messenger.txt) | write -c messenger.txt | did -r $dname 1 | echo -a 2Messenger Listesindeki4 %saynick 2 Adet rumuz Silindi. | unset %saynick } | else { return }
    }
    if ($did == 5) { .enable #open | /echo -a 2Artık Sadece 4Messenger2 Listenizde Olanlar Size Mesaj Yollayabilecek. }
    if ($did == 7) { .disable #open | /echo -a 2Artık Herkes Size Mesaj Yollayabilecek. }
    if ($did == 8) { /dialog -c messenger messenger }
  }
}
Merhaba arkadaşlar yukarıdaki kodun sahibi belli bende buradan aldım kodu mrc de remoteme ekledim sonrasında dialog halinde kodu açtım bir nick yazdım ekledim ve sonra alltaki Sadece Listemde Olan Arkadaslarim Yazsin işaretledim tmm deyip kapattım listeye eklemedigim bir nick benim özelime gelip bana hala yazıyor ve bu yazıda bana cıkıyor koddaki sorun nerededir yardımcı olursanız sevinirim.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Krieq 21 Nisan 2013 20:09
Cevap: sorunlu kod
 
Kodu eksik almışsındır. #open grubuna bağlı bir kod olacak.yoksa işlem yapmaz.

Kimimben 21 Nisan 2013 21:59
Cevap: sorunlu kod
 
Dostum maalesef kod bu kadar Google de aradım bu kodu ve bir kaç yerlerde gördüm oralardaki kodda bu kadar.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bu iki yerde de kod bu kadar.

Kimimben 22 Nisan 2013 13:34
Cevap: sorunlu kod
 
Nıck ekleyip sonra Sadece listemde olan arkadaşlarım yazsın işaretledikten sonra statüde şu hatayı verdi
/did: Yetersiz veya eksik parametre (Satır 44, script10.ini)
Acaba bununlamı alakalıdır.

Satır 44 şurası
write messenger.txt %ekle | did -a $dname 1 %ekle | did -d $dname 1 $did(1).text | did -r $dname 2

Med Cezir 23 Nisan 2013 02:03
Cevap: sorunlu kod
 
Kodun event kısmı olmadığı için işlem görmüyor.

Kod:
#open off
on *:open:?:*:if $read(mesenger.txt,w,$nick) { echo $nick Mesenger Listende: $nick } | else ignore $nick | close $nick | echo -a $nick Mesenger Listende Olmadığından Engellendi.
#open end
gibi olabilir.

Kimimben 24 Nisan 2013 12:29
Cevap: sorunlu kod
 
Med Cezir kardeşime tsk ederim sanırım kodun devamı oydu ama bazı sorunları devam etmekde kodu ekledikten sonra Nick ekleyip Sadece Listemde Olan Arkadaslarim Yazsin işaretleyince statüde şu sorunu veriyor
* /did: Yetersiz veya eksik parametre (Satır 44, script10.ini)
Sonrasında herhangi bir nick özele gelip yine yazı yazmaya devam ediyor statüde şu sekilde çıkarıyor
*** zeNan!*@* Rededilenler (Ignore) Listesine Eklendi
-
* /close: Geçersiz parametre
Burda engelliyor ama yinede yazısı geliyor Kodun son hali şudur

Kod:
on *:LOAD:{
  echo -a mIRC Messenger Kişi Listesi
  echo -a Coder ßy KiLL
  echo -a Sağ Tıklayıp ® Messenger Kişi Listesi Sekmesinden Ulaşabirsin..
  echo -a Kişilerini Kısa Yoldan Nick Listesine Sağ Tıklayarak Gelen Seçenekten Ekleyebilirsin..
}
menu status,menubar {
  ® mIRC Messenger Kişi Listesi:.dialog -m messenger messenger
}
menu nicklist {
  Messenger Kişi Listesine Ekle:.write messenger.txt $$1 | /echo -a $$1 Nick Messenger Kişi Listesine Eklendi.
}
dialog messenger {
  title "mIRC Messenger Kişi Listesi"
  size -1 -1 121 233
  option dbu
  box "", 11, 3 26 115 170
  list 1, 57 35 58 155, size
  text "Kişi Ekle", 4, 20 38 20 8
  edit "", 2, 7 49 45 12
  button "TAMAM", 8, 7 127 45 60, ok
  button "EKLE", 3, 7 65 45 15
  button "SİL", 9, 7 85 45 15
  button "SIFIRLA", 10, 7 105 45 15
  box "", 13, 3 195 117 35
  radio "", 5, 5 200 8 10, flat
  text "Sadece Listemde Olan Arkadaslarim Yazsin", 6, 13 201 104 8
  radio "", 7, 5 215 10 10, flat
  text "Herkes Bana Yazabilsin", 14, 13 217 104 8
}
on *:dialog:messenger:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(messenger.txt) | did -c $dname 1 1
    if ($group(#open) == on) { did -c messenger 5 }
    if ($group(#open) == off) { did -c messenger 7 }
  }
  if ($devent == sclick) {
    if ($did == 3) {
      var %ekle = $did(2).text
      if $read(messenger.txt,w,%ekle) {
        echo -a 4 %ekle 2Nicki Zaten 4Messenger2 Listenizde Var. "
      }
      else {
        write messenger.txt %ekle | did -a $dname 1 %ekle | did -d $dname 1 $did(1).text | did -r $dname 2
      }
    }
    if ($did == 9) {
      if $read(messenger.txt,w,$did(1).seltext) { write $+(-dl,$readn) messenger.txt | /echo -a 4 $did(1).seltext 2Nicki Messenger Listenizden Silindi. | did -d $dname 1 $did(1).sel }
    }
    if ($did == 10) {
      if ($$?!="Messenger Listenizi Sıfırlamak İstediğiniz Eminmisiniz?" == $true) { set %saynick $lines(messenger.txt) | write -c messenger.txt | did -r $dname 1 | echo -a 2Messenger Listesindeki4 %saynick 2 Adet rumuz Silindi. | unset %saynick } | else { return }
    }
    if ($did == 5) { .enable #open | /echo -a 2Artık Sadece 4Messenger2 Listenizde Olanlar Size Mesaj Yollayabilecek. }
    if ($did == 7) { .disable #open | /echo -a 2Artık Herkes Size Mesaj Yollayabilecek. }
    if ($did == 8) { /dialog -c messenger messenger }
  }
}
#open on
on *:open:?:*:if $read(mesenger.txt,w,$nick) { echo $nick Mesenger Listende: $nick } | else ignore $nick | close $nick | echo -a $nick Mesenger Listende Olmadığından Engellendi.
#open end

Krieq 24 Nisan 2013 12:44
Cevap: sorunlu kod
 
Kod:
#open on
on *:open:?:*:if $read(mesenger.txt,w,$nick) { echo $nick Mesenger Listende: $nick } | else { ignore $nick | close -m $nick | echo -a $nick Mesenger Listende Olmadığından Engellendi. }
#open end
bu şekil ekle.


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

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