on *:LOAD:{
.set %radyoyayin - 
}
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
}
}
dialog nmkradio {
title "Radio"
size -1 -1 132 43
option dbu
edit "http://212.175.122.53:1453 ", 1, 32 12 98 10, autohs
text "Adres :", 2, 3 13 25 8
button "Çal", 3, 4 28 37 12
button "Dur", 4, 46 28 37 12
button "Gizle", 5, 89 28 37 12
text "Örnek : http://212.175.122.53:1453", 6, 28 2 101 8
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
if (%radyoyayin == -) { did -a $dname 3 Çal }
if (%radyoyayin == +) { did -a $dname 3 Çalıyor }
}
if ($devent == sclick) {
if ($did == 3) { 
if (%radyoyayin == +) { echo -a 3 2 $me Yanlış Yere Tıkladın Zaten Radyo Açık... }
if (%radyoyayin == -) {
.cal $did(1) | .set %radioadres $did(1) | set %radyoyayin + | did -a $dname 3 Çalıyor
}
}
if ($did == 4) {
if (%radyoyayin == -) { echo -a $me Yanlış Yere Tıkladın Zaten Radyo Kapalı... }
if (%radyoyayin == +) { 
.cal dur | set %radyoyayin - | did -a $dname 3 Çal
}
}
if ($did == 5) { .dialog -x nmkradio nmkradio }
}
}
menu * {
-
Radio aç:.timer 1 1 dialog -m nmkradio nmkradio | unset %radioadres
-
}

on 1:start:{ 
  _basla
}

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
}

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, 5 22 37 8, center
  edit "", 15,35 21 85 10,autohs  
  button "ÇaL", 16, 125 21 23 9
  button "DuR", 17, 148 21 18 9
  button "+", 18, 166 21 18 9
  button "-", 19, 184 21 18 9
  text "İstek :", 20, 205 21 21 8, right
  edit "", 21,228 21 73 10  
  button "Gönder", 22,303 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 }

  }
}