;;Coded by `Jose` of SwiftIRC
alias radio {
  dialog -m very_basic very_basic_table
}
dialog very_basic_table {
  title "Matt's Radio"
  size -1 -1 140 220
}
on *:dialog:very_basic:*:*: {
  if ($devent == init) {
    dcx Mark $dname very_basic_cb
    xdialog -c $dname 1 webctrl 0 0 0 0
    xdialog -c $dname 2 button 11 70 120 30 
    xdid -t $dname 2 Connect to Media
    xdialog -c $dname 3 button .4 130 70 30 
    xdid -t $dname 3 Stop
    xdialog -c $dname 4 button 70 130 70 30 
    xdid -t  $dname 4 Play
    xdialog -c $dname 5 button .4 190 70 30 
    xdid -t $dname 5 Close
    xdialog -c $dname 6 button 70 190 70 30 
    xdid -t  $dname 6 About
    xdialog -c $dname 7 button .4 160 70 30 
    xdid -t $dname 7 Vol Down
    xdialog -c $dname 8 button 70 160 70 30 
    xdid -t  $dname 8 Vol Up
    xdialog -c $dname 9 edit 31 49 80 20
    xdid -ra very_basic 9 Volume: $floor($calc($vol(master)/ 65535*100)) $+ %
    xdialog -c $dname 10 button 11 100 120 30 
    xdid -t $dname 10 Get Track Info.
    xdialog -c $dname 11 edit 1 26 138 20
    xdialog -c $dname 12 edit 1 5 138 20
  }
}
alias very_basic_cb {
  if (($2 == sclick) && ($3 == 2)) { /xdid -n very_basic 1 http://www.bobdole.co.uk/radio.html }
  elseif (($2 == sclick) && ($3 == 3)) { xdid -t very_basic 1 }
  elseif (($2 == sclick) && ($3 == 4)) { xdid -r very_basic 1 }
  elseif (($2 == sclick) && ($3 == 5)) { xdialog -x $1 }
  elseif (($2 == sclick) && ($3 == 6)) { dialog -m radiohelp radiohelp }
  elseif (($2 == sclick) && ($3 == 7)) { vol -v $iif($calc($vol(master) -5000) <= 0,0,$v1) | xdid -ra very_basic 9 Volume: $floor($calc($vol(master)/ 65535*100)) $+ % }
  elseif (($2 == sclick) && ($3 == 8)) { vol -v $calc($vol(master) +5000) | xdid -ra very_basic 9 Volume: $floor($calc($vol(master)/ 65535*100)) $+ % }
  elseif (($2 == sclick) && ($3 == 10)) { 
    if (!$sock(getinfo)) {
      sockopen getinfo bobdole.co.uk 80
    }
  }
}
dialog radiohelp {
  title "MattRadio"
  size -1 -1 100 100
  text "Matt's Radio.", 1, 2 0 100 51, center
  text "IRC Channel = #MattRadio.", 2, 2 20 100 35, center
  button "Pimpin`Quaver©", 7, 2 59 96 20
  button "Close", 8, 2 79 96 20
} 
on *:dialog:radiohelp:sclick:8: { dialog -x radiohelp radiohelp }
on *:dialog:radiohelp:sclick:7: { /Query Pimpin`Quaver } 
on *:SOCKOPEN:getinfo: {
  sockwrite -nt $sockname GET /parsers/shoutcast/?serv=86.134.220.107&port=8000 HTTP/1.1
  sockwrite -nt $sockname Host: bobdole.co.uk
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:getinfo: {
  var %x 
  sockread %x
  if (*playing* iswm %x) { 
    tokenize $asc(-) $remove($striptags(%x),Now Playing:)
    xdid -ra very_basic 11 By: $1
    xdid -ra very_basic 12 Song: $2
  } 
}
alias striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }