25 lines
1.5 KiB
HCL
25 lines
1.5 KiB
HCL
/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
|