Untitled

alias ca { return $+($chr(3),05,$1-,$chr(3)) }
alias cz { return $+($chr(3),07,$1-,$chr(3)) }
on *:TEXT:*:#:{
  if ($skill($right($1,-1)) == oh) { halt }
  if ($skill($right($1,-1))) {
    if ($len($replace($2-,$chr(32),+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is  too long. | halt }
    set $+(%,alts,.,$nick,.,skill) $skill($right($1,-1))
    $iif($left($1,1) == @,set $+(%,alts,.,$nick,.,dest) msg $chan,$iif($left($1,1) == !,set $+(%,alts,.,$nick,.,dest) notice $nick))
    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) $cz(ATTACK:) $2 $ca(::) | set $+(%,$sockname,.,check) $2 }
    if ($1 == Defence:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(DEFENCE:) $2 $ca(::) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Strength:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(STRENGTH:) $2 $ca(::) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Hitpoints:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(HITPOINTS:) $2 $ca(::) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Prayer:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(PRAYER:) $2 $ca(::) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Magic:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(MAGIC:) $2 $ca(::) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Ranged:) { set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(RANGE:) $2 | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Combat:) {
      set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $iif($len($2) == 1,$replace($2,0,-),$2) 

      if ($($+(%,$sockname,.,check),2) == --------) { 
        $($+(%,$sockname,.,dest),2) $cz($replace($($+(%,$sockname,.,lookup),2),+,$chr(32))) isn't in the highscores for any combat skills.
        unset $+(%,$sockname,.,*)
        sockclose $sockname
        halt 
      }
      $($+(%,$sockname,.,dest),2) $cz($replace($($+(%,$sockname,.,lookup),2),+,$chr(32))) $ca(::) $cz(COMBAT:) $2
      $($+(%,$sockname,.,dest),2) $($+(%,$sockname,.,temp),2)
      unset $+(%,$sockname,.,*)
      sockclose $sockname 
    }
  }
  if ($($+(%,$sockname,.,style),2) == ss) {
    if ($+($($+(%,$sockname,.,skill),2),:) == $1) {
      if (*-* iswm $1-) { $($+(%,$sockname,.,dest),2) $replace($($+(%,$sockname,.,lookup),2),+,$chr(32)) Doesn't appear in the high scores for $($+(%,$sockname,.,skill),2) | sockclose $sockname | unset $+(%,$sockname,.,*) | halt } 
      $($+(%,$sockname,.,dest),2) $ca($($+(%,$sockname,.,skill),2)) $cz(stats for:) $ca($replace($($+(%,$sockname,.,lookup),2),+,$chr(32))) 
      $($+(%,$sockname,.,dest),2) $cz(Level:) $2 $cz(Exp:) $4 $cz(Rank:) $6 $cz(xp till next lvl :) $8
      unset $+(%,$sockname,.,*)
      sockclose $sockname
    }
  }
  if ($($+(%,$sockname,.,style),2) == st) {
    if ($1 == Overall:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $cz(Overall:) $2) | set $+(%,$sockname,.,check) $2 }
    if ($1 == Attack:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(ATTACK:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Defence:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(DEFENCE:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Strength:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(STRENGTH:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 }
    if ($1 == Hitpoints:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(HITPOINTS:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Prayer:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(PRAYER:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Magic:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(MAGIC:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Ranged:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(RANGE:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Cooking:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(COOKING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Woodcutting:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(WOODCUTTING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Fletching:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(FLETCHING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Fishing:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(FISHING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Firemaking:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(FIREMAKING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Crafting:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(CRAFING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Smithing:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(SMITHING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Mining:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(MINING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Herblore:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(HERBLORE:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Agility:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(AGILITY:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Thieving:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(THIEVING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Slayer:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(SLAYER:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Farming:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(FARMING:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Runecraft:) { $iif(*-* iswm $1-,halt,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(RUNECRAFT:) $2) | set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 } 
    if ($1 == Construction:) {
      $iif(*-* !iswm $1-,set $+(%,$sockname,.,temp) $($+(%,$sockname,.,temp),2) $cz(CONSTRUCTION:) $2)
      set $+(%,$sockname,.,check) $($+(%,$sockname,.,check),2) $+ $2 
      if ($remove($($+(%,$sockname,.,check),2),$chr(44),-) !isnum) { 
        $($+(%,$sockname,.,dest),2) $replace($($+(%,$sockname,.,lookup),2),+,$chr(32)) is not in the high scores for any stat!
        unset $+(%,$sockname,.,*)
        sockclose $sockname 
        halt
      }
      $($+(%,$sockname,.,dest),2) $cz(STATS FOR $replace($($+(%,$sockname,.,lookup),2),+,$chr(32)) $+ :)
      $($+(%,$sockname,.,dest),2) $($+(%,$sockname,.,temp),2)
      unset $+(%,$sockname,.,*)
      sockclose $sockname 
    }
  }
}
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(ength)?$/Si)) Return Strength
  if ($regex($1,Def(ence)?$/Si)) 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,/thiev(e|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
  return oh
} 

alias exp { 
  var %a = 1 
  .set %exp123 0 
  var %a1 = $eval($1) 
  while (%a < %a1) { 
    var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4) 
    inc %exp123 %expvalue 
    inc %a 
  } 
  return $floor(%exp123) 
}