Anonymous

on *:TEXT:*:#:{
  if ($skill($right($1,-1))) {
    set $+(%,alts,.,$nick,.,skill) $skill($right($1,-1))
    set $+(%,alts,.,$nick,.,dest) $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick,halt))
    set $+(%,alts,.,$nick,.,lookup) $replace($2-,$chr(32),+,_,+,-,+)
    if ($($+(%,alts,.,$nick,.,skill),2) == Stats) { set $+(%,alts,.,$nick,.,style) st }
    if ($($+(%,alts,.,$nick,.,skill),2) != Stats) { set $+(%,alts,.,$nick,.,style) ss }   
    if (*Combat* iswm $($+(%,alts,.,$nick,.,skill),4)) { set $+(%,alts,.,$nick,.,style) cb }
    sockopen $+(alts,.,$nick) altscripts.trap17.com 80
  }
  else halt
}
on *:SOCKOPEN:alts.*:{
  sockwrite -nt $sockname GET /rsparsers/highscores.php?rsn= $+ $($+(%,$sockname,.,lookup),2)  HTTP/1.1
  sockwrite -nt $sockname Host: altscripts.trap17.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:alts.*:{
  sockread -f $+(%,$sockname,.,result)
  tokenize 32 $htmlfree($($+(%,$sockname,.,result),2))
  if ($($+(%,$sockname,.,style),2) == cb) {
    if ($1 == Attack:) { set $+(%,$sockname,.,temp) COMBAT STATS FOR: $replace($($+(%,$sockname,.,lookup),2),+,$chr(32)) ATTACK: $2 }
    if ($1 == Defence:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) DEFENCE: $2 }
    if ($1 == Strength:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) STRENGTH: $2 }
    if ($1 == Hitpoints:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) HITPOINTS: $2 }
    if ($1 == Prayer:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) PRAYER: $2 }
    if ($1 == Magic:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) MAGIC: $2 }
    if ($1 == Ranged:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) RANGE: $2 }
    if ($1 == Combat:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) COMBAT: $2 | $($+(%,$sockname,.,dest),2) $($+(%,$sockname,.,temp),2) }
  }
  if ($($+(%,$sockname,.,style),2) == ss) {
    if ($+($($+(%,alts,.,$nick,.,skill),2),:) == $1) {
      $($+(%,$sockname,.,dest),2) $($+(%,alts,.,$nick,.,skill),2) stats for: $replace($($+(%,$sockname,.,lookup),2),+,$chr(32)) 
      $($+(%,$sockname,.,dest),2) $2-
    }
  }
  if ($($+(%,$sockname,.,style),2) == st) {
    if ($1 == Overall:) { set $+(%,$sockname,.,temp) STATS FOR $replace($($+(%,$sockname,.,lookup),2),+,$chr(32)) $+ : Total Level: $2 }
    if ($1 == Attack:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) ATTACK: $2 } 
    if ($1 == Defence:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) DEFENCE: $2 } 
    if ($1 == Strength:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) STRENGTH: $2 } 
    if ($1 == Hitpoints:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) HITPOINTS: $2 } 
    if ($1 == Prayer:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) PRAYER: $2 } 
    if ($1 == Magic:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) MAGIC: $2 } 
    if ($1 == Ranged:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) RANGE: $2 } 
    if ($1 == Cooking:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) COOKING: $2 } 
    if ($1 == Woodcutting:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) WOODCUTTING: $2 } 
    if ($1 == Fletching:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) FLETCHING: $2 } 
    if ($1 == Fishing:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) FISHING: $2 } 
    if ($1 == Firemaking:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) FIREMAKING: $2 } 
    if ($1 == Crafting:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) CRAFING: $2 } 
    if ($1 == Smithing:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) SMITHING: $2 } 
    if ($1 == Mining:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) MINING: $2 } 
    if ($1 == Herblore:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) HERBLORE: $2 } 
    if ($1 == Agility:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) AGILITY: $2 } 
    if ($1 == Thieving:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) THIEVING: $2 } 
    if ($1 == Slayer:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) SLAYER: $2 } 
    if ($1 == Farming:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) FARMING: $2 } 
    if ($1 == Runecraft:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) RUNECRAFTING: $2 } 
    if ($1 == Construction:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) CONSTRUCTION: $2 | $($+(%,$sockname,.,dest),2) $($+(%,$sockname,.,temp),2) } 
  }
}
alias skill {
  if ($regex($1,/c(mb|ombat)/Si)) Return Combat
  if ($regex($1,/Stats/Si)) Return Stats
  if ($regex($1,/att(ack)/Si)) Return Attack
  if ($regex($1,/str(rength)/Si)) Return Strength
  if ($regex($1,Def(ence)/)) Return Defence
  if ($regex($1,/(hp|hits|hitpoints)/Si)) Return Hitpoints
  if ($regex($1,/pray(er)/Si)) Return Prayer
  if ($regex($1,/mag(e|ic)/Si)) Return Magic
  if ($regex($1,/range(d)/Si)) Return Ranged
  if ($regex($1,/Cook(ing)/Si)) Return Coooking
  if ($regex($1,/(wc|Woodcut|woodcutting)/Si)) Return Woodcutting
  if ($regex($1,/fletch(ing)/Si)) Return Fletching
  if ($regex($1,/fish(ing)/Si)) Return Fishing
  if ($regex($1,/(fm|Firemake|firemaking)/Si)) Return Firemaking
  if ($regex($1,/craft(ing)/Si)) Return Crafting
  if ($regex($1,/smith(ing)/Si)) Return Smithing
  if ($regex($1,/min(e|ing)/Si)) Return Mining
  if ($regex($1,/Herb(lore|y)/Si)) Return Herblore
  if ($regex($1,/Agility/Si)) Return Agility
  if ($regex($1,/thie(f|ve|ving)/Si)) Return Thieving
  if ($regex($1,/Slay(er|ing)/Si)) Return Slayer
  if ($regex($1,/farm(ing)/Si)) Return Farming
  if ($regex($1,/(rc|runecraft|runecrafting)/Si)) Return Runecraft
  if ($regex($1,/con(struction)/Si)) Return Construction
}