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

Kimimben · 21 Nisan 2013, 01:14

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

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.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Krieq · 21 Nisan 2013, 20:09

Kodu eksik almışsındır. #open grubuna bağlı bir kod olacak.yoksa işlem yapmaz.

Kimimben · 21 Nisan 2013, 21:59

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

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

Kodun event kısmı olmadığı için işlem görmüyor.

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

#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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

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

#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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
PS3'e sorunlu Firmware!	Slipknot	Oyun Dünyasından Son Haberler	0	25 Nisan 2010 14:28
servisler sorunlu	SaNaLStaR	Servisler	3	25 Nisan 2008 09:54
Sorunlu User ;P	IrCbaStarD	Komik Loglar	1	11 Eylül 2007 02:08

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.