Anonymous

on *:text:*:#: {
  tokenize 32 $strip($1-)
  if ($left($1,1) !isin @!.) halt
  if ($right($1,-1) == compare) var %style = astats
  else halt

  inc %ID
  if ($len($3) > 12) {
    $($+(%,stats.display.,%ID),2) $c1(The username) $c2($2) $c1(is too long)
    comparecleanup %ID
    halt
  }
  if ($len($4) > 12) {
    $($+(%,stats.display.,%ID),2) $c1(The username) $c2($3) $c1(is too long)
    comparecleanup %ID
    halt
  }
  elseif ($len($3) < 12) && ($len($4) < 12) {
    set $+(%,compare.rsn1.,%ID) $2
    set $+(%,compare.rsn2.,%ID) $3
  }

  set $+(%,compare.style.,%ID) %style
  set $+(%,compare.skill.,%ID) %skill
  set $+(%,compare.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
  set $+(%,compare.nick.,%ID) $nick
  sockopen $+(compare.,%ID) hiscore.runescape.com 80
}

on *:sockopen:compare.*: {
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /lang/en/aff/runescape/compare.ws?user1= $+ $($+(%,compare.rsn1.,%ID),2) $+ &user2= $+ $($+(%,compare.rsn2.,%ID),2)  HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
;HELL IF I KNOW WHAT THIS MEANS - FROM HERE TO...;
on *:sockread:compare.*: {
  sockread &Incoming
  bwrite $sockname -1 -1 &Incoming
  if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
  elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
    $($+(%,stats.display.,%ID),2) $c1(The username) $c2($($+(%,compare.rsn1.,%ID),2)) $c1(or) $c2($($+(%,compare.rsn2.,%ID),2)) $c1(does not appear in the hiscores)
    comparecleanup $gettok($sockname,2,46)
  }
}
alias -l makehash {
  var %file = $1
  bread %file 1 $file(%file).size &stats
  var %currentstat, %x = 1
  while (%x) {
    var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
    var %currentstat = $striptags($bvar(&stats,%x,200).text)
    tokenize 10 %currentstat
    hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
  }
  process %file
}
;HERE LOL;
alias process {
  var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
    %display = $($+(%,compare.display.,%ID),2), $&
    %rsn1 = $($+(%,compare.rsn1.,%ID),2), $&
    %rsn2 = $($+(%,compare.rsn2.,%ID),2), $&
    %skill = $($+(%,compare.skill.,%ID),2), $&
    %style = $($+(%,compare.style.,%ID),2), $&
    %nick = $($+(%,compare.nick.,%ID),2)
  if (%style == compare) {
    WTF TO PUT HERE? xD
  }
  comparecleanup %id
}

alias -l comparecleanup {
  unset $+(%,compare.*.,$1)
  sockclose $+(compare.,$1)
  .remove $+(compare.,$1)
}

alias -l xp2Next {
  var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
  return $calc(%nextxp - %xp)
}

alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias -l setskill {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
}