Marc/server
1
0
Fork 0
forked from github/server
Code Issues Pull requests Projects Releases Wiki Activity
server/src/mapper/map_partei.c

831 lines
18 KiB
C
Raw Blame History

/* 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.
*/
#define BOOL_DEFINED
#include <config.h>
#include <curses.h>
#include <eressea.h>
#include "mapper.h"
#include "autoseed.h"
/* kernel includes */
#include <faction.h>
#include <item.h>
#include <plane.h>
#include <race.h>
#include <region.h>
#include <reports.h>
#include <save.h>
#include <study.h>
#include <skill.h>
#include <unit.h>
/* modules */
#include <modules/alliance.h>
/* util includes */
#include <base36.h>
#include <language.h>
/* libc includes */
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#ifdef __USE_POSIX
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#endif
const char * orderfile = NULL;
void
RemovePartei(void) {
faction *f, *F;
ally *a, *anext;
WINDOW *win;
char *fac_nr36;
int x;
unit *u;
region *r;
win = openwin(SX - 20, 5, "< Partei löschen >");
fac_nr36 = my_input(win, 2, 1, "Partei Nummer: ", NULL);
x = atoi36(fac_nr36);
if (fac_nr36 && *fac_nr36 && x > 0) {
wmove(win, 1, 2);
wclrtoeol(win);
wrefresh(win);
wmove(win, 1, win->_maxx);
waddch(win, '|');
wrefresh(win);
F = findfaction(x);
wmove(win, 1, 2);
if (F) {
wAddstr(factionname(F));
wrefresh(win);
wmove(win, 3, 4);
wattron(win, A_BOLD);
wAddstr("Alle Einheiten gehen verloren!");
wattroff(win, A_BOLD);
wmove(win, 3, 4);
beep();
if (yes_no(win, "Diese Partei wirklich löschen?", 'n')) {
for (f = factions; f; f = f->next)
if (f != F)
for (a = f->allies; a; a = anext) {
anext = a->next;
if (a->faction->no == F->no)
removelist(&f->allies, a);
}
for (r = firstregion(F); r != lastregion(F); r = r->next)
for (u = r->units; u; u = u->next)
if (u->faction == F)
set_number(u, 0);
modified = 1;
remove_empty_units();
removelist(&factions, F);
findfaction(-1); /* static lastfaction auf NULL setzen */
}
} else {
wprintw(win, (NCURSES_CONST char*)"Partei %d gibt es nicht.", x);
wmove(win, 3, 6);
wAddstr("<Taste>");
wrefresh(win);
getch();
}
}
delwin(win);
}
extern int left, top, breit, hoch;
typedef struct island {
vmap factions;
int maxage;
int x;
int y;
unsigned int land;
int age;
} island;
static int
days2level(int days)
{
int l = 0;
while (level_days(l)<=days) ++l;
return l-1;
}
static void
change_level(unit * u, skill_t sk, int bylevel)
{
skill * sv = get_skill(u, sk);
assert(bylevel>0);
if (sv==0) sv = add_skill(u, sk);
sk_set(sv, sv->level+bylevel);
}
static void
give_latestart_bonus(region *r, unit *u, int b)
{
int bsk = days2level(b*30);
change_level(u, SK_OBSERVATION, bsk);
change_money(u, 200*b);
{
unit *u2 = createunit(r, u->faction, 1, u->race);
change_level(u2, SK_TACTICS, bsk);
u2->irace = u->irace;
/* fset(u2, FL_PARTEITARNUNG); */
}
{
unit *u2 = createunit(r, u->faction, 2*b, u->race);
change_level(u2, SK_SPEAR, 3);
change_level(u2, SK_TAXING, 3);
change_item(u2, I_SPEAR, u2->number);
u2->irace = u->irace;
/* fset(u2, FL_PARTEITARNUNG); */
}
}
dropout * dropouts = NULL;
int
read_orders_file(const char * filename)
{
faction * f = NULL;
char * b;
char buffer[16];
FILE * F = fopen(filename, "r");
if (F==NULL) return -1;
b = getbuf(F);
while (b) {
switch (igetparam(b, default_locale)) {
case P_GAMENAME:
case P_FACTION:
strncpy(buffer, getstrtoken(), 16);
f = findfaction(atoi36(buffer));
if (f) fset(f, FL_MARK);
break;
case P_NEXT:
f = NULL;
break;
}
b = getbuf(F);
}
fclose(F);
return 0;
}
void
read_orders(const char * filename)
{
faction *f;
boolean loaded = false;
#ifdef __USE_POSIX /* if filename points to a directory, read
all files it contains. */
struct stat statbuf;
if(stat(filename, &statbuf)) {
if(S_ISDIR(statbuf.st_mode)) {
DIR *dir = opendir(filename);
struct dirent *d_ent;
if(dir==NULL) return;
while((d_ent = readdir(dir)) != NULL) {
read_orders_file(d_ent->d_name);
}
closedir(dir);
} else {
if (read_orders_file(filename)==0) loaded = true;
}
}
#else /* we do not have this functionality */
if (read_orders_file(filename)==0) loaded=true;
#endif
if (loaded) for (f=factions;f;f=f->next) {
if (!fval(f, FL_MARK) && f->age <=1) {
ursprung * ur = f->ursprung;
while (ur && ur->id!=0) ur=ur->next;
if (ur) {
region * r = findregion(ur->x, ur->y);
if (r) {
dropout * drop = calloc(sizeof(dropout), 1);
drop->x = ur->x;
drop->y = ur->y;
drop->fno = f->no;
drop->race = f->race;
drop->next = dropouts;
dropouts = drop;
}
}
}
freset(f, FL_MARK);
}
}
void
read_dropouts(const char * filename)
{
FILE * F = fopen(filename, "r");
if (F==NULL) return;
for (;;) {
char email[64], race[20];
int age, x, y;
if (fscanf(F, "%s %s %d %d %d", email, race, &age, &x, &y)<=0) break;
if (age<=2) {
region * r = findregion(x, y);
if (r) {
dropout * drop = calloc(sizeof(dropout), 1);
drop->race = rc_find(race);
if (drop->race==NULL) drop->race = findrace(race, default_locale);
drop->x = x;
drop->y = y;
drop->fno = -1;
drop->next = dropouts;
dropouts = drop;
}
}
}
fclose(F);
}
void
seed_dropouts(void)
{
dropout ** dropp = &dropouts;
while (*dropp) {
dropout *drop = *dropp;
region * r = findregion(drop->x, drop->y);
if (r) {
boolean found = false;
newfaction **nfp = &newfactions;
unit * u;
for (u=r->units;u;u=u->next) if (u->faction->no!=drop->fno) break;
if (u==NULL) while (*nfp) {
newfaction * nf = *nfp;
if (nf->race==drop->race && !nf->bonus) {
unit * u = addplayer(r, nf->email, nf->password, nf->race, nf->lang,
nf->subscription);
#ifdef ALLIANCES
u->faction->alliance = nf->allies;
#endif
++numnewbies;
if (nf->bonus) give_latestart_bonus(r, u, nf->bonus);
found=true;
*dropp = drop->next;
*nfp = nf->next;
free(nf);
break;
}
nfp = &nf->next;
}
if (!found) dropp=&drop->next;
} else {
*dropp = drop->next;
}
}
}
void
read_newfactions(const char * filename)
{
FILE * F = fopen(filename, "r");
if (F==NULL) return;
for (;;) {
faction * f = factions;
char race[20], email[64], lang[8], password[16];
newfaction *nf;
int bonus, subscription;
#ifdef ALLIANCES
int alliance;
/* email;race;locale;startbonus;subscription;alliance */
if (fscanf(F, "%s %s %s %d %s %d %d", email, race, lang, &bonus, &subscription, password, &alliance)<=0) break;
#else
/* email;race;locale;startbonus;subscription */
if (fscanf(F, "%s %s %s %d %d %s", email, race, lang, &bonus, &subscription, password)<=0) break;
#endif
while (f) {
if (strcmp(f->email, email)==0 && f->subscription) {
break;
}
f = f->next;
}
if (f) continue; /* skip the ones we've already got */
for (nf=newfactions;nf;nf=nf->next) {
if (strcmp(nf->email, email)==0) break;
}
if (nf) continue;
nf = calloc(sizeof(newfaction), 1);
nf->email = strdup(email);
nf->password = strdup(password);
nf->race = rc_find(race);
nf->subscription = subscription;
#ifdef ALLIANCES
{
struct alliance * al = findalliance(alliance);
if (al==NULL) {
char zText[64];
sprintf(zText, "Allianz %d", alliance);
al = makealliance(alliance, zText);
}
nf->allies = al;
}
#endif
if (nf->race==NULL) nf->race = findrace(race, default_locale);
nf->lang = find_locale(lang);
nf->bonus = bonus;
assert(nf->race && nf->email && nf->lang);
nf->next = newfactions;
newfactions = nf;
}
fclose(F);
}
newfaction *
select_newfaction(const struct race * rc)
{
selection *prev, *ilist = NULL, **iinsert;
selection *selected = NULL;
newfaction *player = newfactions;
if (!player) return NULL;
insert_selection(&ilist, NULL, strdup("new player"), NULL);
iinsert=&ilist->next;
prev = ilist;
while (player) {
if (rc==NULL || player->race==rc) {
char str[80];
#ifdef ALLIANCES
snprintf(str, 70, "%s %d %s %s", player->bonus?"!":" ", player->allies?player->allies->id:0, locale_string(default_locale, rc_name(player->race, 0)), player->email);
#else
snprintf(str, 70, "%s %s %s", player->bonus?"!":" ", locale_string(default_locale, rc_name(player->race, 0)), player->email);
#endif
insert_selection(iinsert, prev, strdup(str), (void*)player);
prev = *iinsert;
iinsert = &prev->next;
}
player=player->next;
}
selected = do_selection(ilist, "Partei", NULL, NULL);
if (selected==NULL) return NULL;
return (newfaction*)selected->data;
}
void
NeuePartei(region * r)
{
int i, q, y;
char email[INPUT_BUFSIZE+1];
newfaction * nf, **nfp;
const struct locale * lang;
const struct race * frace;
int late, subscription = 0;
unit *u;
const char * passwd = NULL;
int locale_nr;
faction * f;
if (!r->land) {
warnung(0, "Ungeeignete Region! <Taste>");
return;
}
nf = select_newfaction(NULL);
if (nf!=NULL) {
frace = nf->race;
subscription = nf->subscription;
late = nf->bonus;
lang = nf->lang;
passwd = nf->password;
strcpy(email, nf->email);
if (late) {
WINDOW *win = openwin(SX - 10, 3, "< Neue Partei einfügen >");
if(r->age >= 5)
late = (int) map_input(win, 2, 1, "Startbonus", -1, 99, r->age/2);
else
late = (int) map_input(win, 2, 1, "Startbonus", -1, 99, 0);
delwin(win);
}
} else {
WINDOW *win = openwin(SX - 10, 12, "< Neue Partei einfügen >");
strcpy(buf, my_input(win, 2, 1, "EMail-Adresse (Leer->Ende): ", NULL));
if (!buf[0]) {
delwin(win);
return;
}
strcpy(email, buf);
for (f=factions;f;f=f->next) {
if (strcmp(email, f->email)==0 && f->age==0) {
warnung(0, "Neue Partei mit dieser Adresse existiert bereits.");
delwin(win);
return;
}
}
y = 3;
q = 0;
wmove(win, y, 4);
for (i = 0; i < MAXRACES; i++) if(playerrace(new_race[i])) {
sprintf(buf, "%d=%s; ", i, new_race[i]->_name[0]);
q += strlen(buf);
if (q > SX - 20) {
q = strlen(buf);
y++;
wmove(win, y, 4);
}
wAddstr(buf);
}
wrefresh(win);
y++;
do {
int nrace = (char) map_input(win, 2, y, "Rasse", -1, MAXRACES-1, 0);
if (nrace == -1) {
delwin(win);
return;
}
frace = new_race[nrace];
} while(!playerrace(frace));
y++;
late = (int) map_input(win, 2, y, "Startbonus", -1, 99, 0);
if(late == -1) {
delwin(win);
return;
}
i = 0; q = 0; y++;
wmove(win, y, 4);
while(localenames[i] != NULL) {
sprintf(buf, "%d=%s; ", i, localenames[i]);
q += strlen(buf);
if (q > SX - 20) {
q = strlen(buf);
y++;
wmove(win, y, 4);
}
wAddstr(buf);
i++;
}
wrefresh(win);
y++;
locale_nr = map_input(win, 2, 8, "Locale", -1, i-1, 0);
if(locale_nr == -1) {
delwin(win);
return;
}
lang = find_locale(localenames[locale_nr]);
delwin(win);
}
/* remove duplicate email addresses */
nfp=&newfactions;
while (*nfp) {
newfaction * nf = *nfp;
if (strcmp(email, nf->email)==0) {
*nfp = nf->next;
free(nf);
}
else nfp = &nf->next;
}
modified = 1;
u = addplayer(r, email, passwd, frace, lang, subscription);
++numnewbies;
if(late) give_latestart_bonus(r, u, late);
#ifndef AMIGA
sprintf(buf, "newuser %s", email);
system(buf);
#endif
}
static void
ModifyPartei(faction * f)
{
int c, i, q, y;
int fmag = count_skill(f, SK_MAGIC);
int falch = count_skill(f, SK_ALCHEMY);
WINDOW *win;
unit *u;
sprintf(buf, "<%s >", factionname(f));
win = openwin(SX - 6, 12, buf);
wmove(win, 1, 2);
wprintw(win, (NCURSES_CONST char*)"Rasse: %s", f->race->_name[1]);
wmove(win, 2, 2);
wprintw(win, (NCURSES_CONST char*)"Einheiten: %d", f->no_units);
wmove(win, 3, 2);
wprintw(win, (NCURSES_CONST char*)"Personen: %d", f->num_people);
wmove(win, 4, 2);
wprintw(win, (NCURSES_CONST char*)"Silber: %d", f->money);
wmove(win, 5, 2);
wprintw(win, (NCURSES_CONST char*)"Magier: %d", fmag);
if (fmag) {
region *r;
freset(f, FL_DH);
waddnstr(win, " (", -1);
for (r = firstregion(f); r != lastregion(f); r = r->next)
for (u = r->units; u; u = u->next)
if (u->faction == f && has_skill(u, SK_MAGIC)) {
if (fval(f, FL_DH))
waddnstr(win, ", ", -1);
wprintw(win, (NCURSES_CONST char*)"%s(%d): %d", unitid(u), u->number, get_level(u, SK_MAGIC));
fset(f, FL_DH);
}
waddch(win, ')');
}
wmove(win, 6, 2);
wprintw(win, (NCURSES_CONST char*)"Alchemisten: %d", falch);
if (falch) {
region *r;
waddnstr(win, " (", -1);
freset(f, FL_DH);
for (r = firstregion(f); r != lastregion(f); r = r->next)
for (u = r->units; u; u = u->next)
if (u->faction == f && has_skill(u, SK_ALCHEMY)) {
if (fval(f, FL_DH))
waddnstr(win, ", ", -1);
wprintw(win, (NCURSES_CONST char*)"%s(%d): %d", unitid(u), u->number, get_level(u, SK_ALCHEMY));
fset(f, FL_DH);
}
waddch(win, ')');
}
wmove(win, 7, 2);
wprintw(win, (NCURSES_CONST char*)"Regionen: %d", f->nregions);
wmove(win, 8, 2);
wprintw(win, (NCURSES_CONST char*)"eMail: %s", f->email);
wmove(win, 10, 2);
wprintw(win, (NCURSES_CONST char*)"Neue (R)asse oder (e)Mail, (q)uit");
wrefresh(win);
for(;;) {
c = getch();
switch (tolower(c)) {
case 'q':
case 27:
delwin(win);
touchwin(stdscr);
return;
case 'r':
mywin = newwin(5, SX - 20, (SY - 5) / 2, (SX - 20) / 2);
wclear(mywin);
/*wborder(mywin, '|', '|', '-', '-', '.', '.', '`', '\'');*/
wborder(mywin, 0, 0, 0, 0, 0, 0, 0, 0);
Movexy(3, 0);
Addstr("< Rasse wählen >");
wrefresh(mywin);
y = 2;
q = 0;
wmove(mywin, y, 4);
for (i = 1; i < MAXRACES; i++) {
sprintf(buf, "%d=%s; ", i, new_race[i]->_name[0]);
q += strlen(buf);
if (q > SX - 25) {
q = strlen(buf);
y++;
wmove(mywin, y, 4);
}
wAddstr(buf);
}
q = map_input(mywin, 2, 1, "Rasse", 1, MAXRACES-1, old_race(f->race));
delwin(mywin);
touchwin(stdscr);
touchwin(win);
if (new_race[q] != f->race) {
modified = 1;
f->race = new_race[q];
wmove(win, 1, 2);
wprintw(win, (NCURSES_CONST char*)"Rasse: %s", f->race->_name[1]);
}
refresh();
wrefresh(win);
break;
case 'e':
strcpy(buf, my_input(0, 0, 0, "Neue eMail: ", NULL));
touchwin(stdscr);
touchwin(win);
if (strlen(buf)) {
strcpy(f->email, buf);
wmove(win, 8, 2);
wprintw(win, (NCURSES_CONST char*)"eMail: %s", f->email);
modified = 1;
}
refresh();
wrefresh(win);
break;
}
}
}
int
ParteiListe(void)
{
dbllist *P = NULL, *oben, *unten, *tmp;
faction *f;
char *s;
int x;
clear();
move(1, 1);
addstr("generiere Liste...");
refresh();
/* Momentan unnötig und zeitraubend */
#if 0
for (f = factions; f; f = f->next) {
f->num_people = f->nunits = f->nregions = f->money = 0;
}
x=0;
for (r = regions; r; r = r->next) {
int q=0; char mark[]="_-¯-";
for (f = factions; f; f = f->next)
freset(f, FL_DH);
if (++x & 256) {
x=0; move(20,1); q++; addch(mark[q&3]);
}
for (u = r->units; u; u = u->next) {
if (u->faction->no != MONSTER_FACTION) { /* Monster nicht */
if (!fval(u->faction, FL_DH)) {
fset(u->faction, FL_DH);
u->faction->nregions++;
}
u->faction->nunits++;
u->faction->num_people += u->number;
u->faction->money += get_money(u);
}
}
}
#endif
for (f = factions; f; f = f->next) {
if (SX > 104)
sprintf(buf, "%4s: %-30.30s %-12.12s %-24.24s", factionid(f),
f->name, f->race->_name[1], f->email);
else
sprintf(buf, "%4s: %-30.30s %-12.12s", factionid(f),
f->name, f->race->_name[1]);
adddbllist(&P, buf);
}
oben = unten = pointer = P;
pline = 0;
x = -1;
clear();
movexy(0, SY - 1);
hline('-', SX + 1);
movexy(0, SY);
addstr("<Ret> Daten; /: suchen; D: Löschen; q,Esc: Ende");
for (;;) {
if (x == -1) {
clear();
if(oben) {
for (unten = oben, x = 0; x < SY - 1 && unten->next; x++) {
movexy(3, x);
addstr(unten->s);
unten = unten->next;
}
}
if (x < SY - 1 && unten) { /* extra, weil sonst
* unten=NULL nach for() */
movexy(3, x);
addstr(unten->s);
}
movexy(0, SY - 1);
hline('-', SX + 1);
movexy(0, SY);
addstr("<Ret> Daten; /: suchen; D: Löschen; q,Esc: Ende");
}
movexy(0, pline);
addstr("->");
refresh();
x = getch();
movexy(0, pline);
addstr(" ");
switch (x) {
case 'q':
case 27:
return 0;
case 13:
case 10:
{
char fno[5];
strncpy(fno, pointer->s, 4);
fno[4]=0;
ModifyPartei(findfaction(atoi36(fno)));
}
break;
case 'D':
RemovePartei();
return 1;
case KEY_DOWN:
if (pointer->next) {
pline++;
pointer = pointer->next;
if (pline == SY - 1) {
x = 20;
do {
oben = oben->next;
unten = unten->next;
x--;
pline--;
} while (x && unten /*->next*/ );
x = -1;
}
} else
beep();
break;
case KEY_UP:
if (pointer->prev) {
pline--;
pointer = pointer->prev;
if (pline < 0) {
x = 20;
do {
oben = oben->prev;
unten = unten->prev;
x--;
pline++;
} while (x && oben->prev);
x = -1;
}
} else
beep();
break;
case KEY_NPAGE:
case KEY_RIGHT:
for (x = 20; x && unten; x--) {
oben = oben->next;
pointer = pointer->next;
unten = unten->next;
}
x = -1;
break;
case KEY_PPAGE:
case KEY_LEFT:
for (x = 20; x && oben->prev; x--) {
oben = oben->prev;
pointer = pointer->prev;
unten = unten->prev;
}
x = -1;
break;
case '/':
strcpy(buf, my_input(0, 0, 0, "Partei Nr. oder Name: ", NULL));
touchwin(stdscr); /* redraw erzwingen */
for (tmp = P; tmp; tmp = tmp->next) {
s = tmp->s;
while (s && strncasecmp(buf, s, strlen(buf))) {
s = strchr(s, ' ');
if (s)
s++;
}
if (s)
break;
}
if (tmp) {
pointer = tmp;
pline = 0;
if (tmp->prev) {
tmp = tmp->prev;
pline++;
}
oben = tmp;
x = -1;
} else
beep();
break;
}
}
}
Reference in a new issue View git blame Copy permalink