alias operlogin { dialog -m operlogin operlogin }
dialog operlogin {
  title "Mini Oper işlem Merkezi"
  size -1 -1 175 63
  option dbu
  box "Oper İşlem Merkezi", 1, 4 4 166 55
  button "Operator Oturumunu Aç!", 2, 96 40 67 13
  edit "", 3, 11 25 36 10, multi return autohs autovs
  edit "", 4, 51 25 36 10, multi return autohs autovs
  edit "", 5, 91 25 36 10, multi return autohs autovs
  edit "", 6, 128 25 36 10, multi return autohs autovs
  text "Nickiniz", 8, 12 16 30 8
  text "Nick Şifreniz", 9, 52 16 32 8
  text "Oper Nickiniz", 10, 92 16 34 8
  text "Oper Şifreniz", 11, 129 16 35 8
}
 
on *:dialog:operlogin:*:*: {
  if $devent == init {
    did -a $dname 3 %nickimo
    did -a $dname 4 %pasımo
    did -a $dname 5 %operno
    did -a $dname 6 %oppaso
  }
  if $devent == sclick {
    if $did == 2 {
      timer 1 3 nick $did(3)
      timer 1 4 ns identify $did(4)
      oper $did(5) $did(6) 
      echo -a 4«««« Uyarı : 14Teşekkür ederiz Nick ve Oper İşlemleriniz başarılı oldu.)
      .dialog -x operlogin operlogin
    }
  }
}