[msl]A MSL Version of Xbox Live Look up

This is just an MSL version of an xbox live gamer-tag look up socket.
Copy/Paste into a new remote of your bot.
Trigger is @xbox gamertag
Example:

Code (mirc):

on $*:text:/^@xbox\s(.+)/iS:# {
  if (!%f) { inc -u3 %f
    if ($sock(xbox)) sockclose xbox
    sockopen xbox live.xbox.com 80
    sockmark xbox $+(/en-US/Profile?gamertag=,$replace($regml(1),$chr(32),$+($chr(37),20))) $&
      msg # $regml(1)
  }
}
on *:sockopen:xbox: {
  sockwrite -nt xbox GET $gettok($sock(xbox).mark,1,32) HTTP/1.1
  sockwrite -nt xbox Host: $+($sock(xbox).addr,$str($crlf,2))
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's Xbox Live Look-up Socket
  echo 07 -a A irc.EzzyChat.com Production
}
on *:sockread:xbox: {
  var %xbox | sockread %xbox
  if ($regex(%xbox,/<h1.+CustomErrorTitle.+>(Ooops!).+<\/h1>/)) {
    $gettok($sock(xbox).mark,2-3,32) $regml(1) I don't know who $+(",$gettok($sock(xbox).mark,4,32),") is. $&
      Looks like you may have misspelled the Gamer-tag you are looking for.
    sockclose xbox
  }
  if ($regex(%xbox,/<div.+presence.+>(.+)<\/div>/)) {
    hadd -m xbox 1 $regsubex($regml(1),/&#(\d+);/g,$chr(\1))
  }
  if ($regex(%xbox,/<div.+gamerscore.+>(\d+)<\/div>/)) {
    $+($gettok($sock(xbox).mark,2-,32),$chr(44)) $hget(xbox,1) - Gamerscore $regml(1)
    sockclose xbox
  }
}

Updated version
Well it seems after the last update xbox did they screwed up this socket so here is a fix using a different site.

Code (mirc):

on $*:text:/^@xbox\s(.+)/iS:#: {
  if (!%f) { inc -u3 %f
    if ($sock(xbox)) sockclose xbox
    sockopen xbox www.xboxgamertag.com 80
    sockmark xbox $+(/search/,$replace($regml(1),$chr(32),$+($chr(45)))/) $&
      msg #
  }
}
on *:sockopen:xbox: {
  sockwrite -nt xbox GET $gettok($sock(xbox).mark,1,32) HTTP/1.1
  sockwrite -nt xbox Host: $+($sock(xbox).addr,$str($crlf,2))
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's Xbox Live Look-up Socket
  echo 07 -a A irc.EzzyChat.com Production
}
on *:sockread:xbox: {
  var %xbox | sockread %xbox
  if ($regex(%xbox,/<p class="topc">(.+)<\/p>/)) {
    $gettok($sock(xbox).mark,2-,32) $regml(1)
  }
  if ($regex(%xbox,/<p>(Online Status:.+)<\/p>/)) {
    $gettok($sock(xbox).mark,2-,32) $regsubex($regml(1),/<[^>]*>/g,$chr(32))
  }
}

Thank you Grim...

Nice one napa, I'll give this a go in a bit

Thanks Bertrum

Well it seems after the last update xbox did they screwed up this socket so here is a fix using a different site.

Code (mirc):

on $*:text:/^@xbox\s(.+)/iS:#: {
  if (!%f) { inc -u3 %f
    if ($sock(xbox)) sockclose xbox
    sockopen xbox www.xboxgamertag.com 80
    sockmark xbox $+(/search/,$replace($regml(1),$chr(32),$+($chr(45)))/) $&
      msg #
  }
}
on *:sockopen:xbox: {
  sockwrite -nt xbox GET $gettok($sock(xbox).mark,1,32) HTTP/1.1
  sockwrite -nt xbox Host: $+($sock(xbox).addr,$str($crlf,2))
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's Xbox Live Look-up Socket
  echo 07 -a A irc.EzzyChat.com Production
}
on *:sockread:xbox: {
  var %xbox | sockread %xbox
  if ($regex(%xbox,/<p class="topc">(.+)<\/p>/)) {
    $gettok($sock(xbox).mark,2-,32) $regml(1)
  }
  if ($regex(%xbox,/<p>(Online Status:.+)<\/p>/)) {
    $gettok($sock(xbox).mark,2-,32) $regsubex($regml(1),/<[^>]*>/g,$chr(32))
  }
}

The new XBOX dashboard is shit. Just thought I'd put that out there.

Yes it is. They really screwed shit up after that last update. They are trying to get it ready for the 3 new games hitting. Halo 4, Black Ops 2, and Assassin's Creed 3.