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

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

- - Diyalog hakkında sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/26822-diyalog-hakk305nda-sorun.html)

Diyalog hakkında sorun

Kod:

dialog X {

title "xXx"

size -1 -1 110 95

option dbu

button "Ekle", 1, 70 23 25 12, default flat multi

combo 2, 4 23 60 50, size

button "Sil", 3, 70 38 25 12, default flat multi

button "Giriş", 4, 70 58 37 12, default flat multi

text "Nick Listesi", 5, 4 13 32 8

link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 6, 26 84 53 8

}

Selamlar,
Ben bunu Diyalog Studiodan yaptım ama mIRC'e ekleyince kodu çalıştıramadım. Diyalogta Nickleri sıra ile eklemek istiyorum birde Seçili nickte Giriş deyince O nicki seçilmesini istiyorum yardım ederseniz sevinirim. Kolay Gelsin.

Cevap: Diyalog Yardım

Kod:

alias xxx { if !$dialog(x) { dialog -ma x x } }

on *:dialog:x:*:*:{

;INIT eventi dialog a&#231;ıldığında devreye girer. Biz nickler.txt dosyamızın i&#231;indekileri

;2 id numaralı combo kutumuza aktarıyoruz ve 1. sıradaki veriyi se&#231;iyoruz

  if $devent == INIT { loadbuf 0 -o $dname 2 nickler.txt | did -c $dname 2 1 }

;eğer dialog &#252;zerinde herhangi bir şeye basıldığında

  if $devent == SCLICK {

;eğer bu 1 idli butonusa (ekle butonu)

    if $did == 1 {

;eğer nickler.txt'de editte yazılan yazı yoksa nickler.txt'e ekle

      var %_ = $did(2).text

      if !$read(nickler.txt,w,%_) { write nickler.txt %_ | did -a $dname 2 %_ }

    }

;eğer bu 3 idli butonsa (sil butonu)

    if $did == 3 {

;eğer nickler.txt'te bu veri varsa dosyadan sil ve comboboxdan da sil.

      if $read(nickler.txt,w,$did(2).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 2 $did(2).sel | did -c $dname 2 1 }

    }

;eğer 4 nolu idye basıldığında

    if $did == 4 {

;echo ile se&#231;ili text ekrana g&#246;steriliyor. istediğin komutu sen buraya yazmalısın.

      echo :: Giriş tuşuna basıldı. $did(2).text se&#231;ili.

    }

  }

}

Yukardaki kodu dialog kodlarının altına koyup /xxx yazdığında dialogun istediğin gibi çalışacaktır. Açıklamaları da okursan neyin ne olduğunu anlayabilirsin. Bu konuyla ilgili bir daha soru sormadan önce açıklamaları dikkatli oku lütfen.

Umarım işine yarar...

Cevap: Diyalog hakkında sorun

Ustad Kod çalıştı ama

Kod:

* /loadbuf: Açılamıyor 'C:\mIRCTurk\nickler.txt' (Satır 14, Nick.txt)

Şöle 1 hata verdi :S nedendir acaba teşekkürler.
!de Nicki seçince oto şifre girsin ve diyalog kapansın onu nasıl ekleriz acaba :S

Not: Şifreler aynı duşunursek.

[box=Moderator mesajı: el33t]mIRC klasörüne nickler.txt oluşturup içine alt alta istediğin nickleri yaz, diğer sorun içinse echolu kısmı bul, biraz uğraş.[/box]

Cevap: Diyalog hakkında sorun

Selam valla el33t hocamın bü güne kadar çalışmayan bi kodunu görmedim :)
öncelikle biraz uğraşsaydın yapardın neyse :)
şimdi remote dosyasına %pass 12345 (şifreni 12345 olarak varsayıyorum) böyle bi değer oluştur.

dialog X {
title "xXx"
size -1 -1 110 95
option dbu
button "Ekle", 1, 70 23 25 12, default flat multi
combo 2, 4 23 60 50, size
button "Sil", 3, 70 38 25 12, default flat multi
button "Giriş", 4, 70 58 37 12, default flat multi
text "Nick Listesi", 5, 4 13 32 8
link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 6, 26 84 53 8
}
alias -l kapat { dialog -x x x }
alias xxx { if !$dialog(x) { dialog -ma x x } }
on *:dialog:x:init:0: {
loadbuf 0 -o $dname 2 nickler.txt | did -c $dname 2 1
}
on *:dialog:x:sclick:*: {
if $did == 1 {
var %_ = $did(2).text
if !$read(nickler.txt,w,%_) { write nickler.txt %_ | did -a $dname 2 _ }
}
if $did == 3 {
if $read(nickler.txt,w,$did(2).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 2 $did(2).sel | did -c $dname 2 1 }
}
if $did == 4 {
if $did(2).seltext { .nick $did(2) | .msg nickserv identify %pass|kapat }
}
}

inşALLAH doğru yapmışımdır :)