rendered paste body; 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
}