667 lines
31 KiB
HCL
667 lines
31 KiB
HCL
;; crithit
|
|
/eval /set zc_crit_bold=C%c_crit_bold
|
|
/def -mregexp -Fp2 -t'(powaznie rani(|ac)|bardzo ciezko rani(|ac)|masakruj(e|ac)) cie ' _critupper = \
|
|
/test substitute(strcat({PL}, decode_attr("!!! ", {zc_fightme}), toupper({P0}), decode_attr("!!! ", {zc_fightme}), {PR}))
|
|
/def -mregexp -Fp2 -t' cie (.*,) (powaznie raniac|bardzo ciezko raniac|masakrujac) ' _critupper2 = \
|
|
/test substitute(strcat({PL}, decode_attr(" cie ", {zc_crit_bold}), {P1}, decode_attr(" !!! ", {zc_fightme}), toupper({P2}), decode_attr(" !!! ", {zc_fightme}), {PR}))
|
|
|
|
;; poziomy
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos niedoswiadczonego\.' _poziomy_doswiadczenia_1 = /_sub 1/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial juz to i owo\.' _poziomy_doswiadczenia_2 = /_sub 2/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto pewnie stapa po swiecie\.' _poziomy_doswiadczenia_3 = /_sub 3/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto niejedno widzial\.' _poziomy_doswiadczenia_4 = /_sub 4/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto swoje przezyl\.' _poziomy_doswiadczenia_5 = /_sub 5/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos (?!bardzo |wielce )doswiadczonego\.' _poziomy_doswiadczenia_6= /_sub 6/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto wiele przeszedl\.' _poziomy_doswiadczenia_7= /_sub 7/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial kawal swiata\.' _poziomy_doswiadczenia_8= /_sub 8/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos bardzo doswiadczonego\.' _poziomy_doswiadczenia_9= /_sub 9/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto zwiedzil caly swiat\.' _poziomy_doswiadczenia_10= /_sub 10/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos wielce doswiadczonego\.' _poziomy_doswiadczenia_11= /_sub 11/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na kogos, kto widzial i doswiadczyl wszystkiego\.' _poziomy_doswiadczenia_12= /_sub 12/13
|
|
/def -mregexp -p2 -t'^Wyglada(|sz) na osobe owiana legenda\.' _poziomy_doswiadczenia_13= /_sub 13/13
|
|
|
|
;; sprzęt
|
|
; zużycie
|
|
/def -mregexp -Fp2 -t'(calkiem now.).' _stan_ekwipunku5 = /_sub 5/5
|
|
/def -mregexp -Fp2 -t'(w miare now.).' _stan_ekwipunku4 = /_sub 4/5
|
|
|
|
; ekwipunek
|
|
/def -mregexp -Fp2 -t'(troche zuzyty).' _stan_ekwipunku3 = /_sub 3/5
|
|
/def -mregexp -Fp2 -t'(w duzym stopniu zuzyty).' _stan_ekwipunku2 = /_sub 2/5
|
|
/def -mregexp -Fp2 -t'(kompletnie zuzyty).' _stan_ekwipunku1 = /_sub 1/5
|
|
|
|
; ubrania
|
|
/def -mregexp -Fp2 -t'troche znoszone' _stan_ekwipunku_ubranie_3 = /_sub 3/5
|
|
/def -mregexp -Fp2 -t'prawie calkiem znoszone' _stan_ekwipunku_ubranie_2 = /_sub 2/5
|
|
/def -mregexp -Fp2 -t'gotowe rozpasc sie w kazdej chwili' _stan_ekwipunku_ubranie_1 = /_sub 1/5
|
|
|
|
; jakość
|
|
/def -mregexp -Fp2 -t'kompletnie nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro1 = /_sub_inside 1/14
|
|
/def -mregexp -Fp2 -t'strasznie nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro2 = /_sub_inside 2/14
|
|
/def -mregexp -Fp2 -t'bardzo nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro3 = /_sub_inside 3/14
|
|
/def -mregexp -Fp2 -t'raczej nieskuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro4 = /_sub_inside 4/14
|
|
/def -mregexp -Fp2 -t'malo skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro5 = /_sub_inside 5/14
|
|
/def -mregexp -Fp2 -t'niezbyt skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro6 = /_sub_inside 6/14
|
|
/def -mregexp -Fp2 -t'raczej skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro7 = /_sub_inside 7/14
|
|
/def -mregexp -Fp2 -t'dosyc skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro8 = /_sub_inside 8/14
|
|
/def -mregexp -Fp2 -t'calkiem skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro9 = /_sub_inside 9/14
|
|
/def -mregexp -Fp2 -t'bardzo skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro10 = /_sub_inside 10/14
|
|
/def -mregexp -Fp2 -t'niezwykle skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro11 = /_sub_inside 11/14
|
|
/def -mregexp -Fp2 -t'wyjatkowo skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro12 = /_sub_inside 12/14
|
|
/def -mregexp -Fp2 -t'zabojczo skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro13 = /_sub_inside 13/14
|
|
/def -mregexp -Fp2 -t'fantastycznie skuteczn[aye](?: w parowaniu ciosow|).$$' _skutecznosc_bro14 = /_sub_inside 14/14
|
|
/def -mregexp -Fp2 -t'wyjatkowo zle wywazon[aye]' _wywazenie_bro1 = /_sub_inside 1/14
|
|
/def -mregexp -Fp2 -t'bardzo zle wywazon[aye]' _wywazenie_bro2 = /_sub_inside 2/14
|
|
/def -mregexp -Fp2 -t'(?<!nie|bardzo )zle wywazon[aye]' _wywazenie_bro3 = /_sub_inside 3/14
|
|
/def -mregexp -Fp2 -t'bardzo kiepsko wywazon[aye]' _wywazenie_bro4 = /_sub_inside 4/14
|
|
/def -mregexp -Fp2 -t'(?<!bardzo) kiepsko wywazon[aye]' _wywazenie_bro5 = /_sub_inside 5/14
|
|
/def -mregexp -Fp2 -t'przyzwoicie wywazon[aye]' _wywazenie_bro6 = /_sub_inside 6/14
|
|
/def -mregexp -Fp2 -t'srednio wywazon[aye]' _wywazenie_bro7 = /_sub_inside 7/14
|
|
/def -mregexp -Fp2 -t'niezle wywazon[aye]' _wywazenie_bro8 = /_sub_inside 8/14
|
|
/def -mregexp -Fp2 -t'dosc dobrze wywazon[aye]' _wywazenie_bro9 = /_sub_inside 9/14
|
|
/def -mregexp -Fp2 -t'(?<!bardzo |dosc )dobrze wywazon[aye]' _wywazenie_bro10 = /_sub_inside 10/14
|
|
/def -mregexp -Fp2 -t'bardzo dobrze wywazon[aye]' _wywazenie_bro11 = /_sub_inside 11/14
|
|
/def -mregexp -Fp2 -t'doskonale wywazon[aye]' _wywazenie_bro12 = /_sub_inside 12/14
|
|
/def -mregexp -Fp2 -t'perfekcyjnie wywazon[aye]' _wywazenie_bro13 = /_sub_inside 13/14
|
|
/def -mregexp -Fp2 -t'genialnie wywazon[aye]' _wywazenie_bro14 = /_sub_inside 14/14
|
|
/def -mregexp -Fp2 -t'wyjatkowo zle przed(?: obrazeniami|)' _skutecznosc_zbro1 = /_sub_inside 1/12
|
|
/def -mregexp -Fp2 -t'bardzo zle przed(?: obrazeniami|)' _skutecznosc_zbro2 = /_sub_inside 2/12
|
|
/def -mregexp -Fp2 -t'(?<!nie)zle przed(?: obrazeniami|)' _skutecznosc_zbro3 = /_sub_inside 3/12
|
|
/def -mregexp -Fp2 -t'bardzo kiepsko przed(?: obrazeniami|)' _skutecznosc_zbro4 = /_sub_inside 4/12
|
|
/def -mregexp -Fp2 -t'(?<!bardzo )kiepsko przed(?: obrazeniami|)' _skutecznosc_zbro5 = /_sub_inside 5/12
|
|
/def -mregexp -Fp2 -t'przyzwoicie przed(?: obrazeniami|)' _skutecznosc_zbro6 = /_sub_inside 6/12
|
|
/def -mregexp -Fp2 -t'niezle przed(?: obrazeniami|)' _skutecznosc_zbro7 = /_sub_inside 7/12
|
|
/def -mregexp -Fp2 -t'dosc dobrze przed(?: obrazeniami|)' _skutecznosc_zbro8 = /_sub_inside 8/12
|
|
/def -mregexp -Fp2 -t'(?<!bardzo |dosc )dobrze przed(?: obrazeniami|)' _skutecznosc_zbro9 = /_sub_inside 9/12
|
|
/def -mregexp -Fp2 -t'bardzo dobrze przed(?: obrazeniami|)' _skutecznosc_zbro10 = /_sub_inside 10/12
|
|
/def -mregexp -Fp2 -t'doskonale przed(?: obrazeniami|)' _skutecznosc_zbro11 = /_sub_inside 11/12
|
|
/def -mregexp -Fp2 -t'perfekcyjnie przed(?: obrazeniami|)' _skutecznosc_zbro12 = /_sub_inside 12/12
|
|
|
|
;; podpowiedzi na lokacjach
|
|
/def -mregexp -Fp2 -t'Widzisz surowy, prosty sarkofag' sark0 = /echo -p @{C%c_info}(+)@{n}@{C%c_info} Kosciotrup.
|
|
/def -mregexp -Fp2 -t'Widzisz solidny sarkofag wykonany' sark1 = /echo -p @{C%c_info}(+)@{n}@{C%c_info} Struchlec.
|
|
/def -mregexp -Fp2 -t'Widzisz dlugi sarkofag pozbawiony' sark2 = /echo -p @{C%c_info}(+)@{n}@{C%c_info} Szubienicznik.
|
|
/def -mregexp -Fp2 -t'Sarkofag wykonany jest z czarnego' sark3 = /echo -p @{C%c_info}(+)@{n}@{C%c_info} Utopiec.
|
|
|
|
;; kondycja
|
|
/def _count_enemies = \
|
|
/if ({*} =/ "*dwa*") \
|
|
/test ++_enemy%;\
|
|
/endif %;\
|
|
/if ({*} =/ "*dwie*") \
|
|
/test ++_enemy%;\
|
|
/endif %;\
|
|
/if ({*} =/ "*dwoje*") \
|
|
/test ++_enemy%;\
|
|
/endif %;\
|
|
/if ({*} =/ "*trzy*") \
|
|
/test ++_enemy%;\
|
|
/test ++_enemy%;\
|
|
/endif %;\
|
|
/if ({*} =/ "*troje*") \
|
|
/test ++_enemy%;\
|
|
/test ++_enemy%;\
|
|
/endif %;\
|
|
/while ({#}) \
|
|
/test ++_enemy%;\
|
|
/shift%;\
|
|
/done
|
|
|
|
/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")\
|
|
/set aggro=0%;\
|
|
/status_edit -r2 aggro:-2:C%c_main%;\
|
|
/return substitute(strcat("[-] [", {_showkondycja}, "] ", {PL}, decode_attr("### TY ### ", {zc_bold}), {P2}, ".", {PR}))%;\
|
|
/else \
|
|
/return substitute(strcat("[-] [", {_showkondycja}, "] ", {PL}, {P1}, " ", {P2}, ".", {PR}))%;\
|
|
/endif
|
|
|
|
/def -mregexp -Fp2 -t'([Jj]est(?:es|)) (w swietnej kondycji|w dobrym stanie|(?:lekko |ciezko |)rann.|w zlej kondycji|ledwo zyw.). Atakuj(?:e|a|esz) (go|ja|je|jego|to|cie)' _sub_kondycja_show = \
|
|
/def -ag -Fp2 -mregexp -t'^$$' __kondycja_gag_empty%;\
|
|
/repeat -0.1 1 /purge __kondycja_gag_empty%;\
|
|
/let _enemy_count=0%;\
|
|
/let _enemies=$[replace("##", " ", replace(" ", "_",replace(", ", "##", replace(" i ", "##", {PR}))))]%;\
|
|
/_count_enemies %{_enemies}%;\
|
|
/let _enemy_count=%{_enemy} %;\
|
|
/if (_enemy_count =~ "") \
|
|
/let _enemy_count 0 %;\
|
|
/endif %;\
|
|
/unset _enemy %;\
|
|
/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 ({PR} =~ ".") \
|
|
/let _ktobije=$[decode_attr(" ATAKUJESZ", {zc_crit})]%;\
|
|
/else \
|
|
/let _ktobije=%{PR}%;\
|
|
/endif%;\
|
|
/if ({P1} =~"Jestes")\
|
|
/set aggro=%_enemy_count%;\
|
|
/status_edit -r2 aggro:-2:C%c_crit_bold%;\
|
|
/return substitute(strcat("[", decode_attr({_enemy_count}, {zc_crit}), "] [", {_showkondycja}, "] ", {PL}, decode_attr("### TY ### ", {zc_alarm}), {P2}, ". ", decode_attr("<<<<<", {zc_crit}), {_ktobije}))%;\
|
|
/else \
|
|
/return substitute(strcat("[", decode_attr({_enemy_count}, {zc_bold}), "] [", {_showkondycja}, "] ", {PL}, {P1}, " ", {P2}, ". ", "<<<<<", {_ktobije}))%;\
|
|
/endif
|
|
|
|
;; odporności
|
|
/def odpornosci_stany = \
|
|
/if ({1} =~ "minimalna") \
|
|
/return 1 %;\
|
|
/elseif ({1} =~"znikoma") \
|
|
/return 2 %;\
|
|
/elseif ({1} =~"niewielka") \
|
|
/return 3 %;\
|
|
/elseif ({1} =~"czesciowa") \
|
|
/return 4 %;\
|
|
/elseif ({1} =~"polowiczna") \
|
|
/return 5 %;\
|
|
/elseif ({1} =~"znaczna") \
|
|
/return 6 %;\
|
|
/elseif ({1} =~"duza") \
|
|
/return 7 %;\
|
|
/elseif ({1} =~"bardzo duza") \
|
|
/return 8 %;\
|
|
/elseif ({1} =~"prawie pelna") \
|
|
/return 9 %;\
|
|
/elseif ({1} =~"calkowita") \
|
|
/return 10 %;\
|
|
/elseif ({1} =~"brak") \
|
|
/return 0 %;\
|
|
/endif
|
|
|
|
/def odpornosci = \
|
|
/repeat -1 1 /purge __odpornosci_* %;\
|
|
/repeat -1 1 /unset __odpornosci_* %;\
|
|
/purge __odpornosci_* %;\
|
|
/unset __odpornosci_* %;\
|
|
/send odpornosci %;\
|
|
/def -ag -Fp2 -mregexp -t'^$$' __odpornosci_gag_empty %;\
|
|
/def -ag -Fp2 -mregexp -t'^Obrazenia fizyczne:$$' __odpornosci_gag_fizyczne %;\
|
|
/def -ag -Fp2 -mregexp -t'^Obrazenia od zywiolow:$$' __odpornosci_gag_elemental %;\
|
|
/def -ag -Fp2 -mregexp -t'^Obrazenia magiczne:$$' __odpornosci_gag_magic %;\
|
|
/def -ag -Fp2 -mregexp -t'^Inne:$$' __odpornosci_gag_misc %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +ciete - (.*)' __odpornosci_ciete = \
|
|
/set __odpornosci_ciete_string=%%{P1}%%;\
|
|
/set __odpornosci_ciete_value=$[odpornosci_stany(__odpornosci_ciete_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +klute - (.*)' __odpornosci_klute = \
|
|
/set __odpornosci_klute_string=%%{P1}%%;\
|
|
/set __odpornosci_klute_value=$[odpornosci_stany(__odpornosci_klute_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +obuchowe - (.*)' __odpornosci_obuchowe = \
|
|
/set __odpornosci_obuchowe_string=%%{P1}%%;\
|
|
/set __odpornosci_obuchowe_value=$[odpornosci_stany(__odpornosci_obuchowe_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +bronie niemagiczne - (.*)' __odpornosci_bronieniemagiczne = \
|
|
/set __odpornosci_bronieniemagiczne_string=%%{P1}%%;\
|
|
/set __odpornosci_bronieniemagiczne_value=$[odpornosci_stany(__odpornosci_bronieniemagiczne_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +ogien - (.*)' __odpornosci_ogien = \
|
|
/set __odpornosci_ogien_string=%%{P1}%%;\
|
|
/set __odpornosci_ogien_value=$[odpornosci_stany(__odpornosci_ogien_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +powietrze - (.*)' __odpornosci_powietrze = \
|
|
/set __odpornosci_powietrze_string=%%{P1}%%;\
|
|
/set __odpornosci_powietrze_value=$[odpornosci_stany(__odpornosci_powietrze_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +woda - (.*)' __odpornosci_woda = \
|
|
/set __odpornosci_woda_string=%%{P1}%%;\
|
|
/set __odpornosci_woda_value=$[odpornosci_stany(__odpornosci_woda_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +ziemia - (.*)' __odpornosci_ziemia = \
|
|
/set __odpornosci_ziemia_string=%%{P1}%%;\
|
|
/set __odpornosci_ziemia_value=$[odpornosci_stany(__odpornosci_ziemia_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +czysta magia - (.*)' __odpornosci_puremagic = \
|
|
/set __odpornosci_puremagic_string=%%{P1}%%;\
|
|
/set __odpornosci_puremagic_value=$[odpornosci_stany(__odpornosci_puremagic_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +magia umyslu - (.*)' __odpornosci_mindmagic = \
|
|
/set __odpornosci_mindmagic_string=%%{P1}%%;\
|
|
/set __odpornosci_mindmagic_value=$[odpornosci_stany(__odpornosci_mindmagic_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +magia zycia - (.*)' __odpornosci_lifemagic = \
|
|
/set __odpornosci_lifemagic_string=%%{P1}%%;\
|
|
/set __odpornosci_lifemagic_value=$[odpornosci_stany(__odpornosci_lifemagic_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +magia smierci - (.*)' __odpornosci_deathmagic = \
|
|
/set __odpornosci_deathmagic_string=%%{P1}%%;\
|
|
/set __odpornosci_deathmagic_value=$[odpornosci_stany(__odpornosci_deathmagic_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +elektrycznosc - (.*)' __odpornosci_elektrycznosc = \
|
|
/set __odpornosci_elektrycznosc_string=%%{P1}%%;\
|
|
/set __odpornosci_elektrycznosc_value=$[odpornosci_stany(__odpornosci_elektrycznosc_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +kwas - (.*)' __odpornosci_kwas = \
|
|
/set __odpornosci_kwas_string=%%{P1}%%;\
|
|
/set __odpornosci_kwas_value=$[odpornosci_stany(__odpornosci_kwas_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +spaczen - (.*)' __odpornosci_spaczen = \
|
|
/set __odpornosci_spaczen_string=%%{P1}%%;\
|
|
/set __odpornosci_spaczen_value=$[odpornosci_stany(__odpornosci_spaczen_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +trucizna - (.*)' __odpornosci_trucizna = \
|
|
/set __odpornosci_trucizna_string=%%{P1}%%;\
|
|
/set __odpornosci_trucizna_value=$[odpornosci_stany(__odpornosci_trucizna_string)] %;\
|
|
/def -ag -Fp2 -mregexp -t'^ +zimno - (.*)' __odpornosci_zimno = \
|
|
/set __odpornosci_zimno_string=%%{P1}%%;\
|
|
/set __odpornosci_zimno_value=$[odpornosci_stany(__odpornosci_zimno_string)] %;\
|
|
/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}%;\
|
|
/echo -p | Fizyczne | Zywioly | Magia | Inne |%;\
|
|
/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}%;\
|
|
/echo -p | | | | |@{n}%;\
|
|
/let linia=$[strcat("| ","Ciete ",pad(__odpornosci_ciete_string,16)," [",pad(__odpornosci_ciete_value,2),"/10] | Ogien ",pad(__odpornosci_ogien_string,16)," [",pad(__odpornosci_ogien_value,2),"/10] | Czysta ",pad(__odpornosci_puremagic_string,16)," [",pad(__odpornosci_puremagic_value,2),"/10] | Elektrycznosc ",pad(__odpornosci_elektrycznosc_string,10)," [",pad(__odpornosci_elektrycznosc_value,2),"/10] |")] %;\
|
|
/echo -p %{linia} %;\
|
|
/let linia=$[strcat("| ","Klute ",pad(__odpornosci_klute_string,16)," [",pad(__odpornosci_klute_value,2),"/10] | Powietrze ",pad(__odpornosci_powietrze_string,12)," [",pad(__odpornosci_powietrze_value,2),"/10] | Umyslu ",pad(__odpornosci_mindmagic_string,16)," [",pad(__odpornosci_mindmagic_value,2),"/10] | Kwas ",pad(__odpornosci_kwas_string,19)," [",pad(__odpornosci_kwas_value,2),"/10] |")] %;\
|
|
/echo -p %{linia} %;\
|
|
/let linia=$[strcat("| ","Obuchy ",pad(__odpornosci_obuchowe_string,15)," [",pad(__odpornosci_obuchowe_value,2),"/10] | Woda ",pad(__odpornosci_woda_string,17)," [",pad(__odpornosci_woda_value,2),"/10] | Zycia ",pad(__odpornosci_lifemagic_string,17)," [",pad(__odpornosci_lifemagic_value,2),"/10] | Spaczen ",pad(__odpornosci_spaczen_string,16)," [",pad(__odpornosci_spaczen_value,2),"/10] |")] %;\
|
|
/echo -p %{linia} %;\
|
|
/let linia=$[strcat("| ","Niemagiczne ",pad(__odpornosci_bronieniemagiczne_string,10)," [",pad(__odpornosci_bronieniemagiczne_value,2),"/10] | Ziemia ",pad(__odpornosci_ziemia_string,15)," [",pad(__odpornosci_ziemia_value,2),"/10] | Smierci ",pad(__odpornosci_deathmagic_string,15)," [",pad(__odpornosci_deathmagic_value,2),"/10] | Trucizna ",pad(__odpornosci_trucizna_string,15)," [",pad(__odpornosci_trucizna_value,2),"/10] |")] %;\
|
|
/echo -p %{linia} %;\
|
|
/let linia=$[strcat("| | | | Zimno ",pad(__odpornosci_zimno_string,18)," [",pad(__odpornosci_zimno_value,2),"/10] |")] %;\
|
|
/echo -p %{linia} %;\
|
|
/echo -p +--------------------------------+--------------------------------+---------------------------------+----------------------------------+@{n}
|
|
|
|
;; płytki
|
|
/def -p2 -mregexp -t'Zauwazasz, ze plytki (.*) oraz (.*) sa lekko wcisniete w porownaniu z plytkami pozostalych barw.' blekitnokrwisci_plytki=\
|
|
/if (%{P1} =~ "niebieskie") \
|
|
/if (%{P2} =~ "biale") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: blekitne. %;\
|
|
/elseif (%{P2} =~ "zolte") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: zielone. %;\
|
|
/elseif (%{P2} =~ "czerwone") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: fioletowe. %;\
|
|
/elseif (%{P2} =~ "czarne") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: granatowe. %;\
|
|
/endif %;\
|
|
/endif %;\
|
|
/if (%{P1} =~ "zolte") \
|
|
/if (%{P2} =~ "niebieskie") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: zielone. %;\
|
|
/elseif (%{P2} =~ "czerwone") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: pomaranczowe. %;\
|
|
/elseif (%{P2} =~ "czarne") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: jasnobrazowe. %;\
|
|
/elseif (%{P2} =~ "biale") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: bezowe. %;\
|
|
/endif %;\
|
|
/endif %;\
|
|
/if (%{P1} =~ "czerwone") \
|
|
/if (%{P2} =~ "niebieskie") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: fioletowe. %;\
|
|
/elseif (%{P2} =~ "zolte") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: pomaranczowe. %;\
|
|
/elseif (%{P2} =~ "czarne") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: ciemnobrazowe. %;\
|
|
/elseif (%{P2} =~ "biale") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: rozowe. %;\
|
|
/endif %;\
|
|
/endif %;\
|
|
/if (%{P1} =~ "czarne") \
|
|
/if (%{P2} =~ "niebieskie") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: granatowe. %;\
|
|
/elseif (%{P2} =~ "zolte") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: jasnobrazowe. %;\
|
|
/elseif (%{P2} =~ "czerwone") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: ciemnobrazowe. %;\
|
|
/elseif (%{P2} =~ "biale") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: szare. %;\
|
|
/endif %;\
|
|
/endif %;\
|
|
/if (%{P1} =~ "biale") \
|
|
/if (%{P2} =~ "niebieskie") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: blekitne. %;\
|
|
/elseif (%{P2} =~ "zolte") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: bezowe. %;\
|
|
/elseif (%{P2} =~ "czerwone") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: rozowe. %;\
|
|
/elseif (%{P2} =~ "czarne") \
|
|
/echo -p #@{BC%kolor_info}#@{n}# Bezpieczne: szare. %;\
|
|
/endif %;\
|
|
/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} =~ "jedenastu") \
|
|
/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 +-------------------------------------------------------------------------------+
|