Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { forbi }
alias forbi { dialog -m giriss giriss }
dialog giriss {
title "Bağlantı Menüsü"
size -1 -1 189 109
option dbu
button "Bağlan", 1, 35 91 28 12
button "Kapat", 2, 3 91 26 12,ok
edit "", 3, 101 74 71 10
list 4, 97 5 84 50, size
text " Nick Giriniz", 5, 0 6 28 8
edit "", 6, 38 5 51 10
text " Sunucu Ekle", 7, 101 61 31 8
button "Ekle", 8, 101 91 22 12
button "Sil", 9, 150 91 22 12
text " Ident Giriniz", 10, 0 19 31 8
edit "", 11, 38 17 51 10
edit "", 12, 0 43 89 10
text " Fullname Giriniz", 13, 0 34 40 8
box "Kişisel Menü", 14, -1 -1 93 57
box "Sunucu Menüsü", 15, 95 -1 88 59
}
on *:dialog:giriss:init:*: {
var %kry 1
while %kry <= $lines(sunucular.txt) {
did -a giriss 4 $read(sunucular.txt,%kry)
inc %kry
}
}
on *:dialog:giriss:sclick:*: {
if ($did == 1) { nick $did(6) | fullname $did(12) | emailaddr $did(11) $+ @ | timer 1 2 /server $did(4).seltext }
if ($did == 9) { write -d sunucular.txt $did(4).seltext | did -d giriss 4 $did(4).sel }
if ($did == 8) { write sunucular.txt $did(3) | did -a giriss 4 $did(3) }
}
Bu da biraz gelistirilmiş hali işine yarayabilir.