on *:start:{
.timer 1 1 baglanti }
alias baglanti { dialog -m Baglan Baglan  }
dialog Baglan {
  title " Bağlantı Konsolu "
  size -1 -1 129 96
  option dbu
  icon imgs\network.ico, 0 
  box "Bağlantı Konsolu", 1, 4 3 121 90
  edit "", 3, 54 12 66 12
  text "Nickinizi Giriniz :", 4, 10 14 38 8
  edit "",7, 54 26 66 12, style(pass), autohs
  text "Nick Şifreniz :", 8, 10 28 36 8
  edit "", 10, 54 40 66 12
  text "Client Identd :", 11, 10 42 36 8
  edit "",12, 54 54 66 12, style(pass), autohs
  text "Client Pass :", 13, 10 56 36 8
  button "SUNUCUYA BAĞLAN", 9, 8 74 113 15, flat ok
}

on *:dialog:Baglan:init:*:{
  .did -a Baglan 3 $me
  .did -c Baglan 7 1
  .did -a Baglan 10 $remove($emailaddr,@)
  .did -c Baglan 7 1

}
on 1:dialog:Baglan:sclick:9: {
  if ($did(Baglan,3)) .nick $did(Baglan,3)
  if ($did(Baglan,7)) .set %ebegumeci $did(Baglan,7)
  if ($did(Baglan,10)) .identd on $did(Baglan,10) | .emailaddr $did(Baglan,10) $+ @ | 
  .server irc.SERVER.COM:6667 $did(Baglan,12)
}
alias sifre { dialog -m sifre sifre  }
dialog sifre {
  title "Şifre Asistan1"
  size -1 -1 108 53
  option dbu
  icon imgs\pass.ico, 0 
  box $me Kayıtlı Bir Nicktir.., 20, 2 2 104 47 
  text "Lütfen Şifrenizi Giriniz ", 3, 28 10 60 10 
  edit "", 5, 25 20 60 10, style(pass), autohs 
  button "TAMAM", 1, 25 35 60 11, ok flat
}
on 1:dialog:sifre:sclick:1: {
  if ($did(sifre,5)) .msg nickserv identify $did(sifre,5)
}
on 1:NOTiCE:*:?: { 
  if ($nick == NickServ) {
    if (*NickServ IDENTIFY* iswm $1-) {
      if (%ebegumeci) {
        .timer 1 1 .msg nickserv identify %ebegumeci
      }
      else {
        .dialog -m sifre sifre
      }
    }
    if (*Sifre kabul edildi* iswm $1-) || (*password accept* iswm $1-) {
      .unset %ebegumeci
    }
    if (*Gecersiz Sifre* iswm $1-) { 
      .dialog -m sifre sifre
    }
  }
}