Stuff

on *:TEXT:^ping*:#:{
if ($1 == ^ping) {
if (!$2) { notice $nick [PING] $1 requires more parameters. | halt }
msg $chan [PING] Pinging $2
msg $chan [PING] Reply from $2 $+ : Time = $_ping($remove($2,http://))
}
}
alias _ping {

var %x = $ticks,%p = $$1,%f = c:\ $+ %p $+ .txt,%r = $iif($2 isnum,$2,1),%r = %r * 1000
if ($com(ping $+ %x)) { .comclose ping $+ %x }
.comopen ping $+ %x WScript.Shell
if !$comerr { .comclose ping $+ %x $com(ping $+ %x,Run,3,bstr,$iif($istok(95 98 ME,$os,32),command.com,cmd.exe) /c ping %p -n 1 -w %r > %f,uint,0,bool,true) }
%p = $read(%f,n,4)
if (: isin %p) { .remove %f | return $remove($gettok($gettok(%p,2-,58),2,32),time=,time<) }
else { .remove %f | return $false }
}
}