@program p.net.ping.muf
1 10000 d
i
$include $lib/alynna
$include $p.net/sys

: .net.ping[ s:cguid s:muckname s:source s:target a:payload -- ]
payload @ me @ source @ muckname @ "ping" "pong" p.callback
; PUBLIC .net.ping

: .net.pong[ s:cguid s:muckname s:source d:target a:payload -- ]
target @ { "Ping #" payload @ 0 [] " returned in " systime_precise prog "_ping/" payload @ 0 [] intostr strcat getprop - tofloat 4 round " seconds." }cat notify
; PUBLIC .net.pong

: ping
background
dup not if { "ping <" mucklist "|" array_join ">[=<count>]" }tell exit then
"=" split dup not if pop "5" then atoi var! count var! muckname
count @ 100 > if { "No, you may NOT pingflood " "fname" muckname @ getMuck "!" }tell exit then
prog "_ping/" remove_prop
1 count @ 1 for var! num 
 prog "_ping/" num @ intostr strcat systime_precise setprop
 { "Sending ping #" num @ "..." }tell
 { num @ }array "*" muckname @ "ping" "ping" p.call
repeat
;
.
c
q