80 lines
3.0 KiB
HCL
80 lines
3.0 KiB
HCL
/alias dp_monety /dp monety
|
|
/alias sad_monety /sad monety
|
|
|
|
/def -ag -mregexp -p2 -t'^(Sa|Wydaje).*(okolo|wart.*) (.*) miedziak' wartosc_trig_1 =\
|
|
/echo -p #@{C%c_info}#@{n}# Wartosc: @{C%c_info}%{P3}@{n} miedzi, czyli okolo @{C%c_info}$[{P3}/10000] platyn, $[mod({P3},10000)/100] zlota, $[mod({P3},100)/10] srebra i $[mod({P3},10)] miedzi.@{n}
|
|
|
|
; by Reen
|
|
|
|
/def -mregexp -p2 -t'(co najwyzej|dac( az| tylko| co najwyzej|)|dam ci wiecej niz|dostal(a|)bys) (.*) monet' zbieramy_dane = \
|
|
/set ceny=%{P4} %;\
|
|
/set ceny2=$[replace(" i ", "|", {ceny})] %;\
|
|
/set ceny2=$[replace(" ", "|", {ceny2})] %;\
|
|
/set ceny2=$[replace("zlot", "", {ceny2})] %;\
|
|
/set ceny2=$[replace("miedzian", "", {ceny2})] %;\
|
|
/set ceny2=$[replace("srebrn", "", {ceny2})] %;\
|
|
/set ceny2=$[replace("platynow", "", {ceny2})] %;\
|
|
/set ceny2=$[replace("|a", "", {ceny2})] %;\
|
|
/set ceny2=$[replace("|e", "", {ceny2})] %;\
|
|
/set ceny2=$[replace("|ych", "", {ceny2})] %;\
|
|
/set ceny2=$[replace(",", "", {ceny2})] %;\
|
|
/set ceny2=____%{ceny2}| %;\
|
|
/licz %{ceny2}
|
|
|
|
/def licz = \
|
|
/if (regmatch("____([^|]*)\|([^|]*)\|([^|]*)\|([^|]*)\|",{1})) \
|
|
/set _plats=$[expr({_plats}+{P1})] %;\
|
|
/set _zloto=$[expr({_zloto}+{P2})] %;\
|
|
/set _srebro=$[expr({_srebro}+{P3})] %;\
|
|
/set _miedz=$[expr({_miedz}+{P4})] %;\
|
|
/elseif (regmatch("____([^|]*)\|([^|]*)\|([^|]*)\|",{1})) \
|
|
/set _plats=%{_plats} %;\
|
|
/set _zloto=$[expr({_zloto}+{P1})] %;\
|
|
/set _srebro=$[expr({_srebro}+{P2})] %;\
|
|
/set _miedz=$[expr({_miedz}+{P3})] %;\
|
|
/elseif (regmatch("____([^|]*)\|([^|]*)\|",{1})) \
|
|
/set _plats=%{_plats} %;\
|
|
/set _zloto=%{_zloto} %;\
|
|
/set _srebro=$[expr({_srebro}+{P1})] %;\
|
|
/set _miedz=$[expr({_miedz}+{P2})] %;\
|
|
/elseif (regmatch("____([^|]*)\|",{1})) \
|
|
/set _plats=%{_plats} %;\
|
|
/set _zloto=%{_zloto} %;\
|
|
/set _srebro=%{_srebro} %;\
|
|
/set _miedz=$[expr({_miedz}+{P1})] %;\
|
|
/else \
|
|
/set _plats=%{_plats} %;\
|
|
/set _zloto=%{_zloto} %;\
|
|
/set _srebro=%{_srebro} %;\
|
|
/set _miedz=%{_miedz} %;\
|
|
/endif
|
|
|
|
/def wycen = \
|
|
/czysc_statystyke %;\
|
|
/repeat -1 1 /pokaz_cene %{*} %;\
|
|
/eval wycen %{*} %;\
|
|
|
|
/def pokaz_cene = \
|
|
/set _srebro_na_zloto=$[expr({_srebro}/10)] %;\
|
|
/set _zloto_zysk=$[expr({_zloto}+{_srebro_na_zloto})] %;\
|
|
/echo -p #@{C%c_info}#@{n}# Sprzedawane: @{C%c_info}%{*}@{n} %;\
|
|
/echo -p #@{C%c_info}#@{n}# Cena sklepu: %{_zloto} zl, %{_srebro} sr, czyli @{C%c_info}%{_zloto_zysk}@{n} zl. %; \
|
|
/if ( {kupiec} =~ "on" )\
|
|
/set _licz_prowizje=$[trunc(expr({_zloto_zysk}*{prowizja}))] %;\
|
|
/set _klient=$[expr({_zloto_zysk}-{_licz_prowizje})] %;\
|
|
/echo -p #@{C%c_info}#@{n}# Dla klienta: @{C%c_info}%{_klient} zl, zysk: @{C%c_info}%{_licz_prowizje}@{n} zl (prowizja: %prowizja\%). %;\
|
|
/endif %;\
|
|
/czysc_statystyke
|
|
|
|
/def czysc_statystyke = \
|
|
/set _plats=0 %;\
|
|
/set _zloto=0 %;\
|
|
/set _srebro=0 %;\
|
|
/set _miedz=0 %;\
|
|
/set _srebro_strata=0 %;\
|
|
/set _srebro_po_stracie=0 %;\
|
|
/set _srebro_na_zloto=0 %;\
|
|
/set _zloto_zysk=0 %;\
|
|
/set _licz_prowizje=0 %;\
|
|
/unset _klient=0
|