/* 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 "xmas2000.h"

/* kernel includes */
#include <plane.h>
#include <item.h>
#include <unit.h>
#include <region.h>
#include <building.h>
#include <movement.h>
#include <event.h>
#include <faction.h>
#include <race.h>

/* gamecode includes */
#include "xmas.h"

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

#include <stdlib.h>

static int
xmasgate_handle(trigger * t, void * data)
{
	/* call an event handler on xmasgate.
	 * data.v -> ( variant event, int timer )
	 */
	unit * santa = ufindhash(atoi36("xmas"));
	building *b = (building *)t->data.v;
	if (santa && b) {
		unit ** up = &b->region->units;
		if (santa->region!=b->region) santa = NULL;
		while (*up) {
			unit * u = *up;
			if (u->building==b) {
				region * r = u->region;
				faction * f = u->faction;
				unit * home = f->units;
				unit * u2 = r->units;
				while (u2) {
					if (u2->faction==f && u2!=u && u2->number) break;
					u2 = u2->next;
				}
				while (home && (home->region==b->region || home->region->land==NULL)) home = home->nextF;
				if (home==NULL) continue;
				if (santa!=NULL && u2==NULL) {
					char zText[256];
					item_type * itype = olditemtype[(rand() % 4) + I_KEKS];
					i_change(&u->items, itype, 1);
					sprintf(zText, "%s gibt %d %s an %s.", unitname(santa), 1, locale_string(f->locale, resourcename(itype->rtype, GR_PLURAL)), unitname(u));
					i_change(&u->items, itype, 1);
					addmessage(home->region, u->faction, zText, MSG_COMMERCE, ML_INFO);
				}
				move_unit(u, home->region, NULL);
			}
			if (*up==u) up = &u->next;
		}
	} else
		log_error(("could not perform xmasgate::handle()\n"));
	unused(data);
	return 0;
}

static void
xmasgate_write(const trigger * t, FILE * F)
{
	building *b = (building *)t->data.v;
	fprintf(F, "%s ", itoa36(b->no));
}

static int
xmasgate_read(trigger * t, FILE * F)
{
	return read_building_reference((building**)&t->data.v, F);
}

struct trigger_type tt_xmasgate = {
	"xmasgate",
	NULL,
	NULL,
	xmasgate_handle,
	xmasgate_write,
	xmasgate_read
};

static trigger *
trigger_xmasgate(building * b)
{
	trigger * t = t_new(&tt_xmasgate);
	t->data.v = b;
	return t;
}

static void
make_gates(region * r)
{
	const building_type * btype = bt_find("xmas_exit");
	building * b;
	if (btype==NULL)
		btype = bt_make("xmas_exit", BTF_NOBUILD | BTF_INDESTRUCTIBLE, -1, 2, 10);
	else {
		b = r->buildings;
		while (b!=NULL && b->type!=btype) b = b->next;
		if (b!=NULL) return; /* gibt schon einen */
	}

	b = new_building(btype, r, NULL);
	b->size = btype->maxsize;
	b->name = strdup("Der Weg nach Hause");
	b->display = strdup("Achtung, hier gibt es die Geschenke!");
	add_trigger(&b->attribs, "timer", trigger_xmasgate(b));
}

void
init_xmas2000(void)
{
	tt_register(&tt_xmasgate);
}

void
create_xmas2000(int x, int y)
{
	const int prefixes = 18;
	const char *prefix[] = {
		"Artige", "Brave", "Liebe", "Nette", "Anständige",
	    "Rechtschaffene", "Tugendhafte", "Sittsame", "Ehrbare", "Keusche",
		"Tugendsame", "Züchtige", "Fromme", "Musterhafte", "Manierliche",
		"Tadellose", "Unverdorbene", "Höfliche"
	};
	plane * xmas = getplanebyname("Nordpol");
	faction * f;
	region * r = findregion(x, y);
	direction_t dir;

	if (r!=NULL) {
		make_santa(r);
		return;
	}
	if (xmas==NULL) xmas = create_new_plane(2000, "Nordpol", x-1, x+1, y-1, y+1, PFL_NORECRUITS|PFL_NOALLIANCES|PFL_LOWSTEALING|PFL_NOGIVE|PFL_NOATTACK|PFL_NOMAGIC|PFL_NOSTEALTH|PFL_NOTEACH|PFL_NOBUILD|PFL_NOFEED|PFL_FRIENDLY);
	r = new_region(x, y);
	terraform(r, T_PLAIN);
	set_string(&r->land->name, "Weihnachtsinsel");
#if GROWING_TREES
	rsettrees(r, 2, 1000);
#else
	rsettrees(r, 1000);
#endif
	rsetpeasants(r, 0);
	rsetmoney(r, 0);
	for (dir=0;dir!=MAXDIRECTIONS;++dir) {
		region * n = findregion(x + delta_x[dir], y + delta_y[dir]);
		if (n==NULL) n = new_region(x + delta_x[dir], y + delta_y[dir]);
		terraform(n, T_OCEAN);
	}
	santa_comes_to_town(r, make_santa(r), NULL);
	for (f = factions; f != NULL; f = f->next) if (f->alive && f->units) {
		char zText[128];
		unit * u;

		u = createunit(r, f, 2, f->race);
		if (f->race==new_race[RC_DAEMON]) u->irace = new_race[RC_HUMAN];
		sprintf(zText, "%s %s", prefix[rand()%prefixes], LOC(u->faction->locale, rc_name(u->irace, 1)));
		fset(u, FL_PARTEITARNUNG);
		set_string(&u->name, zText);
	}
	make_gates(r);
}