##############################

#      Coder By KiLLed       #

##############################

menu status,channel {

  -

  » 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 Bağlantı", 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) | .setname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12 

    else {

      .nick $did(3) | .emailaddr $did(5) $+ @ | .setname $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 Turkish 36 750 Arial

  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 on

on *:notice:*:*:{

  if ($nick == NickServ) { 

    if (*Nickserv*IDENTIFY* iswm $1-) || (*Kayıt*nick* iswm $1-) {

      .ns identify %n-pass

    }

  }

}

#sfr end