on *:connect:{
  .startyline
}

alias startyline {
  .echo -s starting keep alive
  .hadd -m nets $network $+ $cid 0
  .timer $+ $network $+ $cid -o 0 30 yline
}

alias yline {
  if ($hget(nets,$network $+ $cid) == 1) {
    .echo -s reconnecting to $server (PING TIMEOUT)
    .server $server
  }
  else {
    hadd -m nets $network $+ $cid 1
    .quote PING : $+ $ctime
  }
}

on *:pong:{
  .hadd -m nets $network $+ $cid 0
  .halt
}