/drops

; --------------
;
; [REQUEST] RuneScape Slayer Specific Drop Tracker
; Requested by: The-Slayer (SwiftIRC)
; Writen By: iPeer (SwiftIRC)
; Testers: iPeer (SwiftIRC)
; Created: 07 October, 2010
; Last Modified: 16 May, 2011
;
; Notice: If there are any drops missing you would like to see added, if you have the knowhow feel free to add them.
; if you don't have the knowhow, feel free to contact me (SwiftIRC, Forums, etc) and i'll try to get around to adding them.
;
; 16 May, 2011 - Removed Addy boots and Black mystic top/bottoms in replace of Hexrest, Focus sight and Staff of Light.
;
; --------------
;
; Format: /drops [drop]
; /drops - Wil ldisplay all drops
; /drops DROP - Will add a tally to that drop, providiing the regex matches it. Otherise you'll get a SUPER AWESOME error message.
;
; --------------
on *:load:{
  if (%d.aboots || %d.bmtop || %d.bmbottom) {
    echo -tg Removing variables for some crap that doesn't exist in this script anymore...
    unset %d.aboots %d.bmtop %d.bmbottom
  }
}
alias drops {
  if (!$1) { msg $active $+($c1($chr(40)),$c2(Slayer Drops),$c1($chr(41))) $&
      $c1(Effigies:) $c2($iif(%d.effigy,$bytes($v1,b),0)) $&
      $c1(Whips:) $c2($iif(%d.whip,$bytes($v1,b),0)) $&
      $c1(Granite Mauls:) $c2($iif(%d.maul,$bytes($v1,b),0)) $&
      $c1(Dragon Boots:) $c2($iif(%d.dboots,$bytes($v1,b),0)) $&
      $c1(Rune Boots:) $c2($iif(%d.rboots,$bytes($v1,b),0)) $&
      $c1(Focus Sight:) $c2($iif(%d.fsight,$bytes($v1,b),0)) $&
      $c1(Dark Bows:) $c2($iif(%d.dbow,$bytes($v1,b),0)) $&
      $c1(Dragon Platelegs:) $c2($iif(%d.dlegs,$bytes($v1,b),0)) $&
      $c1(Dragon Plateskirts:) $c2($iif(%d.dskirt,$bytes($v1,b),0))
    msg $active $+($c1($chr(40)),$c2(Slayer Drops),$c1($chr(41))) $&
      $c1(Dragon Meds:) $c2($iif(%d.dmed,$bytes($v1,b),0)) $&
      $c1(Visages:) $c2($iif(%d.visage,$bytes($v1,b),0)) $&
      $c1(Hexcrest:) $c2($iif(%d.hexcrest,$bytes($v1,b),0)) $&
      $c1(Staff of Light) $c2($iif(%d.sol,$bytes($v1,b),0)) $&
      $c1(Amulet of Ranging:) $c2($iif(%d.aoranging,$bytes($v1,b),0))
  }

  ; Regex abuse, I choose you!

  elseif ($regex($1-,/^(ancient ?|starved ?|nourished ?|sated ?|gorged ?)?effig(y|ie)s?/Si)) { inc %d.effigy | echo -tag $c1(Effigy drop count is now:) $c2(%d.effigy) }
  elseif ($regex($1-,/^(abyssal ?)?whip/Si)) { inc %d.whip | echo -tag $c1(Whip drop count is now:) $c2(%d.whip) }
  elseif ($regex($1-,/^(gran[ia]te ?)?maul/Si)) { inc %d.maul | echo -tag $c1(Maul drop count is now:) $c2(%d.maul) }
  elseif ($regex($1-,/^(d(ragon)? ?)?boot(s|ies)/Si)) { inc %d.dboots | echo -tag $c1(Dragon boots drop count is now:) $c2(%d.dboots) }
  elseif ($regex($1-,/^(r(un(e|ite))? ?)boot(s|ies)/Si)) { inc %d.rboots | echo -tag $c1(Rune boots drop count is now:) $c2(%d.rboots) }
  elseif ($regex($1-,/^(f(ocus)? ?sights?)/Si)) { inc %d.fsight | echo -tag $c1(Focus sight drop count is now:) $c2(%d.fsight) }
  elseif ($regex($1-,/^(d(ark)? ?)bow/Si)) { inc %d.dbow | echo -tag $c1(Dark bow drop count is now:) $c2(%d.dbow) }
  elseif ($regex($1-,/^(d(ragon)? ?)(pencils?|(plate)?legs?)/Si)) { inc %d.dlegs | echo -tag $c1(Dragon platelegs drop count is now:) $c2(%d.dlegs) }
  elseif ($regex($1-,/^(d(ragon)? ?)(kilt|(plate)?skirt)/Si)) { inc %d.dskirt | echo -tag $c1(Dragon plateskirts drop count is now:) $c2(%d.dskirt) }
  elseif ($regex($1-,/^(d(ragon)? ?)(med(uim)? ?)(helm(et)?)?/Si)) { inc %d.dmed | echo -tag $c1(Dragon med helm drop count is now:) $c2(%d.dmed) }
  elseif ($regex($1-,/^(d(racon|rgonic)? ?)?visage/Si)) { inc %d.visage | echo -tag $c1(Draconis visage drop count is now:) $c2(%d.visage) $+ $c1(... You lucky bugger) }
  elseif ($regex($1-,/^(hex(crest)?))) { inc %d.hexcrest | echo -tag $c1(Hexcrest drop count is now:) $c2(%d.hexcrest) }
  elseif ($regex($1-,/^(s(taff)? ?of? ?l(ight)?))) { inc %d.sol | echo -tag $c1(Staff of Light drop count is now:) $c2(%d.sol) }
  elseif ($regex($1-,/^(am(my|ulet(te)? ?)(of ?)?(rang(er?|ing))|(rang(er?|ing) ?)(am(my|mulet(te)?) ?))/Si)) { inc %d.aoranging | echo -tag $c1(Amulet of Ranging drop count is now:) $c2(%d.aoranging) }
  else { echo -tag $c1(Aww $+ $chr(44) you bypassed all my regex just so I could tell you) $c2(that drop isn't valid) $+ $c1(. How sweet :3) }

}