/* vi: set ts=2:
 +-------------------+  Christian Schlittchen <corwin@amber.kn-bremen.de>
 |                   |  Enno Rehling <enno@eressea-pbem.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.
*/

#include <config.h>
#include <eressea.h>

#include "seed.h"

#include <build.h>
#include <region.h>

/* kernel includes */
#include <item.h>

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

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

resource_type * rt_seed = 0;
resource_type * rt_mallornseed = 0;

static void
produce_seeds(region * r, const resource_type * rtype, int norders)
{
	assert(rtype==rt_seed && r->land && r->land->trees[0] >= norders);
	r->land->trees[0] -= norders;
}

static int
limit_seeds(const region * r, const resource_type * rtype)
{
	assert(rtype==rt_seed);
	if(fval(r, RF_MALLORN)) return 0;
	return r->land?r->land->trees[0]:0;
}

void
register_seed(void)
{
	attrib * a;
  resource_limit * rdata;

	rt_seed = rt_find("seed");
  assert(rt_seed!=NULL);
	rt_seed->itype->flags |= ITF_NOBUILDBESIEGED;

	a = a_add(&rt_seed->attribs, a_new(&at_resourcelimit));
	rdata = (resource_limit*)a->data.v;
	rdata->limit = limit_seeds;
	rdata->use = produce_seeds;
}

/* mallorn */

static void
produce_mallornseeds(region * r, const resource_type * rtype, int norders)
{
	assert(rtype==rt_mallornseed && r->land && r->land->trees[0] >= norders);
	assert(fval(r, RF_MALLORN));
	r->land->trees[0] -= norders;
}

static int
limit_mallornseeds(const region * r, const resource_type * rtype)
{
	assert(rtype==rt_mallornseed);
	if (!fval(r, RF_MALLORN)) {
		return 0;
	}
	return r->land?r->land->trees[0]:0;
}

void
register_mallornseed(void)
{
	attrib * a;
  resource_limit * rdata;

	rt_mallornseed = rt_find("mallornseed");
  assert(rt_mallornseed!=NULL);
	rt_mallornseed->flags |= RTF_LIMITED;
	rt_mallornseed->itype->flags |= ITF_NOBUILDBESIEGED;
	rt_mallornseed->flags |= RTF_POOLED;
	
	a = a_add(&rt_mallornseed->attribs, a_new(&at_resourcelimit));
	rdata = (resource_limit*)a->data.v;
	rdata->limit = limit_mallornseeds;
	rdata->use = produce_mallornseeds;
}