/ScriptServ

on 1:CONNECT:.timer101 0 15 lagkill | .timer102 0 1 settit
alias settit .titlebar TIME: $+ $tim    %lag    IDLE: $+ $duration($idle)
alias lagkill { .ctcp $me LAGKILL $ctime | halt }
raw 301:*: if ( $2 == $me ) { halt }
ON 1:LOAD: echo -s 4,1Lag Killer addon by wk now loaded. (look at the titlebar)
alias tim {
  %tim = $time
  %hr = $gettok(%tim,1,$asc(:))
  %mn = $gettok(%tim,2,$asc(:))
  %sc = $gettok(%tim,3,$asc(:))
  if ( %hr < 12 ) { set %ap am }
  if ( %hr > 12 ) { set %ap pm | set %hr %hr - 12 }
  if ( %hr == 12) { set %ap pm }
  set -u2 %final %hr $+ : $+ %mn $+ : $+ %sc $+ %ap
  unset %hr %mn %sc %ap %tim
  return %final
}
ctcp 1:LAGKILL:*: {
  if ( $nick != $me ) { halt }
  %lag = LAG: $+ $duration($calc($ctime - $2)) | halt
}