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

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

- - mirc messenger kisi listesi (https://www.ircforumlari.net/mirc-scripting-sorunlari/332481-mirc-messenger-kisi-listesi.html)

mirc messenger kisi listesi

Aşağıda resmi görülen kişi listesinde yer alan radio seçeneklerinde; birine basıp tamam dediğinizde kod güzel bir şekilde çalışmaktadır. Ancak tekrar diyalogu açtığımız zaman seçili radio butonu görülmüyor. Bu durumda hangi seçeneğin işaretli olduğu belli olmuyor. Ben sadece diyalogun görünüşünde biraz değişiklik yaptım. Kodlara karışmadım. Diyaloga tekrar girdiğimizde en son seçili özelliğin radio butonunda görülmesini nasıl sağlayabiliriz? Teşekkürler..

Resim
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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
icon 12, 3 4 114 20, resimler\sessiz3.jpg, 0
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 Arkadaşlarım Yazsın", 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 ($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 }
}

Cevap: mirc messenger kisi listesi

PHP- Kodu:

   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
  icon 12, 3 4 114 20, resimler\sessiz3.jpg, 0
  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 Arkadaşlarım Yazsın", 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 }
  }
}

Cevap: mirc messenger kisi listesi

Çok teşekkürler, şimdi oldu.

Cevap: mirc messenger kisi listesi

* /dialog: 'messenger' error loading icon 'resimlersessiz3.jpg'
diyor listeyi acmak isteyince alt+r den ekledim baska ne yapıcaz

Cevap: mirc messenger kisi listesi

icon 12, 3 4 114 20, resimler\sessiz3.jpg, 0

bu satırı kaldırmalısın yada o gösterdiği yola sessiz3 adında bır jpg resmi koymalısın