ohi

;TF2 - Single Socket Only
on $*:TEXT:/^[@!]tf2/Si:#:{
  if ($readini(sunchans.ini,CHANNEL- $+ $chan,Achan) == yes) { halt }
  set %tf2msg $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) { sockopen tf2 www.the-beehive.net 80 | set %tf2nick $readini(tf2.ini,$address($nick,2),Account) }
  else { set %tf2nick $2 | sockopen tf2 www.the-beehive.net 80 }
}
on *:SOCKOPEN:tf2: {
  sockwrite -nt $sockname GET /scripts/team-fortress-2.php?player= $+ %tf2nick HTTP/1.1
  sockwrite -nt $sockname Host: www.the-beehive.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tf2: {
  var %sockread
  sockread -f %sockread
  var %sockread = $strip_headers(%sockread,tf2)
  if (Playtime: * iswm %sockread) { tokenize 32 %sockread | var %playtime = $2- }
  if (Personal Achievements Earned: * iswm %sockread) { tokenize 32 %sockread | var %person = $4- }
  if (Accumulated Points: * iswm %sockread) { tokenize 32 %sockread | var %accum = $3 }
  if (Most points: * iswm %sockread) { tokenize 32 %sockread | var %most = $3- }
  if (Most kills: * iswm %sockread) { tokenize 32 %sockread | var %mostk = $3- }
  %tf2msg 14[7TF214][7 $+ %tf2nick $+ 14] Playtime:7 %playtime 14Personal Achievements:7 %person 14Accumulated Points:7 %accum 14Most Points:7 %most 14Most Kills:7 %mostk
}