Çevrimdışı

selam ben bir dialog yaptım fakat ne yaptıysam deventleri beceremedim aşagıda dialogu vericem yardım ederseniz sevinirim. Saygılarımla...

 

Çevrimdışı

Dialoğun gorunumu cok berbat biraz düzenle bence.
çalıştırmak için remoteye kopyala /denizim yaz

;denizim dialogunu acmak icin aşağıdaki aliasesi yazıyoruz ki !$dialog(denizim) bu dialog yoksa demek oluyor
;ve içindeki parametreleri uyguluyor yani dialog -m ... normal dialog acma prosedürü
alias denizim { if !$dialog(denizim) { dialog -m denizim denizim } }

dialog denizim {
title "Açılış Menüsü"
size -1 -1 377 370
option pixels
tab "Bağlan", 3, 10 2 354 365
edit "", 4, 198 55 130 23, tab 3
edit "", 5, 198 80 130 23, tab 3
box "Kullanici Bilgileri", 6, 20 21 335 110, tab 3
text " Nickiniz: ", 7, 137 55 60 15, tab 3
text " Yedek Nick: ", 8, 109 80 90 25, tab 3
text "", 9, 25 232 335 20, tab 3
box "Serverlar", 10, 20 135 335 155, tab 3
button "Deniz Script Sohbet Sunucusu", 11, 88 150 196 25, default tab 3 flat
button "MircindirNet", 12, 47 180 80 25, tab 3 flat
button "SohbetNet", 13, 148 180 80 25, tab 3 flat
button "ZurnaNet", 14, 47 220 80 25, tab 3 flat
button "Mircturk", 15, 248 180 80 25, tab 3 flat
button "HaytaNet", 16, 148 220 80 25, tab 3 flat
button "Gencsite", 17, 248 220 80 25, tab 3 flat
button "MyNete Bağlan", 18, 88 260 196 25, tab 3 flat
box "", 19, 1 -6 375 375
button "Pencereyi Kapat" 20, 110 300 153 25, ok flat
}
on *:dialog:denizim:*:*: {
if $devent == init {
;yukarıdaki init'in anlamı dialog açılınca aşağıdaki komutları uygula demek
did -ra $dname 4 $me
did -ra $dname 5 $anick
;yukarıda 4 ve 5 . editboxlara mirc de yazılı olan nickin = $me ve alternatif nickin $anicki dolduruyoruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $devent == sclick {
;yukarıdakinin anlamı eğer dialogta bir defa bir yere tıklanıyorsa demek
if $did == 11 { server Deniz_Script_Sohbet_Sunucusu_adresi }
if $did == 12 { server mircindirnetinadresi }
if $did == 13 { server sohbetnetinadresi }
;... bole devam edicek anladın sanırım
}
}

 

Çevrimiçi

Alıntı:

on 1:dialog:denizim:*:*: { if ($devent == init) { did -a denizim 3 $me } if ($devent == sclick) { if ($did == 11 ) { /!server irc.deniz.gen.tr | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 12 ) { /!server irc.mircindir.net | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 13 ) { /!server irc.sohbet.net | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 14 ) { /!server irc.zurna.net | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 15 ) { /!server irc.mircturk.com | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 16 ) { /!server irc.Hayta.net | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 17 ) { /!server irc.gencsite.net | .nick $did(3) | /dialog -c denizim denizim } } if ($devent == sclick) { if ($did == 18 ) { /!server irc.mynet.com | .nick $did(3) | /dialog -c denizim denizim } } }

Dene bi çalışması gerekli

__________________

 

Çevrimdışı

Alience dialog un berbat oldugunu biliyorum yalnızca bir deneme yapıyorum bu arada deventlerin kullanımını ögreniyorum :O) ilgilin için jin ve size çok teşekkür ederim :O) Saygılarımla...

 

Çevrimdışı

ben bir konuda sizi rahatsız etmek istiyorum tamam güzel çalışıyo açılış menüsü fakat ben gircegim serveri sectikten sonra dialog kapanmıyo bunu nasıl kapanmasını saglarım? Birde nick yeni nick bölümüne nickimi yazıyom bir daha script i açtıgımda eski nicklerim durmuyo onu nasıl saglarım? yani $nick $anick sürekli degişsin istiyorum dialog aracılıgıyla tabi.
Şimdiden teşekkür ederim..

 

Çevrimdışı

mircin kendi komutlari var /anick gibi

 

Çevrimdışı

/server komutundan sonra dialog -x $dname yapıp dialogu kapatabilirsin.
Oraya yazdıklarını kaydetmek içinde
on *:dialog:dialog-ismi:edit:IDsi:if $did(idsi).text { set %değişken $v1 }
olarak kullanabilirsin ve bunu da on *:dialog:dialog-ismi:init:*:{ did -a $dname editboxID %değişken } olarak kullanabilirsin.

 

Çevrimdışı

evet şimdi oldu :O) herkeze çok teşekkür ederim.