495 lines
26 KiB
HCL
495 lines
26 KiB
HCL
;/def -mregexp -Fp2 -t'(powaznie|gleboko|bardzo mocno|brutalnie|wsciekle|smiercionosnie|przebija).* cie ' _critupper = \
|
|
; /test substitute(strcat({PL}, decode_attr(strcat("!!! ", toupper({P0}), "!!!"), {zc_crit_background}), " ", {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
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na ciekaw.* przygod wedro.*' _poziomy_doswiadczenia_4 = /_sub 4/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na podrozn.* przebywajac.*' _poziomy_doswiadczenia_5 = /_sub 5/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na chwat.* badajac.* kazdy.*' _poziomy_doswiadczenia_6 = /_sub 6/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na znan.* w gospodach .*' _poziomy_doswiadczenia_7 = /_sub 7/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na obeznan.* ze swiatem wedrow.*' _poziomy_doswiadczenia_8 = /_sub 8/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na podrozni.* o swiatowej slawie.*' _poziomy_doswiadczenia_9 = /_sub 9/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na weteran.* przemierzajac.* swiat.*' _poziomy_doswiadczenia_10 = /_sub 10/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na bohater.* zdobywajac.*' _poziomy_doswiadczenia_11 = /_sub 11/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na niedoceni.* w swiecie bohat.*' _poziomy_doswiadczenia_12 = /_sub 12/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na wielce doswiadczon.* bohater.*' _poziomy_doswiadczenia_13 = /_sub 13/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na chwalon.* w swiecie bohater.*' _poziomy_doswiadczenia_14 = /_sub 14/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na oslawion.* w piesniach bohater.*' _poziomy_doswiadczenia_15 = /_sub 15/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na znajac.* niemalze kazda tajemnice.*' _poziomy_doswiadczenia_16 = /_sub 16/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na bohater.* dla ktor.* swiat nie.*' _poziomy_doswiadczenia_17 = /_sub 17/18
|
|
/eval /def -mregexp -Fp2 -t'^Wyglada(|sz) na tak.* co w pojedynke .*' _poziomy_doswiadczenia_18 = /_sub 18/18
|
|
|
|
/def _pref = \
|
|
/return substitute(strcat(decode_attr(strcat("[", {1}, "] ", {PL}, {P0}, {PR}))))
|
|
|
|
/eval /def -mregexp -Fp2 -t'Powiadaja o tobie jakobys byl.* slabsz.* niz kot.' _poziomy_str_1 = /_pref .1/17
|
|
/eval /def -mregexp -Fp2 -t'Mowia, iz z trudem dzwigasz wiadro z woda.' _poziomy_str_2 = /_pref .2/17
|
|
/eval /def -mregexp -Fp2 -t'Uginasz sie pod ciezarem kazdego oburecznego oreza.' _poziomy_str_3 = /_pref .3/17
|
|
/eval /def -mregexp -Fp2 -t'Potrafisz cisnac na calkiem spora odleglosc stolkiem w karczemnej burdzie.' _poziomy_str_4 = /_pref .4/17
|
|
/eval /def -mregexp -Fp2 -t'Bez wysilku potrafisz dzwigac nawet naprawde ciezkie przedmioty.' _poziomy_str_5 = /_pref .5/17
|
|
/eval /def -mregexp -Fp2 -t'Potrafisz wladac nawet najwieksza bronia.' _poziomy_str_6 = /_pref .6/17
|
|
/eval /def -mregexp -Fp2 -t'Potrafil.*bys nauczyc grzecznosci najwiekszego, karczemnego osilka.' _poziomy_str_7 = /_pref .7/17
|
|
/eval /def -mregexp -Fp2 -t'Uchodzisz za mistrza pojedynkow na reke.' _poziomy_str_8 = /_pref .8/17
|
|
/eval /def -mregexp -Fp2 -t'Jestes siln.* niczym gorski niedzwiedz.' _poziomy_str_9 = /_pref .9/17
|
|
/eval /def -mregexp -Fp2 -t'Z latwoscia zginasz w rekach podkowy.' _poziomy_str_10 = /_pref 10/17
|
|
/eval /def -mregexp -Fp2 -t'Czujesz sie tak siln.*, iz moglbys uniesc woz z koniem!' _poziomy_str_11 = /_pref 11/17
|
|
/eval /def -mregexp -Fp2 -t'Masz w sobie sile dziesieciu mezow.' _poziomy_str_12 = /_pref 12/17
|
|
/eval /def -mregexp -Fp2 -t'Masz w sobie sile najslawniejszych herosow.' _poziomy_str_13 = /_pref 13/17
|
|
/eval /def -mregexp -Fp2 -t'Najpotezniejsze biesy obawiaja sie mierzyc sie z toba na reke.' _poziomy_str_14 = /_pref 14/17
|
|
/eval /def -mregexp -Fp2 -t'Twoja niezwykla sila przeszla do legendy.' _poziomy_str_15 = /_pref 15/17
|
|
/eval /def -mregexp -Fp2 -t'Najmocarniejsze byty Faerunu zazdroszcza ci twej wspanialej sily.' _poziomy_str_16 = /_pref 16/17
|
|
/eval /def -mregexp -Fp2 -t'Bez cienia leku powiadaja, iz jestes potezniejsz.* niz sami bogowie!' _poziomy_str_17 = /_pref 17/17
|
|
|
|
/eval /def -mregexp -Fp2 -t'Potrafisz wywrocic sie nawet na calkiem prostej drodze.' _poziomy_dex_1 = /_pref .1/17
|
|
/eval /def -mregexp -Fp2 -t'Lepiej bedzie nie dawac ci do rak procy...' _poziomy_dex_2 = /_pref .2/17
|
|
/eval /def -mregexp -Fp2 -t'Balansowanie na waskich powierzchniach nie jest twoja mocna strona...' _poziomy_dex_3 = /_pref .3/17
|
|
/eval /def -mregexp -Fp2 -t'Bez wiekszych problemow trafiasz kamieniem do celu.' _poziomy_dex_4 = /_pref .4/17
|
|
/eval /def -mregexp -Fp2 -t'Byl.*bys w stanie balansowac na rejach niczym doswiadczony zeglarz.' _poziomy_dex_5 = /_pref .5/17
|
|
/eval /def -mregexp -Fp2 -t'Gdybys zechcial.*, mogl.*bys spokojnie naciagac mieszczuchow w grze w .trzy kubki..' _poziomy_dex_6 = /_pref .6/17
|
|
/eval /def -mregexp -Fp2 -t'Swa zrecznoscia dorownujesz zwinnosci cyrkowcow i zonglerow.' _poziomy_dex_7 = /_pref .7/17
|
|
/eval /def -mregexp -Fp2 -t'Plotka glosi, iz zestrzelil.*bys jablko z glowy wlasnego syna.' _poziomy_dex_8 = /_pref .8/17
|
|
/eval /def -mregexp -Fp2 -t'Powiadaja, iz masz kocia zrecznosc i ze zawsze spadasz na cztery lapy.' _poziomy_dex_9 = /_pref .9/17
|
|
/eval /def -mregexp -Fp2 -t'Masz refleks akrobaty z prawdziwego zdarzenia.' _poziomy_dex_10 = /_pref 10/17
|
|
/eval /def -mregexp -Fp2 -t'Jestes w stanie przescignac pedzacy dylizans.' _poziomy_dex_11 = /_pref 11/17
|
|
/eval /def -mregexp -Fp2 -t'Jestes szybk.* niczym wiatr.' _poziomy_dex_12 = /_pref 12/17
|
|
/eval /def -mregexp -Fp2 -t'Masz w sobie zrecznosc powietrznego zywiolaka.' _poziomy_dex_13 = /_pref 13/17
|
|
/eval /def -mregexp -Fp2 -t'Bajarze powiadaja, iz potrafisz pochwycic strzale w locie.' _poziomy_dex_14 = /_pref 14/17
|
|
/eval /def -mregexp -Fp2 -t'Twa zadziwiajaca zrecznosc figuruje na kartach legend.' _poziomy_dex_15 = /_pref 15/17
|
|
/eval /def -mregexp -Fp2 -t'Mowia, iz potrafisz skoczyc dalej niz siega ludzki wzrok.' _poziomy_dex_16 = /_pref 16/17
|
|
/eval /def -mregexp -Fp2 -t'Potrafil.*bys uchylic sie przed ciosem przedwiecznych.' _poziomy_dex_17 = /_pref 17/17
|
|
|
|
/eval /def -mregexp -Fp2 -t'Przypominasz swa postura rachityczne drzewko.' _poziomy_con_1 = /_pref .1/17
|
|
/eval /def -mregexp -Fp2 -t'Mowia, ze jestes kruch.* niczym szklo.' _poziomy_con_2 = /_pref .2/17
|
|
/eval /def -mregexp -Fp2 -t'Kielich wina potrafi zwalic cie z nog. A co dopiero cios maczugi?' _poziomy_con_3 = /_pref .3/17
|
|
/eval /def -mregexp -Fp2 -t'Bez wiekszego wyczerpania pokonujesz marszem dlugie dystanse.' _poziomy_con_4 = /_pref .4/17
|
|
/eval /def -mregexp -Fp2 -t'Jedno uderzenie kuflem nie wystarczy by zwalic cie z nog.' _poziomy_con_5 = /_pref .5/17
|
|
/eval /def -mregexp -Fp2 -t'Dalekie, wyczerpujace marsze sa dla ciebie lekka codziennoscia.' _poziomy_con_6 = /_pref .6/17
|
|
/eval /def -mregexp -Fp2 -t'Nie tak latwo zwalic cie pod stol.' _poziomy_con_7 = /_pref .7/17
|
|
/eval /def -mregexp -Fp2 -t'Bez wytchnienia potrafisz pokonac biegiem spore dystanse.' _poziomy_con_8 = /_pref .8/17
|
|
/eval /def -mregexp -Fp2 -t'Mowia, iz masz skore tak gruba niczym pancerz ankhega.' _poziomy_con_9 = /_pref .9/17
|
|
/eval /def -mregexp -Fp2 -t'Masz w sobie dosc wytrzymalosci, by zatrzymac szarzujacego byka!' _poziomy_con_10 = /_pref 10/17
|
|
/eval /def -mregexp -Fp2 -t'Mawiaja, iz mierzysz sie na bary z poteznymi niedzwiedziami.' _poziomy_con_11 = /_pref 11/17
|
|
/eval /def -mregexp -Fp2 -t'Niejeden gladiator zazdrosci ci niezwyklej wytrzymalosci.' _poziomy_con_12 = /_pref 12/17
|
|
/eval /def -mregexp -Fp2 -t'Jestes tward.* niczym blok granitu.' _poziomy_con_13 = /_pref 13/17
|
|
/eval /def -mregexp -Fp2 -t'Mowia, iz pioruny czynia na twej skorze tylko lekkie oparzenia.' _poziomy_con_14 = /_pref 14/17
|
|
/eval /def -mregexp -Fp2 -t'Piesni opiewaja twa nadzwyczajna wytrzymalosc.' _poziomy_con_15 = /_pref 15/17
|
|
/eval /def -mregexp -Fp2 -t'Niektorzy twierdza, ze podroz do Otchlani bylaby dla ciebie spacerkiem.' _poziomy_con_16 = /_pref 16/17
|
|
/eval /def -mregexp -Fp2 -t'Jestes w stanie przyjac na siebie cios samej opatrznosci.' _poziomy_con_17 = /_pref 17/17
|
|
|
|
/eval /def -mregexp -Fp2 -t'Powiadaja, ze jestes bystr.* jak woda w bajorze.' _poziomy_int_1 = /_pref .1/17
|
|
/eval /def -mregexp -Fp2 -t'Z trudem potrafisz napisac bez bledu kilka slow.' _poziomy_int_2 = /_pref .2/17
|
|
/eval /def -mregexp -Fp2 -t'Mawiaja, ze dorownujesz intelektem bystrosci wioskowych idiotow.' _poziomy_int_3 = /_pref .3/17
|
|
/eval /def -mregexp -Fp2 -t'Prostych obliczen dokonujesz w pamieci.' _poziomy_int_4 = /_pref .4/17
|
|
/eval /def -mregexp -Fp2 -t'Plotka glosi, ze jestes bardzo sprytn.* i przebiegl.*.' _poziomy_int_5 = /_pref .5/17
|
|
/eval /def -mregexp -Fp2 -t'Swym intelektem potrafil.*bys z niejednego uczynic glupca.' _poziomy_int_6 = /_pref .6/17
|
|
/eval /def -mregexp -Fp2 -t'Z latwoscia rozwiazal.*bys kazda zagadke.' _poziomy_int_7 = /_pref .7/17
|
|
/eval /def -mregexp -Fp2 -t'Uchodzisz za niestrudzonego odkrywce. Swiat skrywa jeszcze wiele tajemnic.' _poziomy_int_8 = /_pref .8/17
|
|
/eval /def -mregexp -Fp2 -t'Wladasz ogromna wiedza, lecz jeszcze wiele nauki przed toba.' _poziomy_int_9 = /_pref .9/17
|
|
/eval /def -mregexp -Fp2 -t'Niektorzy mowia, iz potrafisz przetlumaczyc kazdy manuskrypt.' _poziomy_int_10 = /_pref 10/17
|
|
/eval /def -mregexp -Fp2 -t'Swym niezwyklym intelektem przycmiewasz wielu uczonych.' _poziomy_int_11 = /_pref 11/17
|
|
/eval /def -mregexp -Fp2 -t'Mowia, iz swiat nie ma przed toba zadnych tajemnic.' _poziomy_int_12 = /_pref 12/17
|
|
/eval /def -mregexp -Fp2 -t'Najwieksi medrcy Faerunu zazdroszcza ci bystrosci umyslu.' _poziomy_int_13 = /_pref 13/17
|
|
/eval /def -mregexp -Fp2 -t'Biegle poslugujesz sie nawet najbardziej zapomnianymi jezykami.' _poziomy_int_14 = /_pref 14/17
|
|
/eval /def -mregexp -Fp2 -t'O twym niezwyklym intelekcie opowiadaja najwieksze ksiegi madrosci.' _poziomy_int_15 = /_pref 15/17
|
|
/eval /def -mregexp -Fp2 -t'Najslynniejsi geniusze zywiolow obawiaja sie mierzyc z twoim intelektem.' _poziomy_int_16 = /_pref 16/17
|
|
/eval /def -mregexp -Fp2 -t'Swym umyslem ogarniasz nawet boskie tajemnice.' _poziomy_int_17 = /_pref 17/17
|
|
|
|
/eval /def -mregexp -Fp2 -t'Nawet dziecko oszukaloby cie bez trudu.' _poziomy_wis_1 = /_pref .1/17
|
|
/eval /def -mregexp -Fp2 -t'Z trudem podejmujesz najprostsze decyzje.' _poziomy_wis_2 = /_pref .2/17
|
|
/eval /def -mregexp -Fp2 -t'Nawet nieskomplikowane wybory wymagaja od ciebie zaciagniecia rady.' _poziomy_wis_3 = /_pref .3/17
|
|
/eval /def -mregexp -Fp2 -t'Samodzielnie dokonujesz zyciowych wyborow.' _poziomy_wis_4 = /_pref .4/17
|
|
/eval /def -mregexp -Fp2 -t'Potrafisz przytomnie ocenic prawie kazda sytuacje.' _poziomy_wis_5 = /_pref .5/17
|
|
/eval /def -mregexp -Fp2 -t'Zdarzaja sie i tacy, ktorzy zwracaja sie do ciebie o pomoc w trudnej sytuacji.' _poziomy_wis_6 = /_pref .6/17
|
|
/eval /def -mregexp -Fp2 -t'Posiadasz dary rozumu oraz madrosci.' _poziomy_wis_7 = /_pref .7/17
|
|
/eval /def -mregexp -Fp2 -t'Niektorzy uwazaja cie za wspanial.* rozjemc.* w trudnych sporach.' _poziomy_wis_8 = /_pref .8/17
|
|
/eval /def -mregexp -Fp2 -t'Wiesz wiele o roznych sprawach - zarowno boskich jak i calkiem przyziemnych.' _poziomy_wis_9 = /_pref .9/17
|
|
/eval /def -mregexp -Fp2 -t'Zdolal.*s w swym zyciu poznac dokladnie wiele dziedzin wiedzy.' _poziomy_wis_10 = /_pref 10/17
|
|
/eval /def -mregexp -Fp2 -t'Masz niezwykly talent do zawsze obierania wlasciwej drogi.' _poziomy_wis_11 = /_pref 11/17
|
|
/eval /def -mregexp -Fp2 -t'Wielu prostych smiertelnikow zaciaga u ciebie rady.' _poziomy_wis_12 = /_pref 12/17
|
|
/eval /def -mregexp -Fp2 -t'Uchodzisz za prawdziwa ostoje madrosci.' _poziomy_wis_13 = /_pref 13/17
|
|
/eval /def -mregexp -Fp2 -t'Powiadaja, iz nie ma sytuacji, z ktorej nie znalazl.*bys wyjscia.' _poziomy_wis_14 = /_pref 14/17
|
|
/eval /def -mregexp -Fp2 -t'Twa madrosc znalazla dla siebie trwale miejsce na kartach historii.' _poziomy_wis_15 = /_pref 15/17
|
|
/eval /def -mregexp -Fp2 -t'Powiadaja, ze tylko ty potrafilbys zakonczyc Wojne Krwi.' _poziomy_wis_16 = /_pref 16/17
|
|
/eval /def -mregexp -Fp2 -t'Swym rozumem potrafisz rozsadzac nawet boskie spory.' _poziomy_wis_17 = /_pref 17/17
|
|
|
|
/eval /def -mregexp -Fp2 -t'Jestes plochliwsz.* od myszy.' _poziomy_cou_1 = /_pref .1/17
|
|
/eval /def -mregexp -Fp2 -t'Boisz sie wlasnego cienia.' _poziomy_cou_2 = /_pref .2/17
|
|
/eval /def -mregexp -Fp2 -t'Wystrzegasz sie ciemnych puszcz i opuszczonych zamczysk.' _poziomy_cou_3 = /_pref .3/17
|
|
/eval /def -mregexp -Fp2 -t'Od dawna nie obawiasz sie ciemnosci.' _poziomy_cou_4 = /_pref .4/17
|
|
/eval /def -mregexp -Fp2 -t'Nie lekasz sie dzikich puszcz czy niezbadanych gor. Co innego mieszkajacych wen bestii.' _poziomy_cou_5 = /_pref .5/17
|
|
/eval /def -mregexp -Fp2 -t'Potrafil.*bys bez cienia strachu stanac przeciwko rownemu sobie przeciwnikowi.' _poziomy_cou_6 = /_pref .6/17
|
|
/eval /def -mregexp -Fp2 -t'Nie pierwszyzna sa dla ciebie potyczki.' _poziomy_cou_7 = /_pref .7/17
|
|
/eval /def -mregexp -Fp2 -t'Niektorzy powiadaja, iz nie zl.*kl.*bys sie umbrowego kolosa, stajac tuz przed nim.' _poziomy_cou_8 = /_pref .8/17
|
|
/eval /def -mregexp -Fp2 -t'Sa ludzie, ktorzy poszliby za toba w ogien.' _poziomy_cou_9 = /_pref .9/17
|
|
/eval /def -mregexp -Fp2 -t'Nie obawiasz sie zadnych niebezpieczenstw.' _poziomy_cou_10 = /_pref 10/17
|
|
/eval /def -mregexp -Fp2 -t'Nie pamietasz juz kiedy ostatnim razem zmrozil cie strach.' _poziomy_cou_11 = /_pref 11/17
|
|
/eval /def -mregexp -Fp2 -t'Za nic masz wszelkie niebezpieczenstwa.' _poziomy_cou_12 = /_pref 12/17
|
|
/eval /def -mregexp -Fp2 -t'Nie ma bestii, ktorej mogl.*bys sie zleknac!' _poziomy_cou_13 = /_pref 13/17
|
|
/eval /def -mregexp -Fp2 -t'Byc moze inni obawiaja sie smokow...' _poziomy_cou_14 = /_pref 14/17
|
|
/eval /def -mregexp -Fp2 -t'Twoja nadludzka odwaga obrosla z czasem w legende.' _poziomy_cou_15 = /_pref 15/17
|
|
/eval /def -mregexp -Fp2 -t'Nie poczul.*bys trwogi stajac nawet naprzeciw goristro.' _poziomy_cou_16 = /_pref 16/17
|
|
/eval /def -mregexp -Fp2 -t'Nie bal.*bys sie splunac w twarz boskim opiekunom.' _poziomy_cou_17 = /_pref 17/17
|
|
|
|
/def -Fp2 -mregexp -t'.* trafia cie .* w .*, lecz caly impet uderzenia zostaje wyparowan.*' info_zbroja = /substitute -p @{C%c_bold}[zbr]@{n} %{P0}
|
|
/def -Fp2 -mregexp -t'(.* tobie udaje sie uniknac .*|.*szybkim skretem ciala unikasz .*)' info_unk = /substitute -p @{C%c_bold}[unk]@{n} %{P1}
|
|
/def -Fp2 -mregexp -t'(.* nie udaje sie trafic ciebie .*)' info_unk2 = /substitute -p @{C%c_bold}[unk]@{n} %{P1}
|
|
/def -Fp2 -mregexp -t'(.* tobie udaje sie .*zbic.*|.* tobie udaje sie go sparowac .*|.* szybka kontra .* parujesz .*|.* lecz skladajac zastwe .*)' info_parowanie = /substitute -p @{C%c_bold}[par]@{n} %{P1}
|
|
|
|
/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_bold}), {P2}, ".", {PR}))%;\
|
|
/else \
|
|
/return substitute(strcat("[", {_showkondycja}, "] ", {PL}, {P1}, " ", {P2}, ".", {PR}))%;\
|
|
/endif
|
|
|
|
;; pojemniki
|
|
; by Ingwar
|
|
|
|
/set ogolne_skrzynia_dluga=1
|
|
|
|
/def _skrzynia = \
|
|
/purge _skrzynia_trig_* %;\
|
|
/if ({ogolne_skrzynia_dluga}==1) \
|
|
/def -ag -p2 -mregexp -t'((?<!Opium) 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}=~"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}=~"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
|