This commit is contained in:
Bartek Stalewski 2015-09-29 13:56:15 +02:00
parent 880096b5b1
commit fe7b78c6b4

View File

@ -6,17 +6,13 @@
/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} miedziakow).%{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} miedziakow).%{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} miedziakow).%{PR}
/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}
/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).*czyli jakies (.*) miedz.*.' sumujemy_kamienie = \
/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 %;\
@ -24,5 +20,5 @@
/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} miedziakow).%;\
/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