if ($devent == init) {
  dll $hate(mdx) MarkDialog $dname
  dll $hate(mdx) SetDialog $dname style
  dll $hate(img) ImgDlg 1 1 $dialog(x-one).hwnd srjn/img/logo.bmp
  dll $hate(demid) SetTopic $dname
  dll $hate(demid) DlgParent $dname STATIC $active
}

if ($dname == _t) {
  if ($devent == init) {
    .timerzzzzzz 0 1 bands
    dll $hate(mdx) MarkDialog $dname
    dll $hate(mdx) SetDialog $dname style
    dll $hate(mdx) SetControlMDX $dname 1 toolbar flat list wrap arrows nodivider > $hate(2)
    dll $hate(mdx) SetControlMDX $dname 2,3,8 Progressbar smooth > $hate(ctl)
    dll $hate(mdx) SetBorderStyle 1
    dll $hate(rebar) HideToolbar .
    dll $hate(rebar) Dock $dialog(_t).hwnd > Top
    did -i $dname 1 1 bmpsize 32 32

    ; Iconları sırayla ekleyelim
    var %icons = 2.ico 1.ico Ayar.ico ok.ico Koruma.ico Kanal.ico Ayarlar.ico Hakkında.ico
    var %i = 1
    while (%i <= $numtok(%icons, 32)) {
      did -i $dname 1 1 setimage icon large grafik\icon\ $+ $gettok(%icons, %i, 32)
      inc %i
    }

    ; Menü öğeleri
    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) Ayarlar $chr(9) Bağlantı Ayarlarını Yapar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 4 $chr(32) Bağlantı $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) Kanallar $chr(9) Kanallar
    did -a $dname 1 +a -
    did -a $dname 1 +a 7 $chr(32) Ayarlar $chr(9) Ayarlar Menüsünü Açar.
    did -a $dname 1 +a -
    did -a $dname 1 +a 8 $chr(32) Hakkında $chr(9) Script Hakkında
  }

  if ($devent == sclick) && ($did == 1) {
    var %sel = $did($dname,1).sel
    if (%sel == 2) {
      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"
    }
    elseif (%sel == 4) { bass ALT o }
    elseif (%sel == 6) { Start }
    elseif (%sel == 8) { Korumalar }
    elseif (%sel == 10) { List }
    elseif (%sel == 12) { Ayarlar }
    elseif (%sel == 14) { Hakkında }
  }
}

if ($dname == away) {
  if ($devent == init) {
    dll $hate(mdx) MarkDialog $dname
    dll $hate(mdx) SetFont $dname 1-16 +a 13 900 Tahoma
    did -a $dname 3 $me $+ -Afk
    did -a $dname 3 $me $+ `Afk
    did -a $dname 3 $me $+ -Yok
    did -a $dname 3 $me $+ -Yoq
    did -a $dname 3 $me $+ -Meşgul
    did -a $dname 3 $me $+ -Offline
    did -a $dname 3 $me $+ -Sleeping
    did -a $dname 5 Meşgul
    did -a $dname 5 W.c
    did -a $dname 5 Yatıyorum. xD
    did -a $dname 5 Yokum.

    if (%Awayame == 1) { did -c $dname 6 }
    if (%Awayecho == 1) { did -c $dname 9 }
    if (%awayname == 1) { did -c $dname 2 | did -e $dname 3 }
    else { did -b $dname 3 }
    if (%awayLog == 1) { did -c $dname 7 }
    if (%awayseslen == 1) { did -c $dname 8 }
  }

  if ($devent == sclick) {
    if ($did == 2) {
      if ($did($dname,2).state == 1) {
        set %Awayname 1
        did -e $dname 3
      }
      else {
        set %Awayname 0
        did -b $dname 3
      }
    }
    elseif ($did == 6) {
      if ($did($dname,6).state == 1) {
        unset %awayecho
        set %Awayame 1
      }
      else {
        set %Awayame 0
      }
    }
  }
}