diff --git a/nightal/colors.tf b/nightal/colors.tf index dae019f..4c01be1 100644 --- a/nightal/colors.tf +++ b/nightal/colors.tf @@ -1,447 +1,132 @@ ; ogólne -/eval /def -PBC%kolor_main -Fp5 -t'Tak jest\\.' -/eval /def -PBC%kolor_main -Fp5 -t'Ze co.' -/eval /def -PBC%kolor_main -Fp5 -t'zaprasza cie do swojej druzyny' -/eval /def -PBCwhite;Cbggreen -Fp5 -t' przybywa(ja|)' -/eval /def -PBCwhite;Cbggreen -Fp5 -t' przybiega(ja|)' -/eval /def -PBCbggreen;Cwhite -Fp5 -t' podaza(ja|sz|) ' -/eval /def -PBCbggreen;Cwhite -Fp5 -t' wybiega(ja|)' +/eval /def -PC%c_main_bold -Fp5 -t'Tak jest\\.' +/eval /def -PC%c_main_bold -Fp5 -t'Erm... Slucham?' +/eval /def -PC%c_main_bold -Fp5 -t'zaprasza cie do swojej druzyny' +/eval /def -PC%c_bold;Cbg%c_main -Fp5 -t' przybywa(ja|)' +/eval /def -PC%c_bold;Cbg%c_main -Fp5 -t' przybiega(ja|)' +/eval /def -PC%c_bold;Cbg%c_main -Fp5 -t' podaza(ja|sz|) ' +/eval /def -PC%c_bold;Cbg%c_main -Fp5 -t' wybiega(ja|)' /eval /def -ar -mglob -Fp5 -t'*przekazuje ci dowodzenie nad druzyna*' +; wyjscia +/eval /def -PC%c_main -Fp5 -t'(.* tutaj .*widoczn.*wyjsc.*|.*W panujacym tu polmroku zauwazasz .* widoczn .*|Droga posrod grobowcow rozdziela sie na .*|Tunel ktorym kroczysz konczy sie slep.*|Wedrujac po gorach zauwazasz, ze jedyne.*|W gorach, po zachodzie slonca ciezko cokolwiek .*|Gorski teren nie nalezy do zbyt przyjaznych, lecz udaje ci sie.*|W trudnym gorskim terenie udaje ci sie spostrzec jedno jedyne .*|Wedrujac po gorach zauwazasz, ze jedyne widoczne wyjscia stad .*)' + ; walka /eval /def -ar -mregexp -Fp5 -t'.* zaslania .* przed twoimi ciosami.' -/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* atakuje cie(bie|)[!.]' -/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* stajesz na .* drodze.' -/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* przebijajac sie przez twoja .*' +/eval /def -ar -PC%c_crit_bold -mregexp -Fp5 -t'.* atakuje cie(bie|)[!.]' +/eval /def -ar -PC%c_crit_bold -mregexp -Fp5 -t'.* stajesz na .* drodze.' +/eval /def -ar -PC%c_crit_bold -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 -PBC%kolor_atak -Fp5 -t'.* atakuje .*' -/eval /def -PBC%kolor_atak -Fp5 -t'.* probuje cie zaatakowac, lecz .*' -/eval /def -PBC%kolor_atak -Fp5 -t'.* przebijajac sie przez (jej|jego) .*' -/eval /def -PBC%kolor_atak -Fp5 -t'^Z zacietoscia rzucasz sie na .* przebijajac sie przez .*!' -/eval /def -PBC%kolor_atak -Fp5 -t'Walczysz ' -/eval /def -PBC%kolor_atak -Fp5 -t' walczy ' -/eval /def -PCred -Fp5 -t'.* (umarl|polegl)(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'Prob.jesz zaslonic' -/eval /def -PCbgwhite;BCblue -Fp5 -t'prob.je cie zaslonic' -/eval /def -PCbgwhite;Cblue -Fp5 -t'prob.je zaslonic' -/eval /def -PCbgwhite;Cred -Fp5 -t'przestaje zaslaniac' -/eval /def -PBC%kolor_alarm -Fp5 -t'Czujesz sie ekstremalnie zmeczon..' +/eval /def -PC%c_crit_bold -Fp5 -t'^Atakujesz .*' +/eval /def -PC%c_crit_bold -Fp5 -t'Wspierasz ' +/eval /def -PC%c_crit_bold -Fp5 -t' wspiera cie ' +/eval /def -PC%c_crit_bold -Fp5 -t'.* probuje cie zaatakowac, lecz .*' +/eval /def -PC%c_crit_bold -Fp5 -t'^Z zacietoscia rzucasz sie na .* przebijajac sie przez .*!' +/eval /def -PC%c_crit_bold -Fp5 -t'Walczysz ' +/eval /def -PC%c_crit_bold -Fp5 -t'Czujesz sie ekstremalnie zmeczon..' +/eval /def -PC%c_crit_bold -Fp5 -t'^Zabil.s (.*)' +/eval /def -PC%c_crit -Fp5 -t'.* atakuje .*' +/eval /def -PC%c_crit -Fp5 -t'.* przebijajac sie przez (jej|jego) .*' +/eval /def -PC%c_crit -Fp5 -t' walczy ' +/eval /def -PC%c_crit -Fp5 -t'.* zabil(a|o|) .*' +/eval /def -PC%c_crit -Fp5 -t'.* (umarl|polegl)(a|o|)\\.' + +/eval /def -PCbg%c_bold;C%c_crit_bold -Fp5 -t'Zaslaniasz' +/eval /def -PCbg%c_bold;C%c_crit_bold -Fp5 -t'zaslania cie ' +/eval /def -PCbg%c_bold;C%c_crit -Fp5 -t'Prob.jesz zaslonic' +/eval /def -PCbg%c_bold;C%c_crit -Fp5 -t'prob.je cie zaslonic' +/eval /def -PCbg%c_bold;C%c_main -Fp5 -t'zaslania' +/eval /def -PCbg%c_bold;C%c_main -Fp5 -t'prob.je zaslonic' ; ataki niestandardowe -/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* uderza sie gwaltownie w tors .* ciebie .*' -/eval /def -PC%kolor_atak -Fp5 -t'.* wydajac z siebie .* rzuca sie na .*' -/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* rusza na ciebie wzywajac kogos do walki!' -/eval /def -ar -PBC%kolor_atak -mregexp -Fp5 -t'.* rozdziawia szczeke i wpatruje sie w Ciebie przez pare chwil.*' +/eval /def -ar -PC%c_crit_bold -mregexp -Fp5 -t'.* uderza sie gwaltownie w tors .* ciebie .*' +/eval /def -ar -PC%c_crit_bold -mregexp -Fp5 -t'.* wydajac z siebie .* rzuca sie na .*' +/eval /def -ar -PC%c_crit_bold -mregexp -Fp5 -t'.* rusza na ciebie wzywajac kogos do walki!' +/eval /def -ar -PC%c_crit_bold -mregexp -Fp5 -t'.* rozdziawia szczeke i wpatruje sie w Ciebie przez pare chwil.*' -; ciosy -/eval /def -mregexp -PBC%kolor_fight_me -Fp5 -t'(Smiercionosnie tniesz|Bardzo mocno tniesz|Tylko nacinasz|Nacinasz|Tniesz|Gleboko tniesz|Lekko tniesz|Klujesz|Dzgasz|Gleboko klujesz|Powaznie klujesz|Powaznie tniesz|Zadrapujesz|Ledwie zadrapujesz|Brutalnie tluczesz|Powaznie obijasz|Obijasz|Tluczesz|Mocno uderzasz|Lekko obijasz|Muskasz|Lekko nakluwasz|Uderzasz|Bardzo gleboko przebijasz|Siniaczysz)' -/eval /def -mregexp -PBC%kolor_fight -Fp5 -t' (smiercionosnie tnie|bardzo mocno tnie|tylko nacina|nacina|tnie|gleboko tnie|lekko tnie|kluje|dzga|gleboko kluje|powaznie kluje|powaznie tnie|zadrapuje|ledwie zadrapuje|brutalnie tlucze|powaznie obija|obija|tlucze|mocno uderza|lekko obija|muska|lekko nakluwa|uderza|bardzo gleboko przebija|siniaczy) cie ' -/eval /def -PC%kolor_fight -Fp5 -t' (smiercionosnie tnie|bardzo mocno tnie|tylko nacina|nacina|tnie|gleboko tnie|lekko tnie|kluje|dzga|gleboko kluje|powaznie kluje|powaznie tnie|ledwie zadrapuje|zadrapuje|brutalnie tlucze|powaznie obija|obija|tlucze|mocno uderza|lekko obija|muska|lekko nakluwa|uderza|bardzo gleboko przebija|siniaczy) (?!cie )' +; ciosy +/eval /def -mregexp -PC%c_fightme -Fp5 -t'(Smiercionosnie tniesz|Bardzo mocno tniesz|Tylko nacinasz|Nacinasz|Tniesz|Gleboko tniesz|Lekko tniesz|Klujesz|Dzgasz|Gleboko klujesz|Powaznie klujesz|Powaznie tniesz|Zadrapujesz|Ledwie zadrapujesz|Brutalnie tluczesz|Powaznie obijasz|Obijasz|Tluczesz|Mocno uderzasz|Lekko obijasz|Muskasz|Lekko nakluwasz|Uderzasz|Bardzo gleboko przebijasz|Siniaczysz)' +/eval /def -mregexp -PC%c_fightme -Fp5 -t' (smiercionosnie tnie|bardzo mocno tnie|tylko nacina|nacina|tnie|gleboko tnie|lekko tnie|kluje|dzga|gleboko kluje|powaznie kluje|powaznie tnie|zadrapuje|ledwie zadrapuje|brutalnie tlucze|powaznie obija|obija|tlucze|mocno uderza|lekko obija|muska|lekko nakluwa|uderza|bardzo gleboko przebija|siniaczy) cie ' +/eval /def -mregexp -PC%c_crit -Fp5 -t' (smiercionosnie tnie|bardzo mocno tnie|tylko nacina|nacina|tnie|gleboko tnie|lekko tnie|kluje|dzga|gleboko kluje|powaznie kluje|powaznie tnie|ledwie zadrapuje|zadrapuje|brutalnie tlucze|powaznie obija|obija|tlucze|mocno uderza|lekko obija|muska|lekko nakluwa|uderza|bardzo gleboko przebija|siniaczy) (?!cie )' -/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|(? -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("@{BCmagenta}[", {_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|\ - szabl|\ - szabel|\ - rapier|\ - scimitar|\ - katzbalger|\ - stilett|\ - pal|\ - sztylet|\ - halabard|\ - falchion|\ - mlot|\ - obusz|\ - wlocznie|\ - pik[ei]|\ - noz|\ - maczug|\ - morgenstern|\ - kordelas|\ - mizerykordi|\ - buzdygan|\ - korbacz|\ - gal[ae]z|\ - bulaw|\ - drag|\ - kiscien|\ - nog[ai] stolow|\ - wekier|\ - walek|\ - lamia|\ - 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\ - ", {_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|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("@{nCwhite}", {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 %;\ - /set _umiejetnosci_i=6 %;\ - /let _um_ktore=bojowe ogolne zlodziejskie %;\ - /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("-", 83) , "+")) %;\ - /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}=~"powierzchownie") \ - /let ile_num=0 %;\ - /elseif ({um_ile}=~"slabo") \ - /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}=~"wspaniale") \ - /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, 24),": ",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(" ", 26), " |"))%;\ - /endif %;\ - /let cc=1%; \ - /let linia=%;\ - /done %;\ - /unset umiejetnosci %;\ - /unset _umiejetnosci_i + /purge -i _glow_%{*} diff --git a/nightal/combat.tf b/nightal/combat.tf index 75a22ba..935fff0 100644 --- a/nightal/combat.tf +++ b/nightal/combat.tf @@ -1,22 +1,22 @@ /def _atak = \ - /let n=$[strchr({*}, '|')]%;\ - /test param1 := substr({*}, 0, n)%;\ - /test param2 := substr({*}, n+1) %;\ - /if ( {attackmode} =~ "1" ) \ - zabij %{param1} %; zabij %{param1} %;\ - /elseif ( {attackmode} =~ "2" ) \ - zabij %{param1} %; zabij %{param1} %; wskaz %{param1} %;\ - /elseif ( {attackmode} =~ "3" ) \ - zabij %{param1} %; zabij %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ - /elseif ( {attackmode} =~ "4" ) \ - przelam obrone %{param2} %; zabij %{param1} %; zabij %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ - /elseif ( {attackmode} =~ "5" ) \ - zabij %{param1} %; zabij %{param1} %; przedstaw %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ - /elseif ( {attackmode} =~ "6" ) \ - przelam obrone %{param2} %; zabij %{param1} %; zabij %{param1} %; przedstaw %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ - /else \ - zabij %{param1} %; zabij %{param1} %;\ - /endif + /let n=$[strchr({*}, '|')]%;\ + /test param1 := substr({*}, 0, n)%;\ + /test param2 := substr({*}, n+1) %;\ + /if ( {attackmode} =~ "1" ) \ + zabij %{param1} %; zabij %{param1} %;\ + /elseif ( {attackmode} =~ "2" ) \ + zabij %{param1} %; zabij %{param1} %; wskaz %{param1} %;\ + /elseif ( {attackmode} =~ "3" ) \ + zabij %{param1} %; zabij %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ + /elseif ( {attackmode} =~ "4" ) \ + przelam obrone %{param2} %; zabij %{param1} %; zabij %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ + /elseif ( {attackmode} =~ "5" ) \ + zabij %{param1} %; zabij %{param1} %; przedstaw %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ + /elseif ( {attackmode} =~ "6" ) \ + przelam obrone %{param2} %; zabij %{param1} %; zabij %{param1} %; przedstaw %{param1} %; wskaz %{param1} %; rozkaz wszystkim zaatakowac %{param1} %;\ + /else \ + zabij %{param1} %; zabij %{param1} %;\ + /endif /def -mregexp -Fp2 -t'.* wydajac z siebie .* rzuca sie na ' special_atak0 = /beep 2 %; /sneak off diff --git a/nightal/equipment.tf b/nightal/equipment.tf index 2dd65fe..5d6582c 100644 --- a/nightal/equipment.tf +++ b/nightal/equipment.tf @@ -5,78 +5,78 @@ /def op = /manipuluj_plecakiem obejrzyj %packitem0 /def sd = \ - /dp wszystkie zbroje + /dp wszystkie zbroje /def sz = \ - /zp wszystkie zbroje %;\ - /send zaloz wszystkie zbroje + /zp wszystkie zbroje %;\ + /send zaloz wszystkie zbroje /def bz = \ - /if ( {pochwa} =~ "on" ) \ - /send wyjmij %bron z %pochwa1 %;\ - %dobadzcmd broni %;\ - /if ( {dual} =~ "on" ) \ - /send wyjmij %bron2 z %pochwa2 %;\ - %dobadzcmd broni %;\ - /endif %;\ - /elseif ( {pack} =~ "on" )\ - /send wez %bron z %packitem1 %;\ - %dobadzcmd broni %;\ - /if ( {dual} =~ "on" ) \ - /send wez %bron2 z %packitem1 %;\ - %dobadzcmd broni %;\ - /endif %;\ - /else \ - /send %dobadzcmd %broni %;\ - /if ( {dual} =~ "on" ) \ - /send %dobadzcmd %broni2 %;\ - /endif %;\ - /endif %;\ - /set alarm=$[decode_attr("none", "BCgreen")] + /if ( {pochwa} =~ "on" ) \ + /send wyjmij %bron z %pochwa1 %;\ + %{dobadzcmd-dobadz} broni %;\ + /if ( {dual} =~ "on" ) \ + /send wyjmij %bron2 z %pochwa2 %;\ + %{dobadzcmd-dobadz} broni %;\ + /endif %;\ + /elseif ( {pack} =~ "on" )\ + /send wez %bron z %packitem1 %;\ + %{dobadzcmd-dobadz} broni %;\ + /if ( {dual} =~ "on" ) \ + /send wez %bron2 z %packitem1 %;\ + %{dobadzcmd-dobadz} broni %;\ + /endif %;\ + /else \ + /send %{dobadzcmd-dobadz} %broni %;\ + /if ( {dual} =~ "on" ) \ + /send %{dobadzcmd-dobadz} %broni2 %;\ + /endif %;\ + /endif %;\ + /eval /set alarm=$[decode_attr("none", {zc_main})] /def bd = \ - /send opusc wszystkie bronie %;\ - /if ( {pochwa} =~ "on" )\ - /send wloz %bron do %pochwa1 %;\ - /if ( {dual} =~ "on" ) \ - /send wloz %bron2 do %pochwa2 %;\ - /endif %;\ - /elseif ( {pack} =~ "on" ) \ - /send wloz %bron do %packitem1 %;\ - /if ( {dual} =~ "on" ) \ - /send wloz %bron2 do %packitem1 %;\ - /endif %;\ - /endif + /send opusc wszystkie bronie %;\ + /if ( {pochwa} =~ "on" )\ + /send wloz %bron do %pochwa1 %;\ + /if ( {dual} =~ "on" ) \ + /send wloz %bron2 do %pochwa2 %;\ + /endif %;\ + /elseif ( {pack} =~ "on" ) \ + /send wloz %bron do %packitem1 %;\ + /if ( {dual} =~ "on" ) \ + /send wloz %bron2 do %packitem1 %;\ + /endif %;\ + /endif /def -mglob -p2 -t'*Zakladasz*otwarty*plecak*' pon_pl0 = \ - /set pack=on %;\ - /set packitem0=plecak %;\ - /set packitem1=plecaka + /set pack=on %;\ + /set packitem0=plecak %;\ + /set packitem1=plecaka /def -mglob -p2 -t'*Zakladasz*zamkniety*plecak*' pon_pl1 = \ - /set pack=on %;\ - /set packitem0=plecak %;\ - /set packitem1=plecaka %;\ - /tbind otworz %packitem0 + /set pack=on %;\ + /set packitem0=plecak %;\ + /set packitem1=plecaka %;\ + /tbind otworz %packitem0 /def -mglob -p2 -t'*Zakladasz*otwarty*worek*' pon_wrk0 = \ - /set pack=on %;\ - /set packitem0=worek %;\ - /set packitem1=worka + /set pack=on %;\ + /set packitem0=worek %;\ + /set packitem1=worka /def -mglob -p2 -t'*Zakladasz*zamkniety*worek*' pon_wrk1 = \ - /set pack=on %;\ - /set packitem0=worek %;\ - /set packitem1=worka %;\ - /tbind otworz %packitem0 + /set pack=on %;\ + /set packitem0=worek %;\ + /set packitem1=worka %;\ + /tbind otworz %packitem0 /def -mglob -p2 -t'*Przewieszasz*otwarta*torbe*' pon_trb0 = \ - /set pack=on %;\ - /set packitem0=torbe %;\ - /set packitem1=torby + /set pack=on %;\ + /set packitem0=torbe %;\ + /set packitem1=torby /def -mglob -p2 -t'*Przewieszasz*zamknieta*torbe*' pon_trb1 = \ - /set pack=on %;\ - /set packitem0=torbe %;\ - /set packitem1=torby %;\ - /tbind otworz %packitem0 + /set pack=on %;\ + /set packitem0=torbe %;\ + /set packitem1=torby %;\ + /tbind otworz %packitem0 diff --git a/nightal/food.tf b/nightal/food.tf index ff50a81..81a6658 100644 --- a/nightal/food.tf +++ b/nightal/food.tf @@ -1,34 +1,34 @@ ; by Ingwar /def pij = \ - napij sie %{*} %;\ - /_picie + napij sie %{*} %;\ + /_picie /def _picie_add = \ - /def -p10 -t'%{1}' _picie_trig_%{_pi_last_id} = %{2} %;\ - /test ++_pi_last_id + /def -p10 -t'%{1}' _picie_trig_%{_pi_last_id} = %{2} %;\ + /test ++_pi_last_id /def _picie = \ - /set _pi_last_id=4 %;\ - /repeat -40 1 /purge _picie_trig_* %;\ - /def -mglob -t'*Wypil?s juz tak duzo, ze nie jestes w st*' _picie_trig_0 = \ - /repeat -3 1 /purge _picie_trig_* %;\ - /def -p2 -mregexp -t'Pijesz lyk wody (z(?:e|) (?:.*))\\\\.' _picie_trig_3 = /tbind napij sie %%{P1} %;\ - /test _picie_add("*Podchodzisz do fontanny*","/tbind napij sie z fontanny") %;\ - /test _picie_add("*pomoca cebrzyka wydobywasz ze studni*","/tbind napij sie ze studni") %;\ - /test _picie_add("*Klekasz przy skraju drogi i nabierasz w dlonie czystej*","/tbind napij sie ze strumienia") %;\ - /test _picie_add("*Nachylasz sie nad fontanna i pijesz z niej troche orzezwiajacej wody.*","/tbind napij sie z fontanny") %;\ - /test _picie_add("*Za pomoca wiaderka wydobywasz ze studzienki nieco*","/tbind napij sie ze studzienki") %;\ - /test _picie_add("*Podchodzisz ostroznie do sadzawki i klekasz przy niej.*","/tbind napij sie z sadzawki") %;\ - /test _picie_add("*Gasisz pragnienie*z beczki.*","/tbind napij sie z beczki") %;\ - /test _picie_add("*Podchodzisz na tyle blisko fontanny, aby moc zaczerp*","/tbind napij sie z fontanny") %;\ - /test _picie_add("*Pochylasz sie nad tafla jeziora i czerpiesz garsc*","/tbind napij sie z jeziora") %;\ - /test _picie_add("*Przechylasz sie nad murkiem otaczajacym fontanne*","/tbind napij sie z fontanny") %;\ - /test _picie_add("*Nachylasz sie nad cembrowina studni i zaczerpnawszy*","/tbind napij sie ze studni") %;\ - /test _picie_add("*Gasisz pragnienie woda z wiadra*","/tbind napij sie ze studni") %;\ - /test _picie_add("*Gasisz pragnienie zimna woda ze studni*","/tbind napij sie ze studni") %;\ - /test _picie_add("", "") %;\ - /unset _pi_last_id + /set _pi_last_id=4 %;\ + /repeat -40 1 /purge _picie_trig_* %;\ + /def -mglob -t'*Wypil?s juz tak duzo, ze nie jestes w st*' _picie_trig_0 = \ + /repeat -3 1 /purge _picie_trig_* %;\ + /def -p2 -mregexp -t'Pijesz lyk wody (z(?:e|) (?:.*))\\\\.' _picie_trig_3 = /tbind napij sie %%{P1} %;\ + /test _picie_add("*Podchodzisz do fontanny*","/tbind napij sie z fontanny") %;\ + /test _picie_add("*pomoca cebrzyka wydobywasz ze studni*","/tbind napij sie ze studni") %;\ + /test _picie_add("*Klekasz przy skraju drogi i nabierasz w dlonie czystej*","/tbind napij sie ze strumienia") %;\ + /test _picie_add("*Nachylasz sie nad fontanna i pijesz z niej troche orzezwiajacej wody.*","/tbind napij sie z fontanny") %;\ + /test _picie_add("*Za pomoca wiaderka wydobywasz ze studzienki nieco*","/tbind napij sie ze studzienki") %;\ + /test _picie_add("*Podchodzisz ostroznie do sadzawki i klekasz przy niej.*","/tbind napij sie z sadzawki") %;\ + /test _picie_add("*Gasisz pragnienie*z beczki.*","/tbind napij sie z beczki") %;\ + /test _picie_add("*Podchodzisz na tyle blisko fontanny, aby moc zaczerp*","/tbind napij sie z fontanny") %;\ + /test _picie_add("*Pochylasz sie nad tafla jeziora i czerpiesz garsc*","/tbind napij sie z jeziora") %;\ + /test _picie_add("*Przechylasz sie nad murkiem otaczajacym fontanne*","/tbind napij sie z fontanny") %;\ + /test _picie_add("*Nachylasz sie nad cembrowina studni i zaczerpnawszy*","/tbind napij sie ze studni") %;\ + /test _picie_add("*Gasisz pragnienie woda z wiadra*","/tbind napij sie ze studni") %;\ + /test _picie_add("*Gasisz pragnienie zimna woda ze studni*","/tbind napij sie ze studni") %;\ + /test _picie_add("", "") %;\ + /unset _pi_last_id /def -mglob -p2 -t'*Moze bys tak usiadl*' sit0 = \ - /tbind usiadz + /tbind usiadz diff --git a/nightal/horses.tf b/nightal/horses.tf index 8ffa4c3..61eae5e 100644 --- a/nightal/horses.tf +++ b/nightal/horses.tf @@ -1,7 +1,7 @@ /def tbind_kon = \ - /def key_f4 = %{*} %;\ - /beep 1 %;\ - /echo -p #@{BC%kolor_info}#@{n}# F4 - @{BC%kolor_info}%{*}@{n} + /def key_f4 = %{*} %;\ + /beep 1 %;\ + /echo -p #@{C%c_info}#@{n}# F4 - @{C%c_info}%{*}@{n} /def -mregexp -p2 -t'Odbierasz (.*).' konik0 = /tbind_kon zlap konia za uzde /def -mregexp -p2 -t'Nie jestes w stanie chwycic' konik1 = /tbind_kon zlap konia za uzde diff --git a/nightal/mail.tf b/nightal/mail.tf index c54d44a..944f5eb 100644 --- a/nightal/mail.tf +++ b/nightal/mail.tf @@ -1,89 +1,89 @@ /def -mregexp -p2 -t'Pozostawia na twojej dloni wiadomosc i' _poczta_golab = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"golab","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"golab","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Nagle miedzy twoimi nogami zaczyna platac' _poczta_mysz = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"mysz","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"mysz","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Nie mija chwila gdy ptak przysiada na twoim ramieniu.' _poczta_kruk = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"kruk","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"kruk","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Na twoim przedramieniu niespodziewanie wyladowala snieznobiala pocztowa mewa.' _poczta_mewa = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"mewa","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"mewa","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Dociera do twojego przedramienia, gdzie przystaje, poruszajac lekko ogonem.' _poczta_jaszczurka = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"jaszczurka","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"jaszczurka","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'agle tuz pod twoja noge przypelza kolorowa cetkowana zmija i szczerzy groznie kly jadowe.' _poczta_zmija = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"zmija","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"zmija","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Nagle wesolo merdajac ogonkiem przybiega do ciebie' _poczta_wilczek = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"wilczek","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"wilczek","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Czujesz wokol siebie dosc dziwny zapach, ktory kojarzyc moze sie ze zgnilizna' _poczta_szczur = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"szczur","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"szczur","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif /def -mregexp -p2 -t'Nagle, tuz obok ciebie, w rozblysku ognia pojawia sie ognisty zlosliwy imp, z niechecia wreczajac ci wiadomosc.' _poczta_imp = \ - /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"imp","|")] %;\ - /beep 1 %;\ - /status_edit -r1 poczta_show:5:BC%{kolor_alarm} %;\ - /if ({poczta_show} !~ 'none' ) \ - /set poczta_show=MULTI%;\ - /else \ - /set poczta_show=MSG%;\ - /endif + /set ogolne_poczta=$[strcat({ogolne_poczta},ftime("%H:%M",time()),"imp","|")] %;\ + /beep 1 %;\ + /status_edit -r1 poczta_show:5:C%c_alarm %;\ + /if ({poczta_show} !~ 'none' ) \ + /set poczta_show=MULTI%;\ + /else \ + /set poczta_show=MSG%;\ + /endif diff --git a/nightal/money.tf b/nightal/money.tf index 618cfa9..73582c3 100644 --- a/nightal/money.tf +++ b/nightal/money.tf @@ -2,83 +2,83 @@ /alias sad_monety /sad monety /def -mglob -p2 -t'*Bierzesz*monet*ciala*' _monety0 = \ - /if ( {pack} =~ "on" )\ - /tbind dp_monety %;\ - /endif + /if ( {pack} =~ "on" )\ + /tbind dp_monety %;\ + /endif /def -ag -mregexp -p2 -t'^(Sa|Wydaje).*(okolo|wart.*) (.*) miedziak' wartosc_trig_1 =\ - /echo -p #@{BC%kolor_info}#@{n}# Wartosc: @{BC%kolor_info}%{P3}@{n} miedzi, czyli okolo @{BC%kolor_info}$[{P3}/10000] platyn, $[mod({P3},10000)/100] zlota, $[mod({P3},100)/10] srebra i $[mod({P3},10)] miedzi.@{n} + /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} + /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 + /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 %{*} %;\ + /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 #@{BC%kolor_info}#@{n}# Sprzedawane: @{BC%kolor_info}%{*}@{n} %;\ - /echo -p #@{BC%kolor_info}#@{n}# Cena sklepu: %{_zloto} zl, %{_srebro} sr, czyli @{BC%kolor_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 #@{BC%kolor_info}#@{n}# Dla klienta: @{BC%kolor_info}%{_klient} zl, zysk: @{BC%kolor_info}%{_licz_prowizje}@{n} zl (prowizja: %prowizja\%). %;\ - /endif %;\ - /czysc_statystyke + /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 + /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 diff --git a/nightal/movement.tf b/nightal/movement.tf index 0f92d9a..68361d5 100644 --- a/nightal/movement.tf +++ b/nightal/movement.tf @@ -1,214 +1,214 @@ /def lw5=\ - /set lw1=$[substr(lw,0,strchr(lw,'., '))]%;\ - /set lw=$[substr(lw,strchr(lw,'., ')+1,strlen(lw)-strchr(lw,'., ')-1)]%;\ - /if (lw1=/"zachod") /set _lw0=w,%; /test ++lwcount%;\ - /elseif (lw1=/"polnocny-zachod") /set _lw1=nw,%; /test ++lwcount%;\ - /elseif (lw1=/"polnoc") /set _lw2=n,%; /test ++lwcount%;\ - /elseif (lw1=/"polnocny-wschod") /set _lw3=ne,%; /test ++lwcount%;\ - /elseif (lw1=/"wschod") /set _lw4=e,%; /test ++lwcount%;\ - /elseif (lw1=/"poludniowy-wschod") /set _lw5=se,%; /test ++lwcount%;\ - /elseif (lw1=/"poludnie") /set _lw6=s,%; /test ++lwcount%;\ - /elseif (lw1=/"poludniowy-zachod") /set _lw7=sw,%; /test ++lwcount%;\ - /elseif (lw1=/"gora") /set _lw8=u,%; /test ++lwcount%;\ - /elseif (lw1=/"dol") /set _lw9=d,%; /test ++lwcount%;\ - /elseif (lw1=/"wyjscie") /set _lw10=wyjscie,%; /test ++lwcount%; /unnormalset wyjscie%;\ - /elseif (lw1=/"drzwi") /set _lw11=drzwi,%; /test ++lwcount%; /unnormalset drzwi%;\ - /elseif (lw1=/"schody") /set _lw12=schody,%; /test ++lwcount%; /unnormalset schody %;\ - /elseif (lw1=/"targ") /set _lw13=targ,%; /test ++lwcount%; /unnormalset targ%;\ - /elseif (lw1=/"bank") /set _lw14=wbank,%; /test ++lwcount%; /unnormalset bank%;\ - /elseif (lw1=/"baszta") /set _lw14=baszta,%; /test ++lwcount%; /unnormalset baszta%;\ - /elseif (lw1=/"bazar") /set _lw14=bazar,%; /test ++lwcount%; /unnormalset bazar%;\ - /elseif (lw1=/"drzwiczki") /set _lw14=drzwiczki,%; /test ++lwcount%; /unnormalset drzwiczki%;\ - /elseif (lw1=/"faktoria") /set _lw14=faktoria,%; /test ++lwcount%; /unnormalset faktoria%;\ - /elseif (lw1=/"gmach") /set _lw14=gmach,%; /test ++lwcount%; /unnormalset gmach%;\ - /elseif (lw1=/"kantorek") /set _lw14=kantorek,%; /test ++lwcount%; /unnormalset kantorek%;\ - /elseif (lw1=/"karczma") /set _lw14=karczma,%; /test ++lwcount%; /unnormalset karczma%;\ - /elseif (lw1=/"komnata") /set _lw14=komnata,%; /test ++lwcount%; /unnormalset komnata%;\ - /elseif (lw1=/"korytarz") /set _lw14=korytarz,%; /test ++lwcount%; /unnormalset korytarz%;\ - /elseif (lw1=/"krzaki") /set _lw14=krzaki,%; /test ++lwcount%; /unnormalset krzaki%;\ - /elseif (lw1=/"kuchnia") /set _lw14=kuchnia,%; /test ++lwcount%; /unnormalset kuchnia%;\ - /elseif (lw1=/"kuznia") /set _lw14=kuznia,%; /test ++lwcount%; /unnormalset kuznia%;\ - /elseif (lw1=/"miasto") /set _lw14=miasto,%; /test ++lwcount%; /unnormalset miasto%;\ - /elseif (lw1=/"most") /set _lw14=most,%; /test ++lwcount%; /unnormalset most%;\ - /elseif (lw1=/"palac") /set _lw14=palac,%; /test ++lwcount%; /unnormalset palac%;\ - /elseif (lw1=/"piekarnia") /set _lw14=piekarnia,%; /test ++lwcount%; /unnormalset piekarnia%;\ - /elseif (lw1=/"poczta") /set _lw14=poczta,%; /test ++lwcount%; /unnormalset poczta%;\ - /elseif (lw1=/"podworko") /set _lw14=podworko,%; /test ++lwcount%; /unnormalset podworko%;\ - /elseif (lw1=/"restauracja") /set _lw14=restauracja,%; /test ++lwcount%; /unnormalset restauracja%;\ - /elseif (lw1=/"sala") /set _lw14=sala,%; /test ++lwcount%; /unnormalset sala%;\ - /elseif (lw1=/"schodki") /set _lw14=schodki,%; /test ++lwcount%; /unnormalset schodki%;\ - /elseif (lw1=/"sciezka") /set _lw14=sciezka,%; /test ++lwcount%; /unnormalset sciezka%;\ - /elseif (lw1=/"sklep") /set _lw14=sklep,,%; /test ++lwcount%; /unnormalset sklep%;\ - /elseif (lw1=/"stajnia") /set _lw14=stajnia,%; /test ++lwcount%; /unnormalset stajnia%;\ - /elseif (lw1=/"stragan") /set _lw14=stragan,%; /test ++lwcount%; /unnormalset stragan%;\ - /elseif (lw1=/"swiatynia") /set _lw14=swiatynia,%; /test ++lwcount%; /unnormalset swiatynia%;\ - /elseif (lw1=/"szpital") /set _lw14=szpital,%; /test ++lwcount%; /unnormalset szpital%;\ - /elseif (lw1=/"tawerna") /set _lw14=tawerna,%; /test ++lwcount%; /unnormalset tawerna%;\ - /elseif (lw1=/"trakt") /set _lw14=trakt,%; /test ++lwcount%; /unnormalset trakt%;\ - /elseif (lw1=/"ulica") /set _lw14=ulica,%; /test ++lwcount%; /unnormalset ulica%;\ - /elseif (lw1=/"wieza") /set _lw14=wieza,%; /test ++lwcount%; /unnormalset wieza%;\ - /elseif (lw1=/"wrota") /set _lw14=wrota,%; /test ++lwcount%; /unnormalset wrota%;\ - /elseif (lw1=/"zaklad") /set _lw14=zaklad,%; /test ++lwcount%; /unnormalset zaklad%;\ - /elseif (lw1=/"zaplecze") /set _lw14=zaplecze,%; /test ++lwcount%; /unnormalset zaplecze%;\ - /endif + /set lw1=$[substr(lw,0,strchr(lw,'., '))]%;\ + /set lw=$[substr(lw,strchr(lw,'., ')+1,strlen(lw)-strchr(lw,'., ')-1)]%;\ + /if (lw1=/"zachod") /set _lw0=w,%; /test ++lwcount%;\ + /elseif (lw1=/"polnocny-zachod") /set _lw1=nw,%; /test ++lwcount%;\ + /elseif (lw1=/"polnoc") /set _lw2=n,%; /test ++lwcount%;\ + /elseif (lw1=/"polnocny-wschod") /set _lw3=ne,%; /test ++lwcount%;\ + /elseif (lw1=/"wschod") /set _lw4=e,%; /test ++lwcount%;\ + /elseif (lw1=/"poludniowy-wschod") /set _lw5=se,%; /test ++lwcount%;\ + /elseif (lw1=/"poludnie") /set _lw6=s,%; /test ++lwcount%;\ + /elseif (lw1=/"poludniowy-zachod") /set _lw7=sw,%; /test ++lwcount%;\ + /elseif (lw1=/"gora") /set _lw8=u,%; /test ++lwcount%;\ + /elseif (lw1=/"dol") /set _lw9=d,%; /test ++lwcount%;\ + /elseif (lw1=/"wyjscie") /set _lw10=wyjscie,%; /test ++lwcount%; /unnormalset wyjscie%;\ + /elseif (lw1=/"drzwi") /set _lw11=drzwi,%; /test ++lwcount%; /unnormalset drzwi%;\ + /elseif (lw1=/"schody") /set _lw12=schody,%; /test ++lwcount%; /unnormalset schody %;\ + /elseif (lw1=/"targ") /set _lw13=targ,%; /test ++lwcount%; /unnormalset targ%;\ + /elseif (lw1=/"bank") /set _lw14=wbank,%; /test ++lwcount%; /unnormalset bank%;\ + /elseif (lw1=/"baszta") /set _lw14=baszta,%; /test ++lwcount%; /unnormalset baszta%;\ + /elseif (lw1=/"bazar") /set _lw14=bazar,%; /test ++lwcount%; /unnormalset bazar%;\ + /elseif (lw1=/"drzwiczki") /set _lw14=drzwiczki,%; /test ++lwcount%; /unnormalset drzwiczki%;\ + /elseif (lw1=/"faktoria") /set _lw14=faktoria,%; /test ++lwcount%; /unnormalset faktoria%;\ + /elseif (lw1=/"gmach") /set _lw14=gmach,%; /test ++lwcount%; /unnormalset gmach%;\ + /elseif (lw1=/"kantorek") /set _lw14=kantorek,%; /test ++lwcount%; /unnormalset kantorek%;\ + /elseif (lw1=/"karczma") /set _lw14=karczma,%; /test ++lwcount%; /unnormalset karczma%;\ + /elseif (lw1=/"komnata") /set _lw14=komnata,%; /test ++lwcount%; /unnormalset komnata%;\ + /elseif (lw1=/"korytarz") /set _lw14=korytarz,%; /test ++lwcount%; /unnormalset korytarz%;\ + /elseif (lw1=/"krzaki") /set _lw14=krzaki,%; /test ++lwcount%; /unnormalset krzaki%;\ + /elseif (lw1=/"kuchnia") /set _lw14=kuchnia,%; /test ++lwcount%; /unnormalset kuchnia%;\ + /elseif (lw1=/"kuznia") /set _lw14=kuznia,%; /test ++lwcount%; /unnormalset kuznia%;\ + /elseif (lw1=/"miasto") /set _lw14=miasto,%; /test ++lwcount%; /unnormalset miasto%;\ + /elseif (lw1=/"most") /set _lw14=most,%; /test ++lwcount%; /unnormalset most%;\ + /elseif (lw1=/"palac") /set _lw14=palac,%; /test ++lwcount%; /unnormalset palac%;\ + /elseif (lw1=/"piekarnia") /set _lw14=piekarnia,%; /test ++lwcount%; /unnormalset piekarnia%;\ + /elseif (lw1=/"poczta") /set _lw14=poczta,%; /test ++lwcount%; /unnormalset poczta%;\ + /elseif (lw1=/"podworko") /set _lw14=podworko,%; /test ++lwcount%; /unnormalset podworko%;\ + /elseif (lw1=/"restauracja") /set _lw14=restauracja,%; /test ++lwcount%; /unnormalset restauracja%;\ + /elseif (lw1=/"sala") /set _lw14=sala,%; /test ++lwcount%; /unnormalset sala%;\ + /elseif (lw1=/"schodki") /set _lw14=schodki,%; /test ++lwcount%; /unnormalset schodki%;\ + /elseif (lw1=/"sciezka") /set _lw14=sciezka,%; /test ++lwcount%; /unnormalset sciezka%;\ + /elseif (lw1=/"sklep") /set _lw14=sklep,,%; /test ++lwcount%; /unnormalset sklep%;\ + /elseif (lw1=/"stajnia") /set _lw14=stajnia,%; /test ++lwcount%; /unnormalset stajnia%;\ + /elseif (lw1=/"stragan") /set _lw14=stragan,%; /test ++lwcount%; /unnormalset stragan%;\ + /elseif (lw1=/"swiatynia") /set _lw14=swiatynia,%; /test ++lwcount%; /unnormalset swiatynia%;\ + /elseif (lw1=/"szpital") /set _lw14=szpital,%; /test ++lwcount%; /unnormalset szpital%;\ + /elseif (lw1=/"tawerna") /set _lw14=tawerna,%; /test ++lwcount%; /unnormalset tawerna%;\ + /elseif (lw1=/"trakt") /set _lw14=trakt,%; /test ++lwcount%; /unnormalset trakt%;\ + /elseif (lw1=/"ulica") /set _lw14=ulica,%; /test ++lwcount%; /unnormalset ulica%;\ + /elseif (lw1=/"wieza") /set _lw14=wieza,%; /test ++lwcount%; /unnormalset wieza%;\ + /elseif (lw1=/"wrota") /set _lw14=wrota,%; /test ++lwcount%; /unnormalset wrota%;\ + /elseif (lw1=/"zaklad") /set _lw14=zaklad,%; /test ++lwcount%; /unnormalset zaklad%;\ + /elseif (lw1=/"zaplecze") /set _lw14=zaplecze,%; /test ++lwcount%; /unnormalset zaplecze%;\ + /endif -/def -PCgreen -Fp2 -t'Jest tutaj (.*) widoczne wyjscie: (.*)\\.$' olw0 = /set lw %P2 %; /lw4 -/def -PCgreen -Fp2 -t'Jest tutaj (.*) widocznych wyjsc: (.*)\\.$' olw1 = /set lw %P2 %; /lw4 -/def -PCgreen -Fp2 -t'Sa tutaj (.*) widoczne wyjscia: (.*)\\.$' olw2 = /set lw %P2 %; /lw4 -/def -PCgreen -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) widoczne wyjscia: (.*)\\.$' olw3 = /set lw %P2 %; /lw4 -/def -PCgreen -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) widocznych wyjsc: (.*)\\.$' olw4 = /set lw %P2 %; /lw4 -/def -PCgreen -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) wyjscie: (.*)\\.$' olw5 = /set lw %P2 %; /lw4 -/def -PCgreen -Fp2 -t'Droga posrod grobowcow rozdziela sie na (.*)\\.$' olw6 = /set lw %P1 %; /lw4 -/def -PCgreen -Fp2 -t'Tunel ktorym kroczysz konczy sie slepo, mozesz co najwyzej cofnac sie z powrotem (.*)\\.$' olw7 = /set lw %P1 %; /lw4 -/def -PCgreen -Fp2 -t'Wedrujac po gorach zuwazasz, ze jedyne widoczne wyjscia stad prowadza na (.*)\\.$' olw8 = /set lw %P1 %; /lw4 -/def -PCgreen -Fp2 -t'W gorach, po zachodzie slonca ciezko cokolwiek zauwazyc, lecz bardziej poslugujac sie swoja intuicja dostrzegasz ledwo widoczne wyjscie prowadzace na (.*)\\.$' olw9 = /set lw %P1 %; /lw4 -/def -PCgreen -Fp2 -t'Gorski teren nie nalezy do zbyt przyjaznych, lecz udaje ci sie spostrzec wyjscia prowadzace na (.*)\\.$' olw10 = /set lw %P1 %; /lw4 -/def -PCgreen -Fp2 -t'W trudnym gorskim terenie udaje ci sie spostrzec jedno jedyne wyjscie prowadzace na (.*)\\.$' olw11 = /set lw %P1 %; /lw4 -/def -PCgreen -Fp2 -t'Wedrujac po gorach zauwazasz, ze jedyne widoczne wyjscia stad prowadza na (.*)\\.$' olw12 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'Jest tutaj (.*) widoczne wyjscie: (.*)\\.$' olw0 = /set lw %P2 %; /lw4 +/def -mregexp -Fp2 -t'Jest tutaj (.*) widocznych wyjsc: (.*)\\.$' olw1 = /set lw %P2 %; /lw4 +/def -mregexp -Fp2 -t'Sa tutaj (.*) widoczne wyjscia: (.*)\\.$' olw2 = /set lw %P2 %; /lw4 +/def -mregexp -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) widoczne wyjscia: (.*)\\.$' olw3 = /set lw %P2 %; /lw4 +/def -mregexp -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) widocznych wyjsc: (.*)\\.$' olw4 = /set lw %P2 %; /lw4 +/def -mregexp -Fp2 -t'W panujacym tu polmroku zauwazasz (.*) wyjscie: (.*)\\.$' olw5 = /set lw %P2 %; /lw4 +/def -mregexp -Fp2 -t'Droga posrod grobowcow rozdziela sie na (.*)\\.$' olw6 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'Tunel ktorym kroczysz konczy sie slepo, mozesz co najwyzej cofnac sie z powrotem (.*)\\.$' olw7 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'Wedrujac po gorach zuwazasz, ze jedyne widoczne wyjscia stad prowadza na (.*)\\.$' olw8 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'W gorach, po zachodzie slonca ciezko cokolwiek zauwazyc, lecz bardziej poslugujac sie swoja intuicja dostrzegasz ledwo widoczne wyjscie prowadzace na (.*)\\.$' olw9 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'Gorski teren nie nalezy do zbyt przyjaznych, lecz udaje ci sie spostrzec wyjscia prowadzace na (.*)\\.$' olw10 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'W trudnym gorskim terenie udaje ci sie spostrzec jedno jedyne wyjscie prowadzace na (.*)\\.$' olw11 = /set lw %P1 %; /lw4 +/def -mregexp -Fp2 -t'Wedrujac po gorach zauwazasz, ze jedyne widoczne wyjscia stad prowadza na (.*)\\.$' olw12 = /set lw %P1 %; /lw4 /def -mglob -Fp2 -t'Brama jest zamknieta*' followgo0 = \ - /tbind uderz w brame%%; popros straznikow o otwarcie bramy + /tbind uderz w brame%%; popros straznikow o otwarcie bramy /def -mglob -Fp2 -t'*Wysokie kamienne wrota sa zamkniete*' followgo1 = \ - /tbind zapukaj we wrota + /tbind zapukaj we wrota /def -mglob -Fp2 -t'*Drewniane okute wrota sa zamkniete.*' followgo2 = \ - /tbind zapukaj we wrota + /tbind zapukaj we wrota /def -mglob -Fp2 -t'*Masywna zelazna brama jest zamknieta.*' followgo3 = \ - /tbind pociagnij za sznurek + /tbind pociagnij za sznurek /def -mglob -Fp2 -t'*Wysoka kamienna brama jest zamknieta.*' followgo4 = \ - /tbind pociagnij za sznurek + /tbind pociagnij za sznurek /def -mglob -Fp2 -t'* wdrapuje sie na lagodne zbocze*' followgo5 = \ - /tbind wespnij sie na zbocze + /tbind wespnij sie na zbocze /def -mglob -Fp2 -t'*odsuwa plyte grobowca i wchodzi do krypty*' followgo6 = \ - /tbind odsun plyte + /tbind odsun plyte /def -mglob -Fp2 -t'*Jak zamierzasz sie tam udac? Przez zamknieta brame?*' followgo7 = \ - /tbind zapukaj w brame + /tbind zapukaj w brame /def -mglob -Fp2 -t'*nurkuje w ton jeziora*' followgo8 = \ - /tbind zanurkuj do podwodnych jaskin + /tbind zanurkuj do podwodnych jaskin /def -mglob -Fp2 -t'*znika w szczelinie*' followgo9 = \ - /tbind przecisnij sie przez szczeline + /tbind przecisnij sie przez szczeline /def -mglob -Fp2 -t'*zamyka oczy i znika we * scianie*' followgo10 = \ - /tbind wejdz w miraz + /tbind wejdz w miraz /def -mglob -Fp2 -t'*znika miedzy krzakami*' followgo11 = \ - /tbind przejdz miedzy krzakami %%; przecisnij sie miedzy krzakami + /tbind przejdz miedzy krzakami %%; przecisnij sie miedzy krzakami /def -mglob -Fp2 -t'*Drzwi sa zamkniete*' followgo12 = \ - /tbind otworz drzwi + /tbind otworz drzwi /def -mglob -Fp2 -t'*ostroznie, trzymajac sie sciany omija wielka dziure.*' followgo13 = \ - /tbind obejdz dziure + /tbind obejdz dziure /def -mglob -Fp2 -t'*nabiera chaust powietrza i nurkuje w sadzawce.*' followgo14 = \ - /tbind przeplyn sadzawke + /tbind przeplyn sadzawke /def -mglob -Fp2 -t'*znika w otworze.*' followgo15 = \ - /tbind osun sie przez otwor + /tbind osun sie przez otwor /def -mglob -Fp2 -t'*zrecznie wspina sie po wglebieniach w scianie.*' followgo16 = \ - /tbind wespnij sie do otworu + /tbind wespnij sie do otworu /def -mglob -Fp2 -t'*ostroznie przesuwa galezie i przechodzi miedzy krzakami.*' followgo17 = \ - /tbind przejdz miedzy krzakami + /tbind przejdz miedzy krzakami /def -mglob -Fp2 -t'W gaszczu.' followgo18 = \ - /tbind przejdz miedzy krzakami + /tbind przejdz miedzy krzakami /def -mglob -Fp2 -t'Solidna debowa brama jest zamknieta.' followgo19 = \ - /tbind uderz we wrota%%; uderz w brame + /tbind uderz we wrota%%; uderz w brame /def -mglob -Fp2 -t'Nie jestes w stanie przejsc przez zamknieta brame.' followgo20 = \ - /tbind zapukaj we wrota + /tbind zapukaj we wrota /def -mglob -Fp2 -t'*przeciska sie przez otwor znikajac ci z oczu.*' followgo21 = \ - /tbind przecisnij sie przez otwor + /tbind przecisnij sie przez otwor /def -mglob -Fp2 -t'*wczolguje sie w otwor ukryty w zboczu miedzy galeziami.*' followgo22 = \ - /tbind wczolgaj sie do otworu + /tbind wczolgaj sie do otworu /def -mregexp -Fp2 -t'sierzant' followgo23 = \ - /tbind bramanazboje%%; zapytaj sierzanta o lapowke + /tbind bramanazboje%%; zapytaj sierzanta o lapowke /alias bramanazboje /bramanazboje /def bramanazboje = \ - /zp monety %;\ - /send przekup sierzanta %;\ - /dp monety + /zp monety %;\ + /send przekup sierzanta %;\ + /dp monety /def -mglob -Fp2 -t'*sierzant mowi: Nawet nie probuj mnie przekupic... bo pozalujesz!*' followgo24 = \ - /tbind bramanazboje + /tbind bramanazboje /def -mglob -Fp2 -t'*Przy bramie miejskiej.*' followgo25 = \ - /tbind zapukaj trzykrotnie w brame + /tbind zapukaj trzykrotnie w brame /def -mglob -Fp2 -t'*podchodzi do bramy i puka w nia*' followgo26 = \ - /tbind zapukaj trzykrotnie w brame + /tbind zapukaj trzykrotnie w brame /def -mglob -Fp2 -t'*Duze mocne wrota sa zamkniete*' followgo27 = \ - /tbind uderz w gong + /tbind uderz w gong /def -mglob -Fp2 -t'* przeciska sie miedzy krzakami*' followgo28 = \ - /tbind przecisnij sie miedzy krzakami + /tbind przecisnij sie miedzy krzakami /def -mglob -Fp2 -t'*mocno pochyla sie w dol*' followgo29 = \ - /tbind pochyl sie + /tbind pochyl sie /def -mglob -Fp2 -t'*mocno pochylasz sie w dol*' followgo30 = \ - /tbind wejdz w otwor + /tbind wejdz w otwor /def -mregexp -Fp2 -t'Wrota Baldura! Czujecie zapach morza' followgo31 = \ - /tbind zsiadz ze statku + /tbind zsiadz ze statku /def -mglob -Fp2 -t'*znika za filarem*' followgo32 = \ - /tbind przecisnij sie obok filara + /tbind przecisnij sie obok filara /def -mglob -Fp2 -t'*przeciska sie przez wneke w scianie.*' followgo33 = \ - /tbind przecisnij sie przez wneke + /tbind przecisnij sie przez wneke /def -mglob -Fp2 -t'*bierze kilka krokow rozbiegu, po czym bez wiekszych *' followgo34 = \ - /tbind przeskocz rozpadline + /tbind przeskocz rozpadline /def -mglob -Fp2 -t'*wchodzi po schodach na pierwsze pietro*' followgo35 = \ - /tbind wkrocz po schodach na gore + /tbind wkrocz po schodach na gore /def -mglob -Fp2 -t'*nagle odbija sie od ziemi i wyskakuje przez okno*' followgo36 = \ - /tbind wyskocz przez okiennice + /tbind wyskocz przez okiennice /def -mglob -Fp2 -t'*Do pomostu przybija *' followgo37 = \ - /tbind wns + /tbind wns /def -mglob -Fp2 -t'*Doplynelismy*' followgo38 = \ - /tbind zsiadz ze statku + /tbind zsiadz ze statku /def -mglob -Fp2 -t'*Drzwiczki czarnego brudnego dylizansu otwieraja sie!*' followgo39 = \ - /tbind wdyl + /tbind wdyl /def -mglob -Fp2 -t'*Z zewnatrz dochodzi twych uszu wolanie woznicy: Dojechalismy! Przystanek*' followgo40 = \ - /tbind wyjscie + /tbind wyjscie /def -mregexp -Fp2 -t'bierze rozbieg i skacze na (.*)\.' followgo41 = \ - /tbind zeskocz na %{P1} + /tbind zeskocz na %{P1} /def -mregexp -Fp2 -t'Potezna zdobiona brama jest zamknieta.' followgo42 = \ - /tbind pociagnij za sznur + /tbind pociagnij za sznur /def -mregexp -Fp2 -t'Imponujaca zdobiona brama jest zamknieta.' followgo43 = \ - /tbind uderz w brame + /tbind uderz w brame /def -mregexp -Fp2 -t'Masywna wysoka brama jest zamknieta.' followgo44 = \ - /tbind uderz w brame + /tbind uderz w brame /def -mregexp -Fp2 -t'Dwuskrzydlowa ciemna brama jest zamknieta.' followgo45 = \ - /tbind uderz w brame + /tbind uderz w brame /def -mregexp -Fp2 -t'Zelazne stare wrota jest zamkniete.' followgo46 = \ - /tbind uderz w brame + /tbind uderz w brame /def -mregexp -Fp2 -t'ostroznie schodzi po osuwisku.' followgo47 = \ - /tbind zejdz po osuwisku + /tbind zejdz po osuwisku /def -mregexp -Fp2 -t'ostroznie wchodzi po osuwisku.' followgo48 = \ - /tbind wejdz po osuwisku + /tbind wejdz po osuwisku /def -mregexp -Fp2 -t'Ciezka brama jest zamknieta.' followgo49 = \ - /tbind uderz w brame + /tbind uderz w brame /def -mregexp -Fp2 -t'Slyszysz litanie niewybrednych wyzwisk pod adresem marynarzy' followgo50 = \ - /tbind wns + /tbind wns /def -mregexp -Fp2 -t'zerka w przepasc, glosno przelyka sline, i stawia krok w przod' followgo51 = \ - /tbind wskocz w chmury + /tbind wskocz w chmury /def -mregexp -Fp2 -t'zrecznie wskakuje w blekitna ton. Juz' followgo52 = \ - /tbind zanurkuj w wode + /tbind zanurkuj w wode /def -mregexp -Fp2 -t'powoli wchodzi w buchajace plomienie' followgo53 = \ - /tbind wejdz w plomienie + /tbind wejdz w plomienie /def -mregexp -Fp2 -t'kladzie sie na ziemi.* sprawnie' followgo54 = \ - /tbind wczolgaj sie do nory + /tbind wczolgaj sie do nory /def -mregexp -Fp2 -t'bierze rozbieg i probuje przeskoczyc ' followgo55 = \ - /tbind przeskocz przepasc + /tbind przeskocz przepasc /def -mregexp -Fp2 -t'bierze krotki rozbieg i sprawnie' followgo56 = \ - /tbind przeskocz przepasc + /tbind przeskocz przepasc /def -mregexp -Fp2 -t'pod twoimi nogami otwiera sie klapa, a ty momentalnie zaczynasz spadac' followgo57 = \ - /tbind wespnij sie na gore + /tbind wespnij sie na gore /def -mregexp -Fp2 -t'otwiera szerzej drzwi w rogu komnaty' followgo58 = \ - /tbind przejdz przez drzwi + /tbind przejdz przez drzwi /def -mregexp -Fp2 -t'zapiera sie o sciane i z cichym steknieciem odsuwa glaz.' followgo59 = \ - /tbind odsun glaz + /tbind odsun glaz /def -mregexp -Fp2 -t'ostroznie wchodzi na waska sciezke. Po chwili znika za krawedzia klifu' followgo60 = \ - /tbind zejdz na dol + /tbind zejdz na dol /def -mregexp -Fp2 -t'podaza przez drzwi do budynku.' followgo61 = \ - /tbind wejdz do budynku + /tbind wejdz do budynku /def -mregexp -Fp2 -t'przechodzi sciezka pod dom.' followgo62 = \ - /tbind przejdz sciezka do domu + /tbind przejdz sciezka do domu /def -mregexp -Fp2 -t'otwiera nieco lekkie odrzwia do schowka i wchodzac do ciasnego pomieszczenia ostroznie zamyka za soba ich skrzydlo.' followgo63 = \ - /tbind zejdz do piwnicy + /tbind zejdz do piwnicy /def -mregexp -Fp2 -t'rusza na gore po stromych ciemnych schodkach' followgo64 = \ - /tbind wejdz na gore + /tbind wejdz na gore /def -p2 -t'Przed zachodnia brama Crimmor.' stop0 = \ - /set lwgo=0 %;\ - /set auto off + /set lwgo=0 %;\ + /set auto off /def -p2 -t'mala drewniana tabliczka' stop1 = \ - /set lwgo=0 %;\ - /set auto off + /set lwgo=0 %;\ + /set auto off /def -p2 -t'* aby cie dalej niesc*' stop2 = \ - /beep 1 %;\ - /set lwgo=0 %;\ - /set auto off + /beep 1 %;\ + /set lwgo=0 %;\ + /set auto off diff --git a/nightal/sets.tf b/nightal/sets.tf index dcb69d6..e69de29 100644 --- a/nightal/sets.tf +++ b/nightal/sets.tf @@ -1 +0,0 @@ -/eval /set specrd=$[decode_attr("rdy", "BCgreen")] diff --git a/nightal/start.tf b/nightal/start.tf index cf1dd86..9faa640 100644 --- a/nightal/start.tf +++ b/nightal/start.tf @@ -1,9 +1,3 @@ -/eval /echo -/eval /echo -p @{C%c_crit_bold}NIGHTAL OBECNIE NIE JEST WSPIERANY. NIE POJAWIAJA SIE ZADNE AKTUALIZACJE -/eval /echo -p @{C%c_crit_bold} SKRYPTOW, A STARE NIE SA KOMPATYBILNE ZE ZMIANAMI W RESZCIE KODU! -/eval /echo -/exit - /load colors.tf /load combat.tf /load equipment.tf diff --git a/nightal/statusbar.tf b/nightal/statusbar.tf index 70c7db2..cb03346 100644 --- a/nightal/statusbar.tf +++ b/nightal/statusbar.tf @@ -1,34 +1,33 @@ /visual on -/eval /set statusline=$[strrep(decode_attr("-", "BCwhite"),columns())] +/eval /set statusline=$[strrep(decode_attr("-", {zc_bold}),columns())] /eval /set spacebreak=$[strrep(' ',columns()-141)] /def ack = \ - /set alarm=$[decode_attr("none", "BCgreen")] %;\ - /set bindings= %;\ - /undef tempbind + /set alarm=$[decode_attr("none", {zc_main})] %;\ + /set blokowanko=[ ]%;\ + /set warningstat=[ ]%;\ + /set bindings=%;\ + /set wskazanie=%;\ + /undef tempbind -/def -Fp2 -mregexp -t'tes( fizycznie|) w swietnej kondycji' kon1 = /set kondycja=$[strcat("[", decode_attr(" ", "Cbggreen"), "] ")] -/def -Fp2 -mregexp -t'tes( fizycznie|) w dobrym stanie' kon2 = /set kondycja=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'tes( fizycznie|) lekko rann.' kon3 = /set kondycja=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'tes( fizycznie|) rann.' kon4 = /set kondycja=$[strcat("[", decode_attr(" ", "Cbgyellow"), " ] ")] -/def -Fp2 -mregexp -t'tes( fizycznie|) w zlej kondycji' kon5 = /set kondycja=$[strcat("[", decode_attr(" ", "Cbgyellow"), " ] ")] -/def -Fp2 -mregexp -t'tes( fizycznie|) ciezko rann.' kon6 = /set kondycja=$[strcat("[", decode_attr(" ", "Cbgred"), " ] ")] -/def -Fp2 -mregexp -t'tes( fizycznie|) ledwo zyw.' kon7 = /set kondycja=$[strcat("[", decode_attr(" L E D W O ", "BCbgred"),"]")] +/def -Fp3 -mregexp -t'tes( fizycznie|) w swietnej kondycji' kon1 = /set kondycja=$[strcat("[", decode_attr(" ", {zc_main_background}), "] ")] +/def -Fp3 -mregexp -t'tes( fizycznie|) w dobrym stanie' kon2 = /set kondycja=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -Fp3 -mregexp -t'tes( fizycznie|) lekko rann.' kon3 = /set kondycja=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -Fp3 -mregexp -t'tes( fizycznie|) rann.' kon4 = /set kondycja=$[strcat("[", decode_attr(" ", {zc_alarm_background}), " ] ")] +/def -Fp3 -mregexp -t'tes( fizycznie|) w zlej kondycji' kon5 = /set kondycja=$[strcat("[", decode_attr(" ", {zc_alarm_background}), " ] ")] +/def -Fp3 -mregexp -t'tes( fizycznie|) ciezko rann.' kon6 = /set kondycja=$[strcat("[", decode_attr(" ", {zc_crit_background}), " ] ")] +/def -Fp3 -mregexp -t'tes( fizycznie|) ledwo zyw.' kon7 = /set kondycja=$[strcat("[", decode_attr(decode_attr(" L E D W O ", {zc_bold}), {zc_crit_background}),"]")] -/def -Fp2 -mregexp -t'i jestes w pelni wypoczet.' zmecz0 = /eval /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbggreen"), "] ")] -/def -Fp2 -mregexp -t'i jestes wypoczet.' zmecz1 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'i jestes troche zmeczon.' zmecz2 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'i jestes zmeczon.' zmecz3 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'i jestes bardzo zmeczon.' zmecz4 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'i jestes nieco wyczerpan.' zmecz5 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbggreen"), " ] ")] -/def -Fp2 -mregexp -t'i jestes wyczerpan.' zmecz6 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbgyellow"), " ] ")] -/def -Fp2 -mregexp -t'i jestes bardzo wyczerpan.' zmecz7 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbgyellow"), " ] ")] -/def -Fp2 -mregexp -t'i jestes wycienczon.' zmecz8 = /set zmeczenie=$[strcat("[", decode_attr(" ", "Cbgred"), " ] ")] -/def -Fp2 -mregexp -t'i jestes calkowicie wycienczon.' zmecz9 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")] - -/def -Fp2 -mregexp -t'nie mozesz dalej podazac' zmecz10 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")] -/def -Fp2 -mregexp -t'Czujesz sie smiertelnie zmeczony' zmecz11 = /set zmeczenie=$[strcat("[", decode_attr("C A L K O W I C I E ", "BCbgred"), "]")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) wypoczet.' zmecz1 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) troche zmeczon.' zmecz2 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) zmeczon.' zmecz3 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) bardzo zmeczon.' zmecz4 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) nieco wyczerpan.' zmecz5 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_main_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) wyczerpan.' zmecz6 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_alarm_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) bardzo wyczerpan.' zmecz7 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_alarm_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) wycienczon.' zmecz8 = /set zmeczenie=$[strcat("[", decode_attr(" ", {zc_crit_background}), " ] ")] +/def -p2 -mregexp -t'(i jestes|Czujesz sie|Jestes) calkowicie wycienczon.|nie mozesz dalej podazac |Czujesz sie (smiertelnie|ekstremalnie) zmeczon' zmecz9 = /set zmeczenie=$[strcat("[", decode_attr(decode_attr(" C A L K O W I C I E ", {zc_bold}), {zc_crit_background}), "]")] /def -Fp2 -mregexp -t'((Jest|Sa) tutaj ([^ ]*) (widoczne|widocznych) (wyjsc|wyjscia|wyjscie): |Trakt wiedzie na |W mroku nocy dostrzegasz .* widoczn(e|ych) wyjsc(|ia|ie): |Trakt rozgalezia sie na |W gestych ciemnosciach dostrzegasz trakt wiodacy na |W gestych ciemnosciach dostrzegasz, ze trakt rozgalezia sie na |Sciezka prowadzi tutaj w .* (kierunkach|kierunku): |Szlak.* tutaj w .* kierunk.*: |Wyjsc.* prowadz.* tutaj w .* (kierunkach|kierunku): |Tunel.* ciagn.* na |Wedrowke przez rozlegle laki mozesz kontynuowac udajac sie na |W panujacym tu polmroku zauwazasz .*: |Wedrujac po gorach zauwazasz, ze jedyne widoczne wyjscia stad prowadza na |W trudnym gorskim terenie udaje ci sie spostrzec jedno jedyne wyjscie prowadzace na |Gorski teren nie nalezy do zbyt przyjaznych, lecz udaje ci sie spostrzec wyjscia prowadzace na )' widoczne_wyjscia = /_wyjscia_z_lokacji %{PR} @@ -37,209 +36,228 @@ /def _first = /result {1} /def _all_but_first = /result {-1} /def _wyjscia_z_lokacji = \ - /quote -S /unset `/listvar -s czy_kierunek_jest* %;\ - /let w_z_l=%{*}%; \ - /let pnum=%{#}%; \ - /let i=0%; \ - /let w_zn_t=%; \ - /let wyjscia_z_lokacji_t=%; \ - /set idzna_ile_wyjsc=-1%; \ - /if (strstr({w_z_l},".")>=0) \ - /let w_z_l=$[strcat(substr({w_z_l},0,strlen({w_z_l})-1))]%; \ - /endif%; \ - /while /let i=$[i+1]%; /@test i<=pnum%; /do \ - /let w_zn=$(/_first %{w_z_l})%; \ - /if (strstr({w_zn},",")>=0) \ - /let w_zn=$[strcat(substr({w_zn},0,strlen({w_zn})-1))]%; \ - /endif%;\ - /if ({w_zn}=~"polnoc")\ - /if ({lwlast}=~"s")\ - /set czy_kierunek_jest_n=$[decode_attr("|", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_n=$[decode_attr("|", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"poludnie")\ - /if ({lwlast}=~"n")\ - /set czy_kierunek_jest_s=$[decode_attr("|", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_s=$[decode_attr("|", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"wschod")\ - /if ({lwlast}=~"w")\ - /set czy_kierunek_jest_e=$[decode_attr("-", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_e=$[decode_attr("-", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"zachod")\ - /if ({lwlast}=~"e")\ - /set czy_kierunek_jest_w=$[decode_attr("-", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_w=$[decode_attr("-", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"polnocny-wschod")\ - /if ({lwlast}=~"sw")\ - /set czy_kierunek_jest_ne=$[decode_attr("/", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_ne=$[decode_attr("/", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"polnocny-zachod")\ - /if ({lwlast}=~"se")\ - /set czy_kierunek_jest_nw=$[decode_attr("\\", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_nw=$[decode_attr("\\", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"poludniowy-wschod")\ - /if ({lwlast}=~"nw")\ - /set czy_kierunek_jest_se=$[decode_attr("\\", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_se=$[decode_attr("\\", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"poludniowy-zachod")\ - /if ({lwlast}=~"ne")\ - /set czy_kierunek_jest_sw=$[decode_attr("/", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_sw=$[decode_attr("/", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"gora")\ - /if ({lwlast}=~"d")\ - /set czy_kierunek_jest_u=$[decode_attr("U", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_u=$[decode_attr("U", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"dol")\ - /if ({lwlast}=~"u")\ - /set czy_kierunek_jest_d=$[decode_attr("D", "BCgreen")]%;\ - /else \ - /set czy_kierunek_jest_d=$[decode_attr("D", "BCyellow")]%;\ - /endif %;\ - /elseif ({w_zn}=~"wyjscie") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"most") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"drzwi") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"schody") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"targ") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"wieza") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"bank") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"poczta") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"karczma") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"sklep") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"ulica") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"bazar") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"stragan") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"kuznia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"zaklad") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"piekarnia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"sala") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"stajnia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"krzaki") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"drzwiczki") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"schodki") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"sciezka") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"tawerna") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"miasto") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"palac") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"trakt") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"baszta") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"gmach") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"kuchnia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"wrota") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"swiatynia") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"szpital") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"korytarz") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"zaplecze") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"podworko") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"restauracja") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"komnata") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"faktoria") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /elseif ({w_zn}=~"kantorek") /set czy_kierunek_jest_inne=$[decode_attr("X", "BCyellow")]%;\ - /else \ - /let w_zn_t=?%; \ - /endif%; \ - /let wyjscia_z_lokacji_t=%{wyjscia_z_lokacji_t} %{w_zn_t} %; \ - /let w_z_l=$(/_all_but_first %{w_z_l})%; \ - /set idzna_ile_wyjsc=$[{idzna_ile_wyjsc} + 1]%; \ - /done%; \ - /set wyjscia_z_lokacji=%{wyjscia_z_lokacji_t} + /quote -S /unset `/listvar -s czy_kierunek_jest* %;\ + /let w_z_l_input=%{*}%;\ + /let w_z_l=$[replace(". Mozna jednak z niego zejsc i udac sie na ", " ", {w_z_l_input})] %;\ + /let pnum=%{#}%; \ + /let i=0%; \ + /let w_zn_t=%; \ + /let wyjscia_z_lokacji_t=%; \ + /set idzna_ile_wyjsc=-1%; \ + /if (strstr({w_z_l},".")>=0) \ + /let w_z_l=$[strcat(substr({w_z_l},0,strlen({w_z_l})-1))]%; \ + /endif%; \ + /while /let i=$[i+1]%; /@test i<=pnum%; /do \ + /let w_zn=$(/_first %{w_z_l})%; \ + /if (strstr({w_zn},",")>=0) \ + /let w_zn=$[strcat(substr({w_zn},0,strlen({w_zn})-1))]%; \ + /endif%;\ + /if ({w_zn}=~"polnoc")\ + /if ({lwlast}=~"s")\ + /set czy_kierunek_jest_n=$[decode_attr("|", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_n=$[decode_attr("|", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"poludnie")\ + /if ({lwlast}=~"n")\ + /set czy_kierunek_jest_s=$[decode_attr("|", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_s=$[decode_attr("|", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"wschod")\ + /if ({lwlast}=~"w")\ + /set czy_kierunek_jest_e=$[decode_attr("-", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_e=$[decode_attr("-", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"zachod")\ + /if ({lwlast}=~"e")\ + /set czy_kierunek_jest_w=$[decode_attr("-", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_w=$[decode_attr("-", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"polnocny-wschod")\ + /if ({lwlast}=~"sw")\ + /set czy_kierunek_jest_ne=$[decode_attr("/", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_ne=$[decode_attr("/", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"polnocny-zachod")\ + /if ({lwlast}=~"se")\ + /set czy_kierunek_jest_nw=$[decode_attr("\\", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_nw=$[decode_attr("\\", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"poludniowy-wschod")\ + /if ({lwlast}=~"nw")\ + /set czy_kierunek_jest_se=$[decode_attr("\\", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_se=$[decode_attr("\\", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"poludniowy-zachod")\ + /if ({lwlast}=~"ne")\ + /set czy_kierunek_jest_sw=$[decode_attr("/", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_sw=$[decode_attr("/", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"gora")\ + /if ({lwlast}=~"d")\ + /set czy_kierunek_jest_u=$[decode_attr("U", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_u=$[decode_attr("U", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"dol")\ + /if ({lwlast}=~"u")\ + /set czy_kierunek_jest_d=$[decode_attr("D", {zc_main_bold})]%;\ + /else \ + /set czy_kierunek_jest_d=$[decode_attr("D", {zc_alarm})]%;\ + /endif %;\ + /elseif ({w_zn}=~"wyjscie") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"most") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"drzwi") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"schody") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"targ") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"wieza") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"bank") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"poczta") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"karczma") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"sklep") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"ulica") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"bazar") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"stragan") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"kuznia") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"zaklad") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"piekarnia") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"sala") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"stajnia") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"krzaki") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"drzwiczki") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"schodki") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"sciezka") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"tawerna") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"miasto") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"palac") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"trakt") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"baszta") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"gmach") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"kuchnia") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"wrota") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"swiatynia") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"szpital") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"korytarz") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"zaplecze") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"podworko") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"restauracja") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"komnata") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"faktoria") /set czy_kierunek_jest_inne=X%;\ + /elseif ({w_zn}=~"kantorek") /set czy_kierunek_jest_inne=X%;\ + /else \ + /let w_zn_t=?%; \ + /endif%; \ + /let wyjscia_z_lokacji_t=%{wyjscia_z_lokacji_t} %{w_zn_t} %; \ + /let w_z_l=$(/_all_but_first %{w_z_l})%; \ + /set idzna_ile_wyjsc=$[{idzna_ile_wyjsc} + 1]%; \ + /done%; \ + /set wyjscia_z_lokacji=%{wyjscia_z_lokacji_t} /def -mregexp -Fp2 -t'(Zaslaniasz|Nie udaje ci sie zaslonic|Probujesz zaslonic) .* przed ciosami wrogow.' zaslo1 = \ - /_odliczaj_zaslone_5 + /_odliczaj_zaslone_5 /def -mregexp -Fp2 -t'(Zaslaniasz|Nie udaje ci sie zaslonic|Probujesz zaslonic) .* przed ciosami (.* .*|[A-Z]*).' zaslo2 = \ - /_odliczaj_zaslone_8 + /_odliczaj_zaslone_8 /def -mregexp -Fp2 -t'wypowiadasz rozkaz' = \ - /_odliczaj_rozkaz + /_odliczaj_rozkaz /def -mregexp -Fp2 -t'(probujesz|obijasz|siniaczysz) .* (noga|stopa|lokciem|piescia|kolanem)' _bez_broni = \ - /set alarm=$[decode_attr("WALKA BEZ BRONI","BCyellow")] + /set alarm=$[decode_attr("WALKA BEZ BRONI",{zc_alarm})] /def -mregexp -Fp2 -t'(Wystarczy moment nieuwagi, chwila rozproszenia bys nie|Niespodziewanie z gruntu pod twoimi stopami wytryskuje strumien roslinnych pedow oraz korzeni!)' _stun = \ - /set warningstat=$[strcat("[", decode_attr(" --* OGLUSZENIE *-- ", "BCbgblue"), "] ")] + /set warningstat=$[strcat("[", decode_attr(decode_attr(" --* OGLUSZENIE *-- ", {zc_bold}), {zc_crit_background}), "] ")] /def -mregexp -p2 -t'(Czujesz, ze paraliz minal|Konczysz paralyze)' _nostun = \ - /set warningstat=$[strcat("[", decode_attr(" ", "Cgreen"), "] ")] + /set warningstat=[ ] /def -mregexp -Fp2 -t'skupia na chwile swoj wzrok na tobie' _zniewolenie = \ - /set alarm=$[decode_attr("ODLOZONY SPRZET","BCyellow")] + /set alarm=$[decode_attr("ODLOZONY SPRZET",{zc_alarm})] -/def -mregexp -Fp2 -t'wytraca ci ' _wytracenie = \ - /set warningstat=$[strcat("[", decode_attr(" --* WYTRACENIE *-- ", "BCbgred"), "] ")] +/def -mregexp -Fp2 -t'.* wytraca ci ' _wytracenie = \ + /set warningstat=$[strcat("[", decode_attr(decode_attr(" --* WYTRACENIE *-- ", {zc_bold}), {zc_crit_background}), "] ")]%;\ + /set weaponstat=!!!%;\ + /status_edit -r3 weaponstat:4:C%c_crit /def -mregexp -p2 -t'Czujesz, jak krew w twoch dloniach krazy coraz predzej i odretwienie ustepuje.' _nowytracenie = \ - /set warningstat=$[strcat("[", decode_attr(" DOBADZ BRONI -- F2 ", "BCbgblue"), "] ")] %;\ - /def key_f2 = dobadz broni %%; /set warningstat=$[strcat("[", decode_attr(" ", "Cgreen"), "] ")] %%; /set alarm=$[decode_attr("none", "BCgreen")] + /set warningstat=$[strcat("[", decode_attr(decode_attr(" DOBADZ BRONI -- F2 ", {zc_bold}), {zc_blue}), "] ")] %;\ + /def key_f2 = \ + dobadz broni %%; \ + /set warningstat=[ ] %%;\ + /set alarm=$[decode_attr("none", {zc_main})] + +/def -mregexp -Fp2 -t'(Dobywasz|Wiedziony naglym instynktem siegasz|Trzymasz.*(w prawej|w lewej|oburacz))' weapon_on = \ + /set weaponstat=ON%;\ + /status_edit -r3 weaponstat:4:C%c_alarm + +/def -mregexp -Fp2 -t'(^Opuszczasz | ogarniajac wzrokiem cala okolice)' weapon_off = \ + /set weaponstat=off%;\ + /status_edit -r3 weaponstat:4:C%c_main + +/def -ar -mregexp -Fp2 -t'^(?:(?!dzierzon).)*peka!$' weapon_break = \ + /beep 1%;\ + /set weaponstat=!!!%;\ + /status_edit -r3 weaponstat:4:C%c_crit /def _odliczaj_zaslone_5 = \ - /set nxt_zaslona=$[strcat(decode_attr("5", "BCred"))]%;\ - /repeat -00:00:01 1 /set nxt_zaslona=$$[strcat(decode_attr("4", "BCred"))]%;\ - /repeat -00:00:02 1 /set nxt_zaslona=$$[strcat(decode_attr("3", "BCred"))]%;\ - /repeat -00:00:03 1 /set nxt_zaslona=$$[strcat(decode_attr("2", "BCyellow"))]%;\ - /repeat -00:00:04 1 /set nxt_zaslona=$$[strcat(decode_attr("1", "BCyellow"))]%;\ - /repeat -00:00:05 1 /set nxt_zaslona=$$[strcat(decode_attr("rdy", "BCgreen"))] + /set nxt_zaslona=$[strcat(decode_attr("5", {zc_crit}))]%;\ + /repeat -00:00:01 1 /set nxt_zaslona=$$[strcat(decode_attr("4", {zc_crit}))]%;\ + /repeat -00:00:02 1 /set nxt_zaslona=$$[strcat(decode_attr("3", {zc_crit}))]%;\ + /repeat -00:00:03 1 /set nxt_zaslona=$$[strcat(decode_attr("2", {zc_alarm}))]%;\ + /repeat -00:00:04 1 /set nxt_zaslona=$$[strcat(decode_attr("1", {zc_alarm}))]%;\ + /repeat -00:00:05 1 /set nxt_zaslona=$$[strcat(decode_attr("ready", {zc_main}))] /def _odliczaj_zaslone_8 = \ - /set nxt_zaslona=$[strcat(decode_attr("8", "BCred"))]%;\ - /repeat -00:00:01 1 /set nxt_zaslona=$$[strcat(decode_attr("7", "BCred"))]%;\ - /repeat -00:00:02 1 /set nxt_zaslona=$$[strcat(decode_attr("6", "BCred"))]%;\ - /repeat -00:00:03 1 /set nxt_zaslona=$$[strcat(decode_attr("5", "BCred"))]%;\ - /repeat -00:00:04 1 /set nxt_zaslona=$$[strcat(decode_attr("4", "BCred"))]%;\ - /repeat -00:00:05 1 /set nxt_zaslona=$$[strcat(decode_attr("3", "BCyellow"))]%;\ - /repeat -00:00:06 1 /set nxt_zaslona=$$[strcat(decode_attr("2", "BCyellow"))]%;\ - /repeat -00:00:07 1 /set nxt_zaslona=$$[strcat(decode_attr("1", "BCyellow"))]%;\ - /repeat -00:00:08 1 /set nxt_zaslona=$$[strcat(decode_attr("rdy", "BCgreen"))] + /set nxt_zaslona=$[strcat(decode_attr("8", {zc_crit}))]%;\ + /repeat -00:00:01 1 /set nxt_zaslona=$$[strcat(decode_attr("7", {zc_crit}))]%;\ + /repeat -00:00:02 1 /set nxt_zaslona=$$[strcat(decode_attr("6", {zc_crit}))]%;\ + /repeat -00:00:03 1 /set nxt_zaslona=$$[strcat(decode_attr("5", {zc_crit}))]%;\ + /repeat -00:00:04 1 /set nxt_zaslona=$$[strcat(decode_attr("4", {zc_crit}))]%;\ + /repeat -00:00:05 1 /set nxt_zaslona=$$[strcat(decode_attr("3", {zc_alarm}))]%;\ + /repeat -00:00:06 1 /set nxt_zaslona=$$[strcat(decode_attr("2", {zc_alarm}))]%;\ + /repeat -00:00:07 1 /set nxt_zaslona=$$[strcat(decode_attr("1", {zc_alarm}))]%;\ + /repeat -00:00:08 1 /set nxt_zaslona=$$[strcat(decode_attr("ready", {zc_main}))] /def _odliczaj_rozkaz = \ - /set nxt_order=$[strcat(decode_attr("10", "BCred"))]%;\ - /repeat -00:00:01 1 /set nxt_order=$$[strcat(decode_attr("9", "BCred"))]%;\ - /repeat -00:00:02 1 /set nxt_order=$$[strcat(decode_attr("8", "BCred"))]%;\ - /repeat -00:00:03 1 /set nxt_order=$$[strcat(decode_attr("7", "BCred"))]%;\ - /repeat -00:00:04 1 /set nxt_order=$$[strcat(decode_attr("6", "BCred"))]%;\ - /repeat -00:00:05 1 /set nxt_order=$$[strcat(decode_attr("5", "BCred"))]%;\ - /repeat -00:00:06 1 /set nxt_order=$$[strcat(decode_attr("4", "BCred"))]%;\ - /repeat -00:00:07 1 /set nxt_order=$$[strcat(decode_attr("3", "BCred"))]%;\ - /repeat -00:00:08 1 /set nxt_order=$$[strcat(decode_attr("2", "BCred"))]%;\ - /repeat -00:00:09 1 /set nxt_order=$$[strcat(decode_attr("1", "BCred"))]%;\ - /repeat -00:00:10 1 /set nxt_order=$$[strcat(decode_attr("rdy", "BCgreen"))] + /set nxt_order=$[strcat(decode_attr("10", {zc_crit}))]%;\ + /repeat -00:00:01 1 /set nxt_order=$$[strcat(decode_attr("9", {zc_crit}))]%;\ + /repeat -00:00:02 1 /set nxt_order=$$[strcat(decode_attr("8", {zc_crit}))]%;\ + /repeat -00:00:03 1 /set nxt_order=$$[strcat(decode_attr("7", {zc_crit}))]%;\ + /repeat -00:00:04 1 /set nxt_order=$$[strcat(decode_attr("6", {zc_crit}))]%;\ + /repeat -00:00:05 1 /set nxt_order=$$[strcat(decode_attr("5", {zc_crit}))]%;\ + /repeat -00:00:06 1 /set nxt_order=$$[strcat(decode_attr("4", {zc_crit}))]%;\ + /repeat -00:00:07 1 /set nxt_order=$$[strcat(decode_attr("3", {zc_crit}))]%;\ + /repeat -00:00:08 1 /set nxt_order=$$[strcat(decode_attr("2", {zc_crit}))]%;\ + /repeat -00:00:09 1 /set nxt_order=$$[strcat(decode_attr("1", {zc_crit}))]%;\ + /repeat -00:00:10 1 /set nxt_order=$$[strcat(decode_attr("ready", {zc_main}))] /eval /status_add -c -r0 statusline:: /eval /status_add -c -r1 "[ " czy_kierunek_jest_nw:1 czy_kierunek_jest_n:1 czy_kierunek_jest_ne:2 czy_kierunek_jest_u:1 " ] ":: /eval /status_add -r1 "K: ":: kondycja:24 -/eval /status_add -r1 "Z: ":: zmeczenie:22 -/eval /status_add -r1 "Hide: ":: hide:3:BC%kolor_main -/eval /status_add -r1 " Sneak: ":: sneak:4:BC%kolor_main -/eval /status_add -r1 "Mail: ":: poczta_show:5:BC%kolor_main -/eval /status_add -r1 spacebreak:: -/eval /status_add -r1 "Time: ":: @clock:5:C%kolor_main +/eval /status_add -r1 "Z: ":: zmeczenie:24 +/eval /status_add -r1 "Hidden: ":: hide:4:C%c_main +/eval /status_add -r1 " Cover: ":: nxt_zaslona:5 +/eval /status_add -r1 "Mail: ":: poczta_show:5:C%c_main -/eval /status_add -c -r2 "[ ":: czy_kierunek_jest_w:1 "#":1:BC%kolor_alarm czy_kierunek_jest_e:2 czy_kierunek_jest_d:1 " ] ":: -/eval /status_add -r2 "R: [ ":: rozkaz_ataku:46:BC%kolor_alarm -/eval /status_add -r2 "] Zasl: ":: nxt_zaslona:4 -/eval /status_add -r2 "Order: ":: nxt_order:4 +/eval /status_add -c -r2 "[ ":: czy_kierunek_jest_w:1 "#":1:C%c_alarm czy_kierunek_jest_e:2 czy_kierunek_jest_d:1 " ] ":: +/eval /status_add -r2 "B: ":: blokowanko:24 +/eval /status_add -r2 "W: ":: warningstat:24 +/eval /status_add -r2 "Sneaky: ":: sneak:4:C%c_main +/eval /status_add -r2 "Order: ":: nxt_order:5 /eval /status_add -r2 "Warn: ":: alarm:20 /eval /status_add -c -r3 "[ ":: czy_kierunek_jest_sw:1 czy_kierunek_jest_s:1 czy_kierunek_jest_se:2 czy_kierunek_jest_inne:1 " ] ":: -/eval /status_add -r3 " ":53 -/eval /status_add -r3 "Bind: ":: bindings:35:BC%kolor_info +/eval /status_add -r3 "R: [ ":: wskazanie:47:C%c_alarm +/eval /status_add -r3 "] Weapon: ":: weaponstat:4:C%c_main +/eval /status_add -r3 "tBind: ":: bindings:35:C%c_info /eval /status_add -r3 spacebreak:: -/eval /status_add -r3 ownkills:3:BC%kolor_main -/eval /status_add -r3 "/ ":: allkills:3:BC%kolor_main +/eval /status_add -r3 ownkills:3:C%c_main +/eval /status_add -r3 "/ ":: allkills:3:C%c_main diff --git a/nightal/substitute.tf b/nightal/substitute.tf index 79ac7f9..5c465fa 100644 --- a/nightal/substitute.tf +++ b/nightal/substitute.tf @@ -1,3 +1,6 @@ +;; self +/def -mregexp -Fp3 -t' ty(, | i )' _selfupper=/test substitute(strcat({PL}, decode_attr(" --TY--", {zc_alarm}), {P1}, {PR})) + /eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na zagubion.* ml.*' _poziomy_doswiadczenia_1 = /_sub 1/18 /eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na niedorajde stawiajac.* pierwsze.*' _poziomy_doswiadczenia_2 = /_sub 2/18 /eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na nieobeznan.* z drogami .*' _poziomy_doswiadczenia_3 = /_sub 3/18 @@ -18,72 +21,421 @@ /eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na tak.* co w pojedynke .*' _poziomy_doswiadczenia_18 = /_sub 18/18 /def -mregexp -Fp2 -t'( dzga | powaznie tnie | lekko nakluwa | bardzo gleboko przebija | przebija niemal na wylot | siniaczy | tylko nacina | lekko tnie | gleboko tnie | bardzo mocno tnie | smiercionosnie tnie | powaznie kluje | gleboko kluje | ledwie zadrapuje | brutalnie tlucze | lekko obija | powaznie obija | mocno uderza )' _cios_tank = \ - /set klew=%PL %;\ - /set kpra=%PR %;\ - /set ktobijelewa=$[replace(" ", "_", {klew})] %;\ - /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\ - /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] + /set klew=%PL %;\ + /set kpra=%PR %;\ + /set ktobijelewa=$[replace(" ", "_", {klew})] %;\ + /eval /set %{ktobijelewa}_kto_bije=%{klew} %;\ + /eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))] /def -mregexp -Fp2 -t'(?>>>>>****** OGLUSZENIE ******<<<<<<@{n} %;\ +/def -mregexp -Fp2 -t'([Jj]est(?:es|)) (w swietnej kondycji|w dobrym stanie|(?:lekko |ciezko |)rann.|w zlej kondycji|ledwo zyw.).$' _sub_kondycja_no_fight = \ + /if ({P2} =~ "w swietnej kondycji")\ + /let _showkondycja=$[strcat(decode_attr("#######", {zc_main}))]%;\ + /elseif ({P2} =~ "w dobrym stanie")\ + /let _showkondycja=$[strcat(decode_attr("###### ", {zc_main}))]%;\ + /elseif ({P2} =/ "lekko rann*")\ + /let _showkondycja=$[strcat(decode_attr("##### ", {zc_main}))]%;\ + /elseif ({P2} =/ "rann*")\ + /let _showkondycja=$[strcat(decode_attr("#### ", {zc_alarm}))]%;\ + /elseif ({P2} =~ "w zlej kondycji")\ + /let _showkondycja=$[strcat(decode_attr("### ", {zc_alarm}))]%;\ + /elseif ({P2} =/ "ciezko rann*")\ + /let _showkondycja=$[strcat(decode_attr("## ", {zc_crit}))]%;\ + /elseif ({P2} =/ "ledwo zyw*")\ + /let _showkondycja=$[strcat(decode_attr(decode_attr("-LEDWO-", {zc_bold}), {zc_crit_background}))]%;\ + /endif %;\ + /if ({P1} =~ "Jestes")\ + /return substitute(strcat("[", {_showkondycja}, "] ", {PL}, decode_attr("### TY ### ", {zc_alarm}), {P2}, ".", {PR}))%;\ + /else \ + /return substitute(strcat("[", {_showkondycja}, "] ", {PL}, {P1}, " ", {P2}, ".", {PR}))%;\ + /endif -/def -mregexp -Fp2 -t'Nagle z rur umieszczonych pod sufitem zaczyna tryskac zielona substancja' sub_kwas = \ - /echo %;\ - /echo -p @{B}>>>>>>****** KWAS ******<<<<<<@{n} %;\ - /echo +;; pojemniki +; 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 - 46 - %{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 - 46 - %{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("@{nC%c_bold}", {1}))) %;\ + /elseif ({1} =~ "wiele" | {1} =~ "wielu") \ + /test echo("X") %;\ + /else \ + /test echo(1) %;\ + /endif + +;; umiętności +; by Ingwar +/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 + +/alias um /um bojowe%; /repeat -0.1 1 /um ogolne%; /repeat -0.2 1 /um zlodziejskie %; /repeat -0.4 1 /um magiczne %;\ + /repeat -0.5 1 /echo +-------------------------------------------------------------------------------+ %;\ + /repeat -0.6 1 /send um praktyczne %;\ + /repeat -0.7 1 /send um jezykowe diff --git a/nightal/warn.tf b/nightal/warn.tf index 03f8941..b92bd83 100644 --- a/nightal/warn.tf +++ b/nightal/warn.tf @@ -1,7 +1,23 @@ -/def -mregexp -Fp2 -t'przekazuje ci dowodzenie nad druzyna' warn_lead = \ - /beep 1 %;\ - /echo %;\ - /echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ - /echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ - /echo -p @{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{BCwhite}--- PROWADZISZ ---@{n}@{BC%kolor_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ - /echo +/def -mregexp -Fp2 -t'przekazuje ci prowadzenie' warn_lead = \ + /beep 1 %;\ + /echo %;\ + /echo -p @{C%c_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- PROWADZISZ ---@{n}@{C%c_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo -p @{C%c_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- PROWADZISZ ---@{n}@{C%c_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo -p @{C%c_alarm}XXXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- PROWADZISZ ---@{n}@{C%c_alarm}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo + +/def -mregexp -Fp2 -t'Impet .* ciosu sprawia ze pada .* na ziemie' sub_ogluszenie = \ + /beep 1 %;\ + /echo %;\ + /echo -p @{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- OGLUSZENIE ---@{n}@{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo -p @{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- OGLUSZENIE ---@{n}@{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo -p @{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- OGLUSZENIE ---@{n}@{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo + +/def -mregexp -Fp2 -t'Nagle z rur umieszczonych pod sufitem zaczyna tryskac zielona substancja' sub_kwas = \ + /beep 1 %;\ + /echo %;\ + /echo -p @{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- ! KWAS ! ---@{n}@{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo -p @{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- ! KWAS ! ---@{n}@{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo -p @{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX@{n}@{C%c_bold}--- ! KWAS ! ---@{n}@{C%c_crit_bold}XXXXXXXXXXXXXXXXXXXXXXXXX %;\ + /echo diff --git a/start.tf b/start.tf index 7369d26..dfe98b3 100644 --- a/start.tf +++ b/start.tf @@ -17,6 +17,24 @@ /eval /load %%{priv_dir}/%%{mudworld}/players/%%{player}/%%{player}.tf %%;\ /eval /load %%{priv_dir}/%%{mudworld}/imiona.tf +/def -p20 -q -h'PROMPT *Podaj swoje imie*' nightal_login_hook0 = \ + /purge login_hook* %;\ + /def -mregexp -1 -F -h'SEND ([^ ]*)' login_hook1 = \ + /send %%{P0} %%;\ + /set player=$$[tolower({P0})] %%;\ + /set mudworld=$${world_name} %%;\ + /eval /cd %%{main_dir}/common %%;\ + /_login_sprawdz %%;\ + /load colorscheme.tf %%;\ + /load sets.tf %%;\ + /load start.tf %%;\ + /load init.tf %%;\ + /eval /cd %%{main_dir}/$${world_name} %%;\ + /load sets.tf %%;\ + /load start.tf %%;\ + /eval /load %%{priv_dir}/%%{mudworld}/players/%%{player}/%%{player}.tf %%;\ + /eval /load %%{priv_dir}/%%{mudworld}/players/%%{player}/imiona.tf + /def _login_sprawdz = \ /quote -S -dexec !\ if [ ! -d %{priv_dir}/%{mudworld}/players/%{player} ]; then \