tf-scripts/arkadia/colors.tf

; ogólne
/eval /def -PBC%kolor_main     -Fp5 -t'^Ok\\.'
/eval /def -PBC%kolor_main     -Fp5 -t'Slucham.'
/eval /def -PBC%kolor_main     -Fp5 -t'zaprasza cie do swojej druzyny'
/eval /def -PBCwhite;Cbggreen -Fp5 -t' przybywa(ja|)'
/eval /def -PBCbggreen;Cwhite -Fp5 -t' podaza(ja|sz|) '
/eval /def -ar -mglob          -Fp5 -t'*przekazuje ci prowadzenie druzyny*'

; walka
/eval /def -ar -mglob       -Fp5 -t'* zaslania * przed twoimi ciosami.'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* atakuje cie[!.]'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* ale zagradzasz .* droge'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* przebijajac sie przez twoja .*'

/eval /def -PBC%kolor_atak  -Fp5 -t'^Atakujesz .*'
/eval /def -PBC%kolor_atak  -Fp5 -t'Wspierasz '
/eval /def -PBC%kolor_atak  -Fp5 -t' wspiera cie '
/eval /def -PC%kolor_atak   -Fp5 -t'.* atakuje .*'
/eval /def -PBC%kolor_atak  -Fp5 -t'.* probuje zaatakowac ciebie.*'
/eval /def -PC%kolor_atak  -Fp5 -t'.* probuje zaatakowac .*(mu|jej) droge.'
/eval /def -PC%kolor_atak   -Fp5 -t'.* przebijajac sie przez (jej|jego) .*'
/eval /def -PBC%kolor_atak  -Fp5 -t'Rzucasz sie na .* przebijajac sie przez .* ochrone.'
/eval /def -PBC%kolor_atak  -Fp5 -t'Bezskutecznie rzucasz sie na .* probujac przebic sie przez .* ochrone.'
/eval /def -PBC%kolor_atak  -Fp5 -t'Na rozkaz .* rzucasz sie .*'
/eval /def -PC%kolor_atak  -Fp5 -t'na .*rozkaz .* rzuca sie .*'
/eval /def -PBC%kolor_atak  -Fp5 -t'Walczysz '
/eval /def -PC%kolor_atak   -Fp5 -t' walczy '
/eval /def -PCred           -Fp5 -t'.* (umarl|polegl)(a|o|)\\.'
/eval /def -PCred			-Fp5 -t'.* zabil(a|o|) .*'
/eval /def -PBCred          -Fp5 -t'^Zabil.s (.*)'
/eval /def -PCbgwhite;BCred -Fp5 -t'zaslaniasz '
/eval /def -PCbgwhite;BCred -Fp5 -t'zaslania cie '
/eval /def -PCbgwhite;Cred  -Fp5 -t'zaslania '
/eval /def -PCbgwhite;BCblue -Fp5 -t'probujesz zaslonic'
/eval /def -PCbgwhite;BCblue -Fp5 -t'probuje zaslonic cie '
/eval /def -PCbgwhite;Cblue  -Fp5 -t'probuje zaslonic '
/eval /def -PBC%kolor_alarm -Fp5 -t'Czujesz sie ekstremalnie zmeczon.\\.'

; ataki KS
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* miotajac najciezsze przeklenstwa naciera na ciebie!'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* z dzika furia rzuca sie na ciebie.*'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* opluwa cie i krzywiac twarz w .*'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* ostroznie obchodzi cie, jakby .* atakujac cie!'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* zaczyna walke z toba!'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.*zaczepny cios, atakujac cie!'

; ataki SC
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* wykrzywiajac twarz w okrutnym grymasie rzuca sie na ciebie.'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* wbija wzrok w ciebie i raptownie zrywajac sie z miejsca atakuje cie.'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* sprezystym skokiem dopada ciebie i atakuje cie.'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* przyczaja sie chwile i z szybkiego doskoku atakuje cie.'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* mruzac drapieznie oczy rusza do ataku na ciebie.'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* w mgnieniu oka wykonuje drapiezny skok, dopadajac cie.'

; ataki ZH
/eval /def -PC%kolor_atak -Fp5 -t'.* z determinacja rzuca .* za wszelka cene powstrzymac .*'
/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* z determinacja rzuca sie do walki.* cie powstrzymac.*'

; ciosy
/eval /def -mregexp -PBC%kolor_fight_me -Fp5 -t'(Ledwo muskasz|Lekko ranisz|Ranisz|Powaznie ranisz|Bardzo ciezko ranisz|Masakrujesz) '
/eval /def -mregexp -PBC%kolor_fight -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) cie '
/eval /def -mregexp -PC%kolor_fight  -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) (?!cie )'

; kondycja
/eval /def -PBC%kolor_main  -Fp5 -t'w swietnej kondycji'
/eval /def -PBC%kolor_main  -Fp5 -t'w dobrym stanie'
/eval /def -PBC%kolor_main  -Fp5 -t'lekko rann.'
/eval /def -PBC%kolor_alarm -Fp5 -t' rann.'
/eval /def -PBC%kolor_alarm -Fp5 -t'w zlej kondycji'
/eval /def -PBC%kolor_crit  -Fp4 -t'(ciezko rann.)'
;;/eval /def -PBC%kolor_crit  -Fp5 -t'ledwo zyw.'

; mana
/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie w pelni sil'
/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie lekko oslabion.'
/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie oslabion.'
/eval /def -PBC%kolor_main  -Fp5 -t'mentalnie zmeczon.'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie bardzo zmeczon.'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie w zlej kondycji'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie wyczerpan.'
/eval /def -PBC%kolor_crit  -Fp5 -t'mentalnie wykonczon.'
/eval /def -PBC%kolor_crit  -Fp5 -t'mentalnie u kresu sil'

; zmeczenie
/eval /def -PBC%kolor_main  -Fp5 -t'jestes w pelni wypoczet(y|a)\\.'
/eval /def -PBC%kolor_main  -Fp5 -t'jestes wypoczet(y|a)\\.'
/eval /def -PBC%kolor_main  -Fp5 -t'jestes troche zmeczon(y|a)\\.'
/eval /def -PBC%kolor_main  -Fp5 -t'jestes zmeczon(y|a)\\.'
/eval /def -PBC%kolor_main  -Fp5 -t'jestes bardzo zmeczon(y|a)\\.'
/eval /def -PBC%kolor_main  -Fp5 -t'jestes nieco wyczerpan(y|a)\\.'
/eval /def -PBC%kolor_alarm -Fp5 -t'jestes wyczerpan(y|a)\\.'
/eval /def -PBC%kolor_alarm -Fp5 -t'jestes bardzo wyczerpan(y|a)\\.'
/eval /def -PBC%kolor_crit  -Fp5 -t'jestes wycienczon(y|a)\\.'
/eval /def -PBC%kolor_crit  -Fp5 -t'jestes calkowicie wycienczon(y|a)\\.'

/eval /def -PBC%kolor_crit  -Fp5 -t'Jestes tak zmeczon., ze nie mozesz dalej .* w tym kierunku\\.'

; postepy
/eval /def -mregexp -Fp5 -PBC%kolor_main -t'(Nie poczynil[ea]s|Poczynil[ea]s .* postepy)'

; poczta
/eval /def -PBC%kolor_main  -Fp5 -t'^Nagle, tuz przed toba, z chmury dymu (.*)'
/eval /def -PBC%kolor_main  -Fp5 -t'^Masz now(a|y) .*'
/eval /def -PBC%kolor_main  -Fp5 -t'.*Czeka na ciebie .* poczta.*'
/eval /def -PBC%kolor_main  -Fp5 -t'^Na twoje ramie .* szczur.*'
/eval /def -PBC%kolor_main  -Fp5 -t'^Bialy golab pocztowy laduje na twoim.*'
/eval /def -PBC%kolor_main  -Fp5 -t'^Na twoim ramieniu niespodziewanie wyladowal .*'

; sprzet
/eval /def -PBC%kolor_main  -Fp5 -t'Trzyma(sz|) (.*)'
/eval /def -PC%kolor_main   -Fp5 -t'Ma(sz| on| ona|) na sobie '
/eval /def -PC%kolor_main   -Fp5 -t'Masz przy sobie ' 
/eval /def -PBC%kolor_main  -Fp5 -t'ze jest w znakomitym stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w (dobrym|zlym|bardzo zlym) stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze liczne walki wyryly na .* swoje pietno'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze wymaga natychmiastowej konswerwacji'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze moze peknac w kazdej chwili'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest lekko podniszczon.'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w kiepskim stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w oplakanym stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest gotow. rozpasc sie w kazdej chwili'
/eval /def -PBC%kolor_alarm -Fp5 -t'nie nadaje sie do (ostrzenia|naprawy).'

; poziomy
/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na kompletnego zoltodzioba\\.'
/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na kogos niedoswiadczonego\\.'
/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na osobe owiana legenda\\.'
/eval /def -PC%kolor_main -Fp5 -t'^Wyglada(|sz) na kogos.*'

; mowienie
/eval /def -mregexp -PBC%kolor_speak -Fp6 -t'(Mowisz|Krzyczysz|Szepczesz)(.*)'
/eval /def -mregexp -PBC%kolor_speak -Fp6 -t'(.*) (mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|bulgocze)((.*)| )do ciebie: (.*)'
/eval /def -mregexp -PC%kolor_speak  -Fp6 -t'(.*) ((?-i)mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|bulgocze)(| z (.*)|(.*)|( z (.*) do (?!ciebie))|(.*) do (?!ciebie)): (.*)'

; magiki
/eval /def -PBC%kolor_spec -Fp2 -t'(kunsztown[a-z]* mithrylow[a-z]* topor[a-z]* bojow[a-z]*|poszczerbion[a-z]* obureczn[a-z]* miecz[a-z]*|polyskliw[a-z]* smukl[a-z]* espadon[a-z]*|kruczoczarn[a-z]* mistern[a-z]* miecz[a-z]*|srebrzyst[a-z]* kos[a-z]* bojow[a-z]*|opalizujac[a-z]* runiczn[a-z]* topor[a-z]* obosieczn[a-z]*|skorodowan[a-z]* wiekow[a-z]* topor[a-z]*|gwiezdn[a-z]* topor[a-z]*|snieznobial[a-z]* lsniac[a-z]* sztylet[a-z]*|gigantyczn[a-z]* granitow[a-z]* mlot[a-z]*|krysztalow[a-z]* dwureczn[a-z]* korbacz[a-z]*|waski[a-z]* kunsztown[a-z]* sihill[a-z]*|mistern[a-z]* obosieczn[a-z]* topor[a-z]*|dwureczn[a-z]* adamantytow[a-z]* mlot[a-z]* bojow[a-z]*|wielki[a-z]* runiczn[a-z]* mlot[a-z]* wojenn[a-z]*|jasniejac[a-z]* zdobion[a-z]* mlot[a-z]* bojow[a-z]*|zdobion[a-z]* jasniejac[a-z]* mlot[a-z]* bojow[a-z]*|ciemn[a-z]* upiorn[a-z]* mlot[a-z]* bojow[a-z]*|koscian[a-z]* kilof[a-z]*|czarnoblekitn[a-z]* pulsujac[a-z]* morgenstern[a-z]*|zdobion[a-z]* dlug[a-z]* lewak[a-z]*|niebieskaw[a-z]* zdobiona[a-z]* bulaw[a-z]*|adamantytow[a-z]* szpiczast[a-z]* partyzan[a-z]*|ogromn[a-z]* ognist[a-z]* trojz[a-z]*|antyczn[a-z]* zdobion[a-z]* sztylet[a-z]*|lodow[a-z]* lsniac[a-z]* sztylet[a-z]*|masywn[a-z]* wyszczerbion[a-z]* tasak[a-z]*)'
/eval /def -PBC%kolor_spec -Fp2 -t'(szmaragdowozielon[a-z]* mistern[a-z]* plaszcz[a-z]*|wygodn[a-z]* szar[a-z]* par[a-z]* butow|czarn[a-z]* zdobion[a-z]* amule[a-z]*|lsniac[a-z]* plomienist[a-z]* tarcz[a-z]*|lsniac[a-z]* krysztalow[a-z]* wisior[a-z]*|kunsztown[a-z]* lekk[a-z]* pancerz[a-z]*|ciezk[a-z]* krwist[a-z]* amulet[a-z]*|azurow[a-z]* koscistobial[a-z]* amulet[a-z]*|snieznobial[a-z]* luskow[a-z]* kolczu[a-z]*|ozdobn[a-z]* skorzan[a-z]* plecak[a-z]*|czerwon[a-z]* skrzydlat[a-z]* par[a-z]* nareczak[a-z]*)'
/eval /def -PBC%kolor_spec -Fp2 -t'(zdobiony[a-z]* zlot[a-z]* pierscien[a-z]*|snieznobial[a-z]* lsniac[a-z]* pancerz[a-z]*|strzelist[a-z]* zlocist[a-z]* helm[a-z]*)'

; gildie
/eval /def -aBC%kolor_guild -p2 -t'*zloty pierscien*Cechu*'
/eval /def -PBC%kolor_guild -p2 -t'(Jego|Jej) nieustepliwe niczym skelliganskie sztormy spojrzenie i twarz wysmagana lodowatymi wichrami swiadcza o tym, ze masz'
/eval /def -aBC%kolor_guild -p2 -t'*Klamre * pasa zdobi *'
/eval /def -aBC%kolor_guild -p2 -t'*noszony przez zaciezna piechote z Ochotniczego Hufca Mahakamu.*'
/eval /def -aBC%kolor_guild -p2 -t'*na ktorym wyryto otoczony czerwonymi rautami emblemat*'
/eval /def -aBC%kolor_guild -p2 -t'*z herbem Rodziny Alderazzi*'
/eval /def -aBC%kolor_guild -p2 -t'*charakterystyczna dla Stowarzyszenia*'
/eval /def -aBC%kolor_guild -p2 -t'*ze znakiem czarnego gryfa*'
/eval /def -aBC%kolor_guild -p2 -t'Nosi wiewiorczy ogon*'
/eval /def -aBC%kolor_guild -p2 -t'*biala tunika zakonna symbolizuje*'

/def glow = \
	/def -PBC%kolor_glow -Fp5 -t'%{*}' _glow_%{1}

/def unglow = \
	/purge -i _glow_%{*}
		
; by Ingwar

/set ogolne_skrzynia_dluga=1

/def _skrzynia = \
	/purge _skrzynia_trig_* %;\
	/if ({ogolne_skrzynia_dluga}==1) \
		/def -ag -p2 -mregexp -t'( zawiera(?:|ja)|powieszono|w srodku dostrzegasz) (.+, .+ i .+)\\\\.$$' _skrzynia_trig_1 = /test _skrzynia_pokaz(strcat({PL}, {P1}, ":"), {P2}) %;\
	/endif

/_skrzynia

/purge -i _skrzynia_pokaz

/def -i _skrzynia_pokaz = \
	/let _tmp=$[replace(", ", "|", {2})] %;\
	/let _tmp=$[strcat(replace(" i ", "|", {_tmp}), "|")] %;\
	/let _tmp=$[replace("||", "|", {_tmp})] %;\
	/while /let i=$[strstr({_tmp},"|")] %; /@test i > -1 %; /do \
		/let _name=$[substr({_tmp},0,i)] %;\
		/let _tmp=$[substr({_tmp},i+1)] %;\
		/let _ile=$(/_zam_licz %{_name}) %;\
		/if ({_ile} != 1) \
			/let _name=$[substr({_name}, strchr({_name}, " ") + 1)] %;\
		/endif %;\
		/if (regmatch("\
			gwiezdny.* topor|\
			", {_name})) \
			/let _name=$[strcat(decode_attr(""), {_name})] %;\
		/elseif (regmatch("\
			prost. smukl. rapier|\
			", {_name})) \
			/let _name=$[strcat(decode_attr(""), {_name})] %;\
		/endif %;\
		/if (regmatch({ogolne_skrzynia_podswietl-NICO}, {_name})) \
			/let _name=$[strcat(decode_attr(strcat("[", {_ile}, "] ")), substr({_name}, 0, strstr({_name}, "]") + 1), decode_attr(strcat(substr({_name}, strstr({_name}, "]") + 1))))] %;\
		/else \
			/let _name=$[strcat("[", {_ile}, "] ", {_name})] %;\
		/endif %;\
		/if (regmatch("\
			topor|\
			berdysz|\
			siekier|\
			czekan|\
			oskard|\
			kilof|\
			tasak|\
			tabar|\
			nadziak|\
			miecz|\
			sihill|\
			drannach|\
			szabl|\
			szabel|\
			rapier|\
			scimitar|\
			katzbalger|\
			stilett|\
			pal|\
			sztylet|\
			halabard|\
			falchion|\
			mlot|\
			obusz|\
			wloczni|\
			pik[ei]|\
			noz|\
			maczug|\
			morgenstern|\
			kordelas|\
			mizerykordi|\
			buzdygan|\
			korbacz|\
			gal[ae]z|\
			bulaw|\
			drag|\
			kiscien|\
			nog[ai] stolow|\
			dag[ai]|\
			wloczni[aei]|\
			floret|\
			wekier|\
			walek|\
			lamia|\
			kostur|\
			kos[aye]|\
			szponton|\
			partyzan|\
			glewi|\
			gizarm|\
			dzid|\
			naginat|\
			rohatyn|\
			korsek |\
			cep|\
			trojz[ea]b|\
			ronkon|\
			runk|\
			flamberg|\
			poltorak|\
			bulat|\
			nimsz|\
			szamszir|\
			lami|\
			spis[ay]|\
			schiavon|\
			lewak|\
			sierp|\
			lask|\
			wid(e|)l|\
			saif|\
			koncerz|\
			kij|\
			espadon|\
			claymor|\
			cinquend|\
			szpad|\
			karabel|\
			jatagan|\
			baselard|\
			daga\
			", {_name})) \
			/let _tmp_zb_1=$[strcat(_tmp_zb_1, _name, "|")] %;\
		/elseif (regmatch("tarcz|puklerz|pawez", {_name})) \
			/let _tmp_zb_2=$[strcat(_tmp_zb_2, _name, "|")] %;\
		/elseif (regmatch("napiersnik|kirys|kolczug|karacen|kaftan|koszul|tunik|zbroj|bajdan[ay]|anim[eay]|kozus|kurt|kamizel|becht|pancerz", {_name})) \
			/let _tmp_zb_3=$[strcat(_tmp_zb_3, _name, "|")] %;\
		/elseif (regmatch("nareczak|naramiennik|rekawic|karwasz", {_name})) \
			/let _tmp_zb_4=$[strcat(_tmp_zb_4, _name, "|")] %;\
		/elseif (regmatch("nagolennik|spoden|nogawic|but(y|ow)|trzewik|spodni|spodnic|naudziak|sandal|nakolannik", {_name})) \
			/let _tmp_zb_5=$[strcat(_tmp_zb_5, _name, "|")] %;\
		/elseif (regmatch("helm|burgonet|misiurk|kaptur|morion|basinet|salad|przylbic|diadem|szyszak|narbut[ay]| armet|casquett| czapk|beret|turban|gigantyczn. wzmacnian. czaszk| barbut|kapalin", {_name})) \
			/let _tmp_zb_6=$[strcat(_tmp_zb_6, _name, "|")] %;\
		/elseif (regmatch("plaszcz|peleryn| tog| szat|bloniaste skrzydl", {_name})) \
			/let _tmp_zb_7=$[strcat(_tmp_zb_7, _name, "|")] %;\
		/else \
			/let _tmp_zb_8=$[strcat(_tmp_zb_8, _name, "|")] %;\
		/endif %;\
	/done %;\
	/let _szer=$[wrapsize / 2 - 4] %;\
	/test echo(strcat("+", strrep("-", {_szer} * 2 - 44 - %{wrapspace}), "+")) %;\
	/let i=0 %;\
	/while (i < 4) \
		/let i1=$[{i} * 2 + 1] %;\
		/let i2=$[{i} * 2 + 2] %;\
		/eval /set _zb=%%_tmp_zb_%{i1} %;\
		/eval /set _zb2=%%_tmp_zb_%{i2} %;\
		/if ({_zb} !~ NULL | {_zb2} !~ NULL) \
		    /while (_zb !~ "" | _zb2 !~ "") \
				/let _k=$[strstr({_zb},"|")] %;\
				/let _name=$[substr({_zb},0,_k)] %;\
				/let _name=$[substr(_name, 0, {_szer})] %;\
				/set _zb=$[substr({_zb},_k+1)] %;\
				/let _k2=$[strstr({_zb2},"|")] %;\
				/let _name2=$[substr({_zb2},0,_k2)] %;\
				/let _name2=$[substr(_name2, 0, {_szer})] %;\
				/set _zb2=$[substr({_zb2},_k2+1)] %;\
				/test echo(strcat("| ", pad({_name}, - {_szer} + 25 + %{wrapspace}), " | ", pad({_name2}, - {_szer} + 24 + %{wrapspace}), " |")) %;\
			/done %;\
			/test echo(strcat("+", strrep("-", {_szer} * 2 - 44 - %{wrapspace}), "+")) %;\
		/endif %;\
		/test ++i %;\
	/done %;\
	/unset _zb %;\
	/unset _zb2 %;\
	/unset _na %;\
	/unset _na2

/purge -i _zam_licz

/def -i _zam_licz = \
	/if ({1} =~ "dwa" | {1} =~ "dwie" | {1} =~ "dwoch") \
		/test echo(2) %;\
	/elseif ({1} =~ "trzy" | {1} =~ "trzech") \
		/test echo(3) %;\
	/elseif ({1} =~ "cztery" | {1} =~ "czterej") \
		/test echo(4) %;\
	/elseif ({1} =~ "piec" | {1} =~ "pieciu") \
		/test echo(5) %;\
	/elseif ({1} =~ "szesc" | {1} =~ "szeciu") \
		/test echo(6) %;\
	/elseif ({1} =~ "siedem" | {1} =~ "siedmiu") \
		/test echo(7) %;\
	/elseif ({1} =~ "osiem" | {1} =~ "osmiu") \
		/test echo(8) %;\
	/elseif ({1} =~ "dziewiec" | {1} =~ "dziewieciu") \
		/test echo(9) %;\
	/elseif ({1} =~ "dziesiec" | {1} =~ "dziesieciu") \
		/test echo(10) %;\
	/elseif ({1} =~ "jedenascie" | {1} =~ "jedynastu") \
		/test echo(11) %;\
	/elseif ({1} =~ "dwanascie" | {1} =~ "dwunastu") \
		/test echo(12) %;\
	/elseif ({1} =~ "trzynascie" | {1} =~ "trzynastu") \
		/test echo(13) %;\
	/elseif ({1} =~ "czternascie" | {1} =~ "czternastu") \
		/test echo(14) %;\
	/elseif ({1} =~ "pietnascie" | {1} =~ "pietnastu") \
		/test echo(15) %;\
	/elseif ({1} =~ "szesnascie" | {1} =~ "szesnastu") \
		/test echo(16) %;\
	/elseif ({1} =~ "siedemnascie" | {1} =~ "siedemnastu") \
		/test echo(17) %;\
	/elseif ({1} =~ "osiemnascie" | {1} =~ "osiemnastu") \
		/test echo(18) %;\
	/elseif ({1} =~ "dziewietnascie" | {1} =~ "dziewietnastu") \
		/test echo(19) %;\
	/elseif ({1} =~ "dwadziescia" | {1} =~ "dwudziestu") \
		/test echo(20) %;\
	/elseif (regmatch("(\\d+)", {1})) \
		/test echo(decode_attr(strcat("@{nBCwhite}", {1}))) %;\
	/elseif ({1} =~ "wiele" | {1} =~ "wielu") \
		/test echo("X") %;\
	/else \
		/test echo(1) %;\
	/endif

/def um = \
	/if ({*}=~NULL) \
		/send umiejetnosci bojowe %;\
		/send umiejetnosci ogolne %;\
		/send umiejetnosci zlodziejskie %;\
		/send umiejetnosci paraktyczne %;\
		/set _umiejetnosci_i=6 %;\
		/let _um_ktore=bojowe ogolne zlodziejskie praktyczne %;\
	/else \
		/if ({*}=~"wszystkie") \
			umiejetnosci %;\
			/let _um_ktore=wszystkie %;\
		/else \
			umiejetnosci %{*} %;\
			/let _um_ktore=%{*} %;\
		/endif %;\
		/set _umiejetnosci_i=2 %;\
	/endif %;\
	/set umiejetnosci=%;\
	/def -p6 -ag -mregexp -t':( )*([^ ]*)( )*(.*):( )*([^ ]*)' _um_trig_1= \
		/set umiejetnosci=%%{umiejetnosci}%%{PL}|%%{P2}#%%{P4}|%%{P6}#%;\
	/def -p5 -ag -mregexp -t':( )*([^ ]*)( )*$$' _um_trig_2= \
		/set umiejetnosci=%%{umiejetnosci}%%{PL}|%%{P2}#@%%;\
		/test --_umiejetnosci_i %%;\
		/if ({_umiejetnosci_i}==1) \
			/purge _um_trig_* %%;\
			/_um_wyswietl %{_um_ktore} %%;\
		/endif %;\
	/def -p5 -ag -mregexp -t'^($$|ieznana kategoria. Masz do wyboru:)' _um_trig_3= \
		/set umiejetnosci=%%{umiejetnosci}@%%;\
		/test --_umiejetnosci_i %%;\
		/if ({_umiejetnosci_i}==1) \
			/purge _um_trig_* %%;\
			/_um_wyswietl %{_um_ktore} %%;\
		/endif

/purge -i _um_wyswietl  

/def -i _um_wyswietl = \
	/let i=%;\
	/let linia=%;\
	/let cc=1%; \
	/while /let i=$[strstr(umiejetnosci,"@")]%; /@test i > 0%; /do \
		/test echo(strcat("+", strrep("-", 79) , "+")) %;\
		/shift %;\
		/let um_type=$[substr(umiejetnosci,0,i)]%; \
		/set umiejetnosci=$[substr(umiejetnosci,i+1)]%;\
		/let um_type2=9876543210 %;\
		/while /let i=$[strstr(um_type,"#")]%; /@test i > 0%; /do \
			/let um_name=$[substr(um_type, 0, i)]%;\
			/let um_type=$[substr(um_type, i + 1)]%;\
			/let j=$[strstr(um_name,"|")]%;\
			/let um_ile=$[substr(um_name, j + 1)]%;\
			/let um_name_real=$[substr(um_name, 0, j)]%;\
			/if ({um_ile}=~"ledwo") \
				/let ile_num=0 %;\
			/elseif ({um_ile}=~"troche") \
				/let ile_num=1 %;\
			/elseif ({um_ile}=~"pobieznie") \
				/let ile_num=2 %;\
			/elseif ({um_ile}=~"zadowalajaco") \
				/let ile_num=3 %;\
			/elseif ({um_ile}=~"niezle") \
				/let ile_num=4 %;\
			/elseif ({um_ile}=~"dobrze") \
				/let ile_num=5 %;\
			/elseif ({um_ile}=~"znakomicie") \
				/let ile_num=6 %;\
			/elseif ({um_ile}=~"doskonale") \
				/let ile_num=7 %;\
			/elseif ({um_ile}=~"perfekcyjnie") \
				/let ile_num=8 %;\
			/elseif ({um_ile}=~"mistrzowsko") \
				/let ile_num=9 %;\
			/endif %;\
			/let um_set_name=$[replace(" ", "_", um_name_real)]%;\
			/let j=$[strstr({um_type2},ile_num)] %;\
			/let um_type2=$[strcat(substr({um_type2},0,j+1),{um_name},"#",substr({um_type2},j+1))]%;\
		/done %;\
		/let i=0 %;\
		/while /@test i < 10 %; /do \
			/let j=$[strstr({um_type2},{i})]%;\
			/let um_type2=$[strcat(substr({um_type2},0,{j}),substr({um_type2},{j}+1))] %;\
			/test ++i %;\
		/done %;\
		/while /let i=$[strstr(um_type2,"#")]%; /@test i > 0%; /do \
			/let um_name=$[substr(um_type2,0,i)]%;\
			/let um_type2=$[substr(um_type2,i+1)]%;\
			/let j=$[strstr(um_name,"|")]%;\
			/let um_ile=$[substr(um_name,j+1)]%;\
			/let um_name=$[substr(um_name,0,j)]%;\
			/let um_set_name=$[replace(" ", "_", um_name)]%;\
			/let linia=$[strcat(linia,"|",pad(um_name, 22),": ",pad(um_ile,14), " ")]%; \
			/if (cc==1) \
				/let cc=2%; \
			/else \
				/test echo(strcat({linia}, "|")) %; \
				/let cc=1%; \
				/let linia=%;\
			/endif%; \
		/done %;\
		/if (linia!~NULL)\
			/test echo(strcat({linia}, "|", strrep(" ", 24), "               |"))%;\
		/endif %;\
		/let cc=1%; \
		/let linia=%;\
	/done %;\
	/unset umiejetnosci %;\
	/unset _umiejetnosci_i