Stuff

on $*:TEXT:/^[@!](stats|cmb|[^ ]+) (.+)/Si:#:{
  var %nick1 = $regml(2), %skill = $skill($regml(1)), %nick2 = $replace(%nick1,$chr(32),$chr(160)), %nick = $replace(%nick1,$chr(32),+,_,+,-,+)
  if (%skill) var %style = sk
  else var %style = $iif($remove($1,@,!) == stats,st,$iif($remove($1,@,!) == cmb,cb))
  if (!%style) halt
  var %t = $+(stats,.,$nick,.,$ticks)
  hadd -m %t disp $iif($left($1,1) == @,msg $chan,.notice $nick)
  hadd -m %t nick2 %nick2
  hadd -m %t style %style
  hadd -m %t skill %skill
  hadd -m %t cskill Overall
  hadd -m %t nick $regsubex(%nick,/^(\W+)/Si,$null)
  sockopen %t hiscore.runescape.com 80
}