alias nplastfm sockopen lastfm ws.audioscrobbler.com 80

on *:sockread:lastfm:{
  if ($sockerr) {
    echo -a Error.
    halt
  }

  var %temp, %song, %artist, %album, %hits

  :nextread
  sockread %temp

  if ($sockbr == 0) goto end

  %hits = $regex(%temp, <name>(.+)</name>)
  if (%hits == 1) {
    %song = $regml(1)
    goto nextread
  }

  %hits = $regex(%temp, <artist mbid=".+">(.+)</artist>)
  if (%hits == 1) {
    %artist = $regml(1)
    goto nextread
  }

  %hits = $regex(%temp, <album mbid=".+">(.+)</album>)
  if (%hits == 1) {
    %album = $regml(1)
    goto nextread
  }

  goto nextread

  :end
  say np: %artist - %song ( $+ %album $+ )
}

on *:sockopen:lastfm:{
  sockwrite -n $sockname GET /2.0/?method=user.getrecenttracks&user=kilroyfortehwin&limit=1&api_key=b25b959554ed76058ac220b7b2e0a026 HTTP/1.1
  sockwrite -n $sockname Host: ws.audioscrobbler.com $+ $crlf $+ $crlf
}

stopwatch-1.0
stopwatch-1.0-src