diff --git a/arkadia/movement.tf b/arkadia/movement.tf index eb46cb2..0aa7a20 100644 --- a/arkadia/movement.tf +++ b/arkadia/movement.tf @@ -1,40 +1,40 @@ /def lw5=\ - /set lw1=$[substr(lw,0,strchr(lw,'., '))] %;\ - /set lw=$[substr(lw,strchr(lw,'., ')+1,strlen(lw)-strchr(lw,'., ')-1) ]%;\ - /if (lw1=/"zachod") /set _lw0=w,%; /test ++lwcount %;\ - /elseif (lw1=/"polnocny-zachod") /set _lw1=nw,%; /test ++lwcount %;\ - /elseif (lw1=/"polnoc") /set _lw2=n,%; /test ++lwcount %;\ - /elseif (lw1=/"polnocny-wschod") /set _lw3=ne,%; /test ++lwcount %;\ - /elseif (lw1=/"wschod") /set _lw4=e,%; /test ++lwcount %;\ - /elseif (lw1=/"poludniowy-wschod") /set _lw5=se,%; /test ++lwcount %;\ - /elseif (lw1=/"poludnie") /set _lw6=s,%; /test ++lwcount %;\ - /elseif (lw1=/"poludniowy-zachod") /set _lw7=sw,%; /test ++lwcount %;\ - /elseif (lw1=/"gora") /set _lw8=u,%; /test ++lwcount %;\ - /elseif (lw1=/"dol") /set _lw9=d,%; /test ++lwcount %;\ - /elseif (lw1=/"wyjscie") /set _lw10=wyjscie,%; /test ++lwcount%; /unnormalset wyjscie %;\ - /elseif (lw1=/"drzwiczki") /set _lw11=drzwiczki,%; /test ++lwcount%; /unnormalset drzwiczki %;\ - /elseif (lw1=/"drzwi") /set _lw12=drzwi,%; /test ++lwcount%; /unnormalset drzwi %;\ - /elseif (lw1=/"most") /set _lw13=most,%; /test ++lwcount%; /unnormalset most %;\ - /elseif (lw1=/"schody") /set _lw14=schody,%; /test ++lwcount%; /unnormalset schody %;\ - /elseif (lw1=/"furta") /set _lw15=furta,%; /test ++lwcount%; /unnormalset furta %;\ - /elseif (lw1=/"ulica") /set _lw16=ulica,%; /test ++lwcount%; /unnormalset ulica %;\ - /elseif (lw1=/"sklep") /set _lw17=sklep,%; /test ++lwcount%; /unnormalset sklep %;\ - /elseif (lw1=/"prom") /set _lw18=prom,%; /test ++lwcount%; /unnormalset prom %;\ - /elseif (lw1=/"kaplica") /set _lw19=kaplica,%; /test ++lwcount%; /unnormalset kaplica %;\ - /elseif (lw1=/"karczma") /set _lw20=karczma,%; /test ++lwcount%; /unnormalset karczma %;\ - /elseif (lw1=/"schodki") /set _lw21=schodki,%; /test ++lwcount%; /unnormalset schodki %;\ - /elseif (lw1=/"mlyn") /set _lw22=mlyn,%; /test ++lwcount%; /unnormalset mlyn %;\ - /elseif (lw1=/"piekarnia") /set _lw23=piekarnia,%; /test ++lwcount%; /unnormalset piekarnia %;\ - /elseif (lw1=/"trakt") /set _lw24=trakt,%; /test ++lwcount%; /unnormalset trakt %;\ - /elseif (lw1=/"jaskinia") /set _lw25=jaskinia,%; /test ++lwcount%; /unnormalset jaskinia %;\ - /elseif (lw1=/"szopa") /set _lw26=szopa,%; /test ++lwcount%; /unnormalset szopa %;\ - /elseif (lw1=/"barak") /set _lw27=barak,%; /test ++lwcount%; /unnormalset barak %;\ - /elseif (lw1=/"wrota") /set _lw28=wrota,%; /test ++lwcount%; /unnormalset wrota %;\ - /elseif (lw1=/"brama") /set _lw29=brama,%; /test ++lwcount%; /unnormalset brama %;\ - /elseif (lw1=/"wejscie") /set _lw30=wejscie,%; /test ++lwcount%; /unnormalset wejscie %;\ - /elseif (lw1=/"ganek") /set _lw31=ganek,%; /test ++lwcount%; /unnormalset ganek %;\ - /elseif (lw1=/"chata") /set _lw32=chata,%; /test ++lwcount%; /unnormalset chata %;\ - /endif + /set lw1=$[substr(lw,0,strchr(lw,'., '))] %;\ + /set lw=$[substr(lw,strchr(lw,'., ')+1,strlen(lw)-strchr(lw,'., ')-1) ]%;\ + /if (lw1=/"zachod") /set _lw0=w,%; /test ++lwcount %;\ + /elseif (lw1=/"polnocny-zachod") /set _lw1=nw,%; /test ++lwcount %;\ + /elseif (lw1=/"polnoc") /set _lw2=n,%; /test ++lwcount %;\ + /elseif (lw1=/"polnocny-wschod") /set _lw3=ne,%; /test ++lwcount %;\ + /elseif (lw1=/"wschod") /set _lw4=e,%; /test ++lwcount %;\ + /elseif (lw1=/"poludniowy-wschod") /set _lw5=se,%; /test ++lwcount %;\ + /elseif (lw1=/"poludnie") /set _lw6=s,%; /test ++lwcount %;\ + /elseif (lw1=/"poludniowy-zachod") /set _lw7=sw,%; /test ++lwcount %;\ + /elseif (lw1=/"gora") /set _lw8=u,%; /test ++lwcount %;\ + /elseif (lw1=/"dol") /set _lw9=d,%; /test ++lwcount %;\ + /elseif (lw1=/"wyjscie") /set _lw10=wyjscie,%; /test ++lwcount%; /unnormalset wyjscie %;\ + /elseif (lw1=/"drzwiczki") /set _lw11=drzwiczki,%; /test ++lwcount%; /unnormalset drzwiczki %;\ + /elseif (lw1=/"drzwi") /set _lw12=drzwi,%; /test ++lwcount%; /unnormalset drzwi %;\ + /elseif (lw1=/"most") /set _lw13=most,%; /test ++lwcount%; /unnormalset most %;\ + /elseif (lw1=/"schody") /set _lw14=schody,%; /test ++lwcount%; /unnormalset schody %;\ + /elseif (lw1=/"furta") /set _lw15=furta,%; /test ++lwcount%; /unnormalset furta %;\ + /elseif (lw1=/"ulica") /set _lw16=ulica,%; /test ++lwcount%; /unnormalset ulica %;\ + /elseif (lw1=/"sklep") /set _lw17=sklep,%; /test ++lwcount%; /unnormalset sklep %;\ + /elseif (lw1=/"prom") /set _lw18=prom,%; /test ++lwcount%; /unnormalset prom %;\ + /elseif (lw1=/"kaplica") /set _lw19=kaplica,%; /test ++lwcount%; /unnormalset kaplica %;\ + /elseif (lw1=/"karczma") /set _lw20=karczma,%; /test ++lwcount%; /unnormalset karczma %;\ + /elseif (lw1=/"schodki") /set _lw21=schodki,%; /test ++lwcount%; /unnormalset schodki %;\ + /elseif (lw1=/"mlyn") /set _lw22=mlyn,%; /test ++lwcount%; /unnormalset mlyn %;\ + /elseif (lw1=/"piekarnia") /set _lw23=piekarnia,%; /test ++lwcount%; /unnormalset piekarnia %;\ + /elseif (lw1=/"trakt") /set _lw24=trakt,%; /test ++lwcount%; /unnormalset trakt %;\ + /elseif (lw1=/"jaskinia") /set _lw25=jaskinia,%; /test ++lwcount%; /unnormalset jaskinia %;\ + /elseif (lw1=/"szopa") /set _lw26=szopa,%; /test ++lwcount%; /unnormalset szopa %;\ + /elseif (lw1=/"barak") /set _lw27=barak,%; /test ++lwcount%; /unnormalset barak %;\ + /elseif (lw1=/"wrota") /set _lw28=wrota,%; /test ++lwcount%; /unnormalset wrota %;\ + /elseif (lw1=/"brama") /set _lw29=brama,%; /test ++lwcount%; /unnormalset brama %;\ + /elseif (lw1=/"wejscie") /set _lw30=wejscie,%; /test ++lwcount%; /unnormalset wejscie %;\ + /elseif (lw1=/"ganek") /set _lw31=ganek,%; /test ++lwcount%; /unnormalset ganek %;\ + /elseif (lw1=/"chata") /set _lw32=chata,%; /test ++lwcount%; /unnormalset chata %;\ + /endif /def -mregexp -Fp2 -t'Jest tutaj (.*) widoczne wyjscie: (.*)\\.$' olw0 = /set lw %P2 %; /lw4 /def -mregexp -Fp2 -t'Jest tutaj (.*) widocznych wyjsc: (.*)\\.$' olw1 = /set lw %P2 %; /lw4 @@ -54,262 +54,255 @@ /def -mregexp -Fp2 -t'Ledwo widoczn.* sciezk.* poprzez zatopiony w ciemnosciach gaj na (.*)\\.%' olw15 = /set lw %P1 %; /lw4 /def -mregexp -Fp2 -t'Sciezk.* (wiedzie|rozgalezia sie) na (.*)\\.%' olw16 = /set lw %P2 %; /lw4 -/def -mregexp -p2 -t'Wszyscy na poklad!' ship0_0 = \ - /tbind wns -/def -mregexp -p2 -t'Doplynelismy.*(Mozna|w calej swej)' ship0_1 = \ - /tbind zsiadz ze statku -/def -mregexp -p2 -t'Do przystani przybija wielki trojmasztowy galeon.' ship2_0 = \ - /tbind wns -/def -mglob -p2 -t'*Marynarze sprawnie cumuja go i wysuwaja na brzeg trap.*' ship2_1 = \ - /tbind zsiadz ze statku -/def -mregexp -p2 -t'Niewielki prom rzeczny przybija do brzegu.' ship3_0 = \ - /tbind wsiadz na statek -/def -mregexp -p2 -t' przybija do brzegu\\.' ship3_1 = \ - /tbind wsiadz na statek -/def -mregexp -p2 -t'Prom przybija do przystani na polnocnym brzegu rzeki.' ship_6 = \ - /tbind zsiadz ze statku -/def -mregexp -p2 -t'.*dylizans powoli zatrzymuje sie' dyl0_0 = \ - /tbind wdyl -/def -mregexp -p2 -t'Powoli pojazd zaczyna tracic predkosc' dyl0_1 = \ - /tbind wyjscie +/def -mregexp -p2 -t'(Wszyscy na poklad!|przybija wielki trojmasztowy galeon.|przybija do brzegu)' ship_on = \ + /tbind wns +/def -mregexp -p2 -t'(Doplynelismy.*(Mozna|w calej swej)|Marynarze sprawnie cumuja)' ship_off = \ + /tbind zsiadz ze statku +/def -mregexp -p2 -t'.*dylizans powoli zatrzymuje sie' dyl_on = \ + /tbind wdyl +/def -mregexp -p2 -t'Powoli pojazd zaczyna tracic predkosc' dyl_of = \ + /tbind wyjscie /def -mregexp -p2 -t'i wsiada do .* dylizansu' dyl0_2 = \ - /tbind wdyl + /tbind wdyl /def -mregexp -p2 -t'Stalowa klatka nadjezdza' winda0 = /beep 1 /def -mregexp -p2 -t'Otworzyly sie drzwi klatki' winda1 = /beep 1 +/def -mregexp -Fp2 -t'(Zamkniet|Otwart).*(?