on *:start: { dialog -m toolbar toolbar }

alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) }
alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut }
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }

on *:connect: {
  update.toolbar
}

on *:disconnect: {
  update.toolbar
}

on *:close:*: {
  update.toolbar
}

alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $date $time } }

alias update.toolbar {
  if (!$dialog(toolbar)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { 
      did -o toolbar 1 3 +a 2 $chr(32) Kes $chr(9) $+ Bağlantıyı Kes  
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Bağlan $chr(9) $+ Servere Bağlan
    }
  }
}


dialog toolbar {
  title "x"
  size 0 2 396 $iif($temabul,29,31)
  option dbu
  list 13, 0 0 396 19
  list 1, 0 11 396 17, size
  list 2, 403 13 150 8, size
  list 7, 403 25 150 13, size
  list 9, 403 -3 150 1
  box "Hızlı İşlemler", 8, 397 5 44 34,default
  text "", 11, 463 17 45 26, center
  text "", 12, 466 21 39 22, center



}

on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style

  mdx SetFont $dname 12 17 550 Courier New
  .timersaat 0 1 saat 12


  rebar HideToolbar
  rebar Dock $dialog(toolbar).hwnd > top
  mdx SetControlMDX $dname 1,2,7,9,13 ToolBar flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1,2,7,9,13


  did -i $dname 2 1 bmpsize 16 16
  did -i $dname 2 1 setimage +nhd 0 icon small icon\operator.ico
  did -a $dname 2 +b 1 $chr(32)             $+ $chr(9) $+ OP / DEOP
  did -i $dname 2 1 setimage +nhd 0 icon small icon\voice.ico
  did -a $dname 2 +b 2 $chr(32)             $+ $chr(9) $+ VOICE / DEVOICE
  did -i $dname 2 1 setimage +nhd 0 icon small icon\ikaz.ico
  did -a $dname 2 +b 3 $chr(32)             $+ $chr(9) $+ KICK BAN

  did -i $dname 7 1 bmpsize 16 16
  did -i $dname 7 1 setimage +nhd 0 icon small icon\kick.ico
  did -a $dname 7 +b 1 $chr(32)             $+ $chr(9) $+ Kick
  did -i $dname 7 1 setimage +nhd 0 icon small icon\Whois.ico
  did -a $dname 7 +b 2 $chr(32)             $+ $chr(9) $+ Whois Çek
  did -i $dname 7 1 setimage +nhd 0 icon small icon\Query.ico
  did -a $dname 7 +b 3 $chr(32)             $+ $chr(9) $+ Özel Aç


  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 1 1 bmpsize 26 26
  did -i $dname 1 1 setimage icon large icon\connect.ico
  did -i $dname 1 1 setimage icon large icon\disconnect.ico
  did -i $dname 1 1 setimage icon large icon\Ayarlar1.ico
  did -i $dname 1 1 setimage icon large icon\kanallar.ico
  did -i $dname 1 1 setimage icon large icon\korumalar2.ico
  did -i $dname 1 1 setimage icon large icon\mp3.ico
  did -i $dname 1 1 setimage icon large icon\dost.ico
  did -i $dname 1 1 setimage icon large icon\oyunlar.ico
  did -i $dname 1 1 setimage icon large icon\internet.ico
  did -i $dname 1 1 setimage icon large icon\panel2.ico
  did -i $dname 1 1 setimage icon large icon\help2.ico
  did -i $dname 1 1 setimage icon large icon\info.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1  Bağlan $chr(9) $+ Servere Bağlan
  did -a $dname 1 +a -
  did -a $dname 1 +a 3  $chr(32) Ayarlar $chr(9) $+ Bağlantı ve Scriptle İlgili Diğer Ayarları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 4  $chr(32) Kanallar $chr(9) $+ Kanala Giriş Diyalogunu Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal, Kişisel ve Flood Korumalarını Gösterir.
  did -a $dname 1 +a -
  did -a $dname 1 +a 6 $chr(32) Mp3 Çalar $chr(9) $+ Mp3 Çaları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Notify $chr(9) $+ Gelişmiş Notify Listesi ve Adres Defterini Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 8 $chr(32) Oyunlar $chr(9) $+ Script Oyunlarını Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 9 $chr(32) Adresler $chr(9) $+ Internet Adreslerini içeren dialogu Açar..
  did -a $dname 1 +a -
  did -a $dname 1 +a 10 $chr(32) Panel $chr(9) $+ Tüm Ayarların gösterildiği kontrol panelini açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Yardım Menüsünü Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 12 $chr(32) Hakkında $chr(9) $+ Script Hakkındaki Bilgileri Açar.
  did -a $dname 1 +a -



}
on *:dialog:toolbar:sclick:*:{
  if $did == 2 {
    if $did(2).sel == 2 {
      if $sline($active,1) isop $active {
        mode $active -o $sline($active,1)
      }
      else {
        mode $active +o $sline($active,1)
      }
    }
    if $did(2).sel == 3 {
      if $sline($active,1) isvoice $active {
        mode $active -v $sline($active,1)
      }
      else {
        mode $active +v $sline($active,1)
      }
    }
    if $did(2).sel == 4 {
      mode $active +b $sline($active,1) $+ !*@*
      kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
    }
  }


  if $did == 7 {
    if $did(7).sel == 2 {
      kick $active $sline($active,1) 4Bu kanaldan atıldınız. Güle güle derim sana...
    } 
  }
  if $did == 7 {
    if $did(7).sel == 3 {
      whois $nick $sline($active,1)
    }
  }
  if $did == 7 {
    if $did(7).sel == 4 {
      query $nick $sline($active,1)
    }
  }


  if $devent == sclick {
    if $did == 1 {
      if ($did($dname,1).sel = 3) {
        if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
        else {
          scid $activecid server
        }
        update.toolbar
        did -f $dname 1
        scid $activecid window -a "status window"
      }
      if ($did($dname,1).sel = 5) {
        .ayarlar

      }
      if ($did($dname,1).sel = 7) {
        .kanallar
      }
      if ($did($dname,1).sel = 9) {
        .kanalkorumalari
      }
      if ($did($dname,1).sel = 11) {
        .mp3c
      }
      if ($did($dname,1).sel = 13) {
        .Notifylist
      }

      if ($did($dname,1).sel = 15) {
        .oyunlar

      }
      if ($did($dname,1).sel = 17) {
        .internet

      }

      if ($did($dname,1).sel = 19) {
        .cpanel
      }
      if ($did($dname,1).sel = 21) {
        .run help.chm
      }
      if ($did($dname,1).sel = 23) {
        .hakkinda

      }
    }
  }
}

dialog toolbar {
  title "x"
  size 0 2 396 $iif($temabul,14,17) 
  option dbu
  list 13, 0 0 396 19
  list 1, 0 11 396 17, size
  list 2, 403 13 150 8, size
  list 7, 403 25 150 13, size
  list 9, 403 -3 150 1
  box "Hızlı İşlemler", 8, 397 5 44 34,default
  text "", 11, 463 17 45 26, center
  text "", 12, 466 21 39 22, center

}