Forums Scripts & Popups Online radio Player

dialog online_radio {
  title "Online Radio"
  size -1 -1 155 22
  option dbu
  box "", 1, 3 0 149 19
  combo 2, 42 6 60 87, size drop
  button "4", 3, 105 6 20 10
  text "Radio", 4, 6 6 33 8, disable center
  button "<", 5, 128 6 20 10
}

on *:dialog:online_radio:init:*:{
  $mdx SetMircVersion $version 
  $mdx MarkDialog $dname
  $mdx SetFont 3,5 18 700 webdings
  $mdx SetFont 4 18 600 Dungeon
  $dll(system\dlls\VStyle.dll,NoTheme,$dialog($dname).hwnd)
  did -a online_radio 2 HitzRadio
  did -c online_radio 2 1
}
on *:dialog:online_radio:sclick:3:{
  if ($did(2) == HitzRadio) { runRP http://205.188.234.38:8070/ | kte_echo -a Hitz Radio }
}
on *:dialog:online_radio:sclick:5:{
  /ClosePlayers
}

alias runRP {
  if !$1 {
    echo -aec info * /runRP: insufficient parameters.
    return
  }
  if !$com(objRP) {
    if $com(objWMP) { closeWMP }
    .comopen objRP rmocx.RealPlayer G2 Control.1
    if $comerr {
      echo -aec info * /runRP: incompatible RealPlayer version.
      return
    }
  }
  else !.echo -q $com(objRP,DoStop,1)
  !.echo -q $com(objRP,Source,4,bstr,$1-)
  !.echo -q $com(objRP,DoPlay,1)
}

alias -l closeRP .comclose objRP

alias closePlayers {
  if $com(objRP) { closeRP }
}

alias adv_rp {
  sockopen advrp www.hitzradio.com 80
}
on *:sockopen:advrp:{
  sockwrite -tn $sockname GET / http/1.1 $+ $crlf $+ User-Agent: radioplayer (compatible; MSIE 6.0; Windows NT 5.1) $+ $crlf $+ Host: www.hitzradio.com $+ $crlf $+ Connection: Close $+ $crlf $+ $crlf
}
on *:sockread:advrp:{
  var %s | sockread %s
  if (*<span id="nowplaying">* iswm %s) echo 4 -a * radioplayer: now playing: $gettok($gettok(%s,3,62),1,60)
}