evilMonkey's Steam Script (Fixed)

;// All Credits go to evilMonkey (irc.lucidchat.net)
;// Fixed by Vegito (irc.lucidchat.net) on 27-06-2015

on $*:text:/store.steampowered.com/(sub|app)/(\w+)/Si:#:{
  if (%steamTimeout) halt
  %msg = msg $target
  steam $1-
}

on *:INPUT:*: {
  if ($regex($1, /store.steampowered.com/(sub|app)/(\w+)/Si)) {
    if (%steamTimeout) halt
    %msg = msg $target
    steam $1-
  }
}

alias steam {
  set -u3 %steamTimeout $true
  if ($regex($1-, /(http://)?store.steampowered.com/(sub|app)/(\d+)/Si)) {
    sockclose steam
    sockopen steam store.steampowered.com 80
    sockmark steam $iif($regml(3), $regml(3), $regml(2))
  }
}

on *:sockopen:steam: {
  sockwrite -n steam GET /api/appdetails?appids= $+ $sock($sockname).mark $+ &cc=us HTTP/1.1
  sockwrite -n steam Host: store.steampowered.com
  sockwrite -n steam
}

on *:sockread:steam: {
  while ($sock($sockname).rq) {
    sockread &steam
    bwrite steam -1 -1 &steam
  }
  bread steam 0 $file(steam).size &steam2
  if ($bfind(&steam2, 0, {"packageid")) var %start = $v1
  if ($bfind(&steam2, 0, }])) var %end = $v1
  var %steam = $bvar(&steam2, %start - %end).text
  %steam = $regsubex(%steam, /["\{\}]/g, )
  var %n = 4
  while (1) {
    if ($gettok(%steam, %n, 44)) {
      var %game = $addtok(%game, $right($v1, -12), 44)
      inc %n 8
      continue
    }
    else break
  }

  if ($bfind(&steam2, 0, }}})) {
    .remove steam
    sockclose $sockname
    %game = $replace(%game, $chr(44), $+($chr(44), $chr(32)))
    %game = $regsubex(%game, /\\u(\d+)/g, $chr($base(\1, 16, 10)))
    %msg %game
  }
}