on *:text:!botstatus:#:{ 
  if ($nick isop #pv) && ($nick isop #vision) && ($chan != #mirc) {
    unset %ping
    ping
    msg $chan $c2([)$c1(Vision) $c2(-) $c1(U dont need eyes to see,) $c2(U need) $c1(Vision)$c2(] [) $c1(Visi@n.Blind.No.Longer) $c2(])
    msg $chan $c2(Im currently in:) $+ $c1($chans)
    .timer 1 3 ping2 $chan
  }
}
alias chans {  var %x = 1
  while (%x <= $chan(0)) {  
    var %i = $iif(%i == %ping,$chan(%x),%i $+ $chr(44) $+ $chan(%x))
    inc %x 
  } 
  return %i
}
alias ping {
  /ctcp $me ping
}
alias ping2 {
  msg $1 $c1(My ping is currently) $c2($iif(%ping == $null,More as 3 seconds,$duration(%ping)))
}
on *:CTCPREPLY:*ping*:{
  if ($nick isop #pv) && ($nick isop #vision) && ($chan != #mirc) {
    set %ping $calc($ctime - $2)
  }
}