on *:TEXT:!lag:#: {
    set %te $ticks
    set %nickname $nick 
    .raw ping %te
  }
}
on ^*:PONG:{ 
  var %u $calc($ticks - %te)
  notice %nickname Lag on $server is: $+($calc(%u / 1000),$chr(32),seconds,.)
}