$IRCD identifier for Koragg v1.1

alias ircd {
  if ($status !== connected) { return 0 }

  if ($1) { var %v = $ircd_find_by_network($1) }
  else { var %v = $hget(IRCD,$server) }

  return $iif(%v,$v1,0)
}

RAW 002:*: { hadd -m IRCD $server $2- }

alias -l ircd_find_by_network {
  if (!$1) { return 0 }

  var %t = $scon(0)

  var %i = 1
  while (%i <= %t) {
    var %n = $scon(%i).network
    var %s = $scon(%i).server
    var %v = $hget(IRCD,%s)

    if (%n == $1) && (%v) { return %v }

    inc %i
  }

  return 0
}