Çevrimdışı

dialog Test {
title "Test Dialoğu 1"
;Altaki -1 lerin anlamı ekranın tam ortasıdır
size -1 -1 120 33
check "aç", 1, 5 10 30 14
button "mesaj", 2, 40 5 75 25
button "&Hide", 3, 0 0 0 0, hide Ok
}
;Dialoğumuzdaki yaptığımız işleri görmek için aşağıdaki event gerekli
on *:dialog:Test:*:*: {
;dialoğumuz ilk açıldığında yapılacak işlemler ben burada en son check box seçilimi değilmi onu kontrol ettirdim
if $devent == init {
if %::join-on-off == 1 { did -c $dname 1 }
}
;dialoğumuzda mausenin sol tuşu ile bir kere tıkladığımızda aktif olur
if $devent == sclick {
;Dialok yaparken her kontrole verdiğimiz id ler buralarda işe yarıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hangi id ye sol tıkladık
if $did == 1 {
;eğer checkboxa tıkladıysak onu %::join-on-off değişkenine atıyoruz
set %::join-on-off $did(1).state
}
if $did == 2 {
if $input(Lütfen karşılama mesajını giriniz örn: $+ $crlf $+ Welcome to $!chan $!nick,e,Test dialoğu input titlesi(başlığı),%::joinmesaji) { set %::joinmesaji $ifmatch }
;Burada $input(içeridekimesaj,e[yazı yazılan mircnin internal input dialoğu için],başlığı,textkısmına yazılacak yazı)
}
}
}
en son olarakta
on !1:JOIN:#:/msg $chan Welcome to $chan $nick
yi
on !1:JOIN:#: if %::join-on-off == 1 { /msg $chan %::joinmesaji }
olarak değiştirmen gerek.
birde en son olarak $crlf yeni satıra geç demek enter tuşu mantıgı açılımı (carriage return field, türkçesi yani satır olarak çevirebiliriz), $+ larda aralarında yazılan kelime ve değişkenleri birleştirir örn: selam $+ nasılsın yazarsak selamnasılsın olur.