/alias dp_monety /dp monety
/alias sad_monety /sad monety

/def -mglob -p2 -t'*Bierzesz*monet*ciala*' _monety0 = \
  /if ( {pack} =~ "on" )\
    /tbind dp_monety %;\
  /endif

/def -mregexp -Fp2 -t'okolo (.*) miedziak(i|ow).' wartosc_trig_1 = /substitute -p %{PL}@{C%c_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} - %{P1} miedzi.%{PR}
/def -mregexp -Fp2 -t'sztuk wartych (.*) miedziak.*' wartosc_trig_2 = /substitute -p %{PL}sztuk wartych @{C%c_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} - %{P1} miedzi.%{PR}
/def -mregexp -Fp2 -t'sztuki warte (.*) miedziak.*' wartosc_trig_3 = /substitute -p %{PL}sztuki warte @{C%c_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} - %{P1} miedzi.%{PR}

; by Siro
/def ocenkamienie = \
  /def -mregexp -F -t'^(?:> |)(?:Jest tu|Wydaje ci sie|Sa tu).*- (.*) miedz.*.' sumujemy_kamienie = \
    /eval /set suma_kamieni=$$[{suma_kamieni} + {P1}] %;\
  /set suma_kamieni=;; %;\
  /send ocen kamienie %;\
  /repeat -1 1 /sumujemy_kamienie_wynik

/def sumujemy_kamienie_wynik = \
  /echo %;\
    /echo -p #@{C%c_info}#@{n}# Wartosc: @{C%c_info}$[{suma_kamieni}/24000] mithryli, $[mod({suma_kamieni},24000)/240] zlota, $[mod({suma_kamieni},240)/12] srebra i $[mod({suma_kamieni},12)] miedzi@{n} - %{suma_kamieni} miedzi.%;\
    /repeat -4 1 /undef sumujemy_kamienie%%;/unset suma_kamieni