ftpd/tf-scripts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
master
tf-scripts/common/lists.tf

326 lines
22 KiB
Terraform
Raw Permalink Normal View History

Initial commit.
2012-05-07 18:54:48 +02:00
; originally by Kalreg, szydell
Dodanie wsparcia dla schematow kolorow.
2013-02-19 21:52:14 +01:00
/eval /set rebinder_plik_wejscia %{priv_dir}/%{mudworld}/players/%{player}/lista.tf
/eval /set rebinder_plik_wyjscia %{priv_dir}/%{mudworld}/players/%{player}/lista.tmp
Initial commit.
2012-05-07 18:54:48 +02:00
/require textutil.tf
/require lisp.tf
/eval /require %rebinder_plik_wejscia
/set REBINDER_PRIORYTET_STD 0
/def rebinder_def_pomocniczy = \
Indentacja.
2015-06-23 14:32:41 +02:00
/let tmp $[strcat("REBINDER_LISTA_",{*})]%;\
/result $[{tmp}]
Initial commit.
2012-05-07 18:54:48 +02:00
/def pobierz_kolor_z_listy = \
Indentacja.
2015-06-23 14:32:41 +02:00
/let REBINDER_KOLOR $[substr(REBINDER_LISTA_LISTY,strstr(REBINDER_LISTA_LISTY,{1}))]%;\
/let REBINDER_KOLOR $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR,"@"))]%;\
/let REBINDER_KOLOR $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR,"#") + 1)]%;\
/if ( strstr(REBINDER_KOLOR,"#") == -1 ) \
/result REBINDER_KOLOR%;\
/else \
/result strcat(substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR,"#"))," ",substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR,"#") + 1))%;\
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/def rebinder_zapisz_liste = \
Indentacja.
2015-06-23 14:32:41 +02:00
/quote -S -dexec !grep -v _%{1} %rebinder_plik_wejscia > %rebinder_plik_wyjscia %;\
/quote -S -dexec !mv %rebinder_plik_wyjscia %rebinder_plik_wejscia%;\
/if ( {2} !~ "0" ) \
/echo -p /set REBINDER_LISTA_%{1} $[rebinder_def_pomocniczy({1})] %| /writefile -a %rebinder_plik_wejscia%;\
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/def lists = \
Indentacja.
2015-06-23 14:32:41 +02:00
/if ( {1} =~ "help" | {1} =~ "pomoc" ) \
/echo -p #@{C%c_info}#@{n}# ---------- [ DODAWANIE ] ----------------------------------------------- %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# /dodaj liste <nazwa listy> <kolor> [kolor tla] %;\
/echo -p #@{C%c_info}#@{n}# /dodaj <nazwa listy> <opis mianownik> [priorytet] %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# ---------- [ USUWANIE ] ------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# /usun liste <nazwa listy> %;\
/echo -p #@{C%c_info}#@{n}# /usun <nazwa listy> <wpis> %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# ---------- [ ZMIANA KOLOROW LISTY ] ------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# /zmien <nazwa listy> <kolor> [kolor tla] %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# ---------- [ WYSWIETLANIE ] -------------------------------------------- %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# /wyswietl listy %;\
/echo -p #@{C%c_info}#@{n}# /wyswietl <nazwa_listy> %;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/else \
/let REBINDER_AKTUALNY_Z_LISTY_LIST $[strcat(substr(rebinder_def_pomocniczy("LISTY"),1),":")]%;\
/let i=1%;\
/let k=1%;\
/let m=1%;\
/if ( {1} =~ "silent" ) \
\
/elseif ( {2} =~ "silent") \
\
/else \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/endif%;\
/while ( strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,":") != 0 ) \
/let REBINDER_AKTUALNA_LISTA_LIST $[substr({REBINDER_AKTUALNY_Z_LISTY_LIST},0,strstr({REBINDER_AKTUALNY_Z_LISTY_LIST},"#"))]%;\
/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_AKTUALNA_LISTA_LIST})]%;\
/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
/let REBINDER_KOLOR_DEF -PC%REBINDER_KOLOR%;\
/else \
/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
/let REBINDER_KOLOR_DEF -PC%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2%;\
/endif%;\
/let REBINDER_AKTUALNY_Z_LISTY $[strcat(substr(rebinder_def_pomocniczy({REBINDER_AKTUALNA_LISTA_LIST}),1),"@")]%;\
/let j=1%;\
/while ( strstr(REBINDER_AKTUALNY_Z_LISTY,"@") != 0 ) \
/let REBINDER_AKTUALNA_LISTA $[substr({REBINDER_AKTUALNY_Z_LISTY},0,strstr({REBINDER_AKTUALNY_Z_LISTY},"@"))]%;\
/let NAME $[replace("[a-z]*","",{REBINDER_AKTUALNA_LISTA})] %;\
/let NAME $[replace(" ","",{NAME})] %;\
/def -mregexp -Fp3 %REBINDER_KOLOR_DEF -t'(%REBINDER_AKTUALNA_LISTA)' REBINDER_%{REBINDER_AKTUALNA_LISTA_LIST}_%{NAME} %;\
/let REBINDER_AKTUALNY_Z_LISTY $[substr(REBINDER_AKTUALNY_Z_LISTY,strstr(REBINDER_AKTUALNY_Z_LISTY,"@") +1)]%;\
/let j=$[++j]%;\
/let m=$[++m]%;\
/done%;\
/if ( {*} =~ NULL | {*} =~ {REBINDER_AKTUALNA_LISTA_LIST} ) \
/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_AKTUALNA_LISTA_LIST})] %;\
/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
/echo -p #@{C%c_info}#@{n}# Lista "@{C%REBINDER_KOLOR}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
/else \
/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
/echo -p #@{C%c_info}#@{n}# Lista "@{C%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n}" wgrana. Rekordy: @{B}$[--j]@{n} %;\
/endif%;\
/endif%;\
/let j=0%;\
/let REBINDER_AKTUALNY_Z_LISTY_LIST $[substr(REBINDER_AKTUALNY_Z_LISTY_LIST,strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,"@") +1)]%;\
/let i=$[++i]%;\
/done%;\
/if ( {*} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Ilosc list: @{B}$[--i]@{n}, rekordow: @{B}$[--m]@{n} %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/endif%;\
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/def dodaj = \
Indentacja.
2015-06-23 14:32:41 +02:00
/if ( %{*} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Jaka liste badz osobe dodac? %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( %{1} =~ "liste" & %{2} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podaj nazwe listy, ktora chcesz dodac. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( {1} =~ "liste" & %{2} !~ NULL ) \
/if ( strstr({REBINDER_LISTA_LISTY},{2}) > -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Taka lista juz istnieje. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{2}) == -1 & {3} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Nie podano koloru dla tej listy. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{2}) == -1 & {3} !~ NULL ) \
/if ( {4} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Lista "@{C%{3}}$[toupper({2})]@{n}" zostala dodana. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/if ( strstr({REBINDER_LISTA_LISTY},"@") == -1 ) \
/set REBINDER_LISTA_LISTY $[strcat("@",{REBINDER_LISTA_LISTY})]%;\
/endif%;\
/set REBINDER_LISTA_LISTY $[strcat({REBINDER_LISTA_LISTY},{2},"#",{3},"@")]%;\
/rebinder_zapisz_liste LISTY%;\
Colorscheme dla solarized-light.
2013-02-20 17:20:13 +01:00
/else \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Lista "@{C%{3},Cbg%{4}}$[toupper({2})]@{n}" zostala dodana. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/if ( strstr({REBINDER_LISTA_LISTY},"@") == -1 ) \
/set REBINDER_LISTA_LISTY $[strcat("@",{REBINDER_LISTA_LISTY})]%;\
/endif%;\
/set REBINDER_LISTA_LISTY $[strcat({REBINDER_LISTA_LISTY},{2},"#",{3},"#",{4},"@")]%;\
/rebinder_zapisz_liste LISTY%;\
/endif%;\
/endif%;\
Indentacja.
2015-06-23 14:32:41 +02:00
/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Taka lista nie istnieje. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) > -1 ) \
/if ( strstr(rebinder_def_pomocniczy({1}),{-1}) > -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Ta osoba jest juz w tej liscie. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/else \
/if ( strstr(rebinder_def_pomocniczy({1}),"@") == -1 ) \
/set REBINDER_LISTA_%1 $[strcat("@",rebinder_def_pomocniczy({1}))]%;\
/endif%;\
/set REBINDER_LISTA_%1 $[strcat(rebinder_def_pomocniczy({1}),{-1},"@")]%;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Dodaje $[toupper({-1})] do listy "$[toupper({1})]". %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/rebinder_zapisz_liste $[tolower({1})]%;\
/lists $[tolower({1})] silent%;\
/endif %;\
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/def zmien = \
Indentacja.
2015-06-23 14:32:41 +02:00
/if ( %{*} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podaj liste, ktorej kolor chcesz zmienic. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Taka lista nie istnieje. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( {2} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podaj przynajmniej jeden kolor, ktory chcesz zmienic w liscie. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/else \
/let REBINDER_LEWO=$[substr(REBINDER_LISTA_LISTY,0,strstr(REBINDER_LISTA_LISTY,{1}))]%;\
/let REBINDER_SRODEK=$[substr(REBINDER_LISTA_LISTY,strstr(REBINDER_LISTA_LISTY,{1}))]%;\
/let REBINDER_PRAWO=$[substr(REBINDER_SRODEK,strstr(REBINDER_SRODEK,"@"))]%;\
/let REBINDER_SRODEK_1=$[substr(REBINDER_SRODEK,0,strstr(REBINDER_SRODEK,"#") + 1)]%;\
/let REBINDER_SRODEK_2=$[substr(REBINDER_SRODEK,strstr(REBINDER_SRODEK,"#") + 1)]%;\
/if ( {3} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Zmieniono kolor listy "@{C%{2}}$[toupper({1})]@{n}" %;\
/let REBINDER_KOLOR %{2}%;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/set REBINDER_LISTA_LISTY $[strcat(REBINDER_LEWO,REBINDER_SRODEK_1,REBINDER_KOLOR,REBINDER_PRAWO)]%;\
/rebinder_zapisz_liste LISTY%;\
/lists $[tolower({1})] silent%;\
/else \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Zmieniono kolor listy "@{C%{2},Cbg%{3}}$[toupper({1})]@{n}" %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/let REBINDER_KOLOR %{2}#%{3}%;\
/set REBINDER_LISTA_LISTY $[strcat(REBINDER_LEWO,REBINDER_SRODEK_1,REBINDER_KOLOR,REBINDER_PRAWO)]%;\
/rebinder_zapisz_liste LISTY%;\
/lists $[tolower({1})] silent%;\
/endif%;\
Wiszace puste spacje.
2016-06-14 19:05:29 +02:00
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/def wyswietl = \
Indentacja.
2015-06-23 14:32:41 +02:00
/if ( {*} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podaj liste, ktora chcesz przejrzec. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( {1} =~ "listy" ) \
/let REBINDER_AKTUALNY_Z_LISTY_LIST $[strcat(substr(rebinder_def_pomocniczy("LISTY"),1),":")]%;\
/echo -p #@{C%c_info}#@{n}# -- [ ZALOZONE LISTY ] -------------------------------------------------- %;\
/echo -p #@{C%c_info}#@{n}# %;\
/let i=1%;\
/while ( strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,":") != 0 ) \
/let REBINDER_AKTUALNA_LISTA_LIST $[substr({REBINDER_AKTUALNY_Z_LISTY_LIST},0,strstr({REBINDER_AKTUALNY_Z_LISTY_LIST},"#"))]%;\
/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_AKTUALNA_LISTA_LIST})]%;\
/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
/echo -p #@{C%c_info}#@{n}# [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{C%{REBINDER_KOLOR}}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n}%;\
/else \
/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
/echo -p #@{C%c_info}#@{n}# [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNA_LISTA_LIST))] @{C%{REBINDER_KOLOR_1}}@{Cbg%{REBINDER_KOLOR_2}}$[toupper(REBINDER_AKTUALNA_LISTA_LIST)]@{n} ]@{n}%;\
/endif%;\
/let REBINDER_AKTUALNY_Z_LISTY $[strcat(substr(rebinder_def_pomocniczy({REBINDER_AKTUALNA_LISTA_LIST}),1),":")]%;\
/let REBINDER_AKTUALNY_Z_LISTY_LIST $[substr(REBINDER_AKTUALNY_Z_LISTY_LIST,strstr(REBINDER_AKTUALNY_Z_LISTY_LIST,"@") +1)]%;\
/let i=$[++i]%;\
/done%;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# $[strrep("-",50 - strlen({i}))] [ Lacznie list: @{C%c_info}$[--i]@{n} ] -- %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Taka lista nie istnieje. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/else \
/let REBINDER_KOLOR $[pobierz_kolor_z_listy({1})]%;\
/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
/echo -p #@{C%c_info}#@{n}# -- [ OSOBY Z LISTY @{C%REBINDER_KOLOR}$[toupper({1})]@{n}] $[strrep("-",50 - strlen({1}))] %;\
/else \
/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
/echo -p #@{C%c_info}#@{n}# -- [ OSOBY Z LISTY @{C%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2}$[toupper({1})]@{n}] $[strrep("-",50 - strlen({1}))] %;\
/endif%;\
/echo -p #@{C%c_info}#@{n}# %;\
/let REBINDER_WYSWIETLANI $[strcat(substr(rebinder_def_pomocniczy({1}),1),"@")]%;\
/let i=1%;\
/while ( strstr(REBINDER_WYSWIETLANI,"@") != 0 ) \
/let REBINDER_AKTUALNIE_WYSWIETLANY $[substr(REBINDER_WYSWIETLANI,0,strstr(REBINDER_WYSWIETLANI,"@"))]%;\
/echo -p #@{C%c_info}#@{n}# [ %i $[strrep(".",60 - strlen({i}) - strlen(REBINDER_AKTUALNIE_WYSWIETLANY))] $[strcat(toupper(substr({REBINDER_AKTUALNIE_WYSWIETLANY},0,1)),substr({REBINDER_AKTUALNIE_WYSWIETLANY},1))] ] %;\
/let REBINDER_WYSWIETLANI $[substr(REBINDER_WYSWIETLANI,strstr(REBINDER_WYSWIETLANI,"@") +1)]%;\
/let i=$[++i]%;\
/done%;\
/echo -p #@{C%c_info}#@{n}# %;\
/echo -p #@{C%c_info}#@{n}# $[strrep("-",41 - strlen({i}))] [ Lacznie na tej liscie: @{C%c_info}$[--i]@{n} ] -- %;\
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/def usun = \
Indentacja.
2015-06-23 14:32:41 +02:00
/if ( %{*} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Jaka liste badz osobe usunac? %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( %{1} =~ "liste" & %{2} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podaj nazwe listy, ktora chcesz usunac. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( {1} =~ "liste" & %{2} !~ NULL ) \
/if ( strstr({REBINDER_LISTA_LISTY},{2}) == -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Taka lista nie istnieje. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{2}) > -1) \
/let REBINDER_NOW %REBINDER_LISTA_%{2} %;\
/let REBINDER_KOLOR $[pobierz_kolor_z_listy({REBINDER_NOW})]%;\
/let REBINDER_LISTA_LEWO=$[substr({REBINDER_LISTA_LISTY},0,strstr({REBINDER_LISTA_LISTY},{2})-1)]%;\
/let REBINDER_LISTA_TEMP=$[substr({REBINDER_LISTA_LISTY},strstr({REBINDER_LISTA_LISTY},{2}))]%;\
/let REBINDER_LISTA_PRAWO=$[substr({REBINDER_LISTA_TEMP},strstr({REBINDER_LISTA_TEMP},"@"))]%;\
/set REBINDER_LISTA_LISTY=$[strcat({REBINDER_LISTA_LEWO}, {REBINDER_LISTA_PRAWO})]%;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/if ( strstr(REBINDER_KOLOR," ") == -1 ) \
/echo -p #@{C%c_info}#@{n}# Lista "@{C%REBINDER_KOLOR}$[toupper({2})]@{n}" zostala usunieta. %;\
/else \
/let REBINDER_KOLOR_1 $[substr(REBINDER_KOLOR,0,strstr(REBINDER_KOLOR," "))]%;\
/let REBINDER_KOLOR_2 $[substr(REBINDER_KOLOR,strstr(REBINDER_KOLOR," ")+1)]%;\
/echo -p #@{C%c_info}#@{n}# Lista "@{C%REBINDER_KOLOR_1,Cbg%REBINDER_KOLOR_2}$[toupper({2})]@{n}" zostala usunieta. %;\
/endif%;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/rebinder_zapisz_liste LISTY%;\
/rebinder_zapisz_liste $[tolower({2})] 0%;\
/unset REBINDER_LISTA_%{2}%;\
/purge REBINDER_%2*%;\
/endif%;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) == -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Nie ma takiej listy. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( strstr({REBINDER_LISTA_LISTY},{1}) > -1) \
/if ( {2} =~ NULL ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podaj jakies imie badz opis w mianowniku. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/elseif ( {2} !~ NULL ) \
/if ( strstr(rebinder_def_pomocniczy({1}),{-1}) == -1 ) \
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Podanej osoby nie ma na tej liscie. %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/else \
/let REBINDER_LISTA_LEWO=$[substr(rebinder_def_pomocniczy({1}),0,strstr(rebinder_def_pomocniczy({1}),{-1})-1)]%;\
/let REBINDER_LISTA_TEMP=$[substr(rebinder_def_pomocniczy({1}),strstr(rebinder_def_pomocniczy({1}),{-1}))]%;\
/let REBINDER_LISTA_PRAWO=$[substr({REBINDER_LISTA_TEMP},strstr({REBINDER_LISTA_TEMP},"@"))]%;\
/let NAME $[replace("[a-z]*","",{-1})] %;\
/let NAME $[replace(" ","",{NAME})] %;\
/purge REBINDER_%{1}_%{NAME} %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/echo -p #@{C%c_info}#@{n}# Wpis $[toupper({-1})] zostal usuniety z listy "$[toupper({1})]". %;\
/echo -p #@{C%c_info}#@{n}# ------------------------------------------------------------------------ %;\
/set REBINDER_LISTA_%1 $[strcat({REBINDER_LISTA_LEWO}, {REBINDER_LISTA_PRAWO})]%;\
/rebinder_zapisz_liste $[tolower({1})]%;\
/endif%;\
/endif%;\
/endif
Initial commit.
2012-05-07 18:54:48 +02:00
/lists silent
Reference in New Issue Copy Permalink