alias hata { .return $input($1-,ohud,Hata!) }
dialog giris {
title "Giriş Asistanı"
size -1 -1 205 119
option dbu
box "Bağlantı", 1, 5 35 187 50
text "Nickiniz:", 2, 22 48 33 8
text "Identiniz:", 3, 23 61 25 8
text "Şifreniz:", 4, 23 73 25 8
edit "", 5, 55 46 50 10, center
edit "", 6, 55 59 50 10, center
edit "", 7, 55 72 50 10, center
button "BAĞLAN!", 8, 122 49 50 25, default flat multi
text "Gerekli bilgileri doldurarak, bağlan butonuna tıklayınız.", 10, 34 95 133 27
}
on 1:dialog:giris:sclick:8:{
if ($did(5) == $null) {
.hata Nicki Boş bırakmayın
.halt
}
else {
.nick $did(5)
}
if ($did(6) == $null) {
.hata E-mail'i Boş Bırakmayın
.halt
}
else {
.emailaddr $did(6)
}
if ($did(5) == $null) {
.hata Şifreyi Boş Bırakmayın
.halt
}
else {
.set %şifre $did(7)
}
server irc.ircforumlari.net 6667 %şifre
}