Poprawki do /postepy.

This commit is contained in:
Bartek Stalewski 2014-11-19 19:29:54 +01:00
parent 28ca013d4b
commit 2238df5cb4
4 changed files with 14 additions and 25 deletions

View File

@ -184,18 +184,20 @@
/def czysc_spece = /quote -S /unset `/listvar -s spec_*%;
; postepy
/set _postepy_max=16
/set _postepy_list=\
logowanie|\
minimalne|\
nieznaczne|\
bmale|\
bardzo male|\
male|\
nieduze|\
zadowalajace|\
spore|\
dduze|\
dosc duze|\
znaczne|\
duze|\
bduze|\
bardzo duze|\
ogromne|\
imponujace|\
wspaniale|\

View File

@ -7,6 +7,10 @@
/f7 empty
/f8 empty
/eval /set _postepy_czas_0=$[ftime("%H:%M", time())]
/set _postepy_own_0=0
/set _postepy_all_0=0
;; kompatybilność wsteczna:
/eval /set kolor_info=%c_info
/eval /set obecnie_swiat=%mudworld

View File

@ -144,24 +144,11 @@
/done%; \
/return ""
/def -Fp2 -mregexp -t'Poczynil.s (.*) postepy, od momentu kiedy wszedles do gry\.' _postepy_lap = \
/if ({3} =~ "male")\
/let __postep=$[strcat({2}," ", {3})]%;\
/elseif ({3} =~ "duze")\
/let __postep=$[strcat({2}," ", {3})]%;\
/else \
/let __postep=%{2}%;\
/endif%;\
/if ({__postep} =~ "bardzo male")\
/let __postep=bmale%;\
/elseif ({__postep} =~ "dosc duze")\
/let __postep=dduze%;\
/elseif ({__postep} =~ "bardzo duze")\
/let __postep=bduze%;\
/endif%;\
/def -Fp2 -mregexp -t'Poczynil.s (.*) postepy, od momentu kiedy' _postepy_lap = \
/let __postep=%{P1}%;\
/let __index=$[_get_index({__postep}, {_postepy_list})]%;\
/_postepy_zanotuj %{__index}%;\
/_sub %__index/15
/_sub %{__index}/%{_postepy_max}
/def _postepy_zanotuj = \
/let __postep=%{1}%; \
@ -198,9 +185,3 @@
/echo -p @{n}| | |%; \
/endif%; \
/echo +--------------+-------+-----+-----+
/def _postepy_show = \
/let __postep=%{2}%; \
/let __index=$[_get_index({__postep}, {_postepy_list})]%; \
/_postepy_zanotuj %{__index}%; \
/test substitute(strcat("@{B}", {1}, " [",{__index},"/15]"),"",1)

View File

@ -1,5 +1,7 @@
; postepy
/set _postepy_max=20
/set _postepy_list=\
logowanie|\
znikome|\
minimalne|\
mizerne|\