Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias oas if !$dialog { dialog -m deneme deneme } | else { dialog -x deneme deneme }
dialog Deneme {
title "Oturum Açma Sistemi"
size -1 -1 300 225
option pixels
text "Nickiniz", 1, 10 10 100 17
edit "", 2, 116 10 170 20, autohs
text "Nick Şifreniz", 3, 10 34 100 17
edit "", 4, 116 34 170 20, autohs
text "Oper Nickiniz", 5, 10 57 100 17
edit "", 6, 116 57 170 20, autohs
text "Oper Şifreniz", 7, 10 80 100 17
edit "", 8, 116 80 170 20, autohs
button "Tamam", 9, 10 108 274 25
button "Ayarları Kaydet", 10, 10 137 274 25
button "Beni Unut", 11, 10 165 274 25
button "Tamam - Kapat", 12, 10 193 274 25
}
on *:dialog:deneme:*:*: {
if $devent == init {
did -a deneme 2 %nickim
did -a deneme 4 %pasım
did -a deneme 6 %opern
did -a deneme 8 %oppas
}
if $devent == sclick {
if $did == 9 {
nick $did(2)
.timer 1 1 ns identify $did(4)
.timer 1 2 oper $did(6) $did(8)
}
if $did == 10 {
set %nickim $did(2)
set %pasım $did(4)
set %opern $did(6)
set %oppas $did(8)
nick %nickim
.timer 1 1 ns identify %pasım
.timer 1 2 oper %opern %oppas
}
if $did == 11 {
unset %pasım
unset %nickim
unset %opern
unset %oppas
;dialog -x deneme deneme
}
if $did == 12 {
dialog -x deneme deneme
}
}
}
on *:connect: { dialog -m deneme deneme }