Stuff

on $*:TEXT:/^[!@]stats */Si:*: {
  if ($2) set %stat.target $2- 
  elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set %stat.target $ifmatch 
  elseif ($readini(DefRSN.ini,RSNs,$nick)) set %stat.target $ifmatch
  set %stat.return $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($len($2-) > 12) { %stat.return 7runescape 14nicknames can only contain up to7 12 14letters. | halt 
  }
  else { sockopen statlook www.slushpuppy.silverinterlocution.org 80 
  }
}
on *:SOCKOPEN:statlook*:{ 
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %stat.target HTTP/1.1 
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf 
} 
on *:SOCKREAD:statlook*:{ 
  if ($sockerr) { 
    echo -a Error. 
    halt 
  } 
  else { 
    var %stat.html 
    sockread %stat.html 
    if (overall: isin %stat.html) { 
      set %stat.overall $gettok($htmlfree(%stat.html),1,32) 
      set %stat.overall.2 $gettok($htmlfree(%stat.html),2,32) 
      ;:attack;: 
      set %stat.attack $gettok($htmlfree(%stat.html),3,32) 
      set %stat.attack.2 $gettok($htmlfree(%stat.html),4,32) 
      ;:defence;: 
      set %stat.defence $gettok($htmlfree(%stat.html),5,32) 
      set %stat.defence.2 $gettok($htmlfree(%stat.html),6,32) 
      ;:strength;: 
      set %stat.strength $gettok($htmlfree(%stat.html),7,32) 
      set %stat.strength.2 $gettok($htmlfree(%stat.html),8,32) 
      ;:hitpoints;: 
      set %stat.hitpoints $gettok($htmlfree(%stat.html),9,32) 
      set %stat.hitpoints.2 $gettok($htmlfree(%stat.html),10,32) 
      ;:ranged;: 
      set %stat.ranged $gettok($htmlfree(%stat.html),11,32) 
      set %stat.ranged.2 $gettok($htmlfree(%stat.html),12,32) 
      ;:prayer;: 
      set %stat.prayer $gettok($htmlfree(%stat.html),13,32) 
      set %stat.prayer.2 $gettok($htmlfree(%stat.html),14,32) 
      ;:magic;: 
      set %stat.magic $gettok($htmlfree(%stat.html),15,32) 
      set %stat.magic.2 $gettok($htmlfree(%stat.html),16,32) 
      ;:cooking;: 
      set %stat.cooking $gettok($htmlfree(%stat.html),17,32) 
      set %stat.cooking.2 $gettok($htmlfree(%stat.html),18,32) 
      ;:woodcutting;: 
      set %stat.woodcutting $gettok($htmlfree(%stat.html),19,32) 
      set %stat.woodcutting.2 $gettok($htmlfree(%stat.html),20,32) 
      ;:fletching;: 
      set %stat.fletching $gettok($htmlfree(%stat.html),21,32) 
      set %stat.fletching.2 $gettok($htmlfree(%stat.html),22,32) 
      ;:fishing;: 
      set %stat.fishing $gettok($htmlfree(%stat.html),23,32) 
      set %stat.fishing.2 $gettok($htmlfree(%stat.html),24,32) 
      ;:firemaking;: 
      set %stat.firemaking $gettok($htmlfree(%stat.html),25,32) 
      set %stat.firemaking.2 $gettok($htmlfree(%stat.html),26,32) 
      ;:crafting;: 
      set %stat.crafting $gettok($htmlfree(%stat.html),27,32) 
      set %stat.crafting.2 $gettok($htmlfree(%stat.html),28,32) 
      ;:smithing;: 
      set %stat.smithing $gettok($htmlfree(%stat.html),29,32) 
      set %stat.smithing.2 $gettok($htmlfree(%stat.html),30,32) 
      ;:mining;: 
      set %stat.mining $gettok($htmlfree(%stat.html),31,32) 
      set %stat.mining.2 $gettok($htmlfree(%stat.html),32,32) 
      ;:herblore;: 
      set %stat.herblore $gettok($htmlfree(%stat.html),33,32) 
      set %stat.herblore.2 $gettok($htmlfree(%stat.html),34,32) 
      ;:agility;: 
      set %stat.agility $gettok($htmlfree(%stat.html),35,32) 
      set %stat.agility.2 $gettok($htmlfree(%stat.html),36,32) 
      ;:thieving;: 
      set %stat.thieving $gettok($htmlfree(%stat.html),37,32) 
      set %stat.thieving.2 $gettok($htmlfree(%stat.html),38,32) 
      ;:slayer;: 
      set %stat.slayer $gettok($htmlfree(%stat.html),39,32) 
      set %stat.slayer.2 $gettok($htmlfree(%stat.html),40,32) 
      ;:farming;: 
      set %stat.farming $gettok($htmlfree(%stat.html),41,32) 
      set %stat.farming.2 $gettok($htmlfree(%stat.html),42,32) 
      ;:runecrafting;: 
      set %stat.runecraft $gettok($htmlfree(%stat.html),43,32) 
      set %stat.runecraft.2 $gettok($htmlfree(%stat.html),44,32) 
      ;:hunter;: 
      set %stat.hunter $gettok($htmlfree(%stat.html),45,32) 
      set %stat.hunter.2 $gettok($htmlfree(%stat.html),46,32) 
      ;:construction;:
      set %stat.construction $gettok($htmlfree(%stat.html),47,32) 
      set %stat.construction.2 $gettok($htmlfree(%stat.html),48,32) 
      ;:send to channel;:
      var %stat.half 14 %stat.attack $+ 7 %stat.attack.2 $+ 14 %stat.defence $+ 7 %stat.defence.2 $+ 14 %stat.strength $+ 7 %stat.strength.2 $+ 14 %stat.hitpoints $+ 7 %stat.hitpoints.2 $+ 14 %stat.ranged $+ 7 %stat.ranged.2 $+ 14 %stat.prayer $+ 7 %stat.prayer.2 $+ 14 %stat.magic $+ 7 %stat.magic.2 $+ 14 %stat.cooking $+ 7 %stat.cooking.2 $+ 14 %stat.woodcutting $+ 7 %stat.woodcutting.2 $+ 14 %stat.fletching $+ 7 %stat.fletching.2 $+ 14 %stat.fishing $+ 7 %stat.fishing.2 $+ 14 %stat.firemaking $+ 7 %stat.firemaking.2 
      var %stat.half1 14 %stat.crafting $+ 7 %stat.crafting.2 $+ 14 %stat.smithing $+ 7 %stat.mining.2 $+ 14 %stat.mining $+ 7 %stat.mining.2 $+ 14 %stat.herblore $+ 7 %stat.herblore.2 $+ 14 %stat.agility $+ 7 %stat.agility.2 $+ 14 %stat.thieving $+ 7 %stat.thieving.2 $+ 14 %stat.slayer $+ 7 %stat.slayer.2 $+ 14 %stat.farming $+ 7 %stat.farming.2 $+ 14 %stat.runecraft $+ 7 %stat.runecraft.2 $+ 14 %stat.hunter $+ 7 %stat.hunter.2 $+ 14 %stat.construction $+ 7 %stat.construction.2 
      %stat.return 14runescape stats for7 %stat.target
      %stat.return 14 $+ %stat.overall $+ 7 %stat.overall.2
      %stat.return %stat.half %stat.half1
      timer 1 1 unset %stat.* 
      sockclose statlook 
      halt 
    } 
  } 
} 
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
  return %x 
}