alias operlogin { dialog -m operlogin operlogin }
dialog operlogin {
  title "Sevilir Oper Script v2.0 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
  icon 12, 11 40 78 11,$mircdirBin/diyaloglar/baglan.jpg
}
 
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) 
      .timer 1 2 joinkanal
      echo -a 4«««« Uyarı : 14Teşekkür ederiz Nick ve Oper İşlemleriniz başarılı oldu.)
      .dialog -x operlogin operlogin
    }
  }
}

alias operlogin { dialog -m operlogin operlogin }
dialog operlogin {
  title "Sevilir Oper Script v2.0 Mini Oper işlem Merkezi"
  size -1 -1 175 73
  option dbu
  box "Oper İşlem Merkezi", 1, 4 4 166 65
  button "Operator Oturumunu Aç!", 2, 96 40 67 26
  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
  icon 12, 11 40 78 11,$mircdirBin/diyaloglar/baglan.jpg
  button "Beni Hatırla", 21, 10 52 35 13
  button "Beni Unut", 22, 53 52 35 13
}

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) 
      .timer 1 2 joinkanal
      echo -a 4«««« Uyarı : 14Teşekkür ederiz Nick ve Oper İşlemleriniz başarılı oldu.)
      .dialog -x operlogin operlogin
    }
    if $did == 21 {
      set %nickimo $did(3)
      set %pasımo $did(4)
      set %operno $did(5)
      set %oppaso $did(6)
      .timer 1 3 nick %nickimo
      .timer 1 5 ns identify %pasımo
      .timer 1 1 oper %opern %oppaso
      .timer 1 6 joinkanal
      .dialog -x operlogin operlogin
      .timer 1 17 echo -a 4«««« Uyarı : 14Teşekkür ederiz artık programınızı kapatıp açsanız dahi size ait kişisel bilgilerinizi sürekli hatırlayacak. Eğer Scriptiniz kişisel bir PC'de kurulu değil ise lütfen Ayarlarımı kaydet seçeneğini kullanmayınız aksi halde bilgileriniz başka kişilerin eline geçebilir. (Oturumunuz açılıyor)
    }
    if $did == 22 {
      unset %pasımo
      unset %nickimo
      unset %operno
      unset %oppaso
      .dialog -x operlogin operlogin
      .echo -a 4«««« Uyarı : 14 Daha önceden girmiş olduğunuz kişisel bilgileriniz artık silinmiştir. Eğer Scriptiniz kişisel bir PC'de kurulu değil ise lütfen Ayarlarımı kaydet seçeneğini kullanmayınız aksi halde bilgileriniz başka kişilerin eline geçebilir. (Scripti kapatıp açtığınızda etkin olacaktır.)
    }
  }
}

if ($did($dname) == 17) { 
set %opernick $did(2)
set %opersifre $did(3) 
set %zımbırtı $did(4) 
} 

on *:dialog:dialogadı:init:*: { 
did -a dialogadı "opernick ID'si" %opernick 
did -a dialogadı "operşifre ID'si" %operşifre 
did -a dialogadı "zımbırtı ID'si" %zımbırtı
}