/loaded kalendarz.tf
; ==============================================================================
; = Kalendarz arkadiowy
; ==============================================================================
;
; *******************************************************************
; * v1.0
; * (c) YaaL 2003
; *******************************************************************
;
/set banner=@{BCyellow}###@{n}
/def message=/test $[echo(strcat({banner}, ' ', {*}), '', 1)]

/def -mregexp -t'^(> )*Jest w przyblizeniu .* dzien (pory|miesiaca) ([^ ]*) wedlug (rachuby czasu Starszego Ludu|Kalendarza Imperialnego)\.$' cal= /kalendarz %{P3}

/def kalendarz =\
  /if ({#}==0 | {#}>1)\
    /_echo %;\
    /message Skladnia: /kalendarz <miesiac/pora>.%;\
    /message Obsluguje zarowno ishtarianski, jak i imperialny kalendarz.%;\
  /else \
    /eval /set miesiac=$[strcat(toupper(substr({1},0,1)), tolower(substr({1},1)))]%;\
    /set pora_roku=chyba inna bajka,%;/set domena=dodatku gdzies indziej%;\
    /if ({miesiac}=~'Yule') /set pora_roku=zima%; /set domena=Ishtar%;/endif %;\
    /if ({miesiac}=~'Imbaelk') /set pora_roku=przedwiosnie%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Birke') /set pora_roku=wczesna wiosna%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Blathe') /set pora_roku=pozna wiosna%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Feainn') /set pora_roku=poczatek lata%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Lammas') /set pora_roku=koniec lata%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Velen') /set pora_roku=zlota jesien%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Saovine') /set pora_roku=pozna jesien%; /set domena=Ishtar%; /endif %;\
    /if ({miesiac}=~'Nachhexen') /set pora_roku=wczesna wiosna%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Jahrdrung') /set pora_roku=wiosna%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Pflugzeit') /set pora_roku=pozna wiosna%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Sigmarszeit') /set pora_roku=poczatek lata%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Sommerzeit') /set pora_roku=pelnia lata%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Vorgeheim') /set pora_roku=koniec lata%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Nachgeheim') /set pora_roku=poczatek jesieni%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Erntezeit') /set pora_roku=jesien%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Brauzeit') /set pora_roku=pozna jesien%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Kaltezeit') /set pora_roku=poczatek zimy%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Ulrichszeit') /set pora_roku=srodek zimy%; /set domena=Imperium%; /endif %;\
    /if ({miesiac}=~'Vorhexen') /set pora_roku=koniec zimy%; /set domena=Imperium%; /endif %;\
    /message %{miesiac} to %{pora_roku} w %{domena}. %;\
  /endif