Unnamed

; ______________________________________________________ ______________________ 
; 
; Runescape script 
; ______________________________________________________ ______________________ 

; ______________________________________________________ ______________________ 
; Events 

on *:text:@skills:#: msg $chan Available skills are: $replace($rune_skills,|,$chr(44)) 

on *:text:@*:#: { 
  var %skills = overall attack defence strength ranged hitpoints magic fletching thieving crafting cooking firemaking fishing smithing mining prayer runecrafting herblore agility 
  var %query = $remove($1,@) 
  if ($istok(%skills,%query,32)) { 
    if ($2) runescape $chan %query $2- 
    else msg $chan You must specify a player name, ie, $1 $nick 
  } 
  else msg $chan You must specify a valid skill, type @skills to see the skill list 
} 

; ______________________________________________________ ______________________ 
; Aliases 

;; Function: gets data on runescape 
;; Usage: /runescape <target> <type> <name of player> 
alias runescape { 
  var %sock = runescape. $+ $ticks 
  hadd -m %sock target $1 
  hadd %sock query $2 
  hadd %sock name $3- 
  sockopen %sock hiscore-web.runescape.com 80 
} 

;; Function: simply writes to the object database, a shortcut for the lazy/uninformed 
;; Usage: /rune.add <skill type> <object> <xp> 
alias rune.add { writeini $shortfn($scriptdirrunedb.ini) $1 $2 $$3 } 

;; Function: displays the skills list 
;; Usage: $rune_skills 
alias rune_skills { return overall|attack|defence|strength|range|hitpoints|magic| fletching|thieving|crafting|cooking|firemaking|fishing|s mithing|mining|prayer|runecrafting|herblore|agility } 

;; Function: delimits a number with a given character (ie, adds commas to large numbers) 
;; Usage: $delimit(<number>,<C>) 
;; Comments: <C> is an ASCII representation of a char, as used in $gettok 
alias delimit { 
  var %regex = (^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d)) 
  .echo -q $regsub($1,m~ %regex ~xg,\1 $+ $chr($2),%regex) 
  return %regex 
} 

;; Function: returns the xp needed at a specified level in runescape 
;; Usage: $lvlxp(<level>) 
alias lvlxp { 
  var %A, %B, %C, %i = 1 
  while (%i <= $1) { 
    %A = $floor($calc(%C / 4)) 
    %B = $floor($calc(%i + 300 * 2^(%i / 7))) 
    %C = $calc(%C + %B) 
    inc %i 
  } 
  return %A 
} 

; ______________________________________________________ ______________________ 
; Connection 

on *:sockopen:runescape.*: { 
  ;; remove spaces from the names and replace them with +'s, for URL encoding 
  var %name = $replace($hget($sockname,name),$chr(32),+) 
  sockwrite -n $sockname GET http://hiscore-web.runescape.com/aff/runescape/highsco rerank.cgi?username=$+ 
  sockwrite -n $sockname Host: http://hiscore-web.runescape.com/aff/runescape/hiscore s.html 
  sockwrite -n $sockname Connection: close 
  sockwrite -n $sockname 
} 

on *:sockread:runescape.*: { 
  var %temp 
  sockread %temp 

  if (*class=c>*</a></td>* iswm %temp) { 
    hadd $sockname subject $nohtml(%temp) 
    hinc $sockname capture 
  } 
  elseif ($nohtml(%temp)) && ($hget($sockname,capture)) { 
    var %cap = $ifmatch, %subject = $hget($sockname,subject) 
    hadd $sockname %subject $+ $gettok(_rank _level _xp,%cap,32) $nohtml(%temp) 
    if (%cap >= 3) hdel $sockname capture 
    else hinc $sockname capture 
  } 
} 

on *:sockclose:runescape.*: { 
  ;; type of query the person is asking for: overall, attack, defence, etc 
  var %query = $hget($sockname,query), %results 
  ;; give overall stats --> list the level for each topic 
  if (%query == overall) { 
    var %i = 1 
    while ($hfind($sockname,*_level,%i,w)) { 
      ;; get the type and value of each topic (ie, type = attack, value = 99) 
      var %type = $gettok($ifmatch,1,95), %value = $hget($sockname,$ifmatch) 
      ;; concatenate the results 
      %results = %results $+([^B],%type,[^B] %value : 
      inc %i 
    } 
  } 
  ;; give stats for each area (attack,defense,etc) 
  else { 
    ;; find the XP for next level 
    var %level = $hget($sockname,%query $+ _level) 
    var %lvlXP = $lvlxp($calc(%level + 1)) 
    ;; find the current XP 
    var %currentXP = $hget($sockname,%query $+ _xp) 
    ;; find how much XP is needed to advance 
    var %needXP = $calc(%lvlXP - $remove(%currentXP,$chr(44))) 

    ;; format the 'stats' part of the message 
    var %stats = [^B]Rank:[^B] $hget($sockname,%query $+ _rank) : [^B]Level:[^B] $hget($sockname,%query $+ _level) : [^B]XP:[^B] %currentXP : [^B]XP required to level:[^B] $delimit(%needXP,44) 

    ;; format and add the 'objects' part of the message 
    var %i = 1, %objects, %file = $shortfn($scriptdirrunedb.ini) 
    ;; cycle through the available objects for the skill in question 
    while ($ini(%file,%query,%i)) { 
      var %object = $ifmatch, %xp = $readini(%file,%query,$ifmatch) 
      if (%xp) %objects = %objects $+([^B],%object,[^B] $floor($calc(%needxp / %xp)) 
      inc %i 
      ;; damned 'smithing' skill requires two lists of objects: smelt, and smith+smelt 
      if (%query == smithing) && (%i > $ini(%file,%query,0)) var %objects = [^B][Smelt][^B] %objects [^B][Smith + Smelt][^B], %query = smelt, %i = 1 
    } 
    ;; set query back to smithing 
    if (%query == smelt) %query = smithing 
    ;; combine the two 
    var %results = %stats :: %objects 
  } 

  ;; message the results to the target 
  msg $hget($sockname,target) %query stats for $hget($sockname,name) :: $iif($hget($sockname,%query $+ _level),%results,No data found) 
}