alias oas if !$dialog { dialog -m deneme deneme } | else { dialog -x deneme deneme }
dialog Deneme {
title “Oto Oper/nick ile Servera Giriş 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, pass
text “Varsa Oper Nickiniz”, 5, 10 57 100 17
edit “”, 6, 116 57 170 20, autohs
text “Varsa Oper Şifreniz”, 7, 10 80 100 17
edit “”, 8, 116 80 170 20, autohs, pass
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:{
.timer 1 1 ns identify %pasım
.timer 1 2 oper %opern %oppas
.timer 1 3 close -m
}