on 1:start:{ 
  _basla
  set %radyoyayin -
}

on *:connect: {
  update.tb
  set %olay bagli
  .timerbaglanti -o 0 10 .baglantikontrol
}

alias baglantikontrol {
  if ($status == disconnected) { Echo -a %Lord 0,1 Bağlantın Kopmuş Tekrar Bağlandı! | server }
}

on *:close:*: {
  update.tb
  set %radyoyayin -
}

on *:appactive: {
  ;.timer -m 1 100 _dotray
  if $appactive {
    update.tb
  }
}

alias mdx dll dlls\mdx.dll $1-
alias bars return dlls\bars.mdx
alias update.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ($scid($activecid).status = connecting) || ($scid($activecid).status = connected) || ($status == connected)  { 
      did -o tb 1 2 +a 2 Kes 
    }
    else {
      did -o tb 1 2 +a 1 Bağlan $chr(9) $+ Sohbete Başla!
    }
  }
}

dialog tb {
  title "x"
  size 0 0 1500 17
  option dbu
  list 1, 2 -1 2978 25, size
  text "Adres :",14, 2 22 35 8, left
  edit "", 15,30 21 105 10,autohs  
  button "ÇaL", 16, 138 21 25 9
  button "DuR", 17, 163 21 18 9
  button "+", 18, 181 21 18 9
  button "-", 19, 199 21 18 9
  text "İstek :", 20, 220 22 21 8, right
  edit "", 21,243 21 73 10  
  button "Gönder", 22,318 21 25 9

}
on *:dialog:tb:init:0: {
  idset 100
  mdx MarkDialog $dname
  mdx SetDialog $dname style 
  mdx SetBorderStyle $dname 2 staticedge    
  rebar HideToolbar .
  rebar Dock $dialog(tb).hwnd > top
  mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
  mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
  mdx SetBorderStyle 1
  ;mdx SetColor $dname 1 background $rgb(255,255,255)
  kalin 1 13
  ;did -i $dname 1 1 setcheme $rgb(191,239,255) $rgb(191,239,255) 
  did -i $dname 1 1 bmpsize 30 30
  did -i $dname 1 1 setimage icon large img\baglan.ico
  did -i $dname 1 1 setimage icon large img\kopar.ico
  did -i $dname 1 1 setimage icon large img\kanal.ico
  did -i $dname 1 1 setimage icon large img\adcon.ico
  did -i $dname 1 1 setimage icon large img\ayar.ico
  did -i $dname 1 1 setimage icon large img\koruma.ico
  did -i $dname 1 1 setimage icon large img\extra.ico
  did -i $dname 1 1 setimage icon large img\admin.ico
  did -i $dname 1 1 setimage icon large img\cesuryurek.ico
  did -i $dname 1 1 setimage icon large img\opmen.ico
  did -i $dname 1 1 setimage icon large img\List.ico
  did -i $dname 1 1 setimage icon large img\spams.ico
  did -i $dname 1 1 setimage icon large img\logs.ico

  did -a $dname 1 +a 1 Bağlantıyı Kes
  did -a $dname 1 +a 3 Kanallar $chr(9) $+ Kanal Klasörünü Açar
  did -a $dname 1 +a 4 Admin Paneli $chr(9) $+ Admin Menüsü..
  did -a $dname 1 +a 5 Script Düzeni $chr(9) $+ Scriptinizin Ayarları 
  did -a $dname 1 +a 6 Korumalar $chr(9) $+ Korumalar Menüsü..
  did -a $dname 1 +a 7 Extra Menü $chr(9) $+ --- Player, Fal, vs...
  did -a $dname 1 +a 8 GLine $chr(9) $+ Gline Menü
  did -a $dname 1 +a 9 AkiLL $chr(9) $+ Akill Menü
  did -a $dname 1 +a 10 Oper Menü $chr(9) $+ Oper Menüsü..
  did -a $dname 1 +a 11 Spam $chr(9) $+ Spam Menüsü..
  did -a $dname 1 +a 12 Stats $chr(9) $+ Stats Menü..
  did -a $dname 1 +a 13 Loglar $chr(9) $+ Log Oku..
  did -i $dname 1 1 setbkg stretch img\b13.bmp
  if ($did(15) == $null) { did -ra $dname 15 http://radyo.chattur.com:9090 }
  update.tb  --
  dll aniwin.dll anime $dialog($dname).hwnd -hn 650
}

on *:dialog:tb:*:*: {
  if $devent == sclick {
    if $did == 1 {
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status == connecting) || ($scid($activecid).status == connected) || ($status == connected) { scid $activecid disconnect  | halt  }
        elseif ($status != connected) || ($scid($activecid).status == connected) { scid $activecid server  }
        update.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
    }
    if ($did($dname,1).sel = 3) { madkanalmd }
    if ($did($dname,1).sel = 4) {   helperircop  }
    if ($did($dname,1).sel = 5) { dialog -m scriptduzen scriptduzen }
    if ($did($dname,1).sel = 6) { dialog -m korumalar korumalar }
    if ($did($dname,1).sel = 7) { /efekt  }
    if ($did($dname,1).sel = 8) {  klines }
    if ($did($dname,1).sel = 9) { szline }
    if ($did($dname,1).sel = 10) { helps }
    if ($did($dname,1).sel = 11) { spam }
    if ($did($dname,1).sel = 12) { States }
    if ($did($dname,1).sel = 13) { loglar }
    if ($did == 16) {
      if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
      if (%radyoyayin == -) { cal $did(15) | .set %radioadres $did(15) | set %radyoyayin + | did -a $dname 16 Çalıyor }
    }
    if ($did == 17) { $iif($input(Radyo Durduruldulsunmu,a),cal dur) }
    if ($did == 18) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol  }
    if ($did == 19) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol  }
    if ($did == 22) { $iif($did(21),msg #radyo !istek $v1,echo -a Istek kutusu bos - isteginizi yazarak deneyiniz.)) } 
  }
}
alias cal {
  if ($1 != Dur) {
    set %caldir $+(sjn.,$ticks)
    .comopen %caldir wmplayer.ocx
    var %z $com(%caldir,Url,4,bstr,$1-)
    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
    %z = $com($+(%caldir,wmp),Play,3)
  }
  if ($1 == Dur) && ($com(%caldir)) {
    %z = $com($+(%caldir,wmp),Stop,3)
    unset %z
    unset %radyoyayin
    set %radyoyayin -
  }
}