;###############################################
;# RuneScape Hiscore Lookup Script -Aug 25, 06 #
;# Made by Ajay Haley (crashstash@hotmail.com) #
;# The mIRC Scripting Guild (msg.cryptica.net) #
;# Modified by RadoN                           #
;#                                             #
;#  IF YOU WANT TO USE THIS SCRIPT, MAKE SURE  #
;#  THAT YOU COPY >>EVERYTHING<< HERE OR ELSE  #
;#  IT WILL NOT WORK!!!!!!!! Hint: Use CTRL+A  #
;###############################################

on $*:TEXT:/^[!@]stats */Si*:#: { rsprofile $replace($2-,$chr(32),$chr(95)) global | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]overall */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) overall | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]attack */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) attack | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]defence */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) defence | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]strength */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) strength | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]hitpoints */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) hitpoints | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]ranged */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) ranged | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]prayer */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) prayer | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]magic */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) magic | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]cooking */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) cooking | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]woodcutting */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) woodcutting | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]fletching */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) fletching | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]fishing */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) fishing | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]firemaking */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) firemaking | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]crafting */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) crafting | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]smithing */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) smithing | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]mining */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) mining | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]herblore */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) herblore | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]agility */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) agility | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]thieving */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) thieving | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]slayer */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) slayer | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]farming */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) farming | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]runecrafting */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) runecraft | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }
on $*:TEXT:/^[!@]construction */Si:#: { rsprofile $replace($2-,$chr(32),$chr(95)) construction | set %send $iif($left($1,1) == @,msg $chan,notice $nick) }

alias rsprofile {
  ;##########################################
  ;### What to say if the script is busy? ###
  ;##########################################
  if (%rsp.busy == yes) {
    notice $nick $nick $+ , I cannot check two people at once. Please wait. | halt
  }

  set %rsp.busy yes
  set %rsp.user $upper($left($1,1)) $+ $lower($right($1,-1))
  set %rsp.exit1 $2
  set %rsp.style 7
  set %rsp.colour 4

  ;###################################################
  ;### What to say if they're not on the hiscores? ###
  ;###################################################
  set %rsp.0 --

  set %rsp.rank.overall %rsp.0 | set %rsp.lvl.overall %rsp.0 | set %rsp.xp.overall %rsp.0
  set %rsp.rank.attack %rsp.0 | set %rsp.lvl.attack %rsp.0 | set %rsp.xp.attack %rsp.0
  set %rsp.rank.defence %rsp.0 | set %rsp.lvl.defence %rsp.0 | set %rsp.xp.defence %rsp.0
  set %rsp.rank.strength %rsp.0 | set %rsp.lvl.strength %rsp.0 | set %rsp.xp.strength %rsp.0
  set %rsp.rank.hitpoints %rsp.0 | set %rsp.lvl.hitpoints %rsp.0 | set %rsp.xp.hitpoints %rsp.0
  set %rsp.rank.ranged %rsp.0 | set %rsp.lvl.ranged %rsp.0 | set %rsp.xp.ranged %rsp.0
  set %rsp.rank.prayer %rsp.0 | set %rsp.lvl.prayer %rsp.0 | set %rsp.xp.prayer %rsp.0
  set %rsp.rank.magic %rsp.0 | set %rsp.lvl.magic %rsp.0 | set %rsp.xp.magic %rsp.0
  set %rsp.rank.cooking %rsp.0 | set %rsp.lvl.cooking %rsp.0 | set %rsp.xp.cooking %rsp.0
  set %rsp.rank.woodcutting %rsp.0 | set %rsp.lvl.woodcutting %rsp.0 | set %rsp.xp.woodcutting %rsp.0
  set %rsp.rank.fletching %rsp.0 | set %rsp.lvl.fletching %rsp.0 | set %rsp.xp.fletching %rsp.0
  set %rsp.rank.fishing %rsp.0 | set %rsp.lvl.fishing %rsp.0 | set %rsp.xp.fishing %rsp.0
  set %rsp.rank.firemaking %rsp.0 | set %rsp.lvl.firemaking %rsp.0 | set %rsp.xp.firemaking %rsp.0
  set %rsp.rank.crafting %rsp.0 | set %rsp.lvl.crafting %rsp.0 | set %rsp.xp.crafting %rsp.0
  set %rsp.rank.smithing %rsp.0 | set %rsp.lvl.smithing %rsp.0 | set %rsp.xp.smithing %rsp.0
  set %rsp.rank.mining %rsp.0 | set %rsp.lvl.mining %rsp.0 | set %rsp.xp.mining %rsp.0
  set %rsp.rank.herblore %rsp.0 | set %rsp.lvl.herblore %rsp.0 | set %rsp.xp.herblore %rsp.0
  set %rsp.rank.agility %rsp.0 | set %rsp.lvl.agility %rsp.0 | set %rsp.xp.agility %rsp.0
  set %rsp.rank.thieving %rsp.0 | set %rsp.lvl.thieving %rsp.0 | set %rsp.xp.thieving %rsp.0
  set %rsp.rank.slayer %rsp.0 | set %rsp.lvl.slayer %rsp.0 | set %rsp.xp.slayer %rsp.0
  set %rsp.rank.farming %rsp.0 | set %rsp.lvl.farming %rsp.0 | set %rsp.xp.farming %rsp.0
  set %rsp.rank.runecraft %rsp.0 | set %rsp.lvl.runecraft %rsp.0 | set %rsp.xp.runecraft %rsp.0
  set %rsp.rank.construction %rsp.0 | set %rsp.lvl.construction %rsp.0 | set %rsp.xp.construction % rsp.0
  sockopen rslookup hiscore.runescape.com 80
}

on *:sockopen:rslookup: { 
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %rsp.user HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}

on *:sockread:rslookup: {
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %rsp.html
    sockread %rsp.html
    if (<td align="right">*</td> iswm %rsp.html) {
      if (%rsp.stage == 1) {
        set %rsp.rank. $+ %rsp.skill $remove(%rsp.html,<td align="right">,</td>)
        inc %rsp.stage
      }
      elseif (%rsp.stage == 2) {
        set %rsp.lvl. $+ %rsp.skill $remove(%rsp.html,<td align="right">,</td>)
        inc %rsp.stage
      }
      elseif (%rsp.stage == 3) {
        set %rsp.xp. $+ %rsp.skill $remove(%rsp.html,<td align="right">,</td>)
        inc %rsp.stage
      }
    }
    if (<td align="left"><a href="overall.ws?table=*&user=*">*</a></td> iswm %rsp.html) {
      set %rsp.skill $lower($remove(%rsp.html,%rsp.user,<td align="left"><a href="overall.ws?table=, 1,2,3,4,5,6,7,8,9,0,&user=,">,</a></td>))
      set %rsp.stage 1
    }
    if (*"mainscroll-bottom"* iswm %rsp.html) {

      ;#####################################################
      ;## Main Configuration                              ##
      ;## Alter defaults or make your own query returns.  ##
      ;##                                                 ##
      ;## Feel free to make use of the these variables:   ##
      ;##  %rsp.user -- RS Username being queried         ##
      ;##  %rsp.rank.{skill} -- Returns player's rank     ##
      ;##  %rsp.lvl.{skill} -- Returns player's level     ##
      ;##  %rsp.xp.{skill} -- Returns player's experience ##
      ;##  %rsp.exit1 -- Skill being queried              ##
      ;##                                                 ##
      ;## Replace "{skill}" with any skill name.          ##
      ;#####################################################

      if (%rsp.exit1 != global) {

        ;###################################################
        ;## How will you return individual skill lookups? ##
        ;###################################################
        %send %rsp.style $+ %rsp.user $+ 's $upper($left(%rsp.exit1,1)) $+ $lower($right(%rsp.exit1,-1))  Level: %rsp.colour $+ %rsp.lvl. [ $+ [ %rsp.exit1 ] ]

      }
      else {
        ;###############################################
        ;## How will you return full hiscore lookups? ##
        ;###############################################
        set %rsp.half Fishing: $+ %rsp.colour %rsp.lvl.fishing %rsp.style $+ Firemaking: $+ %rsp.colour %rsp.lvl.firemaking %rsp.style $+ Crafting: $+ %rsp.colour %rsp.lvl.crafting %rsp.style $+  Smithing: $+ %rsp.colour %rsp.lvl.smithing %rsp.style $+ Mining: $+ %rsp.colour %rsp.lvl.mining %rsp.style $+ Herblore: $+ %rsp.colour %rsp.lvl.herblore %rsp.style $+ Agility: $+ %rsp.colour %rsp.lvl.agility %rsp.style $+ Thieving: $+ %rsp.colour %rsp.lvl.thieving %rsp.style $+ Slayer: $+ %rsp.colour %rsp.lvl.slayer %rsp.style $+ Farming: $+ %rsp.colour %rsp.lvl.farming %rsp.style $+  Runecraft: $+ %rsp.colour %rsp.lvl.runecraft %rsp.style $+ Construction: $+ %rsp.colour %rsp.lvl.construction
        %send  $+ %rsp.user $+ : %rsp.style $+ Overall: $+ %rsp.colour %rsp.lvl.overall %rsp.style $+ Attack: $+ %rsp.colour %rsp.lvl.attack %rsp.style $+ Defence: $+ %rsp.colour %rsp.lvl.defence %rsp.style $+ Strength: $+ %rsp.colour %rsp.lvl.strength %rsp.style $+ Hitpoints: $+ %rsp.colour %rsp.lvl.hitpoints %rsp.style $+ Ranged: $+ %rsp.colour %rsp.lvl.ranged %rsp.style $+ Prayer:  $+ %rsp.colour %rsp.lvl.prayer %rsp.style $+ Magic: $+ %rsp.colour %rsp.lvl.magic %rsp.style $+  Cooking: $+ %rsp.colour %rsp.lvl.cooking %rsp.style $+ Woodcutting: $+ %rsp.colour %rsp.lvl.woodcutting %rsp.style $+ Fletching: $+ %rsp.colour %rsp.lvl.fletching %rsp.style $+ %rsp.half

      }
      unset %rsp.busy
      unset %rsp.user
      unset %rsp.exit1
      unset %rsp.0
      unset %rsp.rank.overall %rsp.0 | unset %rsp.lvl.overall %rsp.0 | unset %rsp.xp.overall %rsp.0
      unset %rsp.rank.attack %rsp.0 | unset %rsp.lvl.attack %rsp.0 | unset %rsp.xp.attack %rsp.0
      unset %rsp.rank.defence %rsp.0 | unset %rsp.lvl.defence %rsp.0 | unset %rsp.xp.defence %rsp.0
      unset %rsp.rank.strength %rsp.0 | unset %rsp.lvl.strength %rsp.0 | unset %rsp.xp.strength %rsp .0
      unset %rsp.rank.hitpoints %rsp.0 | unset %rsp.lvl.hitpoints %rsp.0 | unset %rsp.xp.hitpoints % rsp.0
      unset %rsp.rank.ranged %rsp.0 | unset %rsp.lvl.ranged %rsp.0 | unset %rsp.xp.ranged %rsp.0
      unset %rsp.rank.prayer %rsp.0 | unset %rsp.lvl.prayer %rsp.0 | unset %rsp.xp.prayer %rsp.0
      unset %rsp.rank.magic %rsp.0 | unset %rsp.lvl.magic %rsp.0 | unset %rsp.xp.magic %rsp.0
      unset %rsp.rank.cooking %rsp.0 | unset %rsp.lvl.cooking %rsp.0 | unset %rsp.xp.cooking %rsp.0
      unset %rsp.rank.woodcutting %rsp.0 | unset %rsp.lvl.woodcutting %rsp.0 | unset %rsp.xp. woodcutting %rsp.0
      unset %rsp.rank.fletching %rsp.0 | unset %rsp.lvl.fletching %rsp.0 | unset %rsp.xp.fletching % rsp.0
      unset %rsp.rank.fishing %rsp.0 | unset %rsp.lvl.fishing %rsp.0 | unset %rsp.xp.fishing %rsp.0
      unset %rsp.rank.firemaking %rsp.0 | unset %rsp.lvl.firemaking %rsp.0 | unset %rsp.xp.firemaking  %rsp.0
      unset %rsp.rank.crafting %rsp.0 | unset %rsp.lvl.crafting %rsp.0 | unset %rsp.xp.crafting %rsp .0
      unset %rsp.rank.smithing %rsp.0 | unset %rsp.lvl.smithing %rsp.0 | unset %rsp.xp.smithing %rsp .0
      unset %rsp.rank.mining %rsp.0 | unset %rsp.lvl.mining %rsp.0 | unset %rsp.xp.mining %rsp.0
      unset %rsp.rank.herblore %rsp.0 | unset %rsp.lvl.herblore %rsp.0 | unset %rsp.xp.herblore %rsp .0
      unset %rsp.rank.agility %rsp.0 | unset %rsp.lvl.agility %rsp.0 | unset %rsp.xp.agility %rsp.0
      unset %rsp.rank.thieving %rsp.0 | unset %rsp.lvl.thieving %rsp.0 | unset %rsp.xp.thieving %rsp .0
      unset %rsp.rank.slayer %rsp.0 | unset %rsp.lvl.slayer %rsp.0 | unset %rsp.xp.slayer %rsp.0
      unset %rsp.rank.farming %rsp.0 | unset %rsp.lvl.farming %rsp.0 | unset %rsp.xp.farming %rsp.0
      unset %rsp.rank.runecraft %rsp.0 | unset %rsp.lvl.runecraft %rsp.0 | unset %rsp.xp.runecraft % rsp.0
      unset %rsp.rank.construction %rsp.0 | unset %rsp.lvl.construction %rsp.0 | unset %rsp.xp. construction %rsp.0
      unset %rsp.skill
      unset %rsp.stage
      unset %rsp.style
      unset %rsp.colour
      unset %rsp.half
      unset %send
    }
  }
}