28 lines
1.7 KiB
HCL
28 lines
1.7 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}okolo @{C%c_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} czyli jakies %{P1} miedzi.%{PR}
|
|
/def -mregexp -Fp2 -t'wartych (.*) miedziakow.' wartosc_trig_2 = /substitute -p %{PL}wartych okolo @{C%c_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} czyli jakies %{P1} miedzi.%{PR}
|
|
/def -mregexp -Fp2 -t'warte (.*) miedziakow.' wartosc_trig_3 = /substitute -p %{PL}warte okolo @{C%c_info}$[{P1}/24000] mithryli, $[mod({P1},24000)/240] zlota, $[mod({P1},240)/12] srebra i $[mod({P1},12)] miedzi@{n} czyli jakies %{P1} miedzi.%{PR}
|
|
|
|
; by Siro
|
|
/def ocenkamienie = \
|
|
/def -mregexp -F -t'^(?:> |)(?:Jest tu|Wydaje ci sie|Sa tu).*czyli jakies (.*) miedz.*.' sumujemy_kamienie = \
|
|
/eval /set suma_kamieni=$$[{suma_kamieni} + {P1}] %;\
|
|
/def -mregexp -F -t'^(?:> |)Oceniasz.*waz[ay] (.*) gram.*' waga_kamurkow = \
|
|
/eval /set waga_kamieni=$$[{waga_kamieni} + {P1}] %;\
|
|
/set suma_kamieni=;; %;\
|
|
/set waga_kamieni=;; %;\
|
|
/send ocen kamienie %;\
|
|
/repeat -1 1 /sumujemy_kamienie_wynik
|
|
|
|
/def sumujemy_kamienie_wynik = \
|
|
/echo %;\
|
|
/echo -p #@{C%c_info}#@{n}# Wartosc %{suma_kamieni} miedzi czyli okolo @{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}%;\
|
|
/repeat -4 1 /undef sumujemy_kamienie%%;/unset suma_kamieni%%;/unset waga_kamieni
|