From 880096b5b1087c025956f4e3bc786b4d420f5a87 Mon Sep 17 00:00:00 2001 From: Bartek Stalewski Date: Tue, 29 Sep 2015 13:51:29 +0200 Subject: [PATCH] Bug. --- arkadia/money.tf | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/arkadia/money.tf b/arkadia/money.tf index c17664a..80e3424 100644 --- a/arkadia/money.tf +++ b/arkadia/money.tf @@ -6,22 +6,23 @@ /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}@{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} ; 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 + /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).%;\ + /repeat -4 1 /undef sumujemy_kamienie%%;/unset suma_kamieni