alias baglanti { dialog -m Sunucumenu Sunucumenu }
dialog Sunucumenu {
  title "|X| Sunucu Ozel Script - Bağlantı Menüsü |X|"
  size -1 -1 413 273
  option pixels
  box "", 2, 3 63 406 174
  box "", 3, 20 63 380 152
  text " Nick :", 4, 152 80 47 15
  edit "", 5, 200 80 100 20, autohs
  text " Yedek Nick :", 500, 136 104 63 15
  edit "", 501, 200 104 100 20, autohs
  button "Bağlan!", 6, 308 121 80 43
  button "Pencereyi Kapat", 16, 45 240 329 25, ok
  edit "", 7, 200 128 100 20, autohs
  text "GirişŞifre", 8, 152 128 46 15
  edit "", 1, 200 176 100 20, autohs
  edit "", 9, 200 192 100 20, autohs
  text "oper Nick :", 10, 136 176 62 15
  text " oper pass :", 11, 136 192 64 15
  icon 12, 34 90 88 88,XXX resimler/paneller2.gif
  icon 13, 42 1 317 63,XXX resimler/kalp.ico
  check "aç/kapa", 14, 314 174 68 20
  edit "", 15, 200 152 100 20, autohs
  text "NickŞifre", 17, 152 152 46 15
  menu "Özellikler", 900
  item "Korumalar", 904, 900
  item "Ayarlar", 905, 900
  menu "Otomatik İşlemler", 901
  item "Oto Mesaj", 906, 901
  item "Oto Cevap", 907, 901
  item "Oto Join", 908, 901
  menu "Listeler", 903
  item "Op Listesi", 915, 903
  item "Voice Listesi", 916, 903
  item "Düşman Listesi", 917, 903
}
on *:dialog:Sunucumenu:init:*: {
  if ($group(#opper).status == on ) did -c Sunucumenu 14
  did -a $dname 5 $readini mirc.ini mirc nick
  did -a $dname 501 $readini mirc.ini mirc anick
  did -a $dname 1   %IFf 
}
on *:dialog:Sunucumenu:sclick:14: {
  if ($group(#opper).status == on ) { .disable #opper }
  else { /.enable #opper }
}
#opper on

on *:CONNECT: {
  .timeroper 1 3 oper %IFf %IFff
  .timer 1 2 ns identify %ns
}
#opper end
on *:dialog:Sunucumenu:menu:*:{
  if ($did == 904) { korumalar }
  if ($did == 905) { ayarlar }
  if ($did == 906) { otomesaj }
  if ($did == 907) { otocevap }
  if ($did == 908) { otojoin }
  if ($did == 911) { rtabir }
  if ($did == 912) { sayısal_loto }
  if ($did == 913) { stopu }
  if ($did == 914) { yorumcu }
  if ($did == 915) { autooplist }
  if ($did == 916) { autovoicelist }
  if ($did == 917) { shitlistz }
}

on *:dialog:Sunucumenu:sclick:*:{
  if ($did == 6) { .nick $did(5) | .anick $did(501) | set %ns $did(15) | set %IFf $did(1) | set %IFff $did(9) | server irc.zurna.net:6667 $did(7) | set %portnum $did(7) | /dialog -x Sunucumenu Sunucumenu }
  if ($did == 6) { .nick $did(5) | .anick $did(501) | set %ns $did(15) | set %IFf $did(1) | set %IFff $did(9) | server irc.zurna.net:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
}
on *:start: { baglanti }