ON *:START: {
  sahr
  cal %acrd
}

alias sahr1 {
  //vol -v $calc($vol(master) - 4000)
}
alias sahr2 {
  //vol -v $calc($vol(master) + 4000)
}

alias sahr4 {
  cal dur
  set %acrd $$?="Radyo linki portu örnk: radyolink:port:"
  cal %acrd
}

alias sahr3 {
  cal dur
  .timer 1 2 /cal radyolink:port
}

alias sahr {
  /toolbar -az1 Radyo "Başka Link" görünüm\Bin\Liste.ico "/sahr4"
  /toolbar -az1 Radyoo "RadyoFM aç" dfdf.ico "/sahr3"
  /toolbar -az1 Rady "Ses Çogalt" cc.ico "/sahr2"
  /toolbar -az1 Rad "Ses Azalt" Ks.ico "/sahr1"
  /toolbar -az1 Radyooo "RadyoFM Kapat" görünüm\Bin\kop.ico "/cal dur"
}

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)
  }
}

alias sahr1 {
  //vol -v $calc($vol(master) - 4000)
}
alias sahr2 {
  //vol -v $calc($vol(master) + 4000)
}