alias kontrol.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { 
      did -o tb 1 2 +a 2 Kopart
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Bağlanmak için tıklayın
    }
  }
}
alias ttb dialog -m tb tb
dialog tb {
  title "x"
  size 0 0 1500 8
  option dbu
  list 1, 2 2 2978 25, size
}
on *:dialog:tb:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetColor $dname 1  background $rgb(0,128,255)
    mdx SetFont   1 -12 700  Arial 
    mdx SetDialog $dname style 
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 1
    mdx SetControlMDX $dname 1,3,6 Progressbar smooth > system\dll\ctl_gen.mdx
    mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > system\dll\bars.mdx
    mdx SetColor $dname 3,4 background $rgb(0,128,255)
    mdx SetColor $dname 3,4 textbg $rgb(0,128,255)
    mdx SetColor $dname 4  text $rgb(255,255,255)   
    mdx SetFont $dname 4 24  700 Arial
    dll system\dll\rebar.dll HideToolbar . 
    dll system\dll\rebar.dll Dock $dialog(tb).hwnd > top
    did -i $dname 1 1 setscheme $rgb(0,128,255) $rgb(0,128,255)
    did -i $dname 1 1 bmpsize 32 32
    did -i $dname 1 1 setimage icon large $mircdirsystem\adon\icon\baglan.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kopar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\ayarlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\kanallar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\radyo.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\dizi.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\komutlar.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\hizmet.ico
    did -i $dname 1 1 setimage icon large system\adon\icon\oyun.ico

    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -a $dname 1 +a 3 Ayarlar $chr(9) $+ Kanal Ayarlarını Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallar ve Favoriler
    did -a $dname 1 +a -
    did -a $dname 1 +a 5 $chr(32) Radyo Dinle $chr(9) $+ SohbetideaL Fm`Le Müzik Keyfini Yaşayın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 6 $chr(32) Dizi İzle $chr(9) $+ En Güncel Dizileri İzlemek İçin Tıklayın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 7 $chr(32) Komutlar $chr(9) $+ Chanserv Komutlarını Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 8 $chr(32) Hizmetler $chr(9) $+ MIrc Keyfinize Keyif Katın.
    did -a $dname 1 +a -
    did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Oyunlar Menüsü
    kontrol.tb
dll demid.dll SetBkImage $dname xxx.png
  }
  if ($devent == sclick) {
    if $did == 1 {
      var %secenekler $did(1).sel
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
        else {
          scid $activecid server irc.sohbetideal.com
        }
        kontrol.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
      if (%secenekler == 4) { /AlpEroin2  }
      if (%secenekler == 6) { /kanallar }
      if (%secenekler == 8) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      if (%secenekler == 10) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      if (%secenekler == 12) { /komutlar }
      if (%secenekler == 14) { dialog -m interaktif interaktif }
      if (%secenekler == 16) { dialog -m oyun oyun }
    }
  }
}
on *:connect: { kontrol.tb }
;
on *:start: {
  dll system\dll\BASLIK.DLL SetMircTitle ~ ŞaH ~ SohbetideaL Script ®
  ttb
}
alias mdx_fullpath { return $+(",system\dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }