/* vi: set ts=2:
 *
 *
 * Eressea PB(E)M host Copyright (C) 1998-2000
 *      Christian Schlittchen (corwin@amber.kn-bremen.de)
 *      Katja Zedel (katze@felidae.kn-bremen.de)
 *      Henning Peters (faroul@beyond.kn-bremen.de)
 *      Enno Rehling (enno@eressea-pbem.de)
 *      Ingo Wilken (Ingo.Wilken@informatik.uni-oldenburg.de)
 *
 * This program may not be used, modified or distributed without
 * prior permission by the authors of Eressea.
 */

#include <config.h>
#include "eressea.h"
#include "faction.h"
#include "unit.h"
#include "race.h"
#include "region.h"
#include "plane.h"

/* util includes */
#include <base36.h>

/* libc includes */
#include <stdio.h>
#include <stdlib.h>

const unit *
random_unit_in_faction(const faction *f)
{
	unit *u;
	int c = 0, u_nr;

	for(u = f->units; u; u=u->next) c++;

	u_nr = rand()%c;
	c = 0;

	for(u = f->units; u; u=u->next)
		if(u_nr == c) return u;

	/* Hier sollte er nie ankommen */
	return NULL;
}

const char *
factionname(const faction * f)
{
	typedef char name[OBJECTIDSIZE + 1];
	static name idbuf[8];
	static int nextbuf = 0;

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

	if (f && f->name) {
		sprintf(buf, "%s (%s)", strcheck(f->name, NAMESIZE), itoa36(f->no));
	} else {
		sprintf(buf, "Unbekannte Partei (?)");
	}
	return buf;
}

void *
resolve_faction(void * id) {
   return findfaction((int)id);
}

#define MAX_FACTION_ID (36*36*36*36)

static int
unused_faction_id(void)
{
	int id = rand()%MAX_FACTION_ID;

	while(!faction_id_is_unused(id)) {
		id++; if(id == MAX_FACTION_ID) id = 0;
	}

	return id;
}

unit *
addplayer(region *r, const char *email, const char * password, const struct race * frace, const struct locale *loc)
{
	int i;
	unit *u;
	faction *f;

    assert(frace != new_race[RC_ORC]);
    f = calloc(sizeof(faction), 1);

    set_string(&f->email, email);

	if (password) {
		set_string(&f->passw, password);
	} else {
		for (i = 0; i < 6; i++) buf[i] = (char) (97 + rand() % 26); buf[i] = 0;
		set_string(&f->passw, buf);
	}
	for (i = 0; i < 6; i++) buf[i] = (char) (97 + rand() % 26); buf[i] = 0;
	set_string(&f->override, buf);

	f->lastorders = turn;
	f->alive = 1;
	f->age = 0;
	f->race = frace;
	f->magiegebiet = 0;
	f->locale = loc;
	set_ursprung(f, 0, r->x, r->y);

	f->options = Pow(O_REPORT) | Pow(O_ZUGVORLAGE) | Pow(O_SILBERPOOL) | Pow(O_COMPUTER) | Pow(O_COMPRESS) | Pow(O_ADRESSEN) | Pow(O_STATISTICS);

	f->no = unused_faction_id();
	register_faction_id(f->no);

	f->unique_id = ++max_unique_id;

	sprintf(buf, "%s %s", LOC(loc, "factiondefault"), factionid(f));
	set_string(&f->name, buf);
	fset(f, FL_UNNAMED);

	addlist(&factions, f);

	u = createunit(r, f, 1, f->race);
	give_starting_equipment(r, u);
	fset(u, UFL_ISNEW);
	if (old_race(f->race) == RC_DAEMON) {
		race_t urc;
		do
			urc = (race_t)(rand() % MAXRACES);
		while (urc == RC_DAEMON || !playerrace(new_race[urc]));
		u->irace = new_race[urc];
	}
	fset(u, FL_PARTEITARNUNG);

	return u;
}

boolean
checkpasswd(const faction * f, const char * passwd)
{
	if (strcasecmp(f->passw, passwd)==0) return true;
	if (strcasecmp(f->override, passwd)==0) return true;
	return false;
}