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 $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) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır.
    }
    else {
      did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
    }
  }
}

dialog toolbar {
  title "x"
  size 0 0 550 $iif($temabul,18,21)
  option dbu
  list 1, 0 4 274 17, size
  list 10, 280 8 270 12, size
  box "Mp3 Kontrol Merkezi", 14, 275 -1 114 33,default

  text "", 2, 464 6 45 16, center
  text "", 3, 467 10 39 11, center
}
on *:dialog:toolbar:init:0: {
  mdx MarkDialog $dname
  mdx SetDialog $dname style
  mdx SetFont $dname 1,14 Turkish 14 800 Cyrillic
  mdx SetColor $dname 3 text $rgb(0,0,0)
  mdx SetFont $dname 3 +a 20 600 arial
  .timersaat 0 1 saat 3

  rebar HideToolbar
  rebar Dock $dialog(toolbar).hwnd > top
  mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1,10,4 ToolBar flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1,10

  did -i $dname 10 1 bmpsize 20 20
  did -i $dname 10 1 setimage icon large icon\geri.ico
  did -i $dname 10 1 setimage icon large icon\basla.ico
  did -i $dname 10 1 setimage icon large icon\durdur.ico
  did -i $dname 10 1 setimage icon large icon\bitir.ico
  did -i $dname 10 1 setimage icon large icon\ileri.ico
  did -a $dname 10 +a -
  did -a $dname 10 +a 1 $chr(32) Geri $chr(9) $+ Önceki şarkıya gelir.
  did -a $dname 10 +a -
  did -a $dname 10 +a 2 $chr(32) Çal $chr(9) $+ Şarkıyı başlatır.
  did -a $dname 10 +a -
  did -a $dname 10 +a 3 $chr(32) Dur $chr(9) $+ Şarkıyı Durdurur.
  did -a $dname 10 +a -
  did -a $dname 10 +a 4 $chr(32) Bitir $chr(9) $+ Şarkıya Son verir.
  did -a $dname 10 +a -
  did -a $dname 10 +a 5 $chr(32) İleri $chr(9) $+  Bir sonraki şarkıya geçer.
  did -a $dname 10 +a -


  did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 1 1 bmpsize 32 32
  did -i $dname 1 1 setimage icon large icon\baglan.ico
  did -i $dname 1 1 setimage icon large icon\kes.ico
  did -i $dname 1 1 setimage icon large icon\Ayarlar.ico
  did -i $dname 1 1 setimage icon large icon\kanal.ico
  did -i $dname 1 1 setimage icon large icon\korumalar.ico
  did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
  did -i $dname 1 1 setimage icon large icon\mp3.ico
  did -a $dname 1 +a -
  did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
  did -a $dname 1 +a -
  did -a $dname 1 +a 7 $chr(32) Winamp $chr(9) $+ Winampi Açar
  did -a $dname 1 +a -

}

on *:dialog:toolbar:*:*: {
  if $devent == sclick {
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 3) {
          var %a $dll(dll\ctlamp.dll,Command,previous)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 5) {
          var %a $dll(dll\ctlamp.dll,Command,title)

        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 7) {
          var %a $dll(dll\ctlamp.dll,Command,pause)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 9) {
          var %a $dll(dll\ctlamp.dll,Command,stop)
        }
      }
    }
    if $did == 10 {
      if ($readini(dll\winamp.ini, winamp, enable)) {
        var %click $did($dname,10).sel
        if (%click == 11) {
          var %a $dll(dll\ctlamp.dll,Command,next)
        }
      }
    }
    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) {
        Korumalar
      }
      if ($did($dname,1).sel = 11) {
        kontrolpanel
      }
      if ($did($dname,1).sel = 13) {
        .run Winamp.exe
      }
    }
  }
}

goster <dialogadi> <grup>
alias goster {
  var %d $1,%ids 8-23.24-36.37-49
  _did -h %d $replace($deltok(%ids,$1,46),$chr(46),$chr(44))
  _did -v %d $gettok(%ids,$1,46)
}

alias _did if ($_-($3)) echo . did $1-2 $ifmatch $4-


alias _- {
  var %i 1,%m,%r
  tokenize $iif($chr(44) isin $1-,44,32) $1-
  while $ [ $+ [ %i ] ] {
    %m = $ifmatch
    if (- isin %m) %m = $_gap($gettok(%m,1,45),$gettok(%m,2,45))
    %r = $addtok(%r,%m,44)
    inc %i
  }
  return %r
}

alias _gap { var %i $1,%r $1 | while %i <= $2 { %r = $addtok(%r,%i,44) | inc %i } | return %r }