74 lines
1.9 KiB
HCL
74 lines
1.9 KiB
HCL
; postepy
|
|
/set _postepy_max=19
|
|
/set _postepy_list=\
|
|
start/restart|\
|
|
znikome|\
|
|
minimalne|\
|
|
mizerne|\
|
|
nieznaczne|\
|
|
niewielkie|\
|
|
bardzo male|\
|
|
male|\
|
|
nieduze|\
|
|
znaczne|\
|
|
istotne|\
|
|
owocne|\
|
|
duze|\
|
|
pokazne|\
|
|
bardzo duze|\
|
|
trwale|\
|
|
wspaniale|\
|
|
wielkie|\
|
|
ogromne|\
|
|
kolosalne|\
|
|
nieopisane
|
|
|
|
/def postepy = \
|
|
/if ({1} =~ "reset") \
|
|
/set _postepy_czas_0=$[ftime("%H:%M", time())]%;\
|
|
/set _postepy_own_0=%ownkills%;\
|
|
/set _postepy_all_0=%allkills%;\
|
|
/test ++_postepy_reset_counter%;\
|
|
/set _postepy_current=0%;\
|
|
/send postepy reset%;\
|
|
/else \
|
|
/let __index=0%; \
|
|
/echo +---------------+-------------------+%;\
|
|
/echo $[strcat("| ", pad("cykl", -14), "|", pad({_postepy_reset_counter}, 18), " |")]%;\
|
|
/echo +---------------+-------+-----+-----+%; \
|
|
/while ({__index}<={_postepy_current}) \
|
|
/let __postep=$[_get_element({__index}, {_postepy_list})]%;\
|
|
/let __czas=$(/listvar -v _postepy_czas_$[strcat({__index})])%;\
|
|
/let __own=$(/listvar -v _postepy_own_$[strcat({__index})])%;\
|
|
/let __all=$(/listvar -v _postepy_all_$[strcat({__index})])%;\
|
|
/if ({__czas} =~ "" )\
|
|
/let __czas=?:?%;\
|
|
/endif%;\
|
|
/if ({__own} =~ "" )\
|
|
/let __own=?%;\
|
|
/endif%;\
|
|
/if ({__all} =~ "" )\
|
|
/let __all=?%;\
|
|
/endif%;\
|
|
/echo $[strcat("| ", pad({__postep},-14), "| ", pad({__czas},5), " |", pad({__own},4), " |", pad({__all},4), " |")]%;\
|
|
/let __index=$[{__index}+1]%; \
|
|
/done%; \
|
|
/if ({_postepy_current}==-1) \
|
|
/echo -p @{n}| | |%; \
|
|
/endif%; \
|
|
/echo +---------------+-------+-----+-----+%;\
|
|
/endif
|
|
|
|
/def -Fp2 -mregexp -t'[Zz]abil.* ' poka_exp = /send postepy
|
|
|
|
/def exp = \
|
|
/send usiadz %;\
|
|
/send medytuj %;\
|
|
/send ocen sile %;\
|
|
/send ocen zrecznosc %;\
|
|
/send ocen wytrzymalosc %;\
|
|
/send ocen inteligencje %;\
|
|
/send ocen madrosc %;\
|
|
/send ocen odwage %;\
|
|
/send powstan
|