25 lines
445 B
HCL
25 lines
445 B
HCL
/def exp = \
|
|
usiadz %;\
|
|
medytuj %;\
|
|
ocen sile %;\
|
|
ocen zrecznosc %;\
|
|
ocen wytrzymalosc %;\
|
|
ocen inteligencje %;\
|
|
ocen madrosc %;\
|
|
ocen odwage %;\
|
|
powstan
|
|
|
|
/def -i pid_of = \
|
|
/quote -S \
|
|
/eval /let pid_czego=`"/@ps -r" %%;\
|
|
/if (strstr({pid_czego},{*}) != -1) \
|
|
/first %%{pid_czego} %%;\
|
|
/endif
|
|
/def rstart = \
|
|
/if ($(/pid_of %{-2})=~NULL) \
|
|
/repeat %{1} %{2} %{-2} %;\
|
|
/endif
|
|
|
|
/def rstop = \
|
|
/kill $(/pid_of %{*})
|