Przeystosowanie nightala do nowego silnika.

This commit is contained in:
Bartek Stalewski 2014-02-14 19:57:26 +01:00
parent 0c4f457800
commit ad13265906
14 changed files with 1144 additions and 1062 deletions

View file

@ -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 )'
/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|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) cie '
/eval /def -mregexp -PC%kolor_fight -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) (?!cie )'
/eval /def -mregexp -PC%c_fightme -Fp5 -t'(Ledwo muskasz|Lekko ranisz|Ranisz|Powaznie ranisz|Bardzo ciezko ranisz|Masakrujesz) '
/eval /def -mregexp -PC%c_fightme -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) cie '
/eval /def -mregexp -PC%c_crit -Fp5 -t' (ledwo muska|lekko muska|niezbyt mocno rani|lekko rani|(?<!powaznie |bardzo ciezko )rani|powaznie rani|bardzo ciezko rani|masakruje) (?!cie )'
; kondycja
/eval /def -PBC%kolor_main -Fp5 -t'w swietnej kondycji'
/eval /def -PBC%kolor_main -Fp5 -t'w dobrym stanie'
/eval /def -PBC%kolor_main -Fp5 -t'lekko rann.'
/eval /def -PBC%kolor_alarm -Fp5 -t' rann.'
/eval /def -PBC%kolor_alarm -Fp5 -t'w zlej kondycji'
/eval /def -PBC%kolor_crit -Fp4 -t'(ciezko rann.)'
;;/eval /def -PBC%kolor_crit -Fp1 -t'ledwo zyw.'
/eval /def -PC%c_main_bold -Fp5 -t'w swietnej kondycji'
/eval /def -PC%c_main_bold -Fp5 -t'w dobrym stanie'
/eval /def -PC%c_main_bold -Fp5 -t'lekko rann.'
/eval /def -PC%c_alarm -Fp5 -t' rann.'
/eval /def -PC%c_alarm -Fp5 -t'w zlej kondycji'
/eval /def -PC%c_crit_bold -Fp4 -t'(ciezko rann.)'
/eval /def -PC%c_crit_bold -Fp1 -t'ledwo zyw.'
; mana
/eval /def -PBC%kolor_main -Fp5 -t'mentalnie w pelni sil'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie lekko oslabion.'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie oslabion.'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie zmeczon.'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie bardzo zmeczon.'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie w zlej kondycji'
/eval /def -PBC%kolor_alarm -Fp5 -t'mentalnie wyczerpan.'
/eval /def -PBC%kolor_crit -Fp5 -t'mentalnie wykonczon.'
/eval /def -PBC%kolor_crit -Fp5 -t'mentalnie u kresu sil'
/eval /def -PC%c_main_bold -Fp5 -t'mentalnie w pelni sil'
/eval /def -PC%c_main_bold -Fp5 -t'mentalnie lekko oslabion.'
/eval /def -PC%c_main_bold -Fp5 -t'mentalnie oslabion.'
/eval /def -PC%c_main_bold -Fp5 -t'mentalnie zmeczon.'
/eval /def -PC%c_alarm -Fp5 -t'mentalnie bardzo zmeczon.'
/eval /def -PC%c_alarm -Fp5 -t'mentalnie w zlej kondycji'
/eval /def -PC%c_alarm -Fp5 -t'mentalnie wyczerpan.'
/eval /def -PC%c_crit_bold -Fp5 -t'mentalnie wykonczon.'
/eval /def -PC%c_crit_bold -Fp5 -t'mentalnie u kresu sil'
; zmeczenie
/eval /def -PBC%kolor_main -Fp5 -t'jestes w pelni wypoczet(y|a)\\.'
/eval /def -PBC%kolor_main -Fp5 -t'jestes wypoczet(y|a)\\.'
/eval /def -PBC%kolor_main -Fp5 -t'jestes troche zmeczon(y|a)\\.'
/eval /def -PBC%kolor_main -Fp5 -t'jestes zmeczon(y|a)\\.'
/eval /def -PBC%kolor_main -Fp5 -t'jestes bardzo zmeczon(y|a)\\.'
/eval /def -PBC%kolor_main -Fp5 -t'jestes nieco wyczerpan(y|a)\\.'
/eval /def -PBC%kolor_alarm -Fp5 -t'jestes wyczerpan(y|a)\\.'
/eval /def -PBC%kolor_alarm -Fp5 -t'jestes bardzo wyczerpan(y|a)\\.'
/eval /def -PBC%kolor_crit -Fp5 -t'jestes wycienczon(y|a)\\.'
/eval /def -PBC%kolor_crit -Fp5 -t'jestes calkowicie wycienczon(y|a)\\.'
/eval /def -PC%c_main_bold -Fp5 -t' w pelni wypoczet(y|a)\\.'
/eval /def -PC%c_main_bold -Fp5 -t' wypoczet(y|a)\\.'
/eval /def -PC%c_main_bold -Fp5 -t' troche zmeczon(y|a)\\.'
/eval /def -PC%c_main_bold -Fp5 -t' zmeczon(y|a)\\.'
/eval /def -PC%c_main_bold -Fp5 -t' bardzo zmeczon(y|a)\\.'
/eval /def -PC%c_main_bold -Fp5 -t' nieco wyczerpan(y|a)\\.'
/eval /def -PC%c_alarm -Fp5 -t' wyczerpan(y|a)\\.'
/eval /def -PC%c_alarm -Fp5 -t' bardzo wyczerpan(y|a)\\.'
/eval /def -PC%c_crit_bold -Fp5 -t' wycienczon(y|a)\\.'
/eval /def -PC%c_crit_bold -Fp5 -t' calkowicie wycienczon(y|a)\\.'
/eval /def -PBC%kolor_crit -Fp5 -t'Jestes tak zmeczon., ze nie mozesz dalej .* w tym kierunku\\.'
/eval /def -PC%c_crit_bold -Fp5 -t'Jestes tak zmeczon., ze nie mozesz dalej .* w tym kierunku\\.'
; postepy
/eval /def -mregexp -Fp5 -PBC%kolor_main -t'(Nie poczynil[ea]s| (.*) postepy)'
/eval /def -mregexp -Fp5 -PC%c_main_bold -t'(Nie poczynil[ea]s| (.*) postepy)'
/eval /def -PBC%kolor_main -Fp5 -t'Dzierzy(sz|) .*'
/eval /def -PC%kolor_main -Fp5 -t'Ma(sz| on| ona) na sobie '
/eval /def -PC%kolor_main -Fp5 -t'Masz przy sobie '
/eval /def -PBC%kolor_main -Fp5 -t'ze jest w znakomitym stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w (dobrym|zlym|bardzo zlym) stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze liczne walki wyryly na .* swoje pietno'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze wymaga natychmiastowej konswerwacji'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze moze peknac w kazdej chwili'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest lekko podniszczon.'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w kiepskim stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest w oplakanym stanie'
/eval /def -PBC%kolor_alarm -Fp5 -t'ze jest gotow. rozpasc sie w kazdej chwili'
/eval /def -PBC%kolor_alarm -Fp5 -t'nie nadaje sie do (ostrzenia|naprawy).'
/eval /def -PC%c_main_bold -Fp5 -t'Dzierzy(sz|) .*'
/eval /def -PC%c_main -Fp5 -t'Ma(sz| on| ona) na sobie '
/eval /def -PC%c_main -Fp5 -t'Masz przy sobie '
/eval /def -PC%c_main_bold -Fp5 -t'ze jest w znakomitym stanie'
/eval /def -PC%c_alarm -Fp5 -t'ze jest w (dobrym|zlym|bardzo zlym) stanie'
/eval /def -PC%c_alarm -Fp5 -t'ze liczne walki wyryly na .* swoje pietno'
/eval /def -PC%c_alarm -Fp5 -t'ze wymaga natychmiastowej konswerwacji'
/eval /def -PC%c_alarm -Fp5 -t'ze moze peknac w kazdej chwili'
/eval /def -PC%c_alarm -Fp5 -t'ze jest lekko podniszczon.'
/eval /def -PC%c_alarm -Fp5 -t'ze jest w kiepskim stanie'
/eval /def -PC%c_alarm -Fp5 -t'ze jest w oplakanym stanie'
/eval /def -PC%c_alarm -Fp5 -t'ze jest gotow. rozpasc sie w kazdej chwili'
/eval /def -PC%c_alarm -Fp5 -t'nie nadaje sie do (ostrzenia|naprawy).'
; poczta
/eval /def -PBC%kolor_main -Fp5 -t'^Nagle, tuz przed toba, z chmury dymu .*'
/eval /def -PBC%kolor_main -Fp5 -t'^Masz now(a|y) .*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Czeka na ciebie .* poczta.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Pozostawia na twojej dloni wiadomosc i.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Podnosisz go i odczepiasz.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Z glosnym trzepotem skrzydel na twoim ramieniu siada.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*agle miedzy twoimi nogami zaczyna platac.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Nie mija chwila gdy ptak przysiada na twoim ramieniu..*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Na twoim przedramieniu niespodziewanie wyladowala snieznobiala pocztowa mewa..*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Dociera do twojego przedramienia, gdzie przystaje, poruszajac lekko ogonem..*'
/eval /def -PBC%kolor_main -Fp5 -t'.*agle tuz pod twoja noge przypelza kolorowa cetkowana zmija i szczerzy groznie kly jadowe..*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Nagle wesolo merdajac ogonkiem przybiega do ciebie.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Czujesz wokol siebie dosc dziwny zapach, ktory kojarzyc moze sie ze zgnilizna.*'
/eval /def -PBC%kolor_main -Fp5 -t'.*Nagle, tuz obok ciebie, w rozblysku ognia pojawia sie ognisty zlosliwy imp, z niechecia wreczajac ci wiadomosc.*'
/eval /def -PC%c_main_bold -Fp5 -t'^Nagle, tuz przed toba, z chmury dymu .*'
/eval /def -PC%c_main_bold -Fp5 -t'^Masz now(a|y) .*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Czeka na ciebie .* poczta.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Pozostawia na twojej dloni wiadomosc i.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Podnosisz go i odczepiasz.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Z glosnym trzepotem skrzydel na twoim ramieniu siada.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*agle miedzy twoimi nogami zaczyna platac.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Nie mija chwila gdy ptak przysiada na twoim ramieniu..*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Na twoim przedramieniu niespodziewanie wyladowala snieznobiala pocztowa mewa..*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Dociera do twojego przedramienia, gdzie przystaje, poruszajac lekko ogonem..*'
/eval /def -PC%c_main_bold -Fp5 -t'.*agle tuz pod twoja noge przypelza kolorowa cetkowana zmija i szczerzy groznie kly jadowe..*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Nagle wesolo merdajac ogonkiem przybiega do ciebie.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Czujesz wokol siebie dosc dziwny zapach, ktory kojarzyc moze sie ze zgnilizna.*'
/eval /def -PC%c_main_bold -Fp5 -t'.*Nagle, tuz obok ciebie, w rozblysku ognia pojawia sie ognisty zlosliwy imp, z niechecia wreczajac ci wiadomosc.*'
; mowienie
/eval /def -mregexp -PBC%kolor_speak -Fp5 -t'(Mowisz|Krzyczysz|Szepczesz)(.*)'
/eval /def -mregexp -PBC%kolor_speak -Fp5 -t'(.*) (mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|wola)((.*)| )do ciebie: (.*)'
/eval /def -mregexp -PC%kolor_speak -Fp5 -t'(.*) ((?-i)mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|wola)(| z (.*)|(.*)|( z (.*) do (?!ciebie))|(.*) do (?!ciebie)): (.*)'
/eval /def -mregexp -PC%c_speak_bold -Fp5 -t'(Mowisz|Krzyczysz|Szepczesz)(.*)'
/eval /def -mregexp -PC%c_speak_bold -Fp5 -t'(.*) (mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|wola)((.*)| )do ciebie: (.*)'
/eval /def -mregexp -PC%c_speak -Fp5 -t'(.*) ((?-i)mowi|krzyczy|szepcze|ryczy|skrzypi|dudni|mruczy|nuci|marudzi|brzeczy|zawodzi|piszczy|jeczy|skrzeczy|zgrzyta|spiewa|warczy|burczy|syczy|grzmi|belkocze pijacko|huczy|mamrocze|wola)(| z (.*)|(.*)|( z (.*) do (?!ciebie))|(.*) do (?!ciebie)): (.*)'
/def glow = \
/def -PBC%kolor_glow -Fp5 -t'%{*}' _glow_%{1}
/def -PC%c_glow -Fp5 -t'%{*}' _glow_%{1}
/def unglow = \
/purge -i _glow_%{*}
; by Ingwar
/set ogolne_skrzynia_dluga=1
/def _skrzynia = \
/purge _skrzynia_trig_* %;\
/if ({ogolne_skrzynia_dluga}==1) \
/def -agC%kolor_info -p2 -mregexp -t'( zawiera(?:|ja)|powieszono) (.+, .+ 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("@{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

View file

@ -14,25 +14,25 @@
/def bz = \
/if ( {pochwa} =~ "on" ) \
/send wyjmij %bron z %pochwa1 %;\
%dobadzcmd broni %;\
%{dobadzcmd-dobadz} broni %;\
/if ( {dual} =~ "on" ) \
/send wyjmij %bron2 z %pochwa2 %;\
%dobadzcmd broni %;\
%{dobadzcmd-dobadz} broni %;\
/endif %;\
/elseif ( {pack} =~ "on" )\
/send wez %bron z %packitem1 %;\
%dobadzcmd broni %;\
%{dobadzcmd-dobadz} broni %;\
/if ( {dual} =~ "on" ) \
/send wez %bron2 z %packitem1 %;\
%dobadzcmd broni %;\
%{dobadzcmd-dobadz} broni %;\
/endif %;\
/else \
/send %dobadzcmd %broni %;\
/send %{dobadzcmd-dobadz} %broni %;\
/if ( {dual} =~ "on" ) \
/send %dobadzcmd %broni2 %;\
/send %{dobadzcmd-dobadz} %broni2 %;\
/endif %;\
/endif %;\
/set alarm=$[decode_attr("none", "BCgreen")]
/eval /set alarm=$[decode_attr("none", {zc_main})]
/def bd = \
/send opusc wszystkie bronie %;\

View file

@ -1,7 +1,7 @@
/def tbind_kon = \
/def key_f4 = %{*} %;\
/beep 1 %;\
/echo -p #@{BC%kolor_info}#@{n}# F4 - @{BC%kolor_info}%{*}@{n}
/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

View file

@ -1,7 +1,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -11,7 +11,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -21,7 +21,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -31,7 +31,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -41,7 +41,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -51,7 +51,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -61,7 +61,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -71,7 +71,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \
@ -81,7 +81,7 @@
/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} %;\
/status_edit -r1 poczta_show:5:C%c_alarm %;\
/if ({poczta_show} !~ 'none' ) \
/set poczta_show=MULTI%;\
/else \

View file

@ -7,7 +7,7 @@
/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
@ -62,12 +62,12 @@
/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. %; \
/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 #@{BC%kolor_info}#@{n}# Dla klienta: @{BC%kolor_info}%{_klient} zl, zysk: @{BC%kolor_info}%{_licz_prowizje}@{n} zl (prowizja: %prowizja\%). %;\
/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

View file

@ -52,19 +52,19 @@
/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

View file

@ -1 +0,0 @@
/eval /set specrd=$[decode_attr("rdy", "BCgreen")]

View file

@ -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

View file

@ -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 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}
@ -38,7 +37,8 @@
/def _all_but_first = /result {-1}
/def _wyjscia_z_lokacji = \
/quote -S /unset `/listvar -s czy_kierunek_jest* %;\
/let w_z_l=%{*}%; \
/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=%; \
@ -54,103 +54,103 @@
/endif%;\
/if ({w_zn}=~"polnoc")\
/if ({lwlast}=~"s")\
/set czy_kierunek_jest_n=$[decode_attr("|", "BCgreen")]%;\
/set czy_kierunek_jest_n=$[decode_attr("|", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_n=$[decode_attr("|", "BCyellow")]%;\
/set czy_kierunek_jest_n=$[decode_attr("|", {zc_alarm})]%;\
/endif %;\
/elseif ({w_zn}=~"poludnie")\
/if ({lwlast}=~"n")\
/set czy_kierunek_jest_s=$[decode_attr("|", "BCgreen")]%;\
/set czy_kierunek_jest_s=$[decode_attr("|", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_s=$[decode_attr("|", "BCyellow")]%;\
/set czy_kierunek_jest_s=$[decode_attr("|", {zc_alarm})]%;\
/endif %;\
/elseif ({w_zn}=~"wschod")\
/if ({lwlast}=~"w")\
/set czy_kierunek_jest_e=$[decode_attr("-", "BCgreen")]%;\
/set czy_kierunek_jest_e=$[decode_attr("-", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_e=$[decode_attr("-", "BCyellow")]%;\
/set czy_kierunek_jest_e=$[decode_attr("-", {zc_alarm})]%;\
/endif %;\
/elseif ({w_zn}=~"zachod")\
/if ({lwlast}=~"e")\
/set czy_kierunek_jest_w=$[decode_attr("-", "BCgreen")]%;\
/set czy_kierunek_jest_w=$[decode_attr("-", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_w=$[decode_attr("-", "BCyellow")]%;\
/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("/", "BCgreen")]%;\
/set czy_kierunek_jest_ne=$[decode_attr("/", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_ne=$[decode_attr("/", "BCyellow")]%;\
/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("\\", "BCgreen")]%;\
/set czy_kierunek_jest_nw=$[decode_attr("\\", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_nw=$[decode_attr("\\", "BCyellow")]%;\
/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("\\", "BCgreen")]%;\
/set czy_kierunek_jest_se=$[decode_attr("\\", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_se=$[decode_attr("\\", "BCyellow")]%;\
/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("/", "BCgreen")]%;\
/set czy_kierunek_jest_sw=$[decode_attr("/", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_sw=$[decode_attr("/", "BCyellow")]%;\
/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", "BCgreen")]%;\
/set czy_kierunek_jest_u=$[decode_attr("U", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_u=$[decode_attr("U", "BCyellow")]%;\
/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", "BCgreen")]%;\
/set czy_kierunek_jest_d=$[decode_attr("D", {zc_main_bold})]%;\
/else \
/set czy_kierunek_jest_d=$[decode_attr("D", "BCyellow")]%;\
/set czy_kierunek_jest_d=$[decode_attr("D", {zc_alarm})]%;\
/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")]%;\
/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%; \
@ -170,76 +170,94 @@
/_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

View file

@ -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
@ -80,10 +83,359 @@
/eval /set %{ktobijelewa}_kto_bije=%{klew} %;\
/eval /set %{ktobijelewa}_kogo_bije=$[strcat(substr({kpra}, 0, strstr({kpra}, " ")))]
/def -mregexp -Fp2 -t'Impet .* ciosu sprawia ze pada .* na ziemie' sub_ogluszenie = \
/echo -p @{BC%kolor_alarm}>>>>>>****** 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

View file

@ -1,7 +1,23 @@
/def -mregexp -Fp2 -t'przekazuje ci dowodzenie nad druzyna' warn_lead = \
/def -mregexp -Fp2 -t'przekazuje ci prowadzenie' 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 -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

View file

@ -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 \