#baglanti on
on 1:start:{ .bagLanti }
aLias bagLanti { .diaLog -m bagLanti bagLanti }
diaLog bagLanti {
  titLe " RapStar mIRC Bağlantı Menüsü© "
  size -1 -1 203 133
  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 85
  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, 50 110 107 15
  button "Kaydet ve Kapat", 35, 25 90 67 15, ok
  button "İptal", 36, 110 90 62 15, canceL
}
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
}
on 1:diaLog:bagLanti:scLick:34:{
  if ($did(22) != $null) { /nick $did(22) }
  else { /nick $did(5) } 
  .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 *:connect:{ 
  .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 | unset %one | unset %two | unset %three }
#baglanti end