/* riskedit.c by Michiel Overtoom, 1987-1988 */

#include <osbind.h> 	/* DOS routine defines */
#include <portab.h> 	/* defs used in resource header */
#include "obdefs.h" 	/* Objectdefinities voor GEM */
#include "gemdefs.h" 	/* Voor event multi */
#include "riskedit.h" 	/* button/dialoog identifiers (van RCS) */

#define HIDE_MOUSE graf_mouse(256,&junk)
#define SHOW_MOUSE graf_mouse(257,&junk)
#define NORMAL 1
#define SHOW 1
#define ENABLE 1
#define DISABLE 0
#define YES 1
#define NO 0
#define WAITEVENT (MU_BUTTON|MU_MESAG|MU_KEYBD)
#define BUTTDOWN 1
#define ONEBUTTON 1


#define LANHEIGHT 4
#define LEGHEIGHT 6


#define ALTA 0x1E00
#define ALTB 0x3000
#define ALTD 0x2000
#define ALTG 0x2200
#define ALTI 0x1700
#define ALTL 0x2600
#define ALTN 0x3100
#define ALTO 0x1800
#define ALTP 0x1900
#define ALTQ 0x1000
#define ALTR 0x1300
#define ALTS 0x1F00
#define ALTX 0x2D00
#define ALTZ 0x2C00
#define HLP   0x6200
#define CUP    0x4800
#define CDOWN  0x5000
#define CRIGHT 0x4D00
#define CLEFT  0x4B00
#define CCLR   0x4700

/* Muisvormen */

#define PIJL 0
#define BIJ 2


extern int 	contrl[],intin[],
 		ptsin[],intout[], 	/* VDI binding tabellen */
 		ptsout[];
extern int 	charw,charh,boxw,boxh, 	/* Teken- en Schermgroottes */
 		xres,yres;
extern int 	junk; 			/* Scratch var */
extern int 	handle; 		/* VDI's scherm handle */



int 	end_of_program; 		/* YES indien Quit gekozen */
int 	i,j;
int 	workx,worky,workw,workh;	/* Window Workspace afmetingen */
int 	deskx,desky,deskw,deskh;	/* desktop afmetingen */
int 	pxy[10];

OBJECT *menutree;			/* ---> Menutree */
extern OBJECT *dispmenu();		/* Toon menubar */

#define MAXLAND 100			/* Max.Editsize landarray data */
#define MAXWDEEL 10			/* Max.Editsize werelddeel data */


/* Globals */

	int nland;	/* 0=leeg, 1=1 land, n=nlanden 1...nland */
	char pi3[13];	/* Assoc bitmap */
	char gebnaam[32];	/* gebiedsnaam null padded */
	char om1[32];		/* Omschrijving */
	char om2[32];		/* Omschrijving */
	char om3[32];		/* Omschrijving */
	char om4[32];		/* Omschrijving */

/* Werelddeel namen & aanwasgetallen */

	char wnaam[MAXWDEEL][32];
	int waanwas[MAXWDEEL];

/* Data voor elk land: */

struct lands {
	char naam[32];		/* Landnaam, null padded */
	int wdeel;		/* Werelddeelnummer */
	int legx,legy;		/* Legerinfo x,y */
	int lanx,lany;	/* Landnaam x,y */
	int npoly;		/* Aantal polypunten */
	int poly[64];		/* Max 63 polylines x,y (VDI format) */
	int topol[8];		/* Max 8 topol links */
	};

struct lands land[MAXLAND+1];



/* Globale editor variabelen: */

int saved;		/* NO indien wel gemuteerd & niet gesaved */
int aktland;		/* Aktuele editland */
char *bitmap;		/* Aktuele bitmap */


main()
{
	vdistuff();

	rsrc_load("RISKEDIT.RSC");

	menutree=dispmenu(MENUBAR);

	/* VDI text parameters */
	vst_alignment(handle,0,5,&junk,&junk);/* Alignment onder x,y*/
	vswr_mode(handle,1);/* Replace mode */

	bitmap=(long *)Malloc(32008L);
	nland=0;
	updaaktland();
	saved=YES;

	multi();

	/* Ruim op */
	Mfree(bitmap);
	v_clsvwk(handle);
	appl_exit();
}


int multi()
{
	int land,event;
	int evb_bmx,evb_bmy,evb,keycode,clicks;
	int msgbuff[10];

	end_of_program=NO;

   do {
	event=evnt_multi(WAITEVENT,2,ONEBUTTON,BUTTDOWN,
		 0,0,0,0,0,
		 0,0,0,0,0,
		 msgbuff,0,0,&evb_bmx,&evb_bmy,
		 &evb,&junk,&keycode,&clicks);

	wind_update(BEG_UPDATE);

	if (event&MU_MESAG) switch (msgbuff[0]) {
		case WM_CLOSED:
			end_of_program=YES;
			break;
		case MN_SELECTED: /*title ,item*/
			end_of_program=domenu(msgbuff[3],msgbuff[4]);
			menu_tnormal(menutree,msgbuff[3],NORMAL);
			break;
		}

	/* Muisbutton Message ? */
	if (event&MU_BUTTON) {
		if (clicks==2)
			dubbelklik(evb_bmx,evb_bmy);
		else if (clicks==1)
			klik(evb_bmx,evb_bmy);
		} /* End MU_BUTTON */

	/* Check het toetsenbord */
	if (event&MU_KEYBD) dokey(keycode);
	wind_update(END_UPDATE);

	if (end_of_program && checksaved()) end_of_program=NO;

   } while (!end_of_program);

}


dubbelklik(x,y) int x,y;
{
	if (klik(x,y)) {
		edetail();
		fresh();
		saved=NO;
		}
}

klik(x,y) int x,y;	/* Maak aktueel land */
{
	int res;
	if (nland==0) return(NO);
	res=findland(x,y);
	if ((res>0)&&(res<=nland)) {
		aktland=res;
		updaaktland();
		return(YES);
		}
	return(NO);
}

/* Zoekt het dichtbijzijnste land bij de muis. -1 is notfound */
int findland(mx,my) int mx,my;
{
	int xdis,ydis,mindist=9999,minland= -1;
	int i;
	for (i=1;i<=nland;i++) {
		xdis=land[i].lanx-mx; if (xdis<0) xdis= -(xdis);
		ydis=land[i].lany-my; if (ydis<0) ydis= -(ydis);
		if ((xdis+ydis)<mindist) {
			minland=i; mindist=xdis+ydis;
			}
		}
	if (mindist>25)
		return(-1);
	else
		return(minland);
}


/*********** Deze routine behandelt toetsaanslagen */
dokey(keycode) int keycode;
{
	char s[30];

	switch(keycode) {

		case CDOWN:
		case CRIGHT:
			aktland++;
			if (aktland>nland) aktland=1;
			updaaktland();
			break;

		case CUP:
		case CLEFT:
			if (--aktland<1) aktland=nland;
			updaaktland();
			break;

		case ALTA: domenu(DESK,ABOUT); break;
		case ALTB: domenu(EDIT,ETOPOL); break;
		case ALTD: domenu(EDIT,EDEL); break;
		case ALTG: domenu(EDIT,EGLOB); break;
		case ALTI: domenu(EDIT,EINS); break;
		case ALTL: domenu(EDIT,ELEGER); break;
		case ALTN: domenu(EDIT,ELANDPOS); break;
		case ALTO: domenu(FILE,FOPEN); break;
/*		case ALTP: domenu(EDIT,EPOLY); break;  */
		case ALTQ: domenu(FILE,FQUIT); break;
		case ALTR: domenu(EDIT,EFRESH); break;
		case ALTS: domenu(FILE,FSAVE); break;
		case ALTX: domenu(EDIT,EDETAIL); break;
		case ALTZ: domenu(FILE,FNIEUW); break;
		case HLP: help(); break;
		}
}


/********** Zet aktuele editland nummer/naam bovenaan scherm */
updaaktland()
{
	char s[80];
	if (nland==0)
		strcpy(s,"Geen landen gedefinieerd.                      ");
	else
		sprintf(s,"Aktueel: %3d %-32s  ",aktland,land[aktland].naam);
	vst_height(handle,LEGHEIGHT,&junk,&junk,&junk,&junk);
	v_gtext(handle,640-50*8,3,s);
}

/********** Zet 47 msg bovenaan scherm */
msg(s) char *s;
{
	char t[80];
	sprintf(t,"%47s",s);
	vst_height(handle,LEGHEIGHT,&junk,&junk,&junk,&junk);
	v_gtext(handle,640-50*8,3,t);
}


/*********** Bewaar scherm en laat help zien */
help()
{
	HIDE_MOUSE; fastsave(); SHOW_MOUSE;
	dialoog(HELP);
	HIDE_MOUSE; fastrest(); SHOW_MOUSE;
}


/********** Laad bitmap, indien die gespecificeerd is & bestaat */
picload()
{
	int fd=Fopen(pi3,0);
	if (fd<0) return(fd);
	Fread(fd,34L,bitmap);
	Fread(fd,32000L,bitmap);
	Fclose(fd);
}



/********* Sleur de bitmap naar het scherm */
picdisp()
{
	long *src=bitmap,*dst=Logbase();
	int cnt=8000L;
	while(cnt--) *dst++= *src++;
}


/******* Kijkt of er wel gesaved is (om verlies van mutaties tegen te gaan) */
/******* Roep aan vlak voordat er definitiefs gaat gebeuren. */
/******* Indien gevaar, laat boxje zien en return JA */
int checksaved()
{
	if (nland==0) return(NO);
	if (!saved) {
	  fout("Waarschuwing:|Je hebt nog niet geSAVEd,|doe het nu of nooit.");
	  saved=YES;
	  return(YES);
	  }
	return(NO);
}

/* Deze routine behandeld de keuzes uit het menu. */
domenu(title,item) int title,item;
{
	int res;

	switch(item) {
		case DABOUT:
			HIDE_MOUSE; fastsave(); SHOW_MOUSE;
			dialoog(ABOUT);
			HIDE_MOUSE; fastrest();
			            fastsave(); SHOW_MOUSE;
			dialoog(HELP);
			HIDE_MOUSE; fastrest(); SHOW_MOUSE;
			break;
		case FNIEUW:
			if (checksaved()) break;
			fnieuw();
			fresh();
			saved=YES;
			break;
		case FSAVE:
			savetopol();
			saved=YES;
			break;
		case FOPEN:
			if (checksaved()) break;
			res=opentopol();
			fresh();
			saved=YES;
			break;
		case EGLOB:
			HIDE_MOUSE; fastsave(); SHOW_MOUSE;
			eglob();
			HIDE_MOUSE; fastrest(); SHOW_MOUSE;
			saved=NO;
			break;
		case ELAND:
			eland();
			fresh();
			saved=NO;
			break;
		case ELANDPOS:
			elandpos();
			fresh();
			saved=NO;
			break;
		case ELEGER:
			eleger();
			fresh();
			saved=NO;
			break;
		case ETOPOL:
			etopol();
			fresh();
			saved=NO;
			break;
		case EDETAIL:
			edetail();
			fresh();
			break;
		case EFRESH:
			fresh();
			break;
		case EINS:
			nland++;
			aktland=nland;
			updaaktland();
			saved=NO;
			break;
		case EDEL:
			if (nland>0) nland--;
			if (aktland>nland) {
				aktland=nland;
				updaaktland();
				}
			saved=NO;
			break;
		}
	return(item==FQUIT ? YES : NO);
}



/*********** Schoon alle edit variabelen (NEW operatie) */
fnieuw()
{
	int i;
	blkfill(pi3,0,13);
	blkfill(gebnaam,0,32);
	blkfill(om1,0,32);
	blkfill(om2,0,32);
	blkfill(om3,0,32);
	blkfill(om4,0,32);
	blkfill(wnaam,0,32*10);
	blkfill(waanwas,0,sizeof(int)*10);
	for (i=1;i<=MAXLAND;i++) blkfill(&land[i],0,sizeof(struct lands));
	nland=0;
}


/*************** Garandeer een bepaalde filenaam extensie */
extensie(naam,ext) char *naam,*ext;
{
         char hulp[80];
         int i;

         i=0;
         do {
                  hulp[i]=naam[i];
                  if (hulp[i]=='\0') break;
                  if (hulp[i]=='.') break;
                  i++;
                  } while(1);

         hulp[i]='\0';
         strcat(hulp,ext);
         strcpy(naam,hulp);
}



/*********** Laad een topologie */
opentopol()
{
	char curdir[80],filenaam[80];
	char f[100];			/* Full-named geselecteerde file */
	int fd,i,exitbut;

 	Dgetpath(curdir,0);
 	strcat(curdir,"\\*.RIS");
 	strcpy(filenaam,"");
 	HIDE_MOUSE; fastsave(); SHOW_MOUSE;
	fsel_input(curdir,filenaam,&exitbut);
	HIDE_MOUSE; fastrest(); SHOW_MOUSE;
	if (exitbut!=1) return(NO);
	extensie(filenaam,".RIS");
 	strcpy(f,curdir);
 	/* Plak file achter directorynaam */
 	for (i=0;i<strlen(curdir);i++) if ((f[i]=='*')||(f[i]=='\0')) break;
 	strcpy(&f[i],filenaam);

	fd=Fopen(f,0);

	if (fd<0) {
		fout("cant open inputfile");
		return(NO);
		}

	Fread(fd,2L,&nland);
	Fread(fd,13L,pi3);
	Fread(fd,32L,gebnaam);
	Fread(fd,32L,om1);
	Fread(fd,32L,om2);
	Fread(fd,32L,om3);
	Fread(fd,32L,om4);
	Fread(fd,32L*10L,wnaam);
	Fread(fd,2L*10L,waanwas);

	for (i=1;i<=nland;i++) {
		Fread(fd,32L,land[i].naam);
		Fread(fd,2L,&land[i].wdeel);
		Fread(fd,2L,&land[i].legx);
		Fread(fd,2L,&land[i].legy);
		Fread(fd,2L,&land[i].lanx);
		Fread(fd,2L,&land[i].lany);
		Fread(fd,2L,&land[i].npoly);
		Fread(fd,128L,land[i].poly);
		Fread(fd,18L,land[i].topol);
		}

	Fclose(fd);
	if (*pi3) picload();
	aktland=1;
	return(YES);
}




/*********** Save een topologie */
savetopol()
{
	char curdir[80],filenaam[80];
	char f[100];			/* Full-named geselecteerde file */
	int fd,i,exitbut;

 	Dgetpath(curdir,0);
 	strcat(curdir,"\\*.RIS");
 	strcpy(filenaam,"");
	HIDE_MOUSE; fastsave(); SHOW_MOUSE;
	fsel_input(curdir,filenaam,&exitbut);
	HIDE_MOUSE; fastrest(); SHOW_MOUSE;
	if (exitbut!=1) return(NO);
	extensie(filenaam,".RIS");
 	strcpy(f,curdir);
 	/* Plak file achter directorynaam */
 	for (i=0;i<strlen(curdir);i++) if ((f[i]=='*')||(f[i]=='\0')) break;
 	strcpy(&f[i],filenaam);
	fd=Fcreate(f,0);

	if (fd<0) {
		fout("cant open outputfile");
		return(NO);
		}

	Fwrite(fd,2L,&nland);
	Fwrite(fd,13L,pi3);
	Fwrite(fd,32L,gebnaam);
	Fwrite(fd,32L,om1);
	Fwrite(fd,32L,om2);
	Fwrite(fd,32L,om3);
	Fwrite(fd,32L,om4);
	Fwrite(fd,32L*10L,wnaam);
	Fwrite(fd,2L*10L,waanwas);

	for (i=1;i<=nland;i++) {
		Fwrite(fd,32L,land[i].naam);
		Fwrite(fd,2L,&land[i].wdeel);
		Fwrite(fd,2L,&land[i].legx);
		Fwrite(fd,2L,&land[i].legy);
		Fwrite(fd,2L,&land[i].lanx);
		Fwrite(fd,2L,&land[i].lany);
		Fwrite(fd,2L,&land[i].npoly);
		Fwrite(fd,128L,land[i].poly);
		Fwrite(fd,18L,land[i].topol);
		}
	Fclose(fd);
	return(YES);
}





/*********** EDIT FUNCTIONS *****************/



/********* Edit globals */
eglob()
{
	zettext(GLOBAL,GLAND,gebnaam);
	zettext(GLOBAL,G1,om1);
	zettext(GLOBAL,G2,om2);
	zettext(GLOBAL,G3,om3);
	zettext(GLOBAL,G4,om4);
	zettext(GLOBAL,GPI3,pi3);

	zettext(GLOBAL,WNAAM1,wnaam[0]);  zettext(GLOBAL,WNAAM6,wnaam[5]);
	zettext(GLOBAL,WNAAM2,wnaam[1]);  zettext(GLOBAL,WNAAM7,wnaam[6]);
	zettext(GLOBAL,WNAAM3,wnaam[2]);  zettext(GLOBAL,WNAAM8,wnaam[7]);
	zettext(GLOBAL,WNAAM4,wnaam[3]);  zettext(GLOBAL,WNAAM9,wnaam[8]);
	zettext(GLOBAL,WNAAM5,wnaam[4]);  zettext(GLOBAL,WNAAM10,wnaam[9]);

 	zetint(GLOBAL,WAANWA1,waanwas[0]);  zetint(GLOBAL,WAANWA6,waanwas[5]);
 	zetint(GLOBAL,WAANWA2,waanwas[1]);  zetint(GLOBAL,WAANWA7,waanwas[6]);
 	zetint(GLOBAL,WAANWA3,waanwas[2]);  zetint(GLOBAL,WAANWA8,waanwas[7]);
 	zetint(GLOBAL,WAANWA4,waanwas[3]);  zetint(GLOBAL,WAANWA9,waanwas[8]);
 	zetint(GLOBAL,WAANWA5,waanwas[4]);  zetint(GLOBAL,WAANWA10,waanwas[9]);

	dialoog(GLOBAL);

	gettext(GLOBAL,GLAND,gebnaam);
	gettext(GLOBAL,G1,om1);
	gettext(GLOBAL,G2,om2);
	gettext(GLOBAL,G3,om3);
	gettext(GLOBAL,G4,om4);
	gettext(GLOBAL,GPI3,pi3);

	gettext(GLOBAL,WNAAM1,wnaam[0]);  gettext(GLOBAL,WNAAM6,wnaam[5]);
	gettext(GLOBAL,WNAAM2,wnaam[1]);  gettext(GLOBAL,WNAAM7,wnaam[6]);
	gettext(GLOBAL,WNAAM3,wnaam[2]);  gettext(GLOBAL,WNAAM8,wnaam[7]);
	gettext(GLOBAL,WNAAM4,wnaam[3]);  gettext(GLOBAL,WNAAM9,wnaam[8]);
	gettext(GLOBAL,WNAAM5,wnaam[4]);  gettext(GLOBAL,WNAAM10,wnaam[9]);

	waanwas[0]=getint(GLOBAL,WAANWA1);  waanwas[5]=getint(GLOBAL,WAANWA6);
	waanwas[1]=getint(GLOBAL,WAANWA2);  waanwas[6]=getint(GLOBAL,WAANWA7);
	waanwas[2]=getint(GLOBAL,WAANWA3);  waanwas[7]=getint(GLOBAL,WAANWA8);
	waanwas[3]=getint(GLOBAL,WAANWA4);  waanwas[8]=getint(GLOBAL,WAANWA9);
	waanwas[4]=getint(GLOBAL,WAANWA5);  waanwas[9]=getint(GLOBAL,WAANWA10);

	if (*pi3) {
		Cconws("\033H  Bitmap load.....");
		picload();	/* Probeer bitmap te laden */
		}
	fresh();
}


/******** Edit landnaam */
eland()
{
	zettext(LAND,LANDNAM,land[aktland].naam);
	zetint(LAND,LWDEEL,land[aktland].wdeel);
	dialoog(LAND);
	blkfill(land[aktland].naam,0,32);
	gettext(LAND,LANDNAM,land[aktland].naam);
	land[aktland].wdeel=getint(LAND,LWDEEL);
}


/******** Edit land details via dubbelklik */
edetail()
{
	int but;

	zettext(DETAIL,DNAAM,land[aktland].naam);
	zetint(DETAIL,DWDEEL,land[aktland].wdeel);
	zetint(DETAIL,DAKTLAND,aktland);
	zetint(DETAIL,DLANX,land[aktland].lanx);
	zetint(DETAIL,DLANY,land[aktland].lany);
	zetint(DETAIL,DLEGX,land[aktland].legx);
	zetint(DETAIL,DLEGY,land[aktland].legy);

	but=dialoog(DETAIL);

	blkfill(land[aktland].naam,0,32);
	gettext(DETAIL,DNAAM,land[aktland].naam);
	land[aktland].wdeel=getint(DETAIL,DWDEEL);
	land[aktland].lanx=getint(DETAIL,DLANX);
	land[aktland].lany=getint(DETAIL,DLANY);
	land[aktland].legx=getint(DETAIL,DLEGX);
	land[aktland].legy=getint(DETAIL,DLEGY);

	if (but==DTOPOL) etopol();
}

/******** Edit landpos */
elandpos()
{
	msg("Klik op landnaam positie");
	while (!muisbut());
	vq_mouse(handle,&junk,&land[aktland].lanx,&land[aktland].lany);
}


/******** Edit legerpos */
eleger()
{
	msg("Klik op leger positie");
	while (!muisbut());
	vq_mouse(handle,&junk,&land[aktland].legx,&land[aktland].legy);
}

etopol()
{
	char s[80];
	int i;

	i=land[aktland].topol[0];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL1,s);
	i=land[aktland].topol[1];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL2,s);
	i=land[aktland].topol[2];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL3,s);
	i=land[aktland].topol[3];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL4,s);
	i=land[aktland].topol[4];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL5,s);
	i=land[aktland].topol[5];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL6,s);
	i=land[aktland].topol[6];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL7,s);
	i=land[aktland].topol[7];
	if (i) sprintf(s,"%3d %31s",i,land[i].naam); else strcpy(s," ");
	zettext(TOPOL,TL8,s);

	if (land[aktland].topol[0]==0) zettext(TOPOL,T1,""); else
		zetint(TOPOL,T1,land[aktland].topol[0]);
	if (land[aktland].topol[1]==0) zettext(TOPOL,T2,""); else
		zetint(TOPOL,T2,land[aktland].topol[1]);
	if (land[aktland].topol[2]==0) zettext(TOPOL,T3,""); else
		zetint(TOPOL,T3,land[aktland].topol[2]);
	if (land[aktland].topol[3]==0) zettext(TOPOL,T4,""); else
		zetint(TOPOL,T4,land[aktland].topol[3]);
	if (land[aktland].topol[4]==0) zettext(TOPOL,T5,""); else
		zetint(TOPOL,T5,land[aktland].topol[4]);
	if (land[aktland].topol[5]==0) zettext(TOPOL,T6,""); else
		zetint(TOPOL,T6,land[aktland].topol[5]);
	if (land[aktland].topol[6]==0) zettext(TOPOL,T7,""); else
		zetint(TOPOL,T7,land[aktland].topol[6]);
	if (land[aktland].topol[7]==0) zettext(TOPOL,T8,""); else
		zetint(TOPOL,T8,land[aktland].topol[7]);

	dialoog(TOPOL);

	land[aktland].topol[0]=getint(TOPOL,T1);
	land[aktland].topol[1]=getint(TOPOL,T2);
	land[aktland].topol[2]=getint(TOPOL,T3);
	land[aktland].topol[3]=getint(TOPOL,T4);
	land[aktland].topol[4]=getint(TOPOL,T5);
	land[aktland].topol[5]=getint(TOPOL,T6);
	land[aktland].topol[6]=getint(TOPOL,T7);
	land[aktland].topol[7]=getint(TOPOL,T8);
}



/*********** Beeld alle gegevens af */
fresh()
{
	int i;
	char s[80];

	HIDE_MOUSE;

	if (*pi3)
		picdisp();
	else
		form_dial(3,0,0,640,400,0,0,640,400);

	dispmenu(MENUBAR);

	for (i=1;i<=nland;i++) {

		/* de landvorm Polyline */
		if (land[i].npoly) {
			v_pline(handle,land[i].npoly,land[i].poly);
			}

		/* Landnaam */
		if (land[i].lanx && land[i].lany) {
			vst_height(handle,LANHEIGHT,&junk,&junk,&junk,&junk);
			v_gtext(handle,land[i].lanx,land[i].lany,
					land[i].naam);
			}

		/* Dummy legeraanduiding */
		if (land[i].legx && land[i].legy) {
			vst_height(handle,LEGHEIGHT,&junk,&junk,&junk,&junk);
			sprintf(s,"%1d %3d",land[i].wdeel,i);
			v_gtext(handle,land[i].legx,land[i].legy,s);
			}

		/* Plot topologieen? */
		}

	updaaktland();
	SHOW_MOUSE;
}


/*

		Speelvelden heten bv.    WERELD.RIS
				  of     SURINAME.RIS
				  of     MIDOOST.RIS
				  of     VIETNAM.RIS

Topologie edit voor risk. Een speelveld definitie bestaat uit de volgende
gegevens:


	int nland;	1..max aantal landen

	een associated background tekening, 13 bytes lang, met daarin een
	null padded filenaam FFFFFFFF.EEE0

	een gebiednaamrecord, 32 bytes land, met daarin de gebiedsnaam
	null padded en max. 31 tekens.

	een verduidelijking text, vier records van 32 bytes met daarin
	een omschrijving/historie van het gebied.

	10 records van 32 bytes elk. Bevat null-padded de werelddeelnamen
	10 integers met de aanwas bonus voor elk werelddeel.

dan voor elk land:

	een naamrecord, 32 bytes lang, met daarin de landnaam.
	wordt aangevuld met NULLS tot 32 bytes.
	Er moet een NULL aanwezig zijn, dus max. naamlengte 31 tekens.

	een werelddeel-nummer integer.

	een x,y (2 integers) coordinaat waar het aantal legers afgedrukt kan
	worden.

	een x,y (2 integers) coordinaat waar de landennaam afgedrukt kan
	worden.

	een integers 'npoly', het aantal geldige punten in de volgende
		polyline:

	Een 'tekening van het land'
	Dit is een integer, met daarin het aantal hoek punten van de polyline
	die het land tekent.
	Bv. 2 punten trekt 1 lijn, 3 punten trekt 2 lijnen, 4 trekt 3 lijnen,
	etc.
	Hierbij horen 128 bytes die maximaal dus 32 x/y punten kunnen bevatten.
	Het land dient dus getekend te kunnen worden in max. 31 lijnen.

	Een topologieverwijzing naar andere landen:
	Dit zijn 18 bytes, die 9 integers bevatten.
	Arrayelement 0 doet NIET mee.
	Deze integers bevatten de indexen van de buurlanden van dit land.
	(1 is het eerste land).
	Een null integer betekent: geen verwijzing naar ander land.
	Een land met 2 buren heeft dus 2 integers, de rest is null.

	Dat was het voor een land.




Editor functies:

	Je moet een 'aktief land' kunnen editten. Dit aktieve land staat
	bovenaan het scherm; het eerste land is land #1.

	Je moet de zaken afzonderlijk kunnen editten:

		-het gebiednaam en de verklaring (intotaal 5 strings
			van max 31 chars.)

		en voor hetr aktieve land:
			-polyline via muis.
			-landnaam via box
			-legersterkte positie via muis
			-landnaam positie via muis
			-topologie via box met 8 nummers
*/