Re: TinTin++, skrypty do arkadii v.1.0
: 12 sty 2014 15:01
Dokładnie to od mądrości postaci zależy czy zobaczy np. 35 czy "wiele". Największą liczbę można łatwo ustalić poleceniem policz, przeliczając monety. 
Kod: Zaznacz cały
#list {ziola_n}{create}{Adanat}
#list {ziola_o}{create}{maly szorstki lisc}
#list {ziola_u}{create}{brak danych}
#list {ziola_z}{create}{maly szorstki lisc}
#list {ziola_lm}{create}{male szorstkie liscie}
#list {ziola_w}{create}{bd}
#list {ziola_x}{create}{malych szorstkich lisci}
#list {ziola_n}{add}{Aesuryn}
#list {ziola_o}{add}{tajemnicze ciemnoniebieskie ziolo}
#list {ziola_u}{add}{zjedz}
#list {ziola_z}{add}{tajemnicze ciemnoniebieskie ziolo}
#list {ziola_lm}{add}{tajemnicze ciemnoniebieskie ziola}
#list {ziola_w}{add}{Laki bretonskie}
#list {ziola_x}{add}{tajemniczych ciemnoniebieskich ziol}
#list {ziola_n}{add}{Aralia}
#list {ziola_o}{add}{szary kolczasty korzen}
#list {ziola_u}{add}{zjedz, przezuj <eaa>TRUJE<ffd>}
#list {ziola_z}{add}{szary kolczasty korzen}
#list {ziola_lm}{add}{szare kolczaste korzenie}
#list {ziola_w}{add}{Lasy}
#list {ziola_x}{add}{szarych kolczastych korzeni}
Kod: Zaznacz cały
#action {^Otwarty %* woreczek%* zawiera %3.}
{
#list {zlicz} clear;
#list {zopis} clear;
#var {znazwa} {};
#variable {wworeczku} {%3};
#replace {wworeczku} {{, | i }} {;};
#foreach {$wworeczku} {x}
{
#regex {$x} {%w %w %*}
{
#if {"&2" == "{jeden|dwie|trzy|cztery|piec|szesc|siedem|osiem|dziewiec}"}
{
#list {zlicz} add {&1 &2};
#list {zopis} add {&3};
};
#if {"&1" == "{wiele|dwa|dwie|trzy|cztery|piec|szesc|siedem|osiem|dziewiec|dziesiec|jedenascie|dwanascie|trzynascie|czternascie|pietnascie|szesnascie|siedemnascie|osiemnascie|dziewietnascie|dwadziescia|trzydziesci|czterdziesci}" && "&2" != "{jeden|dwie|trzy|cztery|piec|szesc|siedem|osiem|dziewiec}"}
{
#list {zlicz} add {&1};
#list {zopis} add {&2 &3};
};
#if {"&1" != "{wiele|dwa|dwie|trzy|cztery|piec|szesc|siedem|osiem|dziewiec|dziesiec|jedenascie|dwanascie|trzynascie|czternascie|pietnascie|szesnascie|siedemnascie|osiemnascie|dziewietnascie|dwadziescia|trzydziesci|czterdziesci}"}
{
#list {zlicz} add {pojedyncz.};
#list {zopis} add {&1 &2 &3};
};
};
};
#sh {\n+----------------------------------------------------+};
#sh {|<ABB><fff> Woreczek zawiera: <999>|};
#sh {|<ABB><fff> <ABB><aaa>zio "opis" <999>|};
#sh {+----------------------------------------------------+};
#foreach {$zopis[]} {y}
{
#list {ziola_x} find {$zopis[$y]} {one};
#list {ziola_lm} find {$zopis[$y]} {two};
#list {ziola_z} find {$zopis[$y]} {three};
#if {"$one" > "0"}
{
#list {ziola_n} get {$one} {znazwa}
};
#if {"$two" > "0"}
{
#list {ziola_n} get {$two} {znazwa}
};
#if {"$three" > "0"}
{
#list {ziola_n} get {$three} {znazwa}
};
#sh {|l: <fff>$zlicz[$y]};
#sh {|o: $zopis[$y]};
#sh {|n: <ffa>$znazwa};
#sh {+-----------------------------------------------------};
};
#sh {};
}
[edit]
Naniosłem kilka poprawek.
Jako ze z zamilowania jestem [pseudo] programista i bardzo lubie sobie pogrzebac w tym i owym, to uzbieralem juz sobie sporo materialu do pracy 
czy to z czesci waszych skryptow tu umieszczanych (za co wam bardzo dziekuje), co tez z "gotowcow" udostepnianych przez ludzi do innego muda (jaki jeden angielskojezyczny zeby nie bylo ze jakas konkurencja czy cos;)). Mam jednak kilka pytan o praktyczne podpowiedzi, zeby troche zoptymalizowac kod i przejrzyscie go poskladac