Stuff

on $*:TEXT:/^[!@]/Si:#:{
  set %colnick $nick
  inc %totalcuses
  inc %l
  if ($skill($remove($1,!,@))) {
    if ($hacked($1-)) { notice $nick $hackedd | halt }
    if ($2 == $null) && ($defname($nick))  { 
      var %name = $defname($nick)
    var %good = ok }
    if ($2 == $null) && (!$defname($nick)) {    
      var %name = $nick
      var %good = ok    
    }
    if ($chr(35) !isin $2) && ($chr(43) !isin $2) && ($chr(35) isin $3) && (!%good) {
      var %name = $2
      var %goal = $remove($3,$chr(35))
      var %good = ok
    }
    if ($chr(35) isin $2) && (!%good) {
      var %goal = $remove($2,$chr(35))
      var %name = $defname($nick)
      var %good = ok
    }
    if ($chr(35) !isin $2) && ($chr(43) isin $2) && ($chr(35) isin $3) && (!%good) {
      if ($remove($2,$chr(43)) ison $chan) {      
        if (!$defname($remove($2,$chr(43)))) {
        notice $nick $c2(" $+ $remove($2,$chr(43)) $+ ") $c1(does not have a RSN set) | halt }
        else {
          var %name = $defname($remove($2,$chr(43)))
          var %goal = $remove($3,$chr(35))
      var %good = ok } }
      elseif ($remove($2,$chr(43)) !ison $chan) {
      notice $nick $c2(" $+ $remove($2,$chr(43)) $+ ") $c1(is not in this channel.) $c1(I cannot lookup there defname) | halt }
    }
    if ($chr(35) !isin $2) && ($chr(43) isin $2) && ($3 == $null) && (!%good) {
      if ($remove($2,$chr(43)) ison $chan) {   
        if (!$defname($remove($2,$chr(43)))) {
        notice $nick $c2(" $+ $remove($2,$chr(43)) $+ ") $c1(does not have a RSN set) | halt }
        else {
          var %name = $defname($remove($2,$chr(43)))
      var %good = ok } }
      elseif ($remove($2,$chr(43)) !ison $chan) {
      notice $nick $c2(" $+ $remove($2,$chr(43)) $+ ") $c1(is not in this channel.) $c1(I cannot lookup there defname) | halt }
    }
    if ($chr(35) !isin $2) && ($3 == $null) && (!%good) {
      var %name = $2
      var %good = ok
    }
    if (!%good) { $iif($left($1,1) == !,notice $nick,msg $chan) $c2(Syntax:) $c1($1 [nick]) $c3((Goal)) 
      halt
    } 
    var %id = $+($rand(1,9999),$rand(1,9999),$rand(1,9999))
    sockopen $+(singlestat.,%ID) www.nou.stirk.org 80
    sockmark $+(singlestat.,%ID) $+($iif($left($1,1) == !,notice $nick,msg $chan),~,$iif(%goal,$v1,Nope),~,%name,~,$skill($remove($1,!,@)),~,$nick)
  }
}

on *:SOCKOPEN:singlestat.*:{
  var %goal = $gettok($sock($sockname).mark,2,126)
  var %name = $gettok($sock($sockname).mark,3,126)
  var %skill = $gettok($sock($sockname).mark,4,126)
  sockwrite -n $sockname GET $+(/parsers/skill.php?user=,%name,&skill=,%skill,$iif(%goal != Nope,$+(&goal=,%goal))) HTTP/1.1
  sockwrite -n $sockname Host: www.nou.stirk.org
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:singlestat.*:{
  var %return = $gettok($sock($sockname).mark,1,126)
  var %goal = $gettok($sock($sockname).mark,2,126)
  var %name = $gettok($sock($sockname).mark,3,126)
  var %skill = $gettok($sock($sockname).mark,4,126)
  if ($sockerror) { %return $colors(%skill) $c2(Socket error $+ $chr(44)) $c1(please try again) | sockclose $sockname | halt }
  else {
    var %a
    sockread %a
    if (*not appear* iswm %a) { %return $c1(" $+ %name $+ ") $c2(does not appear in the highscores for) $c1(%skill)
      sockclose $sockname
      halt
    }
    if (*|* iswm %a) {
      tokenize 32 %a
      var %xp = $remove($14,<br>)
      if ($left(%xp,1) == $chr(45)) {
        %return %colors(%skill) $c2(you need to specify a goal) $c1(higher) $c2(then) $c1(%name) $c2(has now)
        sockclose $sockname
        halt
      }
      set %skillev $2
      %return $c1(%skill) $c2(stats for) $c1(%name) $+ $c2(:)
      %return $c2(Level:) $c1($2) $c2(Exp:) $c1($5) $c2(Rank:) $c1($8) $iif($14 != N/A<br>,$c2(Exp till level) $c1($remove($13,$right($13,1))) $+ $c2(:) $c1($remove($14,<br>)))
      if (%skill != slayer) && (%skillev < 99) { notice $gettok($sock($sockname).mark,5,126) $colors(%skill) $c2(Required for level) $c1($iif(%goal != nope,$v1,$remove($13,$right($13,1)))) $+ $c2(:) $neededforlvl(%skill,$remove(%xp,$chr(44))) }
      sockclose $sockname
      unset %skill | unset %good | unset %name | unset %goal | unset %return 

    }
  }
}

alias skill {
  if ($1 == overall || $1 == overal) { return Overall }
  if ($1 == attack || $1 == att) { return Attack }
  if ($1 == def || $1 == defence || $1 == defense) { return Defence }
  if ($1 == str || $1 == strength) { return Strength }
  if ($1 == hp || $1 == hitpoits || $1 == hits) { return Hitpoints }
  if ($1 == range || $1 == ranged || $1 == ranging) { return Ranged }
  if ($1 == pray || $1 == prayer || $1 == praying) { return Prayer }
  if ($1 == mage || $1 == magic || $1 == magik) { return Magic }
  if ($1 == cook || $1 == cooking) { return Cooking }
  if ($1 == wc || $1 == woodcut || $1 == woodcutting) { return Woodcutting }
  if ($1 == fletch || $1 == fletching) { return Fletching }
  if ($1 == fishing || $1 == fish) { return Fishing }
  if ($1 == fm || $1 == firemaking) { return Firemaking }
  if ($1 == craft || $1 == crafting) { return Crafting }
  if ($1 == smith || $1 == smithing) { return Smithing }
  if ($1 == mining) { return Mining }
  if ($1 == herb || $1 == herblore || $1 == harblaw) { return Herblore }
  if ($1 == agility || $1 == agil) { return Agility }
  if ($1 == thiev || $1 == thieving) { return Thieving }
  if ($1 == slay || $1 == slaying || $1 == slayer) { return Slayer }
  if ($1 == farm || $1 == farming) { return Farming }
  if ($1 == rc || $1 == runecraft || $1 == runecrafting) { return runecraft }
  if ($1 == poh || $1 == construct || $1 == con || $1 == construction) { return Construction }
  if ($1 == hunt || $1 == hunter || $1 == hunting) { return Hunter }
  if ($1 == summ || $1 == sum || $1 == summo || $1 == summon || $1 == summoning) { return summoning }
}