Miscellany

on *:TEXT:Your spies successfully enter *'s armory undetected, and destroy * of the enemy's *:#VP: {   
  If $nick !=== $hfind(login,$nick) { 
    /notice $nick You're are not registered. Type /msg $me !register <password>.
  halt }
  If $nick !=== $hfind(loggedin,$nick) { 
    /notice $nick You're are not logged in. Type /msg $me !login <password>.
  halt }
  if ($14 == Invisibility) {
    hinc IS $nick $10 
    hsave IS is.txt
  }
  if ($14 == Blackpowder) {
    hinc BPM $nick $10 
    hsave BPM bpm.txt
  }
  if ($14 == Stick) {
    hinc stick $nick $10 
    hsave stick stick.txt
  }
  if ($14 == Knife) {
    hinc knife $nick $10 
    hsave knife knife.txt
  }
  if ($14 == Short) {
    hinc shortbow $nick $10 
    hsave shortbow shortbow.txt
  }
  if ($14 == Staff) {
    hinc Staff $nick $10 
    hsave staff staff.txt
  }
  if ($14 == Hatchet) {
    hinc hatchet $nick $10 
    hsave hatchet hatchet.txt
  }
  if ($14 == Sling) {
    hinc sling $nick $10 
    hsave sling sling.txt
  }
  if ($14 == Crossbow) {
    hinc crossbow $nick $10 
    hsave crossbow crossbow.txt
  }
  if ($14 == Longbow) {
    hinc longbow $nick $10 
    hsave longbow longbow.txt
  }
  if ($14 == Steel) {
    hinc steelbow $nick $10 
    hsave steelbow steelbow.txt
  }
  if ($14 == Steed) {
    hinc steed $nick $10
    hsave steed steed.txt
  }
  if ($14 == Flaming) {
    hinc flamingarrow $nick $10 
    hsave flamingarrow flamingarrow.txt
  }
  if ($14 == Chariot) {
    hinc chariot $nick $10 
    hsave chariot chariot.txt
  }
  if ($14 == Club) {
    hinc club $nick $10
    hsave club club.txt
  }
  if ($14 == Spear) {
    hinc spear $nick $10 
    hsave spear spear.txt
  }
  if ($14 == Warblade) {
    hinc warblade $nick $10
    hsave warblade warblade.txt
  }
  if ($14 == Warg) {
    hinc warg $nick $10
    hsave warg warg.txt
  }
  if ($14 == Dragon) {
    hinc dragon $nick $10 
    hsave dragon dragon.txt
  }
  if ($14 == Elven) {
    hinc elvencloak $nick $10
    hsave elvencloak elvencloak.txt
  }
  if ($14 == Helmet) {
    hinc helmet $nick $10
    hsave helmet helmet.txt
  }
  if ($14 == Shield) {
    hinc shield $nick $10 
    hsave shield shield.txt
  }
  if ($14 == Chainmail) {
    hinc chainmail $nick $10
    hsave chainmail chainmail.txt
  }
  if ($14 == Plate) {
    hinc platearmor $nick $10 
    hsave platearmor platearmor.txt
  }
  if ($14 == Heavy) {
    hinc heavyshield $nick $10 
    hsave heavyshield heavyshield.txt
  }
  if ($14 == Dragonskin) {
    hinc dragonskin $nick $10
    hsave dragonskin dragonskin.txt
  }
  if ($14 == Long) {
    hinc longsword $nick $10
    hsave longsword longsword.txt
  }
  if ($14 == Lance) {
    hinc lance $nick $10
    hsave lance lance.txt
  }
  if ($14 == Broadsword) {
    hinc broadsword $nick $10
    hsave broadsword broadsword.txt
  }
  if ($14 == Excalibur) {
    hinc excalibur $nick $10
    hsave excalibur excalibur.txt
  }
  if ($14 == Mithril) {
    hinc mithril $nick $10
    hsave mithril mithril.txt
  }
  if ($14 == Pike) {
    hinc pike $nick $10 
    hsave pike pike.txt
  }
  if ($14 == Mace) {
    hinc mace $nick $10 
    hsave mace mace.txt
  }
  if ($14 == Warhammer) {
    hinc warhammer $nick $10 
    hsave warhammer warhammer.txt
  }
  if ($14 == Hammer) {
    hinc hammerofthor $nick $10
    hsave hammerofthor hammerofthor.txt
  }
  if ($14 == Battle) {
    hinc battleaxe $nick $10 
    hsave battleaxe battleaxe.txt
  }
  if ($14 == Gauntlets) {
    hinc Gauntlets $nick $10 
    hsave gauntlets gauntlets.txt
  }
  //notice $nick sabs recorded.
  var %row1 = $calc(($hget(stick,$nick) * 200) + ($hget(knife,$nick) * 1000) + ($hget(sling,$nick) * 1800) + ($hget(club,$nick) * 3200) + ($hget(spear,$nick) * 5100))
  var %row2 = $calc(($hget(warblade,$nick) * 16400) + ($hget(warg,$nick) * 50000) + ($hget(dragon,$nick) * 200000) + ($hget(chariot,$nick) * 50000) + ($hget(BPM,$nick) * 850000))
  var %row3 = $calc(($hget(helmet,$nick) * 2000) + ($hget(shield,$nick) * 3200) + ($hget(chainmail,$nick) * 5100) + ($hget(platearmor,$nick) * 16400) + ($hget(heavyshield,$nick) * 50000))
  var %row4 = $calc(($hget(dragonskin,$nick) * 200000) + ($hget(IS,$nick) * 750000) + ($hget(shortbow,$nick) * 1800) + ($hget(crossbow,$nick) * 3200) + ($hget(longbow,$nick) * 5100))
  var %row5 = $calc(($hget(steelbow,$nick) * 16400) + ($hget(steed,$nick) * 50000) + ($hget(flamingarrow,$nick) * 200000) + ($hget(elvencloak,$nick) * 50000) + ($hget(longsword,$nick) * 3200))
  var %row6 = $calc(($hget(lance,$nick) * 5100) + ($hget(broadsword,$nick) * 16400) + ($hget(excalibur,$nick) * 200000) + ($hget(mithril,$nick) * 50000) + ($hget(hatchet,$nick) * 1800))
  var %row7 = $calc(($hget(pike,$nick) * 3200) + ($hget(mace,$nick) * 5100)) + ($hget(warhammer,$nick) * 16400) + ($hget(battleaxe,$nick) * 180000) + ($hget(hammeFrofthor,$nick) * 50000) + ($hget(gauntlets,$nick) * 50000))
  hinc topsabgold $nick $calc(%row1 + %row2 + %row3 + %row4 + %row5 + %row6 + %row7)
  hsave topsabgold topsabgold.txt    
  var %row8 = $calc(($hget(stick,$nick) * 2) + ($hget(knife,$nick) * 5) + ($hget(sling,$nick) * 10) + ($hget(club,$nick) * 20) + ($hget(spear,$nick) * 40))
  var %row9 = $calc(($hget(warblade,$nick) * 160) + ($hget(warg,$nick) * 640) + ($hget(dragon,$nick) * 2560) + ($hget(chariot,$nick) * 640) + ($hget(BPM,$nick) * 12000))
  var %row10 = $calc(($hget(helmet,$nick) * 10) + ($hget(shield,$nick) * 20) + ($hget(chainmail,$nick) * 40) + ($hget(platearmor,$nick) * 160) + ($hget(heavyshield,$nick) * 640))
  var %row11 = $calc(($hget(dragonskin,$nick) * 2560) + ($hget(IS,$nick) * 10000) + ($hget(shortbow,$nick) * 10) + ($hget(crossbow,$nick) * 20) + ($hget(longbow,$nick) * 40))
  var %row12 = $calc(($hget(steelbow,$nick) * 160) + ($hget(steed,$nick) * 640) + ($hget(flamingarrow,$nick) * 2560) + ($hget(elvencloak,$nick) * 640) + ($hget(longsword,$nick) * 20))
  var %row13 = $calc(($hget(lance,$nick) * 40) + ($hget(broadsword,$nick) * 160) + ($hget(excalibur,$nick) * 2560) + ($hget(mithril,$nick) * 640) + ($hget(hatchet,$nick) * 10))
  var %row14 = $calc(($hget(pike,$nick) * 20) + ($hget(mace,$nick) * 40)) + ($hget(warhammer,$nick) * 160) + ($hget(battleaxe,$nick) * 2560) + ($hget(hammerofthor,$nick) * 640) + ($hget(gauntlets,$nick) * 640)) 
  hinc topsabdamage $nick $calc(%row8 + %row9 + %row10 + %row11 + %row12 + %row13 + %row14)
  hsave topsabdamage topsabdamage.txt
}

on *:TEXT:!mystats:#VP: {
  If $nick !=== $hfind(login,$nick) { 
    /notice $nick You're are not registered. Type /msg $me !register <password>.
  halt }
  If $nick !=== $hfind(loggedin,$nick) { 
    /notice $nick You're are not logged in. Type /msg $me !login <password>.
  halt }
  if (!$hget(IS,$nick)) && (!$hget(BPM,$nick)) {
  //notice $nick No sabs recorded for this nickname. Post a sab log to start recording your sabs. }
  else {
    //notice $nick Invisibility Shields: $hget(IS,$nick) 
    //notice $nick Blackpowder Missile's: $hget(BPM,$nick)
    var %row1 = $calc(($hget(stick,$nick) * 200) + ($hget(knife,$nick) * 1000) + ($hget(sling,$nick) * 1800) + ($hget(club,$nick) * 3200) + ($hget(spear,$nick) * 5100))
    var %row2 = $calc(($hget(warblade,$nick) * 16400) + ($hget(warg,$nick) * 50000) + ($hget(dragon,$nick) * 200000) + ($hget(chariot,$nick) * 50000) + ($hget(BPM,$nick) * 850000))
    var %row3 = $calc(($hget(helmet,$nick) * 2000) + ($hget(shield,$nick) * 3200) + ($hget(chainmail,$nick) * 5100) + ($hget(platearmor,$nick) * 16400) + ($hget(heavyshield,$nick) * 50000))
    var %row4 = $calc(($hget(dragonskin,$nick) * 200000) + ($hget(IS,$nick) * 750000) + ($hget(shortbow,$nick) * 1800) + ($hget(crossbow,$nick) * 3200) + ($hget(longbow,$nick) * 5100))
    var %row5 = $calc(($hget(steelbow,$nick) * 16400) + ($hget(steed,$nick) * 50000) + ($hget(flamingarrow,$nick) * 200000) + ($hget(elvencloak,$nick) * 50000) + ($hget(longsword,$nick) * 3200))
    var %row6 = $calc(($hget(lance,$nick) * 5100) + ($hget(broadsword,$nick) * 16400) + ($hget(excalibur,$nick) * 200000) + ($hget(mithril,$nick) * 50000) + ($hget(hatchet,$nick) * 1800))
    var %row7 = $calc(($hget(pike,$nick) * 3200) + ($hget(mace,$nick) * 5100)) + ($hget(warhammer,$nick) * 16400) + ($hget(battleaxe,$nick) * 180000) + ($hget(hammeFrofthor,$nick) * 50000) + ($hget(gauntlets,$nick) * 50000))
    //notice $nick Total Weapon Value Sabbed: $calc((%row1 + %row2 + %row3 + %row4 + %row5 + %row6 + %row7))
    var %row8 = $calc(($hget(stick,$nick) * 2) + ($hget(knife,$nick) * 5) + ($hget(sling,$nick) * 10) + ($hget(club,$nick) * 20) + ($hget(spear,$nick) * 40))
    var %row9 = $calc(($hget(warblade,$nick) * 160) + ($hget(warg,$nick) * 640) + ($hget(dragon,$nick) * 2560) + ($hget(chariot,$nick) * 640) + ($hget(BPM,$nick) * 12000))
    var %row10 = $calc(($hget(helmet,$nick) * 10) + ($hget(shield,$nick) * 20) + ($hget(chainmail,$nick) * 40) + ($hget(platearmor,$nick) * 160) + ($hget(heavyshield,$nick) * 640))
    var %row11 = $calc(($hget(dragonskin,$nick) * 2560) + ($hget(IS,$nick) * 10000) + ($hget(shortbow,$nick) * 10) + ($hget(crossbow,$nick) * 20) + ($hget(longbow,$nick) * 40))
    var %row12 = $calc(($hget(steelbow,$nick) * 160) + ($hget(steed,$nick) * 640) + ($hget(flamingarrow,$nick) * 2560) + ($hget(elvencloak,$nick) * 640) + ($hget(longsword,$nick) * 20))
    var %row13 = $calc(($hget(lance,$nick) * 40) + ($hget(broadsword,$nick) * 160) + ($hget(excalibur,$nick) * 2560) + ($hget(mithril,$nick) * 640) + ($hget(hatchet,$nick) * 10))
    var %row14 = $calc(($hget(pike,$nick) * 20) + ($hget(mace,$nick) * 40)) + ($hget(warhammer,$nick) * 160) + ($hget(battleaxe,$nick) * 2560) + ($hget(hammerofthor,$nick) * 640) + ($hget(gauntlets,$nick) * 640)) 
    //notice $nick Total Weapon Strength Sabbed: $calc((%row8 + %row9 + %row10 + %row11 + %row12 + %row13 + %row14))
  }
}