Twitch LastFM

on $*:text:/[!]lastfm( |$)/iS:*:{
  if ($2 = !lastfm) { return }
  if (!$2) {
    if ($($+(%,lastfm,.,$nick),2) != $null) {
      $np($($+(%,lastfm,.,$nick),2))
      halt
    }
    else {
      msg $chan $nick - Syntax $1 [username] :: To set your username permanently type $replace($1,lastfm,setlastfm) [username]
      halt
    }
  }
  $np($strip($2))
}
on $*:text:/[!]setlastfm( |$)/iS:*:{
  set $+(%,lastfm,.,$nick) $iif($2,$2,$nick)
  msg $chan $nick your associated Last.FM profile is now $($+(%,lastfm,.,$nick),2)
}
alias -l lastfm {
  return $replace($1,&gt;,>,&lt;,<,&amp;,&)
}
on *:sockread:lastfm*:{
  tokenize 96 $sock($sockname).mark
  var %lf = $sockname
  if ($sockerr) {
    $2 $me is having difficulty reading the data from last.fm!
    halt
  }
  sockread &lastfm
  if ($regex([ [ $4 ] ],/<error code="6">(.*)</error></lfm>)) {
    $2 $+($regml(1),!)
    halt
  }
  elseif (nowplaying !isin [ [ $4 ] ]) {
    $2 $1 isn't playing music right now!
    sockclose %lf
  }
  else {
    $2 Last.fm : $+($chr(9833),$chr(9834),$chr(9835)) $+($chr(2),$&
      $lastfm($gettok($gettok([ [ $4 ] ],6,62),1,60)),$chr(2)) - $+($chr(2),$&
      $lastfm($gettok($gettok([ [ $4 ] ],8,62),1,60)),$chr(2)) $&
      $+($chr(9833),$chr(9835),$chr(9836))
    sockclose %lf
  }
}
on *:sockopen:lastfm*:{
  tokenize 96 $sock($sockname).mark
  if ($sockerr) {
    $2 $me is having difficulty connecting to lastfm's website!
    halt
  }
  $5 GET $+(/2.0/?method=user.getrecenttracks&user=,$1,&api_key=,$3) HTTP/1.1
  $5 Host: $sock($sockname).addr
  $5 Connection: close
  $5
}
alias np {
  if (!$1) {
    .notice $iif($isid,$nick,$me) Please enter a user name! e.g. /np <UserName>
    halt
  }
  var %lastfm $+(lastfm,$r(1,9999),$ticks,$network,$cid)
  $+(sock,$iif($sock(%lastfm),close,open)) %lastfm ws.audioscrobbler.com 80
  sockmark %lastfm $+($1,`,$iif($isid,.describe $iif(#,#,$nick),echo -at *),`,f6a3b7b12549aa211a6deec453c79417$&
    ,`,$!bvar(&lastfm,1-).text,`,sockwrite -nt %lastfm)
}