forked from github/server
1749 lines
34 KiB
C
1749 lines
34 KiB
C
/* 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 VERSION "3.3.0"
|
||
#define ISLANDSIZE 20
|
||
|
||
#define MAIN_C
|
||
#define BOOL_DEFINED
|
||
/* wenn config.h nicht vor curses included wird, kompiliert es unter windows nicht */
|
||
#include <config.h>
|
||
#include <curses.h>
|
||
#include <eressea.h>
|
||
#include "mapper.h"
|
||
|
||
#include "autoseed.h"
|
||
|
||
#include <spells/spells.h>
|
||
#include <attributes/attributes.h>
|
||
#include <triggers/triggers.h>
|
||
#include <items/weapons.h>
|
||
#include <items/items.h>
|
||
|
||
#include <modules/xmas2000.h>
|
||
#include <modules/gmcmd.h>
|
||
#ifdef ALLIANCES
|
||
#include <modules/alliance.h>
|
||
#endif
|
||
#ifdef MUSEUM_MODULE
|
||
#include <modules/museum.h>
|
||
#endif
|
||
#ifdef ARENA_MODULE
|
||
#include <modules/arena.h>
|
||
#endif
|
||
|
||
/* kernel includes */
|
||
#include <item.h>
|
||
#include <faction.h>
|
||
#include <race.h>
|
||
#include <region.h>
|
||
#include <reports.h>
|
||
#include <save.h>
|
||
#include <ship.h>
|
||
#include <unit.h>
|
||
#include <plane.h>
|
||
#include <teleport.h>
|
||
#include <resources.h>
|
||
#include <building.h>
|
||
|
||
/* util includes */
|
||
#include <base36.h>
|
||
|
||
/* libc includes */
|
||
#include <ctype.h>
|
||
#include <limits.h>
|
||
#include <locale.h>
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
#include <string.h>
|
||
#include <time.h>
|
||
|
||
extern const char * orderfile;
|
||
extern char *reportdir;
|
||
extern char *datadir;
|
||
extern char *basedir;
|
||
extern int maxregions;
|
||
extern boolean dirtyload;
|
||
char datafile[256];
|
||
|
||
static char * xmlfile = NULL;
|
||
|
||
/* -------------------- resizeterm ------------------------------------- */
|
||
|
||
short Signals = 0;
|
||
int numnewbies = 0;
|
||
unit *clipunit;
|
||
struct ship *clipship;
|
||
region *clipregion;
|
||
tagregion *Tagged;
|
||
|
||
#undef NEW_DRAW
|
||
extern void render_init(void);
|
||
|
||
WINDOW * openwin(int b, int h, const char* t) {
|
||
WINDOW * win = newwin(h,b,(SY-(h))/2,(SX-(b))/2);
|
||
wclear(win);
|
||
/* wborder(win, '|','|','-','-','.','.','`','\''); */
|
||
wborder(win, 0, 0, 0, 0, 0, 0, 0, 0);
|
||
if(t) {
|
||
wmove(win,0,3);
|
||
waddnstr(win,(char*)t,-1);
|
||
}
|
||
wrefresh(win);
|
||
return win;
|
||
}
|
||
|
||
#if !defined(WIN32)
|
||
|
||
#ifdef SOLARIS
|
||
#define __USE_POSIX /* Sonst kein sigaction */
|
||
#define _POSIX_C_SOURCE 1 /* dito */
|
||
#include <sys/signal.h>
|
||
#endif
|
||
|
||
#include <signal.h>
|
||
|
||
void
|
||
sighandler(int sig)
|
||
{ /* wir fangen nur das eine Signal ab */
|
||
Signals |= S_SIGWINCH;
|
||
}
|
||
|
||
void
|
||
signal_init(void)
|
||
{
|
||
struct sigaction act;
|
||
memset(&act, 0, sizeof(act));
|
||
|
||
act.sa_handler = sighandler;
|
||
sigaction(SIGWINCH, &act, NULL);
|
||
}
|
||
#endif /* ndef Win32 */
|
||
|
||
int left = 0, top = 0, breit, hoch, tx=-999, ty=-999;
|
||
int MINX=0, MINY=0, MAXX=0, MAXY=0;
|
||
boolean minimapx=false,minimapy=false; /* Karte nicht vert./hor. scrollen */
|
||
|
||
/* rx,ry => Auf welcher Region steht der Cursor */
|
||
/* hoch, breit => Breite und H<>he der Karte */
|
||
/* x, y => ? */
|
||
/* top, left => ? */
|
||
/* hx, hy => ? */
|
||
|
||
static void
|
||
runautoseed(void)
|
||
{
|
||
while (newfactions) {
|
||
int n = listlen(newfactions);
|
||
int k = (n+ISLANDSIZE-1)/ISLANDSIZE;
|
||
k = n / k;
|
||
mkisland(k);
|
||
}
|
||
}
|
||
|
||
void
|
||
init_win(int x, int y) {
|
||
if (initscr() == NULL) {
|
||
puts("\07Error initializing terminal.");
|
||
exit(1);
|
||
}
|
||
keypad(stdscr, TRUE);
|
||
scrollok(stdscr,false);
|
||
curs_set(0);
|
||
cbreak();
|
||
noecho();
|
||
clear();
|
||
refresh();
|
||
|
||
breit=(SX-45)/2; hoch=SY-6;
|
||
|
||
if (breit > MAXX-MINX+(MAXY-MINY)/2) {
|
||
left=MINX-(breit-MAXX-MINX)/2+y/2;
|
||
breit=MAXX-MINX+(MAXY-MINY)/2;
|
||
minimapx=true;
|
||
} else {
|
||
left=x-breit/2+y/2;
|
||
}
|
||
|
||
if (hoch > MAXY-MINY) {
|
||
minimapy=true;
|
||
top=MAXY+(hoch-MAXY-MINY)/2;
|
||
hoch=MAXY-MINY;
|
||
} else top=y+hoch/2;
|
||
|
||
/* breit=(SX-45)/2; hoch=SY-6; */ /* zum Darstellen schon alles nehmen */
|
||
}
|
||
|
||
/* --------------------------------------------------------------------- */
|
||
|
||
static int hl;
|
||
#ifdef ALLIANCES
|
||
static int hl_alliance;
|
||
#endif
|
||
|
||
int politkarte = 0;
|
||
|
||
int
|
||
RegionColor(const region *r) {
|
||
static int usecolor=0;
|
||
if (!usecolor) {
|
||
start_color();
|
||
init_pair(T_PLAIN, COLOR_GREEN, COLOR_BLACK);
|
||
init_pair(T_SWAMP, COLOR_RED, COLOR_BLACK);
|
||
init_pair(T_OCEAN, COLOR_BLUE, COLOR_BLACK);
|
||
init_pair(T_GLACIER, COLOR_WHITE, COLOR_BLACK);
|
||
init_pair(T_HIGHLAND, COLOR_YELLOW, COLOR_BLACK);
|
||
init_pair(T_DESERT, COLOR_CYAN, COLOR_BLACK);
|
||
init_pair(T_MOUNTAIN, COLOR_WHITE, COLOR_BLACK);
|
||
usecolor=1;
|
||
}
|
||
return COLOR_PAIR(rterrain(r));
|
||
}
|
||
|
||
chtype
|
||
RegionSymbol(const region *r) {
|
||
chtype rs;
|
||
int p;
|
||
|
||
if (!r) return '?';
|
||
|
||
switch(politkarte) {
|
||
case 1:
|
||
{
|
||
unit *u;
|
||
faction *f;
|
||
|
||
for (f = factions; f; f = f->next)
|
||
freset(f, FL_DH);
|
||
for (u = r->units; u; u = u->next)
|
||
fset(u->faction, FL_DH);
|
||
for (p = 0, f = factions; f; f = f->next)
|
||
if (fval(f, FL_DH))
|
||
p++;
|
||
if (p>9)
|
||
rs = (chtype)'!';
|
||
else if (p>0)
|
||
rs = (chtype)(p+48);
|
||
else {
|
||
rs = terrain[rterrain(r)].symbol;
|
||
if(rs == 'P' && r_isforest(r)) rs = 'F';
|
||
}
|
||
}
|
||
break;
|
||
case 2:
|
||
{
|
||
if(r->land == NULL || r->land->demands == NULL) {
|
||
rs = terrain[rterrain(r)].symbol;
|
||
} else {
|
||
const luxury_type *sale=NULL;
|
||
struct demand *dmd;
|
||
|
||
for (dmd=r->land->demands;dmd;dmd=dmd->next) {
|
||
if (dmd->value==0) sale = dmd->type;
|
||
}
|
||
|
||
if(sale == NULL) { /* Kann nur bei einem Bug passieren */
|
||
rs = terrain[rterrain(r)].symbol;
|
||
} else {
|
||
rs = resourcename(sale->itype->rtype, 0)[0];
|
||
}
|
||
}
|
||
}
|
||
break;
|
||
case 3:
|
||
{
|
||
const herb_type *herb = rherbtype(r);
|
||
if(herb) {
|
||
const char *c = resourcename(herb2resource(herb),0);
|
||
int h = atoi(c+1);
|
||
if(h < 10) {
|
||
rs = '0'+h;
|
||
} else {
|
||
rs = 'a'+(h-10);
|
||
}
|
||
} else {
|
||
rs = terrain[rterrain(r)].symbol;
|
||
}
|
||
}
|
||
break;
|
||
case 4:
|
||
{
|
||
if(r->land) {
|
||
struct demand *dmd;
|
||
rs = '0';
|
||
for (dmd=r->land->demands;dmd;dmd=dmd->next) rs++;
|
||
} else {
|
||
rs = terrain[rterrain(r)].symbol;
|
||
}
|
||
}
|
||
break;
|
||
default:
|
||
rs = terrain[rterrain(r)].symbol;
|
||
if(rs == 'P' && r_isforest(r)) rs = 'F';
|
||
}
|
||
return rs;
|
||
}
|
||
|
||
boolean
|
||
is_tagged(region *r) {
|
||
tagregion *t;
|
||
|
||
for (t=Tagged; t; t=t->next)
|
||
if (t->r == r)
|
||
return true;
|
||
return false;
|
||
}
|
||
|
||
static boolean
|
||
factionhere(region * r, int f)
|
||
{
|
||
unit *u;
|
||
for (u = r->units; u; u = u->next)
|
||
if (u->faction->no == f)
|
||
return true;
|
||
return false;
|
||
}
|
||
|
||
#ifdef ALLIANCES
|
||
static boolean
|
||
alliancehere(region * r, int alliance)
|
||
{
|
||
unit *u;
|
||
for (u = r->units; u; u = u->next)
|
||
if (u->faction->alliance && u->faction->alliance->id == alliance)
|
||
return true;
|
||
return false;
|
||
}
|
||
#endif
|
||
|
||
#if NEW_RESOURCEGROWTH
|
||
static boolean
|
||
has_laen(region *r)
|
||
{
|
||
rawmaterial *rm;
|
||
|
||
for(rm=r->resources; rm; rm=rm->next) {
|
||
if(rm->type == &rm_laen) return true;
|
||
}
|
||
return false;
|
||
}
|
||
#else
|
||
static boolean
|
||
has_laen(region *r)
|
||
{
|
||
if(rlaen(r) >= 0) return true;
|
||
return false;
|
||
}
|
||
#endif
|
||
|
||
static int
|
||
crwritemap(void)
|
||
{
|
||
FILE * F = fopen("world.cr", "w+");
|
||
region * r;
|
||
for (r=regions;r;r=r->next) {
|
||
plane * p = rplane(r);
|
||
fprintf(F, "REGION %d %d %d\n", r->x, r->y, p?p->id:0);
|
||
fprintf(F, "\"%s\";Name\n\"%s\";Terrain\n", rname(r, default_locale), LOC(default_locale, terrain[rterrain(r)].name));
|
||
}
|
||
fclose(F);
|
||
return 0;
|
||
}
|
||
|
||
int
|
||
newbie_region(region * r)
|
||
{
|
||
unit * u;
|
||
if (r==NULL || r->units==NULL) return 0;
|
||
for (u=r->units;u;u=u->next) {
|
||
if (u->faction->age>10) return 0;
|
||
if (u->faction->age==0) return 1;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
int
|
||
dropout_region(region * r)
|
||
{
|
||
dropout * drop = dropouts;
|
||
if (r!=NULL) while (drop) {
|
||
if (drop->x==r->x && drop->y==r->y) return 1;
|
||
drop=drop->next;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
static boolean
|
||
highlight_region(region *r)
|
||
{
|
||
if ((hl == -2 && r->units) ||
|
||
(hl == -3 && r->buildings) ||
|
||
(hl == -4 && r->ships) ||
|
||
(hl == -5 && has_laen(r)) ||
|
||
(hl == -6 && fval(r, RF_MALLORN)) ||
|
||
(hl == -7 && fval(r, RF_CHAOTIC)) ||
|
||
(hl == -8 && get_curse(r->attribs, ct_find("godcursezone"))) ||
|
||
(hl == -9 && newbie_region(r)) ||
|
||
(hl == -10 && dropout_region(r)) ||
|
||
#ifdef ALLIANCES
|
||
(hl == -11 && alliancehere(r, hl_alliance)) ||
|
||
#endif
|
||
(hl >= 0 && factionhere(r, hl))) {
|
||
return true;
|
||
}
|
||
|
||
return false;
|
||
}
|
||
|
||
void
|
||
drawmap(boolean maponly) {
|
||
int x, x1, y1, y2, s, q;
|
||
chtype rs;
|
||
region *r;
|
||
|
||
x1=left; y1=top;
|
||
if(maponly == false) {
|
||
movexy(SX-36,SY-2);
|
||
sprintf(buf, "%d gesetzt, %d Rest, %d Dropouts", numnewbies, listlen(newfactions), listlen(dropouts));
|
||
addstr(buf);
|
||
movexy(SX-39, 0);
|
||
vline(ACS_VLINE, SY+1);
|
||
movexy(SX-38, SY-3);
|
||
hline(ACS_HLINE, 39);
|
||
if (hl != -1) {
|
||
movexy(SX-36,SY-3);
|
||
addstr(" High: ");
|
||
switch (hl) {
|
||
case -2:
|
||
addstr("Einheiten ");
|
||
break;
|
||
case -3:
|
||
addstr("Geb<EFBFBD>ude ");
|
||
break;
|
||
case -4:
|
||
addstr("Schiffe ");
|
||
break;
|
||
case -5:
|
||
addstr("Laen ");
|
||
break;
|
||
case -6:
|
||
addstr("Mallorn ");
|
||
break;
|
||
case -7:
|
||
addstr("Chaos ");
|
||
break;
|
||
case -8:
|
||
addstr("Godcurse ");
|
||
break;
|
||
case -9:
|
||
addstr("Anf<EFBFBD>nger ");
|
||
break;
|
||
case -10:
|
||
addstr("Dropouts ");
|
||
break;
|
||
#ifdef ALLIANCES
|
||
case -11:
|
||
printw((NCURSES_CONST char*)"Allianz %d ", hl_alliance);
|
||
break;
|
||
#endif
|
||
default:
|
||
printw((NCURSES_CONST char*)"Partei %d ", hl);
|
||
}
|
||
}
|
||
switch(politkarte) {
|
||
case 0:
|
||
movexy(SX-14,SY-3);
|
||
addstr(" Geol.Karte ");
|
||
break;
|
||
case 1:
|
||
movexy(SX-14,SY-3);
|
||
addstr(" Politkarte ");
|
||
break;
|
||
case 2:
|
||
movexy(SX-14,SY-3);
|
||
addstr(" Handelskar ");
|
||
break;
|
||
case 3:
|
||
movexy(SX-14,SY-3);
|
||
addstr(" Botanik ");
|
||
break;
|
||
case 4:
|
||
movexy(SX-14,SY-3);
|
||
addstr(" Demand ");
|
||
break;
|
||
}
|
||
}
|
||
|
||
for (s=0; s<hoch; s++) {
|
||
movexy(1,s+6);
|
||
printw((NCURSES_CONST char*)"%4d", y1-s);
|
||
}
|
||
|
||
y2=0; q=hoch; s=q+(hoch&1)+(top&1);
|
||
do { /* Zeilen */
|
||
movexy(8-(s&1),y2+6);
|
||
for (x=x1; x<x1+breit-2+(s&1); x++) { /* Spalten */
|
||
r = findregion(x, y1);
|
||
rs = RegionSymbol(r);
|
||
|
||
addch(' ');
|
||
if (r) {
|
||
#ifdef COLOR
|
||
int rc = RegionColor(r);
|
||
#endif
|
||
if (highlight_region(r) || (x==tx && y1==ty)) {
|
||
addch(rs | A_REVERSE);
|
||
} else if (is_tagged(r)) {
|
||
addch(rs | A_BOLD);
|
||
} else {
|
||
#ifdef COLOR
|
||
attrset(rc | A_NORMAL);
|
||
#endif
|
||
addch(rs);
|
||
attrset(A_NORMAL);
|
||
}
|
||
} else
|
||
addch(rs);
|
||
}
|
||
addch(' ');
|
||
q--; y1--; y2++; x1+=(s&1); s--;
|
||
} while (q);
|
||
|
||
if(maponly == false) {
|
||
movexy(SX-37, SY-1);
|
||
if (clipship)
|
||
saddstr(Shipid(clipship));
|
||
else
|
||
addstr("kein Clipschiff");
|
||
movexy(SX - 37, SY);
|
||
if (clipunit)
|
||
addstr(Unitid(clipunit));
|
||
else
|
||
addstr("keine Clipunit");
|
||
}
|
||
refresh();
|
||
}
|
||
|
||
void
|
||
mark_region(int x1, int y1, int x2, int y2)
|
||
{
|
||
int dx, dy, q;
|
||
|
||
x1=x1*2+7+(y1&1)+(top&1); y1+=6;
|
||
x2=x2*2+7+(y2&1)+(top&1); y2+=6;
|
||
|
||
dy=abs(y2-y1);
|
||
dx=abs(x2-x1)-dy;
|
||
if (y1<y2) {
|
||
q=y1; y1=y2; y2=q;
|
||
q=x1; x1=x2; x2=q;
|
||
}
|
||
if (x1>x2) {
|
||
x1-=dx; x2+=dx;
|
||
}
|
||
/* jetzt ist <1> immer unten links, <2> immer oben rechts */
|
||
|
||
movexy(x1-1,y1+1); hline('-', dx+2);
|
||
movexy(x1+dy,y2-1); hline('-', dx+2);
|
||
|
||
for (; dy>=0; dy--) {
|
||
movexy(x1+dy-1,y1-dy);
|
||
addch('/');
|
||
movexy(x1+dy+dx+1,y1-dy);
|
||
addch('/');
|
||
}
|
||
}
|
||
|
||
void
|
||
mark(int x, int y, int rx, int ry) {
|
||
int q;
|
||
char num[6];
|
||
|
||
|
||
/*
|
||
move(0,0);
|
||
printw("hoch=%d,breit=%d,x=%d,y=%d,left=%d,top=%d,rx=%d,ry=%d ",
|
||
hoch,breit,x,y,left,top,rx,ry);
|
||
*/
|
||
|
||
movexy(x*2+6+(y&1)+(top&1),y+6);
|
||
if (rx==tx && ry==ty)
|
||
addch('>');
|
||
else
|
||
addch('<');
|
||
addch(RegionSymbol(findregion(rx,ry)) | A_REVERSE);
|
||
if (rx==tx && ry==ty)
|
||
addch('<');
|
||
else
|
||
addch('>');
|
||
attron(A_BOLD);
|
||
sprintf(num,"%4d",rx);
|
||
for (q=0; q<5; q++) {
|
||
movexy(x*2+7+(y&1)+(top&1),q+1);
|
||
printw((NCURSES_CONST char*)"%c", num[q]);
|
||
}
|
||
movexy(1,y+6);
|
||
printw((NCURSES_CONST char*)"%4d<-",ry);
|
||
movexy(SX-39, y+6); addch('<');
|
||
movexy(x*2+7+(y&1)+(top&1),5); addch('^');
|
||
attroff(A_BOLD);
|
||
refresh();
|
||
}
|
||
|
||
void unmark(int x, int y, int rx, int ry) {
|
||
int q;
|
||
region *r=findregion(rx,ry);
|
||
chtype rs;
|
||
|
||
rs = RegionSymbol(r);
|
||
|
||
movexy(x*2+6+(y&1)+(top&1),y+6);
|
||
addch(' ');
|
||
if (r) {
|
||
if (highlight_region(r) || (rx==tx && ry==ty)) {
|
||
addch(rs | A_REVERSE);
|
||
} else if (is_tagged(r)) {
|
||
addch(rs | A_BOLD);
|
||
} else {
|
||
addch(rs);
|
||
}
|
||
} else {
|
||
addch(rs);
|
||
}
|
||
addch(' ');
|
||
for (q=0; q<5; q++) {
|
||
movexy(x*2+7+(y&1)+(top&1),q+1);
|
||
addch(' ');
|
||
}
|
||
movexy(1,y+6);
|
||
printw((NCURSES_CONST char*)"%4d ",ry);
|
||
movexy(SX-39, y+6); addch('|');
|
||
refresh();
|
||
}
|
||
|
||
void
|
||
modify_block(void)
|
||
{
|
||
WINDOW *win;
|
||
int c, s = 0;
|
||
region *r;
|
||
tagregion *t;
|
||
char *name = NULL;
|
||
int div = 0;
|
||
int mal = 0;
|
||
struct rawmaterial *res;
|
||
|
||
win = openwin(70, 4, "< Tag-Regionen modifizieren >");
|
||
wmove(win, 1, 2);
|
||
wAddstr("Name, Peasants, Horses, Silver, Chaos, noResources, Mallorn (n/p/h/s/c/r/m,q)?");
|
||
wrefresh(win);
|
||
c = getch();
|
||
if (c == 'q') {
|
||
delwin(win);
|
||
return;
|
||
}
|
||
|
||
switch(c) {
|
||
case 'c':
|
||
wmove(win, 2, 2);
|
||
wAddstr("Chaosstatus (s)etzen oder (l)<29>schen?");
|
||
wrefresh(win);
|
||
if (getch() == 's') {
|
||
s = 1;
|
||
} else {
|
||
s = 0;
|
||
}
|
||
break;
|
||
case 'n':
|
||
name = my_input(win, 2, 2, "Name: ", NULL);
|
||
break;
|
||
case 'p':
|
||
div = atoi(my_input(win, 2, 2, "Divisor: ", "1"));
|
||
break;
|
||
case 'm':
|
||
wmove(win, 2, 2);
|
||
wAddstr("Mallorn (s)etzen oder (l)<29>schen?");
|
||
wrefresh(win);
|
||
if (getch() == 's') {
|
||
mal = 1;
|
||
} else {
|
||
mal = 0;
|
||
}
|
||
break;
|
||
}
|
||
|
||
for (t=Tagged; t; t=t->next) {
|
||
r=t->r;
|
||
if (production(r)) {
|
||
switch (c) {
|
||
case 'n':
|
||
rsetname(r, name);
|
||
break;
|
||
case 'p':
|
||
rsetpeasants(r, (production(r)*3+rand()%(production(r)*3))/div);
|
||
rsetmoney(r, (production(r)*10+rand()%(production(r)*10))/div);
|
||
break;
|
||
case 'h':
|
||
rsethorses(r, rand()%(production(r) / 10));
|
||
break;
|
||
case 's':
|
||
rsetmoney(r, production(r)*10+rand()%(production(r)*10));
|
||
break;
|
||
case 'r':
|
||
for (res=r->resources;res;res=res->next) {
|
||
const item_type * itype = resource2item(res->type->rtype);
|
||
if(itype == olditemtype[I_IRON]) {
|
||
res->amount = -1;
|
||
res->level = -1;
|
||
} else if(itype == olditemtype[I_LAEN]) {
|
||
res->amount = -1;
|
||
res->level = -1;
|
||
} else if(itype == olditemtype[I_STONE]) {
|
||
res->amount = -1;
|
||
res->level = -1;
|
||
}
|
||
}
|
||
break;
|
||
case 'm':
|
||
if(mal == 1) {
|
||
fset(r, RF_MALLORN);
|
||
} else {
|
||
freset(r, RF_MALLORN);
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
if (c == 'c') {
|
||
if(s) {
|
||
fset(r, RF_CHAOTIC);
|
||
} else {
|
||
freset(r, RF_CHAOTIC);
|
||
}
|
||
}
|
||
}
|
||
modified = 1;
|
||
delwin(win);
|
||
}
|
||
|
||
void
|
||
SetHighlight(void)
|
||
{
|
||
WINDOW *win;
|
||
char *fac_nr36;
|
||
int c;
|
||
|
||
win = openwin(60, 6, "< Highlighting >");
|
||
wmove(win, 1, 2);
|
||
wAddstr("Regionen mit P)artei, E)inheiten, B)urgen, S)chiffen,");
|
||
wmove(win, 2, 2);
|
||
wAddstr(" A)nf<6E>ngern, L)aen, C)haos, G)odcurse");
|
||
wmove(win, 3, 2);
|
||
#ifdef ALLIANCES
|
||
wAddstr(" D)ropouts, Allian(Z) oder N)ichts?");
|
||
#else
|
||
wAddstr(" D)ropouts oder N)ichts?");
|
||
#endif
|
||
wrefresh(win);
|
||
c = tolower(getch());
|
||
switch (c) {
|
||
case 'p':
|
||
fac_nr36 = my_input(win, 2, 2, "Partei-Nummer: ", NULL);
|
||
hl = atoi36(fac_nr36);
|
||
break;
|
||
#ifdef ALLIANCES
|
||
case 'z':
|
||
hl_alliance = map_input(win, 2, 2, "Allianz-Nummer: ", 0, 999, 0);
|
||
hl = -11;
|
||
break;
|
||
#endif
|
||
case 'e':
|
||
hl = -2;
|
||
break;
|
||
case 'b':
|
||
hl = -3;
|
||
break;
|
||
case 's':
|
||
hl = -4;
|
||
break;
|
||
case 'l':
|
||
hl = -5;
|
||
break;
|
||
case 'm':
|
||
hl = -6;
|
||
break;
|
||
case 'c':
|
||
hl = -7;
|
||
break;
|
||
case 'g':
|
||
hl = -8;
|
||
break;
|
||
case 'a':
|
||
hl = -9;
|
||
break;
|
||
case 'd':
|
||
hl = -10;
|
||
break;
|
||
case 'n':
|
||
default:
|
||
hl = -1;
|
||
break;
|
||
}
|
||
delwin(win);
|
||
}
|
||
|
||
void
|
||
recalc_everything(int *x, int *y, int *rx, int *ry)
|
||
{
|
||
int eingerueckt;
|
||
|
||
top=(*ry)+hoch/2; (*y)=hoch/2;
|
||
(*x)=breit/2; left=(*rx)-((*y)/2)-(*x);
|
||
|
||
/* Wenn Zeile einger<65>ckt, left modifizieren */
|
||
|
||
if((top-(*ry))&1) /* Einr<6E>ckung wie erste Zeile */
|
||
eingerueckt = (hoch + (hoch&1) + (top&1))&1;
|
||
else
|
||
eingerueckt = !((hoch + (hoch&1) + (top&1))&1);
|
||
|
||
if(eingerueckt) left++;
|
||
}
|
||
|
||
#define restore { x=oldx; y=oldy; rx=oldrx; ry=oldry; }
|
||
|
||
void
|
||
movearound(int rx, int ry) {
|
||
int hx = -1, hy = -1, ch, x, y, Rand, d, a, b, p, q, oldx=0, oldy=0;
|
||
int oldrx=0, oldry=0, Hx=0, Hy=0;
|
||
int sel;
|
||
static int editmode=0;
|
||
char *selc;
|
||
region *c, *r = NULL, *r2;
|
||
tagregion *tag;
|
||
unit *u, *u2;
|
||
WINDOW *win;
|
||
|
||
y=top-ry; x=rx-left; left-=y/2;
|
||
if (y&1 && !(ry&1)) left--; else left++;
|
||
if (ry&1) left--;
|
||
|
||
r=findregion(rx,ry);
|
||
drawmap(false);
|
||
Rand=min(4, min(breit/4, hoch/4));
|
||
showregion(r, 0);
|
||
DisplayRegList(1);
|
||
mark(x,y,rx,ry);
|
||
|
||
for (;;) {
|
||
#ifndef WIN32
|
||
if (Signals & S_SIGWINCH) {
|
||
do {
|
||
endwin();
|
||
init_win(rx, ry);
|
||
Signals &= ~S_SIGWINCH;
|
||
if (SX < 50 || SY < 12) {
|
||
beep();
|
||
move(0, 0);
|
||
addstr("Fenster zu klein!");
|
||
refresh();
|
||
while (!(Signals & S_SIGWINCH))
|
||
a++;
|
||
}
|
||
} while (SX < 50 && SY < 12);
|
||
y = top - ry; x = rx - left; left-=y/2;
|
||
/* Wenn in einger<65>ckter Zeile */
|
||
if (y&1 && !(ry&1)) left--; else left++;
|
||
if (ry&1) left--;
|
||
ch = -9;
|
||
} else
|
||
#endif
|
||
{
|
||
int edit=0;
|
||
ch = getch();
|
||
unmark(x, y, rx, ry);
|
||
|
||
oldx=x; oldy=y; oldrx=rx; oldry=ry;
|
||
if (editmode) {
|
||
if (ch=='E') {
|
||
editmode=0;
|
||
edit=1;
|
||
} else {
|
||
region * r = findregion(rx, ry);
|
||
if (r) {
|
||
int terrai = 0;
|
||
while (terrai!=MAXTERRAINS && tolower(terrain[terrai].symbol)!=tolower(ch)) ++terrai;
|
||
if (terrai!=MAXTERRAINS) {
|
||
edit=1;
|
||
terraform(r, (terrain_t)terrai);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
if (!edit) switch (ch) {
|
||
case KEY_HELP:
|
||
case '?':
|
||
if (reglist) {
|
||
freelist(reglist);
|
||
reglist = NULL;
|
||
}
|
||
adddbllist(®list, "Hilfe");
|
||
adddbllist(®list, "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>");
|
||
adddbllist(®list, " Cursor: Scroll");
|
||
adddbllist(®list, " NumBlock: Move");
|
||
adddbllist(®list, " j,m,x,y: Jump X/Y");
|
||
adddbllist(®list, " ^L: Redraw");
|
||
adddbllist(®list, " h: Bereich markieren");
|
||
adddbllist(®list, " p: Parteiliste");
|
||
adddbllist(®list, " e,u: Einheitenliste");
|
||
adddbllist(®list, " q: Quit");
|
||
adddbllist(®list, " r,i: Regionsinfo");
|
||
adddbllist(®list, " t: Tag Region(en)");
|
||
adddbllist(®list, " ^T: Untag alle Regionen");
|
||
adddbllist(®list, " /: Suche Einheit");
|
||
adddbllist(®list, " B: Ozean-Bereich erzeugen");
|
||
adddbllist(®list, " ^B: neuen 9<>9-Block erzeugen");
|
||
adddbllist(®list, " C: neue Region erzeugen");
|
||
adddbllist(®list, " D: Partei l<>schen");
|
||
adddbllist(®list, " G: Jump Tagregion");
|
||
adddbllist(®list, " H: Highlight");
|
||
adddbllist(®list, " M: Region(en) modifizieren");
|
||
adddbllist(®list, " P: neue Partei einf<6E>gen");
|
||
adddbllist(®list, " T: Terraform Region");
|
||
adddbllist(®list, " Z: Terrain Region");
|
||
DisplayRegList(1);
|
||
ch = 999999;
|
||
break;
|
||
case 23: /* ctrl-w*/
|
||
crwritemap();
|
||
break;
|
||
case 'q':
|
||
if (yes_no(0, "Wirklich beenden?", 'n'))
|
||
return;
|
||
/* sonst ein redraw */
|
||
case 12: /* ^L */
|
||
clear();
|
||
DisplayRegList(0);
|
||
ch = -9; /* nur ein Redraw */
|
||
break;
|
||
case 'T':
|
||
if (r==NULL) break;
|
||
if (!Tagged) {
|
||
if (hx>-1) {
|
||
int Rx,Ry;
|
||
Rx=rx; Ry=ry;
|
||
if (rx>Hx) { a=Hx; Hx=Rx; rx=a; }
|
||
if (ry>Hy) { a=Hy; Hy=Ry; ry=a; }
|
||
ch = GetTerrain(r);
|
||
for (a=Rx; a<=Hx; a++)
|
||
for (b=Ry; b<=Hy; b++) {
|
||
c=findregion(a,b);
|
||
if (c) terraform(c, (terrain_t) ch);
|
||
}
|
||
} else
|
||
terraform(r, GetTerrain(r));
|
||
} else {
|
||
ch = GetTerrain(r);
|
||
for (tag=Tagged; tag; tag=tag->next)
|
||
terraform(tag->r, (terrain_t) ch);
|
||
}
|
||
ch = -9;
|
||
modified = 1;
|
||
break;
|
||
case 'Z':
|
||
if (!Tagged) {
|
||
if (hx>-1) {
|
||
int Rx,Ry;
|
||
Rx=rx; Ry=ry;
|
||
if (rx>Hx) { a=Hx; Hx=Rx; rx=a; }
|
||
if (ry>Hy) { a=Hy; Hy=Ry; ry=a; }
|
||
ch = GetTerrain(r);
|
||
for (a=Rx; a<=Hx; a++)
|
||
for (b=Ry; b<=Hy; b++) {
|
||
c=findregion(a,b);
|
||
if (c) rsetterrain(c, (terrain_t) ch);
|
||
}
|
||
} else
|
||
terraform(r, GetTerrain(r));
|
||
} else {
|
||
ch = GetTerrain(r);
|
||
for (tag=Tagged; tag; tag=tag->next)
|
||
rsetterrain(tag->r, (terrain_t) ch);
|
||
}
|
||
ch = -9;
|
||
modified = 1;
|
||
break;
|
||
case 't':
|
||
if (hx>-1) {
|
||
if (Hx<rx) { a=Hx; Hx=rx; rx=a; }
|
||
if (Hy<ry) { a=Hy; Hy=ry; ry=a; }
|
||
for (a=rx; a<=Hx; a++)
|
||
for (b=ry; b<=Hy; b++) {
|
||
c=findregion(a,b);
|
||
if (!c) continue;
|
||
if (!is_tagged(c)) {
|
||
tag=calloc(1, sizeof(tagregion));
|
||
tag->r=c;
|
||
tag->next=Tagged; Tagged=tag;
|
||
}
|
||
}
|
||
ch=-9;
|
||
} else {
|
||
tx=rx; ty=ry;
|
||
if (is_tagged(r)) {
|
||
tag=Tagged;
|
||
while (tag->r!=r) tag=tag->next;
|
||
removelist(&Tagged,tag);
|
||
} else {
|
||
tag=calloc(1, sizeof(tagregion));
|
||
tag->r=r;
|
||
tag->next=Tagged; Tagged=tag;
|
||
}
|
||
}
|
||
break;
|
||
case 0x14:
|
||
{
|
||
tagregion *tag_next;
|
||
tag = Tagged;
|
||
while (tag) {
|
||
tag_next = tag->next;
|
||
removelist(&Tagged, tag);
|
||
tag = tag_next;
|
||
}
|
||
ch=-9;
|
||
} break;
|
||
case 'W':
|
||
if(Tagged) {
|
||
FILE *mapFile = mapperFopen("mapper.map","w");
|
||
const char *tname;
|
||
if(mapFile) {
|
||
tag=Tagged;
|
||
while(tag) {
|
||
fprintf(mapFile, "REGION %d %d\n",tag->r->x, tag->r->y);
|
||
if(r_isforest(tag->r)) {
|
||
tname = "forest";
|
||
} else {
|
||
tname = terrain[rterrain(tag->r)].name;
|
||
}
|
||
fprintf(mapFile, "\"%s\"; Terrain\n", locale_string(NULL, tname));
|
||
tag=tag->next;
|
||
}
|
||
fclose(mapFile);
|
||
}
|
||
} break;
|
||
case 'G':
|
||
rx=tx; ry=ty;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
ch=-8;
|
||
break;
|
||
case 'c':
|
||
if (clipunit) {
|
||
rx = clipregion->x;
|
||
ry = clipregion->y;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
ch = -8;
|
||
}
|
||
break;
|
||
case '/':
|
||
win = openwin(70, 4, "< Suchen >");
|
||
wmove(win, 1, 2);
|
||
wAddstr("Suchen nach P)artei, E)inheit, R)egionsname? ");
|
||
wrefresh(win);
|
||
sel = tolower(getch());
|
||
switch(sel) {
|
||
case 'e':
|
||
case 'E':
|
||
q = atoi36(my_input(win, 2, 2, "Welche Einheit suchen: ", NULL));
|
||
if (q) {
|
||
u = findunitg(q, NULL);
|
||
if (!u) {
|
||
warnung(0, "Einheit nicht gefunden.");
|
||
} else {
|
||
r = u->region;
|
||
rx=r->x; ry=r->y;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
}
|
||
}
|
||
break;
|
||
case 'p':
|
||
case 'P':
|
||
q = atoi36(my_input(win, 2, 2, "Welche Partei suchen: ", NULL));
|
||
if(q) {
|
||
u2 = NULL;
|
||
for(r2=regions; r2; r2=r2->next) {
|
||
for(u2=r2->units; u2; u2=u2->next)
|
||
if(u2->faction->no == q) break;
|
||
if(u2) break;
|
||
}
|
||
|
||
if(u2) {
|
||
r = r2;
|
||
rx=r->x; ry=r->y;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
}
|
||
}
|
||
break;
|
||
case 'r':
|
||
case 'R':
|
||
selc = my_input(win, 2, 2, "Welchen Regionsnamen suchen: ", NULL);
|
||
if(*selc) {
|
||
for(r2=regions; r2; r2=r2->next)
|
||
if(strcmp(selc, rname(r2, NULL)) == 0) break;
|
||
|
||
if(r2) {
|
||
r = r2;
|
||
rx=r->x; ry=r->y;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
}
|
||
}
|
||
break;
|
||
}
|
||
|
||
delwin(win);
|
||
ch=-9;
|
||
break;
|
||
case 'H':
|
||
SetHighlight();
|
||
ch = -9;
|
||
break;
|
||
case 'h':
|
||
if (hx < 0) {
|
||
hx = x; Hx=rx;
|
||
hy = y; Hy=ry;
|
||
} else
|
||
hx = hy = -1;
|
||
ch=-9;
|
||
break;
|
||
case 'C':
|
||
make_new_region(rx, ry);
|
||
ch = -9;
|
||
break;
|
||
case 'B':
|
||
a=map_input(0,0,0,"Start X", -999, 999, rx);
|
||
b=map_input(0,0,0,"Start Y", -999, 999, ry);
|
||
p=map_input(0,0,0,"Ende X", -999, 999, rx);
|
||
q=map_input(0,0,0,"Ende Y", -999, 999, ry);
|
||
if (a>p) { x=a; a=p; p=x; }
|
||
if (b>q) { x=b; b=q; q=x; }
|
||
for (x=a; x<=p; x++)
|
||
for (y=b; y<=q; y++)
|
||
if (!findregion(x,y)) /* keine existierenden Regionen <20>berschreiben */
|
||
(void)new_region(x,y);
|
||
restore;
|
||
modified=1;
|
||
ch=-9;
|
||
break;
|
||
case 'I':
|
||
a=map_input(0,0,0,"Wieviele Regionen?",0,500,0);
|
||
if (a) {
|
||
/* block_create(rx, ry, a, 0, 0, T_GLACIER); */
|
||
create_island(r, a, (terrain_t)(rand()%(T_GLACIER)+1));
|
||
modified=1;
|
||
}
|
||
ch = -9;
|
||
break;
|
||
case 0x2:
|
||
make_ocean_block(rx, ry);
|
||
modified = 1;
|
||
ch = -9;
|
||
break;
|
||
case 'a':
|
||
#if 0
|
||
if (r && r->land) {
|
||
regionlist * rlist = NULL;
|
||
add_regionlist(&rlist, r);
|
||
get_island(&rlist);
|
||
autoseed(rlist);
|
||
modified = 1;
|
||
}
|
||
#else
|
||
runautoseed();
|
||
modified = 1;
|
||
#endif
|
||
case 's':
|
||
seed_dropouts();
|
||
modified = 1;
|
||
break;
|
||
case 'S':
|
||
if (modified)
|
||
if (yes_no(0, "Daten abspeichern?", 'j')) {
|
||
remove_empty_units();
|
||
writegame(datafile, 1);
|
||
if (yes_no(0, "Backup neu anlegen?", 'j')) {
|
||
create_backup(datafile);
|
||
}
|
||
modified = 0;
|
||
ch = -8;
|
||
}
|
||
break;
|
||
case 'D':
|
||
RemovePartei();
|
||
ch = -9;
|
||
break;
|
||
case 'P':
|
||
if (r) NeuePartei(r);
|
||
ch = -9;
|
||
break;
|
||
case 'X':
|
||
if(Tagged) {
|
||
tag=Tagged;
|
||
while(tag) {
|
||
SpecialFunction(tag->r);
|
||
tag=tag->next;
|
||
}
|
||
} else {
|
||
SpecialFunction(r);
|
||
}
|
||
ch = -9;
|
||
break;
|
||
case 'M':
|
||
if (Tagged)
|
||
modify_block();
|
||
else
|
||
while (modify_region(r)); /* Liste neu bei einigen Aktionen */
|
||
ch = -9;
|
||
break;
|
||
case 'u':
|
||
case 'e':
|
||
while (r && showunits(r));
|
||
ch = -9;
|
||
break;
|
||
case 'U':
|
||
{
|
||
unit *u, *un;
|
||
region *target_r;
|
||
static int tx = 0, ty = 0;
|
||
|
||
tx=map_input(0,0,0,"Versetzen nach X-Koordinate", MINX, MAXX, tx);
|
||
ty=map_input(0,0,0,"Versetzen nach Y-Koordinate", MINY, MAXY, ty);
|
||
target_r = findregion(tx,ty);
|
||
if(target_r) {
|
||
for(u = r->units; u;) {
|
||
un = u->next;
|
||
leave(r, u);
|
||
move_unit(u, target_r, NULL);
|
||
u = un;
|
||
}
|
||
}
|
||
}
|
||
break;
|
||
case 'E':
|
||
editmode = !editmode;
|
||
break;
|
||
case 'i':
|
||
case 'r':
|
||
showregion(r, 1);
|
||
DisplayRegList(1);
|
||
ch = 999999;
|
||
break;
|
||
case 'p':
|
||
while (ParteiListe());
|
||
ch = -9;
|
||
break;
|
||
case 'k':
|
||
politkarte = (politkarte+1)%5;
|
||
ch = -9;
|
||
break;
|
||
case '{':
|
||
case KEY_PPAGE:
|
||
ScrollRegList(1);
|
||
ch = 999999;
|
||
break;
|
||
case '}':
|
||
case KEY_NPAGE:
|
||
ScrollRegList(-1);
|
||
ch = 999999;
|
||
break;
|
||
case 'j':
|
||
case 'g':
|
||
if (hx<0) {
|
||
rx=map_input(0,0,0,"Neue X-Koordinate", MINX, MAXX, rx);
|
||
ry=map_input(0,0,0,"Neue Y-Koordinate", MINY, MAXY, ry);
|
||
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
|
||
ch=-8;
|
||
}
|
||
break;
|
||
case 'A':
|
||
{
|
||
plane *astral = getplanebyid(1);
|
||
if(!astral) break;
|
||
if(r->planep != astral) {
|
||
region *nr = r_standard_to_astral(r);
|
||
if(nr) {
|
||
r = nr;
|
||
rx = nr->x;
|
||
ry = nr->y;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
ch = -8;
|
||
}
|
||
} else {
|
||
region *nr = r_astral_to_standard(r);
|
||
if(nr) {
|
||
r = nr;
|
||
rx = nr->x;
|
||
ry = nr->y;
|
||
recalc_everything(&x, &y, &rx, &ry);
|
||
ch = -8;
|
||
}
|
||
}
|
||
}
|
||
break;
|
||
case '1': /* left down */
|
||
y++; ry--;
|
||
if (y&1) x--;
|
||
break;
|
||
case '7': /* left up */
|
||
y--; ry++;
|
||
if (!(y&1)) x++;
|
||
x--; rx--;
|
||
break;
|
||
case '3': /* right down */
|
||
rx++;
|
||
if (y&1) x++;
|
||
y++; ry--;
|
||
break;
|
||
case '9': /* right up */
|
||
y--; ry++;
|
||
if (!(y&1)) x++;
|
||
break;
|
||
case '2':
|
||
y++; ry--;
|
||
if (y&1) rx++;
|
||
break;
|
||
case '8':
|
||
y--; ry++;
|
||
if (!(y&1)) rx--;
|
||
break;
|
||
case '4':
|
||
x--; rx--;
|
||
break;
|
||
case '6':
|
||
x++; rx++;
|
||
break;
|
||
case '5':
|
||
if (hx<0) {
|
||
top=ry+hoch/2; y=hoch/2;
|
||
x=breit/2; left=rx-(y/2)-x; if (top&1) left--;
|
||
if (!(hoch&1)) left++;
|
||
ch=-8;
|
||
} else {
|
||
ch=0;
|
||
beep();
|
||
}
|
||
break;
|
||
case '[':
|
||
left++;
|
||
ch=-9;
|
||
break;
|
||
case ']':
|
||
left--;
|
||
ch=-9;
|
||
break;
|
||
case KEY_LEFT: /* scroll left */
|
||
sprintf(buf, "%x", ch);
|
||
mvaddnstr(0, 0, buf, 4);
|
||
if (hx<0 && !minimapx) {
|
||
ch=-2;
|
||
rx--; left--;
|
||
} else {
|
||
ch=0;
|
||
beep();
|
||
}
|
||
break;
|
||
case KEY_RIGHT: /* scroll right */
|
||
if (hx<0 && !minimapx) {
|
||
ch=-3;
|
||
rx++; left++;
|
||
} else {
|
||
ch=0;
|
||
beep();
|
||
}
|
||
break;
|
||
case KEY_DOWN: /* scroll down */
|
||
if (hx<0 && !minimapy) {
|
||
ch=-4;
|
||
top--;
|
||
if ((top&1)) left--; else left++;
|
||
} else {
|
||
ch=0;
|
||
beep();
|
||
}
|
||
break;
|
||
case KEY_UP: /* scroll up */
|
||
if (hx<0 && !minimapy) {
|
||
ch=-5;
|
||
top++;
|
||
if (!(top&1)) left++; else left--;
|
||
} else {
|
||
ch=0;
|
||
beep();
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
|
||
if (ch>0) {
|
||
if (!minimapx) {
|
||
if (x<Rand-1 && left > MINX) {
|
||
if (hx>-1) restore
|
||
else {
|
||
left-=(breit-2*Rand+2);
|
||
x=breit-Rand;
|
||
ch=-1;
|
||
}
|
||
} else if (x > breit-Rand && left+breit < MAXX) {
|
||
if (hx>-1) restore
|
||
else {
|
||
left+=(breit-2*Rand+1);
|
||
x=Rand;
|
||
ch=-1;
|
||
}
|
||
}
|
||
}
|
||
if (!minimapy) {
|
||
if (y < Rand-1 && top < MAXY) {
|
||
if (hx>-1) restore
|
||
else {
|
||
d=(hoch-2*Rand+2);
|
||
top+=d;
|
||
left-=d/2;
|
||
if (hoch&1) left--;
|
||
else if (ry&1) left--; else left++;
|
||
if (ry&1) left++; else left--;
|
||
y=hoch-Rand;
|
||
ch=-1;
|
||
}
|
||
} else if (y > hoch-Rand && top-hoch >= MINY) {
|
||
if (hx>-1) restore
|
||
else {
|
||
d=(hoch-2*Rand+2);
|
||
top-=d;
|
||
left+=d/2;
|
||
if (!(hoch&1)) left++;
|
||
if (ry&1) {
|
||
if (hoch&1) left++; else left--;
|
||
} else left--;
|
||
y=Rand;
|
||
ch=-1;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
if (ch < 0) {
|
||
if (ch > -9) { /* sonst sind wir an alter Position */
|
||
ry=top-y;
|
||
}
|
||
if (ch == -9) {
|
||
clear();
|
||
if (!r || r->x != rx || r->y != ry)
|
||
r=findregion(rx,ry);
|
||
showregion(r, 1);
|
||
DisplayRegList(1);
|
||
}
|
||
drawmap(false);
|
||
}
|
||
if (!r || r->x != rx || r->y != ry) {
|
||
r=findregion(rx,ry);
|
||
}
|
||
if (ch < 999999 && ch > -9) { /* Lange Regionsinfo nicht <20>berschreiben */
|
||
showregion(r, 0);
|
||
DisplayRegList(1);
|
||
}
|
||
if (hx>-1 && (x!=oldx || y!=oldy)) {
|
||
if (ch>0) drawmap(true); /* sonst war das eben schon */
|
||
mark_region(x, y, hx, hy);
|
||
}
|
||
mark(x,y,rx,ry);
|
||
}
|
||
}
|
||
|
||
void
|
||
Exit(int level)
|
||
{
|
||
move(SY, 0);
|
||
deleteln();
|
||
refresh();
|
||
curs_set(1);
|
||
endwin();
|
||
exit(level);
|
||
}
|
||
|
||
|
||
void
|
||
usage(void)
|
||
{
|
||
fprintf(stderr, "mapper [-b basedir] [-d datadir] [-o datafile] [-c x,y]\n");
|
||
exit(0);
|
||
}
|
||
|
||
void
|
||
setminmax(void)
|
||
{
|
||
region *r;
|
||
for (r = regions; r; r = r->next) {
|
||
if (r->x < MINX)
|
||
MINX = r->x;
|
||
if (r->y < MINY)
|
||
MINY = r->y;
|
||
if (r->x > MAXX)
|
||
MAXX = r->x;
|
||
if (r->y > MAXY)
|
||
MAXY = r->y;
|
||
}
|
||
MAXX += 20;
|
||
MAXY += 20;
|
||
MINX -= 20;
|
||
MINY -= 20;
|
||
}
|
||
|
||
extern int quiet;
|
||
|
||
extern char * g_reportdir;
|
||
extern char * g_datadir;
|
||
extern char * g_resourcedir;
|
||
extern char * g_basedir;
|
||
|
||
static faction *
|
||
makemonsters(void)
|
||
{
|
||
faction * f = calloc(sizeof(faction), 1);
|
||
f->next=factions;
|
||
f->race=new_race[RC_TEMPLATE];
|
||
f->alive=1;
|
||
f->email=strdup("");
|
||
f->lastorders=0;
|
||
f->locale=default_locale;
|
||
|
||
factions=f;
|
||
f->options = Pow(O_REPORT);
|
||
f->no=MONSTER_FACTION;
|
||
register_faction_id(f->no);
|
||
f->subscription = 0;
|
||
f->name=strdup("Monster");
|
||
f->passw=strdup("abc123");
|
||
f->override = strdup(itoa36(rand()));
|
||
fhash(f);
|
||
return f;
|
||
}
|
||
|
||
#include "logging.h"
|
||
|
||
static void
|
||
log_newstuff(void)
|
||
{
|
||
faction * f;
|
||
region * r;
|
||
for (f=factions;f;f=f->next) {
|
||
if (f->age==0) log_faction(f);
|
||
}
|
||
for (r=regions;r;r=r->next) {
|
||
unit * u;
|
||
if (r->age==0) log_region(r);
|
||
for (u=r->units;u;u=u->next) {
|
||
if (u->age==0) log_unit(u);
|
||
}
|
||
}
|
||
}
|
||
|
||
int
|
||
main(int argc, char *argv[])
|
||
{
|
||
int x = 0, y = 0, i;
|
||
char *s;
|
||
faction * f;
|
||
boolean backup = true;
|
||
boolean logging = false;
|
||
boolean readlog = false;
|
||
boolean autoseeding = false;
|
||
|
||
sqlpatch = false;
|
||
setlocale(LC_ALL, "");
|
||
|
||
fprintf(stderr, " \n Mapper V" VERSION " Hex (" __DATE__ ")\n\n"
|
||
"Copyright <20> 1998/99 by Henning Peters - faroul@gmx.de\n"
|
||
"Copyright <20> 1998 by Enno Rehling - enno.rehling@gmx.de\n"
|
||
"Copyright <20> 2000 by Christian Schlittchen - corwin@amber.kn-bremen.de\n\n");
|
||
|
||
*datafile = 0;
|
||
|
||
if (argc > 1) {
|
||
if (argv[1][0] == '?')
|
||
usage();
|
||
|
||
i = 1;
|
||
while (i < argc && argv[i][0] == '-') {
|
||
switch (argv[i][1]) {
|
||
case 'i':
|
||
xmlfile = argv[++i];
|
||
break;
|
||
case 't':
|
||
if (argv[i][2])
|
||
turn = atoi((char *)(argv[i] + 2));
|
||
else
|
||
turn = atoi(argv[++i]);
|
||
break;
|
||
case 'f':
|
||
firstx = atoi(argv[++i]);
|
||
firsty = atoi(argv[++i]);
|
||
break;
|
||
case 'v':
|
||
orderfile = argv[++i];
|
||
break;
|
||
case 'X':
|
||
dirtyload = true;
|
||
break;
|
||
case 'x':
|
||
maxregions = atoi(argv[++i]);
|
||
maxregions = (maxregions*81+80) / 81;
|
||
break;
|
||
case 'q':
|
||
quiet = 1;
|
||
break;
|
||
case 'l':
|
||
logging = true;
|
||
break;
|
||
case 'R':
|
||
readlog = true;
|
||
break;
|
||
case 'n':
|
||
switch (argv[i][2]) {
|
||
case 'b' : backup = false; break;
|
||
}
|
||
break;
|
||
case 'd':
|
||
g_datadir = argv[++i];
|
||
break;
|
||
case 'r':
|
||
g_resourcedir = argv[++i];
|
||
break;
|
||
case 'a':
|
||
autoseeding = true;
|
||
break;
|
||
case 'o':
|
||
strcpy(datafile, argv[++i]);
|
||
break;
|
||
case 'b':
|
||
g_basedir = argv[++i];
|
||
break;
|
||
case 'c':
|
||
if (argv[i][2])
|
||
s = strdup((char *) (argv[i] + 2));
|
||
else
|
||
s = argv[++i];
|
||
x = atoi(s);
|
||
s = strchr(s, ',');
|
||
y = atoi(++s);
|
||
break;
|
||
default:
|
||
usage();
|
||
}
|
||
i++;
|
||
}
|
||
}
|
||
|
||
kernel_init();
|
||
|
||
init_triggers();
|
||
|
||
debug_language("locales.log");
|
||
|
||
register_races();
|
||
register_resources();
|
||
register_buildings();
|
||
register_ships();
|
||
register_items();
|
||
register_spells();
|
||
/* register_dungeon(); */
|
||
|
||
init_data(xmlfile?xmlfile:"eressea.xml");
|
||
init_locales();
|
||
|
||
init_resources();
|
||
register_items();
|
||
init_attributes();
|
||
#if NEW_RESOURCEGROWTH
|
||
init_rawmaterials();
|
||
#endif
|
||
|
||
#ifdef MUSEUM_MODULE
|
||
init_museum();
|
||
#endif
|
||
#ifdef ARENA_MODULE
|
||
init_arena();
|
||
#endif
|
||
init_xmas2000();
|
||
|
||
init_gmcmd();
|
||
|
||
if(!*datafile)
|
||
sprintf(datafile, "%s/%d", datapath(), turn);
|
||
|
||
readgame(backup);
|
||
for (f=factions;f;f=f->next) if (f->age==0) {
|
||
++numnewbies;
|
||
}
|
||
|
||
sprintf(buf, "%s/newfactions.%d", basepath(), turn);
|
||
read_newfactions(buf);
|
||
sprintf(buf, "%s/newfactions", basepath());
|
||
read_newfactions(buf);
|
||
sprintf(buf, "%s/dropouts.%d", basepath(), turn);
|
||
read_dropouts(buf);
|
||
if (orderfile) {
|
||
sprintf(buf, "%s/%s", basepath(), orderfile);
|
||
read_orders(buf);
|
||
}
|
||
|
||
if (findfaction(MONSTER_FACTION)==NULL) {
|
||
makemonsters();
|
||
}
|
||
if (readlog) {
|
||
log_read("mapper.log");
|
||
}
|
||
#ifdef OLD_ITEMS
|
||
make_xref();
|
||
#endif
|
||
setminmax();
|
||
srand(time((time_t *) NULL));
|
||
|
||
if (autoseeding) {
|
||
runautoseed();
|
||
remove_empty_units();
|
||
writegame(datafile, 1);
|
||
} else {
|
||
if (logging) {
|
||
log_start("mapper.log");
|
||
log_newstuff();
|
||
}
|
||
#ifndef WIN32
|
||
signal_init();
|
||
#endif
|
||
init_win(x, y);
|
||
|
||
hl=-1;
|
||
Tagged=NULL;
|
||
movearound(x, y);
|
||
if (logging) log_stop();
|
||
if (modified) {
|
||
beep();
|
||
if (yes_no(0, "Daten wurden modifiziert! Abspeichern?", 'j')) {
|
||
remove_empty_units();
|
||
writegame(datafile, 1);
|
||
}
|
||
}
|
||
Exit(0);
|
||
}
|
||
return 0;
|
||
}
|