alias btool {
  if $dialog(btool) { hos Undock btool close }
  hos ShowToolBar false
  dialog -m btool btool | hos Dock btool top -1
}
dialog btool {
  title "black toolbar"
  size -1 -1 1000 5
  list 2, 1 1 1000 100
}
on *:dialog:btool:init:*:{
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname $dialog($dname).hwnd
  dll $mdx SetDialog $dname style
  dll $mdx SetBorderStyle $dname 2
  dll $mdx SetControlMDX $dname 2 ToolBar flat wrap arrows nodivider noresize > dll\bars.mdx
  did -i $dname 2 1 bmpsize 18 18
  did -i $dname 2 1 setimage +nh icon small $iif($status == connected,$_c(connect),$_c(disconnect))
  did -a $dname 2 +b 1 $chr(9) $+ $iif($status == connected,Sunucudan Ayrıl,Sunucuya Gir)
  did -a $dname 2 -
  did -i $dname 2 1 setimage +nh icon small $_c(chan)
  did -a $dname 2 +b 2 $chr(9) $+ Kanal Listesi
  did -i $dname 2 1 setimage +nh icon small $_c(cprot)
  did -a $dname 2 +b 3 $chr(9) $+ Kanal Korumaları
  did -i $dname 2 1 setimage +nh icon small $_c(self)
  did -a $dname 2 +b 4 $chr(9) $+ Kişisel Korumalar
  did -a $dname 2 -
  did -i $dname 2 1 setimage +nh icon small $_c(away)
  did -a $dname 2 +b 5 $chr(9) $+ Away Ayarları
  did -i $dname 2 1 setimage +nh icon small $_c(autoj)
  did -a $dname 2 +b 6 $chr(9) $+ Auto Join Ayarları
  did -i $dname 2 1 setimage +nh icon small $_c(ai)
  did -a $dname 2 +b 7 $chr(9) $+ Auto Identify
  did -i $dname 2 1 setimage +nh icon large $_c(text)
  did -a $dname 2 +b 8 $chr(9) $+ Logs
  did -a $dname 2 -
  did -i $dname 2 1 setimage +nh icon small $_c(display)
  did -a $dname 2 +b 9 $chr(9) $+ Hakkında
}
alias _c { return $+(icon\,$1-,.ico) }
alias tchatdll { dll dll\tchat.dll $1- }
on 1:dialog:btool:sclick:2: {
  if $did(2).sel == 2 { /server  }
  if $did(2).sel == 4 { tchatdll sendkey alt j }
  if $did(2).sel == 5 { f3 }
  if $did(2).sel == 6 { f3 }
  if $did(2).sel == 8 { f10 }
  if $did(2).sel == 9 { f9 }
  if $did(2).sel == 10 { f7 }
  if $did(2).sel == 11 { f6 }
  if $did(2).sel == 13 { dialog -m babout babout }
}