Aşağıdaki kodları remote'a koyup /test yazdığında dialog açılacaktır. Kodları incelersen dialoglar hakkında kafanda bir şeyler oluşacaktır. Tamam'a basınca yapılan değişiklikleri nasıl kaydedeceğini gösterdim, iptal'e basınca da nasıl kaydedilmeyeceğini gösterdim. Ayrıca her seçeneğe tıkladığında ne yaptığını da gösterdim. İşte kod:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias test { if !$dialog(test) { dialog -ma test test } }
on *:dialog:test:*:*:{
if $devent == INIT {
echo 4 -a Test dialogu açıldı.
}
if $devent == SCLICK {
if $did == 1 {
if $did(1).state == 1 { echo 12 -a Küfür koruması açıldı! | did -ra $dname $did Açık } | else { echo 12 -a Küfür koruması kapandı. | did -ra $dname $did Kapalı }
}
if $did == 4 {
echo 12 -a Flood koruması açıldı
}
if $did == 5 {
echo 12 -a Flood koruması kapandı
}
if $did == 9 {
echo Küfür koruması şu an $iif($did(1).state == 1,Açık,Kapalı)
if $did($dname,4).state == 1 { echo Flood koruması şu an açık. }
elseif $did($dname,5).state == 1 { echo Flood koruması şu an kapalı. }
else { echo Flood koruması ayarlanmadı. }
if $did($dname,7).text { echo Nickiniz $v1 } | else { echo Nickiniz ayarlanmadı. }
}
if $did == 10 {
echo İptal'e bastığınız için yaptığınız değişiklikler kaydedilmedi.
}
}
}
dialog test {
title "Test dialog"
size -1 -1 96 53
option dbu
check "Kapalı", 1, 40 6 53 9, push
text "Küfür koruması", 2, 2 6 37 9
text "Flood koruması", 3, 2 17 37 9
radio "Açık", 4, 40 17 21 9
radio "Kapalı", 5, 66 17 27 9
text "Nickiniz:", 6, 2 27 37 9
edit "", 7, 40 27 53 9, autohs
box "", 8, 0 0 96 38
button "Tamam", 9, 19 40 37 11, ok
button "İptal", 10, 57 40 37 11, cancel
box "", 11, 0 34 96 19
text "el33t", 12, 1 41 18 8, center
}
Umarım kafanda dialoglarla ilgili bir şeyler oluşur.