|
|
| Linia 1: |
Linia 1: |
| − | /def -b'^[Ou' _numeryczna_5 = zerknij
| + | x |
| − | /def -b'^[Op' _numeryczna_0 = wez monety z ciala %; wez kamienie z ciala
| |
| − | ;/def -b'^[On' _numeryczna_kropka =
| |
| − | /def -b'^[Oj' _numeryczna_gwiazdka = /pm
| |
| − | | |
| − | | |
| − | | |
| − | /def -b'^[Oq' _numeryczna_1 = /_idz_ sw
| |
| − | /def -b'^[Or' _numeryczna_2 = /_idz_ s
| |
| − | /def -b'^[Os' _numeryczna_3 = /_idz_ se
| |
| − | /def -b'^[Ot' _numeryczna_4 = /_idz_ w
| |
| − | /def -b'^[Ov' _numeryczna_6 = /_idz_ e
| |
| − | /def -b'^[Ow' _numeryczna_7 = /_idz_ nw
| |
| − | /def -b'^[Ox' _numeryczna_8 = /_idz_ n
| |
| − | /def -b'^[Oy' _numeryczna_9 = /_idz_ ne
| |
| − | /def -b'^[Ok' _numeryczna_plus = /_idz_ d
| |
| − | /def -b'^[Om' _numeryczna_minus = /_idz_ u
| |
| − | | |
| − | /set _pokazuj_chodzenie_=0
| |
| − | | |
| − | /def _kier_przeciwny = \
| |
| − | /return _kier_znajdz_przeciwny("n", "s", "w", "e", "se", "nw", "sw", "ne", "u", "d", {1})
| |
| − | | |
| − | /def _kier_znajdz_przeciwny = \
| |
| − | /while ({#} > 1) \
| |
| − | /if ({L} =~ {1}) \
| |
| − | /return {2} %;\
| |
| − | /elseif ({L} =~ {2}) \
| |
| − | /return {1} %;\
| |
| − | /else \
| |
| − | /shift 2 %;\
| |
| − | /endif %;\
| |
| − | /done %;\
| |
| − | /return
| |
| − | | |
| − | | |
| − | /def _idz_ = \
| |
| − | /let _komenda_=$[strcat(strlen({_chodzenie_}) ? strcat({_chodzenie_}, " ") : "", {1})]%;\
| |
| − | /if ({_pokazuj_chodzenie_}) \
| |
| − | /echo -p @{Cgreen}Ide: @{BCwhite}%{_komenda_}%;\
| |
| − | /endif%;\
| |
| − | /set przeciwny=$[_kier_przeciwny({1})]%;\
| |
| − | /send %{_chodzenie_} %{1}
| |
| − | | |
| − | /set _przemykanie_=0
| |
| − | | |
| − | /def pm = \
| |
| − | /if ({_przemykanie_}==0) \
| |
| − | /set _przemykanie_=1%;\
| |
| − | /echo -p @{B}[@{BCred}!@{n}@{B}] PRZEMYKANIE [@{BCred}!@{n}@{B}]@{n}%;\
| |
| − | /elseif ({_przemykanie_}==1) \
| |
| − | /set _przemykanie_=2%;\
| |
| − | /echo -p @{B}[@{BCred}!@{n}@{B}] PRZEMYKANIE Z DRUZYNA [@{BCred}!@{n}@{B}]@{n}%;\
| |
| − | /else \
| |
| − | /set _przemykanie_=0%;\
| |
| − | /echo -p @{B}[@{BCred}!@{n}@{B}] CHODZENIE [@{BCred}!@{n}@{B}]@{n}%;\
| |
| − | /endif%;\
| |
| − | /_idz_tryb_
| |
| − | | |
| − | | |
| − | /def _idz_tryb_ = \
| |
| − | /if ({_przemykanie_}==0) \
| |
| − | /unset _chodzenie_ %;\
| |
| − | /elseif ({_przemykanie_}==1) \
| |
| − | /set _chodzenie_=przemknij%;\
| |
| − | /else \
| |
| − | /set _chodzenie_=przemknij z druzyna%;\
| |
| − | /endif
| |
| − | | |
| − | /_idz_tryb_
| |
| − | | |
| − | | |
| − | /def lazikuj = \
| |
| − | /set kier=polnoc n poludnie s wschod e zachod w poludniowy-wschod se poludniowy-zachod sw polnocny-wschod ne polnocny-zachod nw gora u dol d%;\
| |
| − | /for licz 1 20 \
| |
| − | /if ($$(/nth %%licz %%kier)=~{_pierwsze}) /test licz:=%%licz+1%%;\
| |
| − | /set __pierwsze=$$(/nth %%licz %%kier)%%;\
| |
| − | /endif%%;\
| |
| − | /if ($$(/nth %%licz %%kier)=~{_drugie}) /test licz:=%%licz+1%%;\
| |
| − | /set __drugie=$$(/nth %%licz+1 %%kier)%%;\
| |
| − | /endif%;\
| |
| − | /unset licz%;/unset kier
| |
| − | | |
| − | /def -Fp999 -mregexp -t'^(Szlak prowadzi tutaj w dwoch kierunkach:|Sa tutaj dwa widoczne wyjscia:|Trakt wiedzie na|W gestych ciemnosciach dostrzegasz trakt wiodacy na) ([^ ]*) i ([^ ]*)\.$' _chodze = /set _pierwsze=%{P2}%;/set _drugie=%{P3}%;\
| |
| − | /lazikuj%;\
| |
| − | /def key_f9/=/go%%;/def key_nkp/
| |
| − | | |
| − | /def go = \
| |
| − | /if (przeciwny=~__pierwsze) \
| |
| − | /_idz_ %{__drugie}%; \
| |
| − | /elseif (przeciwny=~__drugie) \
| |
| − | /_idz_ %{__pierwsze}%;\
| |
| − | /endif
| |
