#############################################

Okay, another [bad coded] Socket-Script.
Well, for all of you:

The PowerScripters is a Clan, where everybody can post Scripts, and I.. hm
I am the only who make the Socket-Scripts, i don't know what the others do, but hey
don't be soooo hard with us. - we are just kids.

Our Scripts aren't well coded, but they work and that makes us Happy.

Thanks.
So take a look at this:

So you can use !lastfm [weekly]

Added WEEKLY-Support. - Shows the Weekly-Top Artists.

alias lastfm-connection { 
sockopen lastfm audioscrobbler.com 80 }
on *:SOCKOPEN:lastfm:{

  ; connection
  sockwrite -n $sockname GET %lastfm-c HTTP/1.1

  ; Write Connection Details
  sockwrite -n $sockname Host: ws.audioscrobbler.com
  sockwrite -n $sockname User-Agent: IRCSpider/mIRC $version
  sockwrite -n $sockname $crlf 

}
on *:SOCKREAD:lastfm:{
var %mirc.temp local^^
  sockread %mirc.temp
  if (%lastfm-source == /recenttracks.rss) {
    if ((%lastfm-x != $iif(%lastfm-maxposts == $null,6,$calc(%lastfm-maxposts + 1))) && (<docs> !isin %mirc.temp)) {
      if (%lastfm-x == $iif(%lastfm-maxposts == $null,5,%lastfm-maxposts)) { msg %lastfm-chan RSS-Feeds for %lastfm-user $+ : http://ws.audioscrobbler.com/1.0/user/ $+ %lastfm-user $+ /recenttracks.rss | inc %lastfm-x }
      if (<title> isin %mirc.temp) {
        msg %lastfm-chan $remove(%mirc.temp,<title>,</title>)
        inc %lastfm-x
      }
    }
  }
  else { 
    if ((%lastfm-x != $iif(%lastfm-maxposts == $null,6,$calc(%lastfm-maxposts + 1))) && (<docs> !isin %mirc.temp)) {
      if (<name> isin %mirc.temp) {
        set %lastfm-name $remove(%mirc.temp,<name>,</name>)
      }
      elseif (<playcount> isin %mirc.temp) {
        set %lastfm-count $remove(%mirc.temp,<playcount>,</playcount>)
      }
      elseif (</artist> isin %mirc.temp) {
        msg %lastfm-chan %lastfm-name (Played: %lastfm-count $+ times)
        unset %lastfm-name
        unset %lastfm-count
        inc %lastfm-x
      }
    }
  }
}

on *:SOCKCLOSE:lastfm:{ unset %lastfm-* }
on *:TEXT:!lastfm*:#:{
  if (!$2) { msg $chan 00,04LastFM: !lastfm <username> <posts> | halt }
  %lastfm-source = $iif($4 == weekly,/weeklyartistchart.xml,/recenttracks.rss)
  sockclose lastfm
  set %lastfm-maxposts $3
  set %lastfm-user $2
  msg $chan 00,04LastFM: $iif(%lastfm-source == /weeklyartistchart.xml,Weekly-Top ,Latest)  $iif(%lastfm-maxposts == $null,5,%lastfm-maxposts)  Songs by $2
  set %lastfm-chan $chan
  var %i 1
  set %lastfm-c /1.0/user/ $+ $2 $+ %lastfm-source
  lastfm-connection 
}