on *:connect: { /dialog -m sifre sifre }
on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre } 
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre } 
dialog sifre { 
  title "Şifre Asistanı" 
  size -1 -1 110 60 
  option dbu 
  box $me Kayitli Bir Nicktir.., 20, 0 0 110 60 
  text "Nick Degistir:", 4, 10 22 33 10 
  text "Sifre Gir: ", 3, 10 10 23 13 
  edit "", 5, 45 8 60 10, style(pass),autohs 
  edit "", 6, 45 20 60 10 
 
  button "Uygula", 1, 10 35 40 15, ok 
  button "I&ptal", 2, 60 35 40 15, cancel 
 
} 
on 1:dialog:sifre:sclick:1: { 
  if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5) 
  if ($did(sifre,5)) .nickserv identify $did(sifre,5) 
  if ($did(sifre,6)) .nick $did(sifre,6) 
}

on *:start: { forbi }
alias forbi { dialog -m giriss giriss }
dialog giriss {
  title "Bağlantı Menüsü"
  size -1 -1 189 109
  option dbu
  button "Bağlan", 1, 35 91 28 12
  button "Kapat", 2, 3 91 26 12,ok
  edit "", 3, 101 74 71 10
  list 4, 97 5 84 50, size
  text " Nick Giriniz", 5, 0 6 28 8
  edit "", 6, 38 5 51 10
  text " Sunucu Ekle", 7, 101 61 31 8
  button "Ekle", 8, 101 91 22 12
  button "Sil", 9, 150 91 22 12
  text " Ident Giriniz", 10, 0 19 31 8
  edit "", 11, 38 17 51 10
  edit "", 12, 0 43 89 10
  text " Fullname Giriniz", 13, 0 34 40 8
  box "Kişisel Menü", 14, -1 -1 93 57
  box "Sunucu Menüsü", 15, 95 -1 88 59
}

on *:dialog:giriss:init:*: {
  var %kry 1
  while %kry <= $lines(sunucular.txt) {
    did -a giriss 4 $read(sunucular.txt,%kry)
    inc %kry
  }
}

on *:dialog:giriss:sclick:*: {
  if ($did == 1) { nick $did(6) | fullname $did(12) | emailaddr $did(11) $+ @ | timer 1 2 /server $did(4).seltext }
  if ($did == 9) { write -d sunucular.txt $did(4).seltext | did -d giriss 4 $did(4).sel }
  if ($did == 8) { write sunucular.txt $did(3) | did -a giriss 4 $did(3) }
}