Untitled

alias gop {
  if ($goprune($1)) && ($2 isnum) && ($3 isnum) {
    set %gop.n $upper($mid($replace($me,$chr(32),$chr(45),$chr(95),$chr(45)),1,1)) $+ $lower($mid($replace($me,$chr(32),$chr(45),$chr(95),$chr(45)),2))
    if ($4) { set %gop.n $upper($mid($replace($4-,$chr(32),$chr(45),$chr(95),$chr(45)),1,1)) $+ $lower($mid($replace($4-,$chr(32),$chr(45),$chr(95),$chr(45)),2)) }
    set %gop.rune $upper($mid($replace($1,$chr(32),$chr(45),$chr(95),$chr(45)),1,1)) $+ $lower($mid($replace($1,$chr(32),$chr(45),$chr(95),$chr(45)),2))
    set %gop.esstrip $2
    set %gop.tokens $3
    sockclose gop
    sockopen gop hiscore.runescape.com 80
  }
  else { echo -a Syntax: /gop 'rune' 'ess/trip' 'amount of tokens' }
}
alias goprune {
  if ($1 = air) { return 5 30 }
  elseif ($1 = mind) { return 5.5 32 }
  elseif ($1 = water) { return 6 34 }
  elseif ($1 = earth) { return 6.5 36 }
  elseif ($1 = fire) { return 7 37 }
  elseif ($1 = body) { return 7.5 38 }
  elseif ($1 = cosmic) { return 8 39 }
  elseif ($1 = chaos) { return 8.5 40 }
  elseif ($1 = astral) { return 8.7 41 }
  elseif ($1 = nature) { return 9 42 }
  elseif ($1 = law) { return 9.5 43 }
  elseif ($1 = death) { return 10 44 }
  elseif ($1 = blood) { return 10.5 45 }
}
on *:sockopen:gop:{
  sockwrite -n $sockname GET /index_lite.ws?player= $+ %gop.n HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com
  sockwrite -n $sockname $crlf $crlf
}
on *:sockread:gop:{
  if ($sockerr) { echo -a An error happened, please try again later | unset %gop.* | sockclose $sockname | halt }
  else {
    sockread -f %gop.read
    if (%gop.read = <html><head><title>404 - Page not found</title></head><body style="color: black; background: white; font-family: Arial, Verdana, Helvetica;"><div style="font-weight: bold; color: #666666; font-size: large">404 - Page not found</div><hr width="300" align="left" /><p>Sorry, the page you were looking for was not found.</p><!--Padding for IEPadding Padding for IEPadding Padding for IEPadding Padding for IEPadding for IEPadding for IEPadding for IEPadding for IEPadding for IEPadding for IEPadding for IEPadding for IEPadding for IE--></body></html>) { echo -a Rune: %gop.rune - Tokens: $bytes(%gop.tokens,b) - Ess/tab: %gop.esstrip - Tabs banked: $bytes($calc(%gop.tokens / $gettok($goprune(%gop.rune),2,32)),b) - Experience banked: $bytes($calc((( %gop.esstrip * $gettok($goprune(%gop.rune),1,32) ) / $gettok($goprune(%gop.rune),2,32) ) * %gop.tokens ),b) | unset %gop.* | sockclose $sockname | halt }
    if ($chr(44) isin %gop.read) { inc %gop.k
      if (%gop.k = 24) && ($gettok(%gop.read,1,44) != -1) { set %gop.rc.lvl $gettok(%gop.read,2,44) | set %gop.rc.exp $gettok(%gop.read,3,44) }
      if (%gop.k = 32) {
        echo -a Name:  $+ %gop.n $+  - Rune: %gop.rune - Tokens: $bytes(%gop.tokens,b) - Ess/tab: %gop.esstrip - Tabs banked: $bytes($calc(%gop.tokens / $gettok($goprune(%gop.rune),2,32)),b) - Experience banked: $bytes($calc((( %gop.esstrip * $gettok($goprune(%gop.rune),1,32) ) / $gettok($goprune(%gop.rune),2,32) ) * %gop.tokens ),b) - Final experience: $bytes($calc(((( %gop.esstrip * $gettok($goprune(%gop.rune),1,32) ) / $gettok($goprune(%gop.rune),2,32) ) * %gop.tokens ) + %gop.rc.exp),b)
        unset %gop.* | sockclose $sockname
      }
    }
  }
}