;;; I call this via: /addtelnet ping localhost 23 pinger.txt

/visual off
/more off
/def pinger = \
	/echo -aBCcyan $(/time %%c) %; \
	/send ping -c 5 mail.chaoticmux.org %; \
	/repeat -0:05 1 /pinger
/def -p10 -aBCred -mregexp -t', 100% packet loss'
/def -p10 -aBCgreen -mregexp -t', 0% packet loss'
/def -p10 -aBCyellow -mregexp -t', [2468]0% packet loss'
/def -p10 -aBCmagenta -mregexp -t'ping statistics'
/def -p10 -aBCblue -mregexp -t'^PING '
/gag 64 bytes *
/gag round-trip *
/eval /kill $(/ps -s)
/pinger