Debug Output External Network for Little_Fairy v1.0

alias debug_output {
  if (!%debug_output_network) && (!%debug_output_channel) { return }

  var %cid = $find_cid(%debug_output_network)

  if (!%cid) { return }

  scid -t1 %cid

  if ($status == connected) && ($me ison %debug_output_channel) {
    msg %debug_output_channel Debug: $1-
    halt
  }
}

alias start_debug {
  if (!$2) && (!$3) { return }
  if (%debug_output_network) && (%debug_output_channel) { return }
  set -e %debug_output_network $1
  set -e %debug_output_channel $2
  debug -ni @debuging $!debug_output
}

alias stop_debug {
  if (!%debug_output_network) && (!%debug_output_channel) { return }
  unset %debug_output_*
  debug -c off @debuging
}

alias -l find_cid {
  var %t = $scon(0)

  if (!$1) || (!%t) { return 0 }

  while (%t) {
    var %network = $scon(%t).network
    var %cid = $scon(%t).cid
    if ($1 == %network) { return %cid }
    dec %t
  }
  return 0
}