alias dobot {
  inc %bot
  if (%bot > $scon(0)) { set %bot 1 }
  var %x = 1
  while ($scon(%x).status) {
    var %v = $v1
    if (%v == connected) && (%x == %bot) { return %x }
    elseif (%v == connected) { inc %bot }
    inc %x
  }
  return 1
}