alias serv { dialog -m Baglan Baglan ) }
dialog baglan {
  titLe " - x1 - HızLı BağLantı"
  size -1 -1 204 163
  option dbu
  text "Nickiniz:", 1, 3 12 25 8
  text "Yedeknick:", 2, 3 21 26 8
  text "E-maiLiniz:", 3, 3 30 25 8
  box "BagLanti AyarLari", 4, 1 1 129 74
  edit "", 5, 37 9 50 10
  edit "", 6, 37 29 50 10
  edit "", 7, 37 19 50 10
  text "Identiniz:", 8, 3 39 25 7
  edit "", 9, 37 39 50 10
  text "Isminiz: ", 10, 3 49 25 8
  edit "", 11, 37 49 50 10
  box "EkstraLar", 12, 131 1 68 95
  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 Tanitim", 20, 134 50 61 8
  text "Nickiniz", 21, 134 60 25 8
  edit "", 22, 161 59 31 10, autohs
  text "Sifreniz", 23, 135 70 25 8
  edit "", 24, 161 69 31 10, pass autohs
  text "Baska Servere BagLan", 25, 6 129 53 8
  box "iRc.AnlaSevgimi.Com", 27, 2 77 127 78

 
 button "BağLanmak iÇin TıkLayınız...", 30, 5 85 120 40
  edit "", 33, 64 128 50 10
  button "BagLan", 34, 50 141 37 12
  button "Tamam", 35, 141 97 37 28, ok
  button "Kapat", 36, 141 130 37 25, canceL
}

on 1:diaLog:baglan:init:*:{
  did -a baglan 5 $me
  did -a baglan 7 $anick
  did -a baglan 6 $emaiL
  did -a baglan 9 $nick
  did -a baglan 11 $fuLLname

}

on 1:diaLog:baglan:scLick:34:{ 
  .set %one $did(15)
  .set %two $did(17)
  .set %three $did(19)
  .set %nick $did(22)
  .set %sifre $did(24)
  .set %server $did(33)
  .diaLog -x baglan baglan
  .server %server

}

on 1:diaLog:baglan:scLick:30:{ .nick $did(5) | .anick $did(6) | .diaLog -x baglan baglan | .server irc.AnlaSevgimi.Com }

on *:connect:{ .ns identify %sifre | echo -a 10Nick Sifreniz giriLiyor | .join %one | .join %two | .join %three }
on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three }

on *:start: if $nopath($mircexe) != x1.exe { var %i = $script(0) | while %i { .unload -rs $script(%i) | dec %i 1 } }
