alias last.fm {
    set %lf.chan $1
    set %lf.method $2
    set %lf.user $3
    set %lf.total $4
    set %lf.count 1
    sockopen last.fm ws.audioscrobbler.com 80
}
 
on *:TEXT:!last.fm *:#zomgwtfbbq: {
    if (%lf_flood. [ $+ [ $nick ] ] == $null) {
        set -u10 %lf_flood. [ $+ [ $nick ] ] 1
        if (($2 == lastplayed) && ($3 != $null)) {
            if (($4 <= 5) || ($4 == $null)) {
                last.fm $chan $2 $3 $iif($4 == $null, 1, $4)
            }
            else {
                msg $chan You can only show up to 5 recent tracks.
            }
        }
    }
}
 
on *:SOCKOPEN:last.fm: {
    if (%lf.method == lastplayed) {
        sockwrite -nt $sockname GET $+(/2.0/user/,%lf.user,/recenttracks.rss) HTTP/1.1
    }
    sockwrite -nt $sockname Host: ws.audioscrobbler.com
    sockwrite -nt $sockname $crlf
}
 
on *:SOCKREAD:last.fm: {
    sockread %lf.temp
    var %lf.temp $utfdecode(%lf.temp)
;    echo -s %lf.count $(|) %lf.temp
    if (%lf.method == lastplayed) {
        if ((<title> isin %lf.temp) && (<docs> !isin %lf.temp)) {
            var %lf.title. [ $+ [ %lf.count ] ] %lf.temp
            .timer 1 %lf.count msg %lf.chan $striphtml(%lf.title. [ $+ [ %lf.count ] ])
            inc %lf.count
            if (%lf.count > %lf.total) {
                sockclose $sockname
                unset %lf.*
            }
        }
    }
}
 
 
 
 
alias striphtml {
  noop $regsub($1-,/(<(?:.+?)>)/g,$null,%string)
  return %string
}
 
 

Commenting Options