; Usage:
; /barrows ITEM will add a new item
; /barrows -s will message them to the active channel
; /barrows @NICK is used by the on text event

on *:load:{
  if (%barrows.dhhelm == $null) {
    echo -ta Setting all vars to 0.
    firstset
  }
}
alias barrows {
  if (*@* iswm $1-) || ($1 == -s) { set %barrow.type show }
  else { set %barrow.type add }
  if (%barrow.type == add) {
    inc %barrows. [ $+ [ $barrowsitem($1-)  ] ]
    echo -ta Increased $barrowsitem($1-) drops to %barrows. [ $+ [ $barrowsitem($1-) ] ] $+ .
  }
  elseif ($1 == -s) && (%barrow.type == show) {
    setbarrowslines
    msg $active %barrows.line1
    msg $active %barrows.line2
    msg $active %barrows.line3
  }
  elseif (*@* iswm $1-) {
    setbarrowslines
    .notice $remove($1,@) %barrows.line1
    .notice $remove($1,@) %barrows.line2
    .notice $remove($1,@) %barrows.line3
  }
  unset %barrow.* %barrows.line*
}
alias barrowsitem {
  ; - Dharok Items -
  if ($regex($1-,(dh(arok(s)?)?)(.?)((great)?axe))) return dhaxe
  elseif ($regex($1-,((dh(arok(s)?)?)(.?)(pl(8|ate))))) return dhplate
  elseif ($regex($1-,((dh(arok(s)?)?)(.?)(legs)))) return dhlegs
  elseif ($regex($1-,((dh(arok(s)?)?)(.?)(helm(et)?)))) return dhhelm
  ; - Torag Items -
  elseif ($regex($1-,((t(orag(s)?)?)(.?)(hams|hammers)))) return thammers
  elseif ($regex($1-,((t(orags(s)?)?)(.?)(pl(8|ate))))) return tplate
  elseif ($regex($1-,((t(orags(s)?)?)(.?)(legs)))) return tlegs
  elseif ($regex($1-,((t(orags(s)?)?)(.?)(helm(et)?)))) return thelm
  ; - Verac Items -
  elseif ($regex($1-,((v(erac(s)?)?(.?)(flail)|(flail))))) return vflail
  elseif ($regex($1-,((v(erac(s)?)?(.?)(brass(y|ard)))))) return vbrass
  elseif ($regex($1-,((v(erac(s)?)?(.?)(skirt|legs))))) return vskirt
  elseif ($regex($1-,((v(erac(s)?)?(.?)(helm(et)?))))) return vhelm
  ; - Guthan Items
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)(helm(et)?))))) return ghelm
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)((war)?spear))))) return gspear
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)((chain)?skirt))))) return gskirt
  elseif ($regex($1-,((g(uth(an(s)?)?)?(.?)(pl(8|ate)))))) return gplate
  ; - Ahrim Items -
  elseif ($regex($1-,((ah(rim(s)?)?(.?)(helm|hood))))) return ahhood
  elseif ($regex($1-,((ah(rim(s)?)?(.?)(battle)?(staff|stave))))) return ahstaff
  elseif ($regex($1-,((ah(rim(s)?)?(.?)((robe)?skirt))))) return ahskirt
  elseif ($regex($1-,((ah(rim(s)?)?(.?)((robe)?top))))) return ahtop
  ; - Karil Items -
  elseif ($regex($1-,((k(aril(s)?)?(.?)((leather)?coif))))) return kcoif
  elseif ($regex($1-,((k(aril(s)?)?(.?)((leather)?top))))) return ktop
  elseif ($regex($1-,((k(aril(s)?)?(.?)((leather)?skirt))))) return kskirt
  elseif ($regex($1-,((k(aril(s)?)?(.?)((cross|x)?bow))))) return kbow
  ; - Invalid -
  else return Invalid Item!
}
; - sets the display lines -
alias -l setbarrowslines {
  ; - Line 1 -
  set %barrows.line1 Dharok Helm(s): %barrows.dhhelm Plate(s): %barrows.dhplate Leg(s): %barrows.dhlegs Axe(s): %barrows.dhaxe $+(,$chr(124),) $&
    Torag Helm(s): %barrows.thelm Plate(s): %barrows.tplate Leg(s): %barrows.tlegs Axe(s): %barrows.thammers
  ; - Line 2 -
  set %barrows.line2 Verac Helm(s): %barrows.vhelm Brassard(s): %barrows.vbrass Skirt(s): %barrows.vskirt Flail(s): %barrows.vflail $+(,$chr(124),) $&
    Guthan Helm(s): %barrows.ghelm Plates(s): %barrows.gplate Skirt(s): %barrows.gskirt Spear(s): %barrows.gspear
  ; - Line 3 -
  set %barrows.line3 Ahrim Hood(s): %barrows.ahhood Top(s): %barrows.ahtop Skirt(s): %barrows.ahskirt Stave(s): %barrows.ahstaff $+(,$chr(124),) $&
    Karil Coif(s): %barrows.kcoif Top(s): %barrows.ktop Skirt(s): %barrows.kskirt Bow(s): %barrows.kbow
}
on $*:text:/^[!@.#](barrows(drop(s)?|item(s)?)?)/Si:#:{
  barrows $+(@,$nick)
}
alias getsets {
  var %x = 1 
  while (%x <= $lines(Bld.txt)) {
    write -l1 bld2.txt $+($read(bld2.txt),$chr(32),$chr(124),$chr(32)) set $+(!%,barrows. [ $+ [ $read(bld.txt,%x) ] ] 0)
    inc %x
  }
  echo -ta Done
}
alias -l firstset {
  set %barrows.dhaxe 0 | set %barrows.dhplate 0 | set %barrows.dhhelm 0 | set %barrows.dhlegs 0 | set %barrows.thammers 0 | set %barrows.tplate 0 | set %barrows.tlegs 0 | set %barrows.thelm 0 | $&
    set %barrows.vflail 0 | set %barrows.vbrass 0 | set %barrows.vskirt 0 | set %barrows.vhelm 0 | set %barrows.ghelm 0 | set %barrows.gskirt 0 | set %barrows.gplate 0 | set %barrows.gspear 0 | $&
    set %barrows.ahhood 0 | set %barrows.ahtop 0 | set %barrows.ahstaff 0 | set %barrows.ahskirt 0 | set %barrows.kskirt 0 | set %barrows.kcoif 0 | set %barrows.kbow 0 | set %barrows.ktop 0
}