Ç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
}
}