Mine

alias check {
  if ( start isin $1 ) {
    .timer10001 0 10 checkforlag

  }
  elseif ( stop isin $1 ) {
    /timer* off
    /echo $chan Lag check stopped.
  }
}

alias checkforlag {
  set %randlag $rand(1,100) $+ $rand(a,z)
  .notice vBot checklag %randlag

  .timer $+ $rand(1,1000) 1 10 /lagcheck
  .timer $+ $rand(1,1000) 0 4  /set %lagcheck lag
}


on ^*:NOTICE:lagreply*:?: {
  if ( $nick = vBot ) && ( $2 == %randlag ) {
    /set %lagcheck $2
    /set %randlag nothing yet silly!
    .timer* off
    .check start
    haltdef
  }

}

alias lagcheck {
  if ( %lagcheck = lag ) {
    set %lagok 1
    echo $active 9,1 WARNING: YOU MAY BE LAGGED OUT
  }
  else {
  }

}