#Created by Alex Sorlie. you may not remove this stamp if you republish the script.
on *:LOAD:{
  /lastfm $$?="Enter your last.fm username."
  echo Loaded last.fm script by Alex Sorlie
}
alias F3 { np }
alias np {
  if ($sock(lastfm)) .sockclose lastfm
  if (%last.fm.username) {
    sockopen lastfm www.last.fm 80
    set -u10 %last.fm.active $active
  }
  else echo $active Error, no username found.  To set your username use /lastfm <username>
}

alias lastfm { set %last.fm.username $1 }

on *:SOCKOPEN:lastfm: {
  sockwrite -nt $sockname GET /user/ $+ %last.fm.username HTTP/1.1
  sockwrite -nt $sockname Host: www.last.fm
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:lastfm: {
  var %last.fm
  sockread %last.fm
  if (imageMedium isin %last.fm) {
    sockread %last.fm | sockread %last.fm | sockread %last.fm 
    describe %last.fm.active is listening to:04 $replace($regsubex(%last.fm,/(?:<(?:.*?)>)([^<]+)(?:<(?:.*?)>)(?:[^<]+)(?:<(?:.*?)>)([^<]+).+/,\2 by09 \1) 06:: Spotify - A world of music ::,&amp;,&)
    sockclose lastfm
  }
  elseif (</body> isin %last.fm) describe $chan has not configured correctly therefor I cannot show a song.
}

sockread %last.fm | sockread %last.fm | sockread %last.fm