/* vi: set ts=2:
+-------------------+  Christian Schlittchen <corwin@amber.kn-bremen.de>
|                   |  Enno Rehling <enno@eressea.de>
| Eressea PBEM host |  Katja Zedel <katze@felidae.kn-bremen.de>
| (c) 1998 - 2003   |  Henning Peters <faroul@beyond.kn-bremen.de>
|                   |  Ingo Wilken <Ingo.Wilken@informatik.uni-oldenburg.de>
+-------------------+  Stefan Reich <reich@halbling.de>

This program may not be used, modified or distributed
without prior permission by the authors of Eressea.
*/

#pragma region includes

#include <platform.h>
#include <kernel/config.h>
#include "alliance.h"

#include <attributes/key.h>

/* kernel includes */
#include <kernel/building.h>
#include <kernel/faction.h>
#include <kernel/message.h>
#include <kernel/order.h>
#include <kernel/region.h>
#include <kernel/unit.h>
#include <kernel/item.h>
#include <kernel/command.h>

/* util includes */
#include <util/attrib.h>
#include <util/base36.h>
#include <util/bsdstring.h>
#include <util/language.h>
#include <util/parser.h>
#include <quicklist.h>
#include <util/rng.h>
#include <util/umlaut.h>

/* libc includes */
#include <assert.h>
#include <stdlib.h>
#include <string.h>

#pragma endregion

alliance *alliances = NULL;

void free_alliance(alliance * al)
{
  free(al->name);
  if (al->members)
    ql_free(al->members);
  free(al);
}

alliance *makealliance(int id, const char *name)
{
  alliance *al;;

  for (;;) {
    if (id > 0) {
      for (al = alliances; al; al = al->next) {
        if (al->id == id) {
          id = 0;
          break;
        }
      }
      if (id > 0)
        break;
    }
    id = id ? id : (1 + (rng_int() % MAX_UNIT_NR));
  }
  al = calloc(1, sizeof(alliance));
  al->id = id;
  if (name) {
    al->name = strdup(name);
  } else {
    al->flags |= ALF_NON_ALLIED;
  }
  al->next = alliances;
  return alliances = al;
}

alliance *findalliance(int id)
{
  alliance *al;
  for (al = alliances; al; al = al->next) {
    if (al->id == id)
      return al;
  }
  return NULL;
}

typedef struct alliance_transaction {
  struct alliance_transaction *next;
  unit *u;
  order *ord;
/*    alliance * al; */
/*    variant userdata; */
} alliance_transaction;

static struct alliance_transaction *transactions[ALLIANCE_MAX];

faction *alliance_get_leader(alliance * al)
{
  if (!al->_leader) {
    if (al->members) {
      al->_leader = (faction *) ql_get(al->members, 0);
    }
  }
  return al->_leader;
}

static void create_transaction(int type, unit * u, order * ord)
{
  alliance_transaction *tr =
    (alliance_transaction *) calloc(1, sizeof(alliance_transaction));
  tr->ord = ord;
  tr->u = u;
  tr->next = transactions[type];
  transactions[type] = tr;
}

static void cmd_kick(const void *tnext, struct unit *u, struct order *ord)
{
  create_transaction(ALLIANCE_KICK, u, ord);
}

static void cmd_leave(const void *tnext, struct unit *u, struct order *ord)
{
  create_transaction(ALLIANCE_LEAVE, u, ord);
}

static void cmd_transfer(const void *tnext, struct unit *u, struct order *ord)
{
  create_transaction(ALLIANCE_TRANSFER, u, ord);
}

static void cmd_new(const void *tnext, struct unit *u, struct order *ord)
{
  create_transaction(ALLIANCE_NEW, u, ord);
}

static void cmd_invite(const void *tnext, struct unit *u, struct order *ord)
{
  create_transaction(ALLIANCE_INVITE, u, ord);
}

static void cmd_join(const void *tnext, struct unit *u, struct order *ord)
{
  create_transaction(ALLIANCE_JOIN, u, ord);
}

static void perform_kick(void)
{
  alliance_transaction **tap = transactions + ALLIANCE_KICK;
  while (*tap) {
    alliance_transaction *ta = *tap;
    alliance *al = f_get_alliance(ta->u->faction);

    if (al && alliance_get_leader(al) == ta->u->faction) {
      faction *f;
      init_tokens(ta->ord);
      skip_token();
      skip_token();
      f = getfaction();
      if (f && f_get_alliance(f) == al) {
        setalliance(f, NULL);
      }
    }
    *tap = ta->next;
    free(ta);
  }
}

static void perform_new(void)
{
  alliance_transaction **tap = transactions + ALLIANCE_NEW;
  while (*tap) {
    alliance_transaction *ta = *tap;
    alliance *al;
    int id;
    faction *f = ta->u->faction;

    init_tokens(ta->ord);
    skip_token();
    skip_token();
    id = getid();

    al = makealliance(id, itoa36(id));
    setalliance(f, al);

    *tap = ta->next;
    free(ta);
  }
}

static void perform_leave(void)
{
  alliance_transaction **tap = transactions + ALLIANCE_LEAVE;
  while (*tap) {
    alliance_transaction *ta = *tap;
    faction *f = ta->u->faction;

    setalliance(f, NULL);

    *tap = ta->next;
    free(ta);
  }
}

static void perform_transfer(void)
{
  alliance_transaction **tap = transactions + ALLIANCE_TRANSFER;
  while (*tap) {
    alliance_transaction *ta = *tap;
    alliance *al = f_get_alliance(ta->u->faction);

    if (al && alliance_get_leader(al) == ta->u->faction) {
      faction *f;
      init_tokens(ta->ord);
      skip_token();
      skip_token();
      f = getfaction();
      if (f && f_get_alliance(f) == al) {
        al->_leader = f;
      }
    }
    *tap = ta->next;
    free(ta);
  }
}

static void perform_join(void)
{
  alliance_transaction **tap = transactions + ALLIANCE_JOIN;
  while (*tap) {
    alliance_transaction *ta = *tap;
    faction *fj = ta->u->faction;
    int aid;

    init_tokens(ta->ord);
    skip_token();
    skip_token();
    aid = getid();
    if (aid) {
      alliance *al = findalliance(aid);
      if (al && f_get_alliance(fj) != al) {
        alliance_transaction **tip = transactions + ALLIANCE_INVITE;
        alliance_transaction *ti = *tip;
        while (ti) {
          faction *fi = ti->u->faction;
          if (fi && f_get_alliance(fi) == al) {
            int fid;
            init_tokens(ti->ord);
            skip_token();
            skip_token();
            fid = getid();
            if (fid == fj->no) {
              break;
            }
          }
          tip = &ti->next;
          ti = *tip;
        }
        if (ti) {
          setalliance(fj, al);
          *tip = ti->next;
          free(ti);
        } else {
          /* TODO: error message */
        }
      }
    }
    *tap = ta->next;
    free(ta);
  }
}

static void execute(const struct syntaxtree *syntax, keyword_t kwd)
{
  int run = 0;

  region **rp = &regions;
  while (*rp) {
    region *r = *rp;
    unit **up = &r->units;
    while (*up) {
      unit *u = *up;
      if (u->number) {
        const struct locale *lang = u->faction->locale;
        void *root = stree_find(syntax, lang);
        order *ord;
        for (ord = u->orders; ord; ord = ord->next) {
          if (get_keyword(ord) == kwd) {
            do_command(root, u, ord);
            run = 1;
          }
        }
      }
      if (u == *up)
        up = &u->next;
    }
    if (*rp == r)
      rp = &r->next;
  }

  if (run) {
    perform_kick();
    perform_leave();
    perform_transfer();
    perform_new();
    perform_join();
  }
}

void alliance_cmd(void)
{
  static syntaxtree *stree = NULL;
  if (stree == NULL) {
    syntaxtree *slang = stree = stree_create();
    while (slang) {
      void *leaf = 0;
      add_command(&leaf, NULL, LOC(slang->lang, "new"), &cmd_new);
      add_command(&leaf, NULL, LOC(slang->lang, "invite"), &cmd_invite);
      add_command(&leaf, NULL, LOC(slang->lang, "join"), &cmd_join);
      add_command(&leaf, NULL, LOC(slang->lang, "kick"), &cmd_kick);
      add_command(&leaf, NULL, LOC(slang->lang, "leave"), &cmd_leave);
      add_command(&leaf, NULL, LOC(slang->lang, "command"), &cmd_transfer);
      slang->root = leaf;
      slang = slang->next;
    }
  }
  execute(stree, K_ALLIANCE);
  /* some may have been kicked, must remove f->alliance==NULL */
}

void alliancejoin(void)
{
  static syntaxtree *stree = NULL;
  if (stree == NULL) {
    syntaxtree *slang = stree = stree_create();
    while (slang) {
      void *leaf = 0;
      add_command(&leaf, NULL, LOC(slang->lang, "join"), &cmd_join);
      add_command(&slang->root, leaf, LOC(slang->lang, "alliance"), NULL);
      slang = slang->next;
    }
  }
  execute(stree, K_ALLIANCE);
}

void setalliance(faction * f, alliance * al)
{
  if (f->alliance == al)
    return;
  if (f->alliance != NULL) {
    int qi;
    quicklist **flistp = &f->alliance->members;

    for (qi = 0; *flistp; ql_advance(flistp, &qi, 1)) {
      faction *data = (faction *) ql_get(*flistp, qi);
      if (data == f) {
        ql_delete(flistp, qi);
        break;
      }
    }

    if (f->alliance->_leader == f) {
      if (f->alliance->members) {
        f->alliance->_leader = (faction *) ql_get(f->alliance->members, 0);
      } else {
        f->alliance->_leader = NULL;
      }
    }
  }
  f->alliance = al;
  f->alliance_joindate = turn;
  if (al != NULL) {
    ql_push(&al->members, f);
    if (al->_leader == NULL) {
      al->_leader = f;
    }
  }
}

const char *alliancename(const alliance * al)
{
  typedef char name[OBJECTIDSIZE + 1];
  static name idbuf[8];
  static int nextbuf = 0;

  char *ibuf = idbuf[(++nextbuf) % 8];

  if (al && al->name) {
    slprintf(ibuf, sizeof(name), "%s (%s)", al->name, itoa36(al->id));
  } else {
    return NULL;
  }
  return ibuf;
}

void alliancevictory(void)
{
  const struct building_type *btype = bt_find("stronghold");
  region *r = regions;
  alliance *al = alliances;
  if (btype == NULL)
    return;
  while (r != NULL) {
    building *b = r->buildings;
    while (b != NULL) {
      if (b->type == btype) {
        unit *u = building_owner(b);
        if (u) {
          fset(u->faction->alliance, FFL_MARK);
        }
      }
      b = b->next;
    }
    r = r->next;
  }
  while (al != NULL) {
    if (!fval(al, FFL_MARK)) {
      int qi;
      quicklist *flist = al->members;
      for (qi = 0; flist; ql_advance(&flist, &qi, 1)) {
        faction *f = (faction *) ql_get(flist, qi);
        if (f->alliance == al) {
          ADDMSG(&f->msgs, msg_message("alliance::lost", "alliance", al));
          destroyfaction(f);
        }
      }
    } else {
      freset(al, FFL_MARK);
    }
    al = al->next;
  }
}

int victorycondition(const alliance * al, const char *name)
{
  const char *gems[] =
    { "opal", "diamond", "zaphire", "topaz", "beryl", "agate", "garnet",
      "emerald", NULL };
  if (strcmp(name, "gems") == 0) {
    const char **igem;

    for (igem = gems; *igem; ++igem) {
      const struct item_type *itype = it_find(*igem);
      quicklist *flist = al->members;
      int qi;
      bool found = false;

      assert(itype != NULL);
      for (qi = 0; flist && !found; ql_advance(&flist, &qi, 1)) {
        faction *f = (faction *) ql_get(flist, 0);
        unit *u;

        for (u = f->units; u; u = u->nextF) {
          if (i_get(u->items, itype) > 0) {
            found = true;
            break;
          }
        }
      }
      if (!found)
        return 0;
    }
    return 1;

  } else if (strcmp(name, "phoenix") == 0) {
    quicklist *flist = al->members;
    int qi;

    for (qi = 0; flist; ql_advance(&flist, &qi, 1)) {
      faction *f = (faction *) ql_get(flist, qi);
      if (find_key(f->attribs, atoi36("phnx"))) {
        return 1;
      }
    }
    return 0;

  } else if (strcmp(name, "pyramid") == 0) {

    /* Logik:
     * - if (pyr > last_passed_size && pyr > all_others) {
     *     pyr->passed->counter++;
     *     for(all_other_pyrs) {
     *       pyr->passed->counter=0;
     *     }
     *
     *     if(pyr->passed->counter >= 3) {
     *       set(pyr, passed);
     *       pyr->owner->set_attrib(pyra);
     *     }
     *     last_passed_size = pyr->size;
     *   }
     */

    quicklist *flist = al->members;
    int qi;

    for (qi = 0; flist; ql_advance(&flist, &qi, 1)) {
      faction *f = (faction *) ql_get(flist, qi);
      if (find_key(f->attribs, atoi36("pyra"))) {
        return 1;
      }
    }
    return 0;
  }
  return -1;
}

void alliance_setname(alliance * self, const char *name)
{
  free(self->name);
  if (name)
    self->name = strdup(name);
  else
    self->name = NULL;
}