|
|
|
@ -7,6 +7,7 @@
|
|
|
|
|
#include "bindings.h"
|
|
|
|
|
#include "magic.h"
|
|
|
|
|
|
|
|
|
|
#include <kernel/ally.h>
|
|
|
|
|
#include <kernel/alliance.h>
|
|
|
|
|
#include <kernel/faction.h>
|
|
|
|
|
#include <kernel/unit.h>
|
|
|
|
@ -31,7 +32,10 @@
|
|
|
|
|
#include <lauxlib.h>
|
|
|
|
|
#include <tolua.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#include <stdbool.h> // for bool
|
|
|
|
|
#include <stdio.h> // for puts
|
|
|
|
|
|
|
|
|
|
struct allies;
|
|
|
|
|
|
|
|
|
|
int tolua_factionlist_next(lua_State * L)
|
|
|
|
|
{
|
|
|
|
@ -48,13 +52,13 @@ int tolua_factionlist_next(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_units(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
unit **unit_ptr = (unit **)lua_newuserdata(L, sizeof(unit *));
|
|
|
|
|
|
|
|
|
|
luaL_getmetatable(L, TOLUA_CAST "unit");
|
|
|
|
|
lua_setmetatable(L, -2);
|
|
|
|
|
|
|
|
|
|
*unit_ptr = self->units;
|
|
|
|
|
*unit_ptr = f->units;
|
|
|
|
|
|
|
|
|
|
lua_pushcclosure(L, tolua_unitlist_nextf, 1);
|
|
|
|
|
return 1;
|
|
|
|
@ -62,7 +66,7 @@ static int tolua_faction_get_units(lua_State * L)
|
|
|
|
|
|
|
|
|
|
int tolua_faction_add_item(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *iname = tolua_tostring(L, 2, NULL);
|
|
|
|
|
int number = (int)tolua_tonumber(L, 3, 0);
|
|
|
|
|
int result = -1;
|
|
|
|
@ -70,7 +74,7 @@ int tolua_faction_add_item(lua_State * L)
|
|
|
|
|
if (iname != NULL) {
|
|
|
|
|
const resource_type *rtype = rt_find(iname);
|
|
|
|
|
if (rtype && rtype->itype) {
|
|
|
|
|
item *i = i_change(&self->items, rtype->itype, number);
|
|
|
|
|
item *i = i_change(&f->items, rtype->itype, number);
|
|
|
|
|
result = i ? i->number : 0;
|
|
|
|
|
} /* if (itype!=NULL) */
|
|
|
|
|
}
|
|
|
|
@ -80,38 +84,38 @@ int tolua_faction_add_item(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_maxheroes(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, maxheroes(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, maxheroes(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_heroes(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, countheroes(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, countheroes(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_score(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushnumber(L, (lua_Number)self->score);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushnumber(L, (lua_Number)f->score);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_id(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, self->no);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, f->no);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_id(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int id = (int)tolua_tonumber(L, 2, 0);
|
|
|
|
|
if (findfaction(id) == NULL) {
|
|
|
|
|
renumber_faction(self, id);
|
|
|
|
|
renumber_faction(f, id);
|
|
|
|
|
lua_pushboolean(L, 1);
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
@ -122,20 +126,20 @@ static int tolua_faction_set_id(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_magic(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushstring(L, magic_school[self->magiegebiet]);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushstring(L, magic_school[f->magiegebiet]);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_magic(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *type = tolua_tostring(L, 2, NULL);
|
|
|
|
|
int mtype;
|
|
|
|
|
|
|
|
|
|
for (mtype = 0; mtype != MAXMAGIETYP; ++mtype) {
|
|
|
|
|
if (strcmp(magic_school[mtype], type) == 0) {
|
|
|
|
|
self->magiegebiet = (magic_t)mtype;
|
|
|
|
|
f->magiegebiet = (magic_t)mtype;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
@ -144,89 +148,89 @@ static int tolua_faction_set_magic(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_age(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, self->age);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, f->age);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_age(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int age = (int)tolua_tonumber(L, 2, 0);
|
|
|
|
|
self->age = age;
|
|
|
|
|
f->age = age;
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_flags(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, self->flags);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, f->flags);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_flags(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int flags = (int)tolua_tonumber(L, 2, self->flags);
|
|
|
|
|
self->flags = flags;
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int flags = (int)tolua_tonumber(L, 2, f->flags);
|
|
|
|
|
f->flags = flags;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_options(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, self->options);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, f->options);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_options(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int options = (int)tolua_tonumber(L, 2, self->options);
|
|
|
|
|
self->options = options;
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int options = (int)tolua_tonumber(L, 2, f->options);
|
|
|
|
|
f->options = options;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_lastturn(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, self->lastorders);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushinteger(L, f->lastorders);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_lastturn(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
if (self) {
|
|
|
|
|
self->lastorders = (int)tolua_tonumber(L, 2, self->lastorders);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
if (f) {
|
|
|
|
|
f->lastorders = (int)tolua_tonumber(L, 2, f->lastorders);
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_renumber(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int no = (int)tolua_tonumber(L, 2, 0);
|
|
|
|
|
|
|
|
|
|
renumber_faction(self, no);
|
|
|
|
|
renumber_faction(f, no);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_addnotice(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *str = tolua_tostring(L, 2, NULL);
|
|
|
|
|
|
|
|
|
|
addmessage(NULL, self, str, MSG_MESSAGE, ML_IMPORTANT);
|
|
|
|
|
addmessage(NULL, f, str, MSG_MESSAGE, ML_IMPORTANT);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_getkey(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *name = tolua_tostring(L, 2, NULL);
|
|
|
|
|
int flag = atoi36(name);
|
|
|
|
|
int value = key_get(self->attribs, flag);
|
|
|
|
|
int value = key_get(f->attribs, flag);
|
|
|
|
|
if (value != 0) {
|
|
|
|
|
lua_pushinteger(L, value);
|
|
|
|
|
return 1;
|
|
|
|
@ -236,16 +240,16 @@ static int tolua_faction_getkey(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_setkey(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *name = tolua_tostring(L, 2, NULL);
|
|
|
|
|
int value = (int)tolua_tonumber(L, 3, 1);
|
|
|
|
|
int flag = atoi36(name);
|
|
|
|
|
|
|
|
|
|
if (value) {
|
|
|
|
|
key_set(&self->attribs, flag, value);
|
|
|
|
|
key_set(&f->attribs, flag, value);
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
key_unset(&self->attribs, flag);
|
|
|
|
|
key_unset(&f->attribs, flag);
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
@ -269,14 +273,14 @@ static int tolua_faction_debug_messages(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_messages(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int i = 1;
|
|
|
|
|
mlist *ml;
|
|
|
|
|
if (!self->msgs) {
|
|
|
|
|
if (!f->msgs) {
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
lua_newtable(L);
|
|
|
|
|
for (ml = self->msgs->begin; ml; ml = ml->next, ++i) {
|
|
|
|
|
for (ml = f->msgs->begin; ml; ml = ml->next, ++i) {
|
|
|
|
|
lua_pushnumber(L, i);
|
|
|
|
|
lua_pushstring(L, ml->msg->type->name);
|
|
|
|
|
lua_rawset(L, -3);
|
|
|
|
@ -285,11 +289,11 @@ static int tolua_faction_get_messages(lua_State * L)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_count_msg_type(lua_State *L) {
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *str = tolua_tostring(L, 2, NULL);
|
|
|
|
|
int n = 0;
|
|
|
|
|
if (self->msgs) {
|
|
|
|
|
mlist * ml = self->msgs->begin;
|
|
|
|
|
if (f->msgs) {
|
|
|
|
|
mlist * ml = f->msgs->begin;
|
|
|
|
|
while (ml) {
|
|
|
|
|
if (strcmp(str, ml->msg->type->name) == 0) {
|
|
|
|
|
++n;
|
|
|
|
@ -330,9 +334,9 @@ static int tolua_faction_set_origin(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_origin(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
int x = 0, y = 0;
|
|
|
|
|
faction_getorigin(self, 0, &x, &y);
|
|
|
|
|
faction_getorigin(f, 0, &x, &y);
|
|
|
|
|
|
|
|
|
|
lua_pushinteger(L, x);
|
|
|
|
|
lua_pushinteger(L, y);
|
|
|
|
@ -380,48 +384,48 @@ static int tolua_faction_create(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_password(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getpassword(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getpassword(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_password(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char * passw = tolua_tostring(L, 2, NULL);
|
|
|
|
|
faction_setpassword(self,
|
|
|
|
|
faction_setpassword(f,
|
|
|
|
|
passw ? password_hash(passw, PASSWORD_DEFAULT) : NULL);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_email(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getemail(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getemail(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_email(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction_setemail(self, tolua_tostring(L, 2, NULL));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction_setemail(f, tolua_tostring(L, 2, NULL));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_locale(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, locale_name(self->locale));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, locale_name(f->locale));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_locale(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *name = tolua_tostring(L, 2, NULL);
|
|
|
|
|
const struct locale *loc = get_locale(name);
|
|
|
|
|
if (loc) {
|
|
|
|
|
self->locale = loc;
|
|
|
|
|
f->locale = loc;
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
tolua_pushstring(L, "invalid locale");
|
|
|
|
@ -432,18 +436,18 @@ static int tolua_faction_set_locale(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_race(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, self->race->_name);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, f->race->_name);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_race(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
const char *name = tolua_tostring(L, 2, NULL);
|
|
|
|
|
const race *rc = rc_find(name);
|
|
|
|
|
if (rc != NULL) {
|
|
|
|
|
self->race = rc;
|
|
|
|
|
f->race = rc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
@ -451,15 +455,15 @@ static int tolua_faction_set_race(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_name(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getname(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getname(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_name(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction_setname(self, tolua_tostring(L, 2, NULL));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction_setname(f, tolua_tostring(L, 2, NULL));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -479,44 +483,108 @@ static int tolua_faction_set_uid(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_info(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getbanner(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushstring(L, faction_getbanner(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_info(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction_setbanner(self, tolua_tostring(L, 2, NULL));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction_setbanner(f, tolua_tostring(L, 2, NULL));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_alliance(lua_State * L)
|
|
|
|
|
/* TODO: this is probably useful elsewhere */
|
|
|
|
|
static const char *status_names[] = {
|
|
|
|
|
"money", "fight", "observe", "give", "guard", "stealth", "travel", NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static int cb_ally_push(struct allies *af, struct faction *f, int status, void *udata) {
|
|
|
|
|
struct lua_State *L = (struct lua_State *)udata;
|
|
|
|
|
int len = 1;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
lua_pushnumber(L, f->no);
|
|
|
|
|
lua_newtable(L);
|
|
|
|
|
for (i = 0; status_names[i]; ++i) {
|
|
|
|
|
int flag = 1 << i;
|
|
|
|
|
if (status & flag) {
|
|
|
|
|
lua_pushstring(L, status_names[i]);
|
|
|
|
|
lua_rawseti(L, -2, len++);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
lua_rawset(L, -3);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_allies(lua_State * L) {
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_newtable(L);
|
|
|
|
|
allies_walk(f->allies, cb_ally_push, L);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_ally(lua_State * L) {
|
|
|
|
|
faction *f1 = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f2 = (faction *)tolua_tousertype(L, 2, NULL);
|
|
|
|
|
const char *status = tolua_tostring(L, 3, NULL);
|
|
|
|
|
bool value = tolua_toboolean(L, 4, 1);
|
|
|
|
|
if (status) {
|
|
|
|
|
int flag = ally_status(status);
|
|
|
|
|
int flags = ally_get(f1->allies, f2);
|
|
|
|
|
if (value) {
|
|
|
|
|
flags |= flag;
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
flags &= ~flag;
|
|
|
|
|
}
|
|
|
|
|
ally_set(&f1->allies, f2, flags);
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_ally(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushusertype(L, f_get_alliance(self), TOLUA_CAST "alliance");
|
|
|
|
|
faction *f1 = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f2 = (faction *)tolua_tousertype(L, 2, NULL);
|
|
|
|
|
const char *status = tolua_tostring(L, 3, NULL);
|
|
|
|
|
if (f1 && f2 && status) {
|
|
|
|
|
int test = ally_status(status);
|
|
|
|
|
int flags = ally_get(f1->allies, f2);
|
|
|
|
|
lua_pushboolean(L, (test & flags) == test);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_alliances(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
tolua_pushusertype(L, f_get_alliance(f), TOLUA_CAST "alliance");
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_set_alliance(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
struct faction *self = (struct faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
struct faction *f = (struct faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
struct alliance *alli = (struct alliance *) tolua_tousertype(L, 2, NULL);
|
|
|
|
|
|
|
|
|
|
setalliance(self, alli);
|
|
|
|
|
setalliance(f, alli);
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_get_items(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
item **item_ptr = (item **)lua_newuserdata(L, sizeof(item *));
|
|
|
|
|
|
|
|
|
|
luaL_getmetatable(L, TOLUA_CAST "item");
|
|
|
|
|
lua_setmetatable(L, -2);
|
|
|
|
|
|
|
|
|
|
*item_ptr = self->items;
|
|
|
|
|
*item_ptr = f->items;
|
|
|
|
|
|
|
|
|
|
lua_pushcclosure(L, tolua_itemlist_next, 1);
|
|
|
|
|
|
|
|
|
@ -525,8 +593,8 @@ static int tolua_faction_get_items(lua_State * L)
|
|
|
|
|
|
|
|
|
|
static int tolua_faction_tostring(lua_State * L)
|
|
|
|
|
{
|
|
|
|
|
faction *self = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushstring(L, factionname(self));
|
|
|
|
|
faction *f = (faction *)tolua_tousertype(L, 1, NULL);
|
|
|
|
|
lua_pushstring(L, factionname(f));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -569,8 +637,6 @@ void tolua_faction_open(lua_State * L)
|
|
|
|
|
tolua_faction_set_locale);
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "race", tolua_faction_get_race,
|
|
|
|
|
tolua_faction_set_race);
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "alliance", tolua_faction_get_alliance,
|
|
|
|
|
tolua_faction_set_alliance);
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "score", tolua_faction_get_score, NULL);
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "magic", tolua_faction_get_magic,
|
|
|
|
|
tolua_faction_set_magic);
|
|
|
|
@ -582,6 +648,13 @@ void tolua_faction_open(lua_State * L)
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "lastturn", tolua_faction_get_lastturn,
|
|
|
|
|
tolua_faction_set_lastturn);
|
|
|
|
|
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "alliance", tolua_faction_get_alliances,
|
|
|
|
|
tolua_faction_set_alliance);
|
|
|
|
|
|
|
|
|
|
tolua_variable(L, TOLUA_CAST "allies", tolua_faction_get_allies, NULL);
|
|
|
|
|
tolua_function(L, TOLUA_CAST "set_ally", tolua_faction_set_ally);
|
|
|
|
|
tolua_function(L, TOLUA_CAST "get_ally", tolua_faction_get_ally);
|
|
|
|
|
|
|
|
|
|
tolua_function(L, TOLUA_CAST "get_origin", tolua_faction_get_origin);
|
|
|
|
|
tolua_function(L, TOLUA_CAST "set_origin", tolua_faction_set_origin);
|
|
|
|
|
tolua_function(L, TOLUA_CAST "normalize", tolua_faction_normalize);
|
|
|
|
|