#baglanti on
on 1:start:{ .bagLanti }
aLias bagLanti { .diaLog -m bagLanti bagLanti }
dialog bagLanti {
  title " RapStar mIRC Bağlantı Menüsü© "
  size -1 -1 204 144
  option dbu
  text "Nick:", 1, 3 12 25 8
  text "YedekNick:", 2, 3 21 26 8
  text "E-mail:", 3, 3 30 25 8
  box "Bağlantı Menüsü", 4, 1 1 129 54
  edit "", 5, 37 9 90 10
  edit "", 6, 37 29 90 10
  edit "", 7, 37 19 90 10
  text "Fullname: ", 10, 3 39 25 8
  edit "", 11, 37 39 90 10, autohs
  box "Otomatik Tanımlar", 12, 131 1 68 92
  text "Otomatik Giris", 13, 134 8 38 8
  text "1.Kanal", 14, 134 18 25 8
  edit "", 15, 162 17 33 10
  text "2.Kanal", 16, 134 27 25 8
  edit "", 17, 162 27 33 10
  text "3.Kanal", 18, 134 37 25 8
  edit "", 19, 162 37 33 10
  text "Otomatik Nick Tanıtım", 20, 134 50 61 8
  text "Nick", 21, 134 60 25 8
  edit "", 22, 161 59 31 10, autohs
  text "Sifre", 23, 135 70 25 8
  edit "", 24, 161 69 31 10, pass autohs
  box "Server", 26, 2 58 127 28
  edit "MyNet", 30, 8 69 117 12, disable
  button "Sohbete Gir", 34, 52 126 107 15
  button "Kaydet ve Kapat", 35, 27 110 67 15, ok
  button "İptal", 36, 112 110 62 15,cancel
  box "Oto Giriş ve Oto Nick Tanıtım İçin Önemli Açıklama! ",46, 2 88 199 20
  text "Ayarlarınızı Yaptıktan Sonra Kalıcı Olmasını İstiyorsanız Kaydet ve Kapatı Tıklamalısınız",45, 5 95 199 15
  button "Beni Unut", 9, 143 81 50 10
}
on 1:diaLog:bagLanti:init:*:{
  did -a bagLanti 5 $me
  did -a bagLanti 7 $anick
  did -a bagLanti 6 $emaiL
  did -a bagLanti 11 $fuLLname
  did -a baglanti 22 %mynet
  did -a baglanti 24 %mynet2
  did -a baglanti 15 %kanal1
  did -a baglanti 17 %kanal2
  did -a baglanti 19 %kanal3
}
on 1:diaLog:bagLanti:scLick:34:{
  if ($did(22) != $null) { nick $did(22) } 
  else { nick $did(5) }
  .identd off
  if (*@* iswm $did(6)) { emailaddr $token($did(6),1,64) $+ @ }
  else { emailaddr $did(6) $+ @ }
  fullname $did(11)
  anick $did(7)
  set %one $did(15)
  set %two $did(17)
  set %three $did(19)
  set %nick $did(22)
  set %sifre $did(24)
  set %AnaNick $did(5)
  .diaLog -x bagLanti bagLanti
  .server %server
}
on 1:diaLog:bagLanti:scLick:27:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:28:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:29:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:30:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:31:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:32:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:dialog:baglanti:sclick:34: { set %ufuk $did(22) }
on 1:dialog:baglanti:sclick:35: {
  set %mynet $did(22)
  set %mynet2 $did(24)
  set %kanal1 $did(15)
  set %kanal2 $did(17)
  set %kanal3 $did(19)
  set %email $did(6)
  set %fullname $did(11)
  .identd off
  if (*@* iswm $did(6)) { emailaddr $token($did(6),1,64) $+ @ }
  else { emailaddr $did(6) $+ @ }
  fullname $did(11)
  anick $did(7)
  if ($did(22) != $null) { nick $did(22) } 
  else { nick $did(5) }
}
on 1:dialog:baglanti:sclick:9: { 
  did -r baglanti 22 
  did -r baglanti 24
  did -r baglanti 15
  did -r baglanti 17
  did -r baglanti 19
}
on *:connect:{ 
  if (%mynet isin $me) { /ns IDENTIFY %sifre | halt }
  elseif %ananick {
    .timer 1 1 .nick %ananick 
    if (%sifre == $null) { haltdef }
    else { .timer 1 2 .ns identify %sifre | echo -a 10Nick Sifreniz giriLiyor }
  }
  if (%one != $null) { /j %one }
  if (%two != $null) { /j %two }
  if (%three != $null) { /j %three }
}
on *:disconnect:unset %sifre %one %two %three
#baglanti end