dialog kanal {
  title "gir"
  size -1 -1 132 94
  option dbu
  edit %1.chan, 1, 57 43 50 10
  edit %2.chan, 2, 59 55 50 10
  edit %3.chan, 3, 57 64 50 10
  edit %login.nick, 4, 40 11 82 10
  edit %login.pass, 5, 38 22 81 10
  text "Nick", 6, 6 12 25 8
  text "Şifre", 7, 5 24 25 8
  button "ok", 8, 90 80 37 12, ok
  text "kanal1", 9, 29 43 25 8
  text "kanal2", 10, 31 55 25 8
  text "kanal3", 11, 29 64 25 8
  radio "Aç/kapa", 12, 3 82 50 10
}

on *:dialog:kanal:*:*: { 
  if ($devent == init) {
    if (%oto.login == +) { did -c kanal 12 }
  }
  if ($devent == sclick) { 
    if ($did(12).state == 1) { set %oto.login + } | else { set %oto.login - }
    if ($did == 8) {
      set %login.nick $did(4)
      set %login.pass $did(5)
      set %1.chan $did(1)
      set %2.chan $did(2)
      set %3.chan $did(3)
    }
  }
}

on 1:connect:{
  if (%oto.login == +) && (%login.nick == $me) {
    .identify %login.pass
  }
  if (%oto.login == +) && (%login.nick != $me) {
    .ns ghost %login.nick %login.pass
    .ns release %login.nick %login.pass
    .login
  }
}

alias login {
  if ($me != %login.nick) { .nick %login.nick | .timeridentify 1 3 .identify %login.pass }
  if (%1.chan != $null) { .join %1.chan }
  if (%2.chan != $null) { .join %2.chan }
  if (%3.chan != $null) { .join %3.chan }
}