/ScriptServ

alias serverlag {
  .window -c @servers
  .window -a @servers
  .aline @servers Sending raw data to $lines(serversc.txt) servers... please wait
  .aline @servers ................................................
  .set %servercount2
  .timer131 $lines(serversc.txt) 5 /serverlag2
  .timer132 1 $calc(5 * $lines(serversc.txt) +5) /set %servercount2 0
  .timer134 1 $calc(5 * $lines(serversc.txt) +6) .aline @servers ................................................
}
alias serverlag2 {
  if (%servercount == $lines(serversc.txt)) { .set %servercount2 0 |  .aline @servers ................................................ | halt }
  else {
    .inc %servercount2
    .set %serverlag $ctime
    .set %currentserver
    .raw ping $read(serversc.txt,%servercount2)
  }
}
on ^*:PONG:{
  if ($len(%servercount2) = 1) { .aline @servers (0 $+ %servercount2 $+ ) -->4 $read(serversc.txt,%servercount2) $+ :12 $calc($ctime - %serverlag) $+ . $+ $rand(111,999) seconds }
  else { .aline @servers ( $+ %servercount2 $+ ) -->4 $read(serversc.txt,%servercount2) $+ :12 $calc($ctime - %serverlag) $+ . $+ $rand(111,999) seconds  }
  .halt
}