Miscellany

on $*:TEXT:/^[!@](att|def|str|h(p|it)|rang|pray|mag[ei]|cook|w(c|oodcut)|flet|fish|f(m|iremak)|craft|smith|min|herb|agi|th[ie]|slay|farm|r(c|une)|hunt|c(s|on))/Si:#: {
  if ($statsid($1) != $null) && (*define* !iswm $1-) {  
    var %sckid $right($ticks,5)
    set %sstat [ $+ [ %sckid ] ] $statsid($1)
    set %h [ $+ [ %sckid ] ] $remove($+(#,$gettok($gettok($2-,2,35),1,32)),$chan)
    set %nnick [ $+ [ %sckid ] ] $remove($replace($2-,$chr(32),+),+#,#,#+,%h)
    if ($left($1,1) == !) set %way. [ $+ [ %sckid ] ] notice $nick
    if ($left($1,1) == @) set %way. [ $+ [ %sckid ] ] msg $chan
    sockopen kool. [ $+ [ %sckid ] ] www.o-ss.net 80
    if (*#* iswm $2-) set %level $remove($+(#,$gettok($gettok($2-,2,35),1,32)),$chan)
  }
}
on *:SOCKOPEN:kool.*: {
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %nnick HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:kool.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    set %sockreader [ $+ [ $right($sockname,5) ] ]
    sockread %sockreader
    if (* $+ %sstat [ $+ [ $right($sockname,5) ] ] $+ * iswm %sockreader) {
      var %tempvar [ $+ [ $right($sockname,5) ] ] %sockreader [ $+ [ $right($sockname,5) ] ]
      $iif(%level [ $+ [ $right($sockname,5) ] ] < $gettok(%sockreader [ $+ [ $right($sockname,5) ] ],3,32),set %level [ $+ [ $right($sockname,5) ] ] $calc($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],3,32) + 1))
      set %exptilll [ $+ [ $right($sockname,5) ] ] $iif(%level [ $+ [ $right($sockname,5) ] ],$getxp(%level [ $+ [ $right($sockname,5) ] ]),$calc($getxp($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],3,32) + 1))))
      set %exptill [ $+ [ $right($sockname,5) ] ] $calc(%exptilll [ $+ [ $right($sockname,5) ] ] - $remove($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],4,32),$chr(44)))
      set %nnext [ $+ [ $right($sockname,5) ] ] $iif(%level [ $+ [ $right($sockname,5) ] ],%level [ $+ [ $right($sockname,5) ] ],$calc($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],3,32) + 1))
      %way. [ $+ [ $right($sockname,5) ] ] $c2(%sstat) $c1(for) $c2(%nnick [ $+ [ $right($sockname,5) ] ] -) $c1(Rank:) $c2($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],2,32)) $c1(Level:) $c2($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],3,32)) $c1(Exp:) $c2($gettok(%sockreader [ $+ [ $right($sockname,5) ] ],4,32)) - $c1(Exp till level) $c2(%nnext [ $+ [ $right($sockname,5) ] ]) $c1($bytes(%exptill [ $+ [ $right($sockname,5) ] ],bd))
      %way. [ $+ [ $right($sockname,5) ] ] $nextlev     
      unset %*. [ $+ [ $right($sockname,5) ] ]
      sockclose $sockname
    }
    elseif (*does not feature* iswm %sockreader) {
      %way. [ $+ [ $right($sockname,5) ] ] $c1(%nnick) $c2(isn't in the highscores for) $c1(%sstat) 
      sockclose $sockname
    }
  }
}
alias StatsID {
  if ($regex($1,/^([!@])?(stats?|overall?|totaa?l)/Si)) return Overall
  elseif ($regex($1,/^([!@])?att/Si)) return Attack
  elseif ($regex($1,/^([!@])?def/Si)) return Defence
  elseif ($regex($1,/^([!@])?str/Si)) return Strength
  elseif ($regex($1,/^([!@])?h(p|it)/Si)) return Hitpoints
  elseif ($regex($1,/^([!@])?rang/Si)) return Ranged
  elseif ($regex($1,/^([!@])?pray/Si)) return Prayer
  elseif ($regex($1,/^([!@])?mag[ei]/Si)) return Magic
  elseif ($regex($1,/^([!@])?cook/Si)) return Cooking
  elseif ($regex($1,/^([!@])?w(c|oodcut)/Si)) return Woodcutting
  elseif ($regex($1,/^([!@])?flet/Si)) return Fletching
  elseif ($regex($1,/^([!@])?fish/Si)) return Fishing
  elseif ($regex($1,/^([!@])?f(m|iremak)/Si)) return Firemaking
  elseif ($regex($1,/^([!@])?craft/Si)) return Crafting
  elseif ($regex($1,/^([!@])?smith/Si)) return Smithing
  elseif ($regex($1,/^([!@])?min/Si)) return Mining
  elseif ($regex($1,/^([!@])?herb/Si)) return Herblore
  elseif ($regex($1,/^([!@])?agi/Si)) return Agility
  elseif ($regex($1,/^([!@])?th(ie|ei)/Si)) return Thieving
  elseif ($regex($1,/^([!@])?slay/Si)) return Slayer
  elseif ($regex($1,/^([!@])?farm/Si)) return Farming
  elseif ($regex($1,/^([!@])?r(c|une)/Si)) return Runecraft
  elseif ($regex($1,/^([!@])?hunt/Si)) return Hunter
  elseif ($regex($1,/^([!@])?c(s|on)/Si)) return Construction
}
alias c1 return $+($chr(3),14,$1-,$chr(3))
alias c2 return $+($chr(3),07,$1-,$chr(3))
alias c3 return $+($chr(3),04,$1-,$chr(3))
alias amount { return $calc(%exptill / $1) }
alias bgt { return $c2($bytes($int($calc(%exptill [ $+ [ $right($sockname,5) ] ] / $1)),bd)) }
alias nextlev {
  if (%sstat == agility) return $c3([) $+ $c1(Gnome Stronghold) $bgt(86.5)),bd)) $+ $c3(]) $c3([) $+ $c1(Barb Outpost) $bgt(153.2) $+ $c3(]) $c3([) $+ $c1(Ape Atoll) $bgt(580) $+ $c3(]) $c3([) $+ $c1(Wildy Course) $bgt(571.4) $+ $c3(]) $c3([) $+ $c1(Brimhaven) $c3(One Ticket:) $bgt(240) $c3(10 Tickets:) $bgt(2480) $c3(25 Tickets:) $bgt(6500) $c3(100 Tickets:) $bgt(28000) $c3(1000 Tickets:) $bgt(324000) $+ $c3(])
  elseif (%sstat == attack) || (%sstat == defence) || (%sstat == strength) return $c3([) $+ $c1(Rock crabs) $bgt(200) $+ $c3(]) $c3([) $+ $c1(Shadow Warrior) $bgt(268) $+ $c3(]) $c3([) $+ $c1(Dagganoth (74) $+ ) $bgt(280) $+ $c3(]) $c3([) $+ $c1(Black Demon) $bgt(628) $+ $c3(]) $c3([) $+ $c1(Blue dragon) $bgt(436) $+ $c3(])
  elseif (%sstat == Construction) return $c3([) $+ $c1(Oak table) $bgt(240) $+ $c3(]) $c3([) $+ $c1(Imp Statue) $bgt(150) $+ $c3(]) $c3([) $+ $c1(Boxing Ring) $bgt(420) $+ $c3(]) $c3([) $+ $c1(Combat Ring) $bgt(630) $+ $c3(]) $c3([) $+ $c1(Balance Beam) $bgt(1000) $+ $c3(])
  elseif (%sstat == Cooking) return $c3([) $+ $c1(Lobbies) $bgt(120) $+ $c3(]) $c3([) $+ $c1(Swordfish) $bgt(140) $+ $c3(]) $c3([) $+ $c1(Sharks) $bgt(210) $+ $c3(]) $c3([) $+ $c1(Sweetcorn) $bgt(104) $+ $c3(]) $c3([) $+ $c1(Cakes) $bgt(180) $+ $c3(]) $c3([) $+ $c1(Meat Pizza) $bgt(169) $+ $c3(])
  elseif (%sstat == Crafting) return $c3([) $+ $c1(Green Body) $bgt(186) $+ $c3(]) $c3([) $+ $c1(Blue Body) $bgt(210) $+ $c3(]) $c3([) $+ $c1(Red Body) $bgt(234) $+ $c3(]) $c3([) $+ $c1(Black Body) $bgt(258) $+ $c3(]) $c3([) $+ $c1(Air Battle) $bgt(135.7) $+ $c3(]) $c3([) $+ $c1(Flax) $bgt(15) $+ $c3(])
  elseif (%sstat == Farming) return $c3([) $+ $c1(Ranarr Weed(avg)) $bgt(210) $+ $c3(]) $c3([) $+ $c1(Yew Tree) $bgt(7160.9) $+ $c3(]) $c3([) $+ $c1(Magic Tree) $bgt(13914.8) $+ $c3(]) $c3([) $+ $c1(Dwarf Weed) $bgt(1321.5) $+ $c3(])
  elseif (%sstat == Firemaking) return $c3([) $+ $c1(Logs) $bgt(40) $+ $c3(]) $c3([) $+ $c1(Willow Logs) $bgt(90) $+ $c3(]) $c3([) $+ $c1(Maple Logs) $bgt(125) $+ $c3(]) $c3([) $+ $c1(Yew Logs) $bgt(202,5) $+ $c3(]) $c3([) $+ $c1(Magic Logs) $bgt(303.8) $+ $c3(])
  elseif (%sstat == Fishing) return $c3([) $+ $c1(Trout) $bgt(50) $+ $c3(]) $c3([) $+ $c1(Salmon) $bgt(70) $+ $c3(]) $c3([) $+ $c1(Tuna) $bgt(80) $+ $c3(]) $c3([) $+ $c1(Lobby) $bgt(90) $+ $c3(]) $c3([) $+ $c1(Swordy) $bgt(100) $+ $c3(]) $c3([) $+ $c1(Monk) $bgt(120) $+ $c3(]) $c3([) $+ $c1(Shark) $bgt(110) $+ $c3(])
  elseif (%sstat == Fletching) return $c3([) $+ $c1(Willow long) $bgt(83) $+ $c3(]) $c3([) $+ $c1(Maple long) $bgt(116.6) $+ $c3(]) $c3([) $+ $c1(Yew long) $bgt(150) $+ $c3(]) $c3([) $+ $c1(Magic long) $bgt(183) $+ $c3(]) $c3([) $+ $c1(Rune arrow) $bgt(13.8) $+ $c3(])
  elseif (%sstat == Herblore) return $c3([) $+ $c1(Prayer pot) $bgt(87.5) $+ $c3(]) $c3([) $+ $c1(Super attack) $bgt(100) $+ $c3(]) $c3([) $+ $c1(Super strength) $bgt(125) $+ $c3(]) $c3([) $+ $c1(Super defence) $bgt(150) $+ $c3(]) $c3([) $+ $c1(Super set) $bgt(375) $+ $c3(])
  elseif (%sstat == Hitpoints) return $c3([) $+ $c1(Rock Crab) $bgt(66.6) $+ $c3(]) $c3([) $+ $c1(Dagganoth(74)) $bgt(93.3) $+ $c3(]) $c3([) $+ $c1(Elf Warrior(108)) $bgt(142.6) $+ $c3(]) $c3([) $+ $c1(Black Demon) $bgt(209.3) $+ $c3(]) $c3([) $+ $c1(Green drag) $bgt(99.9) $+ $c3(])
  elseif (%sstat == Hunter) return $c3([) $+ $c1(Tropical Wagtail) $bgt(95.2) $+ $c3(]) $c3([) $+ $c1(Black Warlock) $bgt(54) $+ $c3(]) $c3([) $+ $c1(Red Chomp) $bgt(265) $+ $c3(]) $c3([) $+ $c1(Orange Sala) $bgt(224) $+ $c3(]) $c3([) $+ $c1(Red Sala) $bgt(272) $+ $c3(]) $c3([) $+ $c1(Black Sala) $bgt(204) $+ $c3(])
  elseif (%sstat == magic) return $c3([) $+ $c1(High Alch) $bgt(65) $+ $c3(]) $c3([) $+ $c1(Enchant Ruby) $bgt(59) $+ $c3(]) $c3([) $+ $c1(Enchant Diamond) $bgt(67) $+ $c3(]) $c3([) $+ $c1(Cammy Tele) $bgt(55.5) $+ $c3(])
  elseif (%sstat == mining) return $c3([) $+ $c1(Pure/Rune ess) $bgt(5) $+ $c3(]) $c3([) $+ $c1(Iron Ore) $bgt(35) $+ $c3(]) $c3([) $+ $c1(Coal) $bgt(50) $+ $c3(]) $c3([) $+ $c1(Gold/Gem) $bgt(65) $+ $c3(]) $c3([) $+ $c1(Rune Ore) $bgt(120) $+ $c3(])
}