ludic/packages/ludic.npc/names.ludic

# names.ludic - a name nobody else in the place is using: not another person, not one the place
# keeps for itself (NpcWorld.taken: a vendor), and not somebody who left a little while ago

export function npc_name_used(npc_st: mut NpcState, n: string) -> bool {
  if NpcWorld.taken(n) { return true }
  let all = npc_walkers(npc_st)
  for i in 0 .. len(all) { if all[i].active and all[i].name == n { return true } }
  let posts = npc_posts(npc_st)
  for i in 0 .. len(posts) { if posts[i].active and posts[i].name == n { return true } }
  if npc_st.np_recent != null { for i in 0 .. len(npc_st.np_recent) { if npc_st.np_recent[i] == n { return true } } }
  return false
}

# a free name from the body's pool, from a place in it the dice choose ("" when the pool is empty)
export function npc_pick_name(npc_st: mut NpcState, body: int) -> string {
  let pool = new []string
  for i in 0 .. NPCN_COUNT { if NpcNames[i].body == body { push(pool, NpcNames[i].name) } }
  let n = len(pool)
  if n == 0 { return "" }
  let start = npc_between(npc_st, 0, n - 1)
  for k in 0 .. n {
    let name = pool[(start + k) % n]
    if not npc_name_used(npc_st, name) { return name }
  }
  return pool[start]
}

function np_left(npc_st: mut NpcState, name: string) -> void {
  if npc_st.np_recent == null { npc_st.np_recent = new []string }
  push(npc_st.np_recent, name)
  if len(npc_st.np_recent) <= 8 { return }
  let keep = new []string
  for i in len(npc_st.np_recent) - 8 .. len(npc_st.np_recent) { push(keep, npc_st.np_recent[i]) }
  npc_st.np_recent = keep
}

# how many pairs share a name, the place's own names included
export function npc_name_clashes(npc_st: mut NpcState) -> int {
  var dup = 0
  let all = npc_walkers(npc_st)
  for i in 0 .. len(all) {
    let p = all[i]
    if not p.active { continue }
    if NpcWorld.taken(p.name) { dup += 1 }
    for k in i + 1 .. len(all) { if all[k].active and all[k].name == p.name { dup += 1 } }
  }
  return dup
}