##############################
#      Coder By KiLLed       #
##############################
menu status,channel {
  -
  H » Bağlantı Menüsü:.killed12
  -
}
on *:start:{ KiLLed12 }
alias KiLLed12 { dialog -m KiLLed12 KiLLed12 }
dialog KiLLed12 {
  title "KiLLed Script Bağlantı Menüsü"
  size -1 -1 186 150
  option dbu
  box "", 1, 2 1 182 118
  text " Nickiniz", 2, 6 9 26 10
  edit "", 3, 38 9 51 10, return autohs
  text " Identiniz", 4, 6 23 26 10
  edit "", 5, 38 22 51 10, return autohs
  text " Yedeknick", 6, 6 37 26 10
  edit "", 7, 38 37 51 10, return autohs
  text " Fullname", 8, 6 51 26 10
  edit "", 9, 38 51 51 10, return autohs
  edit "", 10, 104 9 76 10, return autohs
  button "Server Ekle", 11, 104 23 36 10
  button "Server Sil", 12, 144 23 36 10
  button "Kapat", 13, 6 196 83 16,ok
  text " Şifreniz", 14, 6 65 26 10
  edit "", 17, 38 65 51 10, return autohs pass
  text " Port", 18, 6 79 26 10
  edit "", 19, 38 79 51 10
  text " Oto Şifre", 21, 6 93 26 10
  check "", 22, 38 93 6 10
  text " Aç / Kapat", 24, 44 93 45 10
  text " irc.sunucu.com Şeklinde Ekleyin", 23, 6 107 83 8
  list 15, 104 37 76 54, size
  edit "KiLLed BagLanti", 20, 6 124 174 20, read center
  button "Listeden Sunucu Seç Bağlan", 16, 104 94 76 20
}
on *:dialog:KiLLed12:sclick:*: {
  if ($did(22).state == 1) { .enable #sfr } | else { .disable #sfr }
  if ($did == 11) { write server.txt $did(10) | did -a KiLLed12 15 $did(10) | did -r $dname 10 }
  if ($did == 12) { write -dl $did(15).sel server.txt | did -d KiLLed12 15 $did(15).sel }
  if ($did == 16) { .nick $did(3) | .emailaddr $did(5) | .fullname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12 
    else {
      .nick $did(3) | .emailaddr $did(5) $+ @ | .fullname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12
    }
  }
}
on *:dialog:KiLLed12:init:*: {
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx SetBorderStyle 2,4,6,8,14,18,20
  mdx SetDialog [ $dname ] bgcolor [ $rgb(28,96,113) ]
  mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 textbg [ $rgb(0,0,0) ]
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 text $rgb(28,96,113) 
  mdx SetFont $dname 20 Batı 36 750 Old English Text MT
  mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 background [ $rgb(0,0,0) ]
  did -a $dname 3 $me
  did -a $dname 5 $emailaddr
  did -a $dname 7 $anick
  did -a $dname 9 $fullname
  did -ra $dname 17 %n-pass
  did -a $dname 19 $port
  if ($group(#sfr) == on) { did -c KiLLed12 22 }
  var %he 1
  while %he <= $lines(server.txt) {
    did -a KiLLed12 15 $read(server.txt,%he)
    inc %he
  }
}
on *:dialog:KiLLed12:edit:*:{
  if ($did == 17) { set %n-pass $did(17) }
}
#sfr off
on *:notice:*:*:{
  if ($nick == NickServ) { 
    if (*Nickserv*IDENTIFY* iswm $1-) || (*Kayıt*nick* iswm $1-) {
      .ns identify %n-pass
    }
  }
}
#sfr end