/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 -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 .*)' 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 je zbic.*)' info_parowanie = /substitute -p @{C%c_bold}[par]@{n} %{P1}
/def -Fp2 -mregexp -t'(.*, lecz tobie udaje sie zbic je z linii ataku.*)' info_parowanie2 = /substitute -p @{C%c_bold}[par]@{n} %{P1}
/def -Fp2 -mregexp -t'(.*, lecz tobie udaje sie go sparowac.*)' info_parowanie3 = /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'( 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