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
    }
  }
}

dialog dxr {
  title " Turkce mIRC"
  size -1 -1 113 93
  option dbu
  edit "", 30, 37 6 70 10
  edit "", 31, 37 19 70 10
  button "» BAGLAN CANİM «", 2, 24 67 84 12, default flat
  text "Nick Yazın :", 20, 5 8 32 8
  text "Yedek Nick :", 21, 5 21 31 8
  box "", 13, 2 0 109 59
  icon 7, 3 66 15 15,  img\mirc.ico, 0
  box "", 1, 21 62 90 21
  edit "", 3, 37 32 70 10
  edit "", 4, 37 45 70 10
  text "idendt Yazın :", 5, 4 34 32 8
  text "Sifre Yazın :", 6, 3 46 32 8
}
alias serv { dialog -m dxr dxr }
on *:dialog:dxr:*:*: {
  if $devent == init {
    did -a dxr 30 $me
    did -a dxr 31 $anick
    did -a dxr 3 $dentd %idndt
    did -a dxr 4 %şfr
  }
  if $devent == sclick {
    if $did == 2 {
      set %idndt $did(3)
      set  %şfr $did(4)
      nick $did(30)
      anick $did(31)
      identd on %idndt $+ @
      .timer 1 5 ns identify %şfr
      dialog -c dxr dxr
      server irc.chat.com.tr 
    }
  }
}