;; (c) 2004:
;;    Eerikki Aula (era@batmud)
;
;Purse calc!
;Counts the gold value of money in purse
/def -mglob -t'This is a fine leather purse made of squirrel skin. This must be*' \
  pursecount = \
  /set pursemoney=0 %;\
  /def -mregexp -F -p3  \
    -t'^It contains.* ([0-9]+) mithril' pursemith = \
    /set pursemoney=$$[{pursemoney} + {P1}*500] %;\
  /def -mregexp -F -p2 \
    -t'^It contains.* ([0-9]+) batium' pursebat = \
    /set pursemoney=$$[{pursemoney} + {P1}*100] %;\
  /def -mregexp -F -p2 \
    -t'^It contains.* ([0-9]+) anipium' purseanip = \
    /set pursemoney=$$[{pursemoney} + {P1}*50] %;\
  /def -mregexp -F -p2 \
    -t'^It contains.* ([0-9]+) platinum' purseplat = \
    /set pursemoney=$$[{pursemoney} + {P1}*10] %;\
  /def -mregexp -F -p2 \
    -t'^It contains.* ([0-9]+) gold' pursegold = \
    /set pursemoney=$$[{pursemoney} + {P1}] %;\
  /def -mglob -1 -t'It looks*' itlooks = \
    /echo -w It contains coins worth %%pursemoney gold. %%;\
    /undef pursemith%%;/undef pursebat%%;/undef purseanip %%;\
    /undef purseplat%%;/undef pursegold