alias rpd { dialog -m rp rp }

dialog rp {
  title "Now playing - RadioPayback.nl"
  size -1 -1 531 208
  button "Update", 1, 228 132 65 25
  edit "", 2, 102 48 329 22, center
  link "www.radiopayback.com", 3, 185 172 156 17
  button "cancel", 4, 408 166 65 25, cancel
  text "Now playing of RadioPayback.com", 5, 177 4 167 17, center
  text "Dj", 6, 247 27 19 17
  text "song", 7, 242 77 28 17
  edit "", 8, 69 101 404 20, center
  box "", 9, 47 17 456 108
}

on *:dialog:rp:sclick:1:{
  rp
  .timer 1 0 did -ar rp 8 $gettok(%rp.temp,-2,45)
  .timer 1 0 did -ar rp 2 $gettok(%rp.temp,1,45)
}

Alias rp {
  sockClose rp
  sockOpen rp www.radiopayback.com 80
}
on *:SockOpen:rp: {
  sockwrite -nt rp GET /shoutcast_song_title.php HTTP/1.1
  sockwrite -nt rp Host: www.radiopayback.com
  sockwrite -nt rp $crlf
}
on *:SockRead:rp: {
  var %read
  sockRead %read
  if (*onAir* iswm %read) {
    tokenize 32 %read
    set %Rp.temp $replace($remove(%read,onAir=),&nowPlaying=,$chr(32) - $chr(32) )
  }
}

on *:sockclose:rp:{
  echo -at Socket closed!
}