Użytkownik:Ugaug/Brudnopis

/def -b'^[Ou' _numeryczna_5 = zerknij /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