menu menubar { 
  - 
  » Bot Kontrol:/dialog -m botkontrol botkontrol
  - 
} 
dialog botkontrol {
  title "Services Bot Kontrol Merkezi"
  size -1 -1 186 108
  option dbu
  list 1, 69 2 50 105, size
  button "Tek Bot Yap", 2, 2 3 59 10
  button "Tek Bot Sil", 3, 2 19 59 10
  button "Tek Bot Kanala Sok", 4, 2 35 59 10
  button "Tek Bot Kanaldan Cıkar", 5, 2 52 59 10
  button "Otomatik Bot Yap", 6, 125 3 59 10
  button "Tüm Botları K. Sok", 7, 125 19 59 10
  button "Tüm Botları K. Çıkart", 8, 125 35 59 10
  button "Tüm Botları Sil", 9, 125 52 59 10
  text "Listelerden Veri Silmek İçin Sileceğiniz Veriye Çift Tıklayınız.", 10, 4 76 55 30
  text "OperServ NickServ ChanServ MemoServ StatsServ HelpServ ve *_Bot Nickleri Bu İşlemlerden Muaftırlar. ", 11, 127 72 55 36
}

on *:dialog:botkontrol:*:*: { 
  if $devent == init { 
    mdx MarkDialog $dname   
    mdx SetDialog $dname bgcolor $rgb(47,163,204) 
    mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11 +b Turkish 12 500 Tahoma
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 textbg $rgb(47,163,204)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 background $rgb(47,163,204)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 text $rgb(0,0,0) 
    mdx SetDialog $dname style title tool sysmenu
    set %bkontrol1 on | write -c botlar.txt | who
    .timer 1 2 unset %kkontrol1 
  }
  if $devent == sclick {
    if $did == 2 { /os raw : NICK $$?"Nick Yaz" 1 1 $$?"Identd Adresi Yaz. @ Koyma" $$?"Ip Adresi Yaz,Harfde Olur" $$?"Services Adını Yaz Örnek: services. $+ $network Büyük-Kücük Harfe Duyarlıdır!" $$?"Açıklama Yaz" }
    if $did == 3 { /os raw : NICK $$?"Botun Nickini Yaz" 0 0 }
    if $did == 4 { /os raw : $+ $$?"Botun Nickini Yaz" join $$?"Gireceği Kanalı Yaz" }
    if $did == 5 { os raw : $+ $$?"Botun Nickini Yaz" Part $$?"Çıkacağı Kanalı Yaz" }
    if $did == 6 { 
      set %xbotsayisi $$?"Kaç Tane Bot Oluşturacaksınız. Botlar Real Nickler Alacaklardır. Rakamla Yazın"
      set %xbotservicesadi $$?"Services Adını Yazın. Büyük Kücük Harf Duyarlıdır. Örnek services. $+ $network $+ "
      var %i 1 
      while %i <= %xbotsayisi { 
        WhileFix WhileFix .
        os raw : NICK $read(nickler.txt) 1 1 $network $upper($rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)) %xbotservicesadi Web User
        inc %i
      }
      set %bkontrol1 on | who
      .timer 1 2 unset %kkontrol1
    }
    if $did == 7 { 
      var %girkanal $$?"Gireceği Kanalı Yazın"
      var %i 1 
      while %i <= $lines(botlar.txt) { 
        WhileFix WhileFix .
        os raw : $+ $read(botlar.txt,%i) join %girkanal
        inc %i 
      }
    }
    if $did == 8 { 
      var %cikkanal $$?"Çıkacağı Kanalı Yazın"
      var %i 1 
      while %i <= $lines(botlar.txt) { 
        WhileFix WhileFix .
        os raw : $+ $read(botlar.txt,%i) part %cikkanal
        inc %i 
      }
    }
    if $did == 9 {
      var %i 1 
      while %i <= $lines(botlar.txt) { 
        WhileFix WhileFix .
        os raw : NICK $read(botlar.txt,%i) 0 0 
        inc %i 
      }
    }
  }
  if $devent == dclick {
    if ($did == 1) { write -ds $+ $did(1).seltext botlar.txt | did -d botkontrol 1 $did(1).sel }
  }
  if $devent == close { 
    write -c botlar.txt
  }
}