Unnamed

on $*:TEXT:/^[!@]/Si:#:{ 
  if ($skill($remove($1,!,@))) { 
    if ($hacked($1-)) { notice $nick $hackedd | halt } 
    if (!$2) { 
      var %name = $iif($hget(defname, $address($nick,2)),$v1,$nick) 
      var %good = ok 
    } 
    if ($chr(35) !isin $2) && ($chr(35) isin $3) && (!%good) { 
      var %name = $2 
      var %goal = $remove($3,$chr(35)) 
      var %good = ok 
    } 
    if ($chr(35) isin $2) && (!%good) { 
      var %goal = $remove($2,$chr(35)) 
      var %name = $iif($hget(defname, $address($nick,2)),$v1,$nick) 
      var %good = ok 
    } 
    if ($chr(35) !isin $2) && ($chr(35) !isin $3) && (!%good) { 
      var %name = $2 
      var %good = ok 
    } 
    if (!%good) { $iif($left($1,1) == !,notice $nick,msg $chan) $colors($skill($remove($1,!,@))) $c2(Usage:) $c1($1 <Goal (optional)> [nick]) $c2(if u don't have a goal: Usage:) $c1($1 [nick]) $c2(Please use _ for spaces!) 
      halt 
    } 
    var %id = $+($rand(1,9999),$rand(1,9999),$rand(1,9999)) 
    sockopen $+(singlestat.,%ID) www.nou.stirk.org 80 
    sockmark $+(singlestat.,%ID) $+($iif($left($1,1) == !,notice $nick,msg $chan),~,$iif(%goal,$v1,Nope),~,%name,~,$skill($remove($1,!,@)),~,$nick) 
  } 
} 

on *:SOCKOPEN:singlestat.*:{ 
  var %goal = $gettok($sock($sockname).mark,2,126) 
  var %name = $gettok($sock($sockname).mark,3,126) 
  var %skill = $gettok($sock($sockname).mark,4,126) 
  sockwrite -n $sockname GET $+(/parsers/skill.php?user=,%name,&skill=,%skill,$iif(%goal != Nope,$+(&goal=,%goal))) HTTP/1.1 
  sockwrite -n $sockname Host: www.nou.stirk.org 
  sockwrite -n $sockname $crlf 
} 

on *:SOCKREAD:singlestat.*:{ 
  var %return = $gettok($sock($sockname).mark,1,126) 
  var %goal = $gettok($sock($sockname).mark,2,126) 
  var %name = $gettok($sock($sockname).mark,3,126) 
  var %skill = $gettok($sock($sockname).mark,4,126) 
  if ($sockerror) { %return $colors(%skill) $c2(Socket error $+ $chr(44)) $c1(please try again) | sockclose $sockname | halt } 
  else { 
    var %a 
    sockread %a 
    if (*not appear* iswm %a) { %return $colors(%skill) $c1(%name) $c2(does not appear in the highscores for:) $c1(%skill) 
      sockclose $sockname 
      halt 
    } 
    if (*|* iswm %a) { 
      tokenize 32 %a 
      var %xp = $remove($14,<br>) 
      if ($left(%xp,1) == $chr(45)) { 
        %return %colors(%skill) $c2(U need to specify a goal) $c1(higher) $c2(then) $c1(%name) $c2(has now) 
        sockclose $sockname 
        halt 
      } 
      %return $colors(%skill) $c1(%skill) $c2(stats for:) $c1(%name) $+ $c2(:) 
      %return $colors(%skill) $c2(Level:) $c1($2) $c2(Exp:) $c1($5) $c2(Rank:) $c1($8) $iif($14 != N/A<br>,$c2(Exp till level) $c1($remove($13,$right($13,1))) $+ $c2(:) $c1($remove($14,<br>))) 
      if (%skill != slayer) { notice $gettok($sock($sockname).mark,5,126) $colors(%skill) $c2(Required for level) $c1($iif(%goal != nope,$v1,$remove($13,$right($13,1)))) $+ $c2(:) $neededforlvl(%skill,$remove(%xp,$chr(44))) } 
      sockclose $sockname 
    } 
  } 
} 

alias skill { 
  if ($1 == overall || $1 == overal) { return Overall } 
  if ($1 == attack || $1 == att) { return Attack } 
  if ($1 == def || $1 == defence || $1 == defense) { return Defence } 
  if ($1 == str || $1 == strength) { return Strength } 
  if ($1 == hp || $1 == hitpoits || $1 == hits) { return Hitpoints } 
  if ($1 == range || $1 == ranged || $1 == ranging) { return Ranged } 
  if ($1 == pray || $1 == prayer || $1 == praying) { return Prayer } 
  if ($1 == mage || $1 == magic || $1 == magik) { return Magic } 
  if ($1 == cook || $1 == cooking) { return Cooking } 
  if ($1 == wc || $1 == woodcut || $1 == woodcutting) { return Woodcutting } 
  if ($1 == fletch || $1 == fletching) { return Fletching } 
  if ($1 == fishing || $1 == fish) { return Fishing } 
  if ($1 == fm || $1 == firemaking) { return Firemaking } 
  if ($1 == craft || $1 == crafting) { return Crafting } 
  if ($1 == smith || $1 == smithing) { return Smithing } 
  if ($1 == mining) { return Mining } 
  if ($1 == herb || $1 == herblore || $1 == harblaw) { return Herblore } 
  if ($1 == agility || $1 == agil) { return Agility } 
  if ($1 == thiev || $1 == thieving) { return Thieving } 
  if ($1 == slay || $1 == slaying || $1 == slayer) { return Slayer } 
  if ($1 == farm || $1 == farming) { return Farming } 
  if ($1 == rc || $1 == runecraft || $1 == runecrafting) { return runecraft } 
  if ($1 == poh || $1 == construct || $1 == con || $1 == construction) { return Construction } 
  if ($1 == hunt || $1 == hunter || $1 == hunting) { return Hunter } 
  if ($1 == summ || $1 == sum || $1 == summo || $1 == summon || $1 == summoning) { return summoning } 
} 

alias neededforlvl { 
  if ($1 == Woodcutting) { 
    return $c2(Willow logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, woodcutting, Willow))),db)) $c2(Maple logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, woodcutting, Maple))),db)) $c2(Yew logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, woodcutting, Yew))),db)) $c2(Magic logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, woodcutting, Magic))),db)) 
  } 
  if ($1 == hunter) { 
    return $c2(Barb-Tailed Kebbits:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Hunter, Barb-tailedKebbit))),db)) $c2(Chinchompas:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, hunter, Chinchompa))),db)) $c2(Red Chinchompas:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Hunter, RedChinchompa))),db)) $c2(Black Salamanders:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, hunter, BlackSalamander))),db)) 
  } 
  if ($1 == mining) { 
    return $c2(Rune Essences/Pure Essences:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Mining, RuneEssence))),db)) $& 
      $c2(Iron ores:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Mining, Iron))),db)) $& 
      $c2(Coal ores:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Mining, Coal))),db)) $& 
      $c2(Granite(tiny) ores:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Mining, Granite(tiny)))),db)) $& 
      $c2(Granite(small) ores:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Mining, Granite(small)))),db)) $& 
      $c2(Granite(medium) ores:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Mining, Granite(medium)))),db)) 
  } 
  if ($1 == Firemaking) { 
    return $c2(Normal logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Firemaking, Normal))),db)) $& 
      $c2(Willow logss:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Firemaking, Willow))),db)) $& 
      $c2(Yew logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Firemaking, Yew))),db)) $& 
      $c2(Magic logs:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Firemaking, Magic))),db)) 
  } 
  if ($1 == cooking) { 
    return $c2(Lobsters:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Cooking, Lobster))),db)) $& 
      $c2(Swordfishes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Cooking, Swordfish))),db)) $& 
      $c2(Monkfishes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Cooking, Monkfish))),db)) $& 
      $c2(Sharks:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Cooking, Shark))),db)) 
  } 
  if ($1 == Agility) { 
    return $c2(Mouse Catch Attempts:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, MouseCatchAttempt))),db)) $& 
      $c2(One Ticket:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, OneTicket))),db)) $& 
      $c2(10 Tickets:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, 10Tickets))),db)) $& 
      $c2(25 Tickets:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, 25Tickets))),db)) $& 
      $c2(100 Tickets:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, 100Tickets))),db)) $& 
      $c2(1000 Tickets:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, 1000Tickets))),db)) $& 
      $c2(Ape Atoll Courses:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, ApeAtollCourse))),db)) $& 
      $c2(Wilderness Courses:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Agility, WildernessCourse))),db)) 
  } 
  if ($1 == construction) { 
    return $c2(Oak planks:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, construction, OakPlank))),db)) $& 
      $c2(Teak Planks:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, construction, TeakPlank))),db)) $& 
      $c2(Mahogany Planks:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, construction, MahoganyPlank))),db)) 
  } 
  if ($1 == crafting) { 
    return $c2(Bow strings:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, crafting, Bowstring))),db)) $& 
      $c2(Black Dragonhide Vambraces:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, crafting, BlackDragonhideVambraces))),db)) $& 
      $c2(Black Dragonhide Chaps:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, crafting, BlackDragonhideChaps))),db)) $& 
      $c2(Black Dragonhide Body's:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, crafting, BlackDragonhideBody))),db)) 
  } 
  if ($1 == farming) { 
    return $c2(Check Health Banana Tree:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, farming, CheckHealthBananaTree))),db)) $& 
      $c2(Check Health Dwellberries:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, farming, CheckHealthDwellberries))),db)) $& 
      $c2(Plant Ranarr Weeds:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, farming, PlantRanarrWeed))),db)) $& 
      $c2(Plant Harralander:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, farming, PlantHarralander))),db)) 
  } 
  if ($1 == fishing) { 
    return $c2(Lobsters:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fishing, Lobster))),db)) $& 
      $c2(Swordfish:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fishing, Swordfish))),db)) $& 
      $c2(Monkfish:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fishing, Monkfish))),db)) $& 
      $c2(Shark:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fishing, Shark))),db)) 
  } 
  if ($1 == Fletching) { 
    return $c2(Arrow Shafts:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fletching, ArrowShaft))),db)) $& 
      $c2(Headless Arrows:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fletching, HeadlessArrow))),db)) $& 
      $c2(Strung Maple Longbows:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fletching, StrungMapleLongbow))),db)) $& 
      $c2(Strung Yew Longbows:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fletching, StrungYewLongbow))),db)) $& 
      $c2(Strung Magic Longbows:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, fletching, StrungMagicLongbow))),db)) 
  } 
  if ($1 == Herblore) { 
    return $c2(Attack Potions:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, AttackPotion))),db)) $& 
      $c2(Antipoisons:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, Antipoison))),db)) $& 
      $c2(Restore Prayers:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, RestorePrayer))),db)) $& 
      $c2(Super Stat Restore Potions:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, SuperStatRestorePotion))),db)) $& 
      $c2(Super Attack Potions:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, SuperAttackPotion))),db)) $& 
      $c2(Super Strength Potion:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, SuperStrengthPotion))),db)) $& 
      $c2(Super Defence Potion:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Herblore, SuperDefencePotion))),db)) 
  } 
  if ($1 == magic) { 
    return $c2(Camelot Teleports:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, magic, CamelotTeleport))),db)) $& 
      $c2(Low Level Alchemy's:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, magic, LowLevelAlchemy))),db)) $& 
      $c2(High Level Alchemy's:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, magic, HighLevelAlchemy))),db)) 
  } 
  if ($1 == prayer) { 
    return $c2(Big Bones:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, magic, BigBone))),db)) $& 
      $c2(Dragon Boness:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, magic, DragonBones))),db)) $& 
      $c2(Dragon Bones Gilded Altar:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, magic, DragonBonesAltar))),db)) 
  } 
  if ($1 == Runecraft) { 
    return $c2(Nature runes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Runecrafting, Nature))),db)) $& 
      $c2(Law runes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Runecrafting, Law))),db)) $& 
      $c2(Cosmic runes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Runecrafting, Cosmic))),db)) $& 
      $c2(Chaos runes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Runecrafting, Chaos))),db)) $& 
      $c2(Death runes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, Runecrafting, Death))),db)) 
  } 
  if ($1 == smithing) { 
    return $c2(Smelt Iron bars:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, smithing, SmeltIron))),db)) $& 
      $c2(Smelt Gold with Gauntlets:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, smithing, SmeltGoldGauntlets))),db)) $& 
      $c2(Smith Iron:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, smithing, SmithIron))),db)) $& 
      $c2(Smelt Steel and make 4 Cannon Balls of it:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, smithing, SmeltSteel+4CannonBalls))),db))  
  } 
  if ($1 == thieving) { 
    return $c2(Nature Rune Chest:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, thieving, NatureRuneChest))),db)) $& 
      $c2(Master Farmesr:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, thieving, MasterFarmer))),db)) $& 
      $c2(Guards:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, thieving, Guard))),db)) $& 
      $c2(Paladins:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, thieving, Paladin))),db)) 
  } 
  if ($1 == attack) || ($1 == Strength) || ($1 == Defence) || ($1 == hitpoints) || ($1 == ranged) { 
    return $c2(Magic Axes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, attack, MagicAxe))),db)) $& 
      $c2(Ogres:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, attack, Ogre))),db)) $& 
      $c2(Moss Giants:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, attack, MossGiant))),db)) $& 
      $c2(Bandits:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, attack, Bandit))),db)) $& 
    } 
  if ($1 == summoning) { 
    return $c2(Spirit Wolfes:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, summoning, SpiritWolf))),db)) $& 
      $c2(Spirit Kalphites:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, summoning, SpiritKalphite))),db)) $& 
      $c2(Hydra's:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, summoning, Hydra))),db)) $& 
      $c2(Spirit Dagannoths:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, summoning, SpiritDagannoth))),db)) $& 
      $c2(PackYak's:) $c1($bytes($ceil($calc($2 / $readini(xpforlvl.ini, n, summoning, PackYak))),db)) 
  } 
}