DataMuseum.dk

top - metrics - download

    Length: 26236 (0x667c)
    Types: TextFile
    Names: »forms.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Conquer/forms.c« 

TextFile

/*conquer : Copyright (c) 1988 by Ed Barlow.
 *  I spent a long time writing this code & I hope that you respect this.
 *  I give permission to alter the code, but not to copy or redistribute
 *  it without my explicit permission.  If you alter the code,
 *  please document changes and send me a copy, so all can have it.
 *  This code, to the best of my knowledge works well,  but it is my first
 *  'C' program and should be treated as such.  I disclaim any
 *  responsibility for the codes actions (use at your own risk).  I guess
 *  I am saying "Happy gaming", and am trying not to get sued in the process.
 *                                                Ed
 */

/*	screen subroutines	*/

#include <ctype.h>
#include "header.h"
#include "data.h"

extern FILE	*fexe, *fnews;
extern short	country,redraw;
extern long	startgold;

static char helplist[MAXHELP][20]={"Commands", "General Info",
	"Military","Magic","Designations","Other"};

#define RPT_LINES 14
#define RPT_COLS 13
#define BUF_LINES 10
#define BUF_COLS 15
#define MAXINROW ((COLS-BUF_COLS)/RPT_COLS)
#define MAXINSCR (((LINES-BUF_LINES)/RPT_LINES)*MAXINROW)
void
showscore()
{
	int i;
	int done=FALSE;
	int xpos,ypos;
	int count,count2;   /*number of time through the loop on this screen*/
	int nationid; 	     /*current nation id */

	count2=1;
	while(done==FALSE) {
		clear();
		standout();
		mvaddstr(0,(COLS/2)-10,"NATION SCORE SCREEN");
		standend();

		nationid=count2;
		xpos=BUF_COLS;
		ypos=3;
		count=0;
		while((nationid<NTOTAL)&&(count<MAXINSCR)){
			if((nationid<NTOTAL)
			&&(isntn(ntn[nationid].active))) {
				if (count%MAXINROW==0) {
					/* display header information */
					mvaddstr(ypos,0,"nationid is:");
					mvaddstr(ypos+1,0,"name is:");
					mvaddstr(ypos+2,0,"leader:");
					mvaddstr(ypos+3,0,"race:");
					mvaddstr(ypos+4,0,"class:");
					mvaddstr(ypos+5,0,"alignment:");
					mvaddstr(ypos+6,0,"score:");
					mvaddstr(ypos+7,0,"talons:");
					mvaddstr(ypos+8,0,"military:");
					mvaddstr(ypos+9,0,"civilians:");
					mvaddstr(ypos+10,0,"sectors:");
					mvaddstr(ypos+11,0,"npc nation:");
				}

				/* display nation information */
				mvprintw(ypos,xpos,"%d",nationid);
				standout();
				mvprintw(ypos+1,xpos,"%s",ntn[nationid].name);
				standend();
				mvprintw(ypos+2,xpos,"%s",ntn[nationid].leader);
				for(i=1;i<8;i++)
					if(ntn[nationid].race==*(races+i)[0])
						mvprintw(ypos+3,xpos,"%s",*(races+i));
				mvprintw(ypos+4,xpos,"%s",*(Class+ntn[nationid].class));
				mvprintw(ypos+5,xpos,"%s",allignment[npctype(ntn[nationid].active)]);
				mvprintw(ypos+6,xpos,"%ld",ntn[nationid].score);
				mvprintw(ypos+7,xpos,"%ld",ntn[nationid].tgold);
				mvprintw(ypos+8,xpos,"%ld",ntn[nationid].tmil);
				mvprintw(ypos+9,xpos,"%ld",ntn[nationid].tciv);
				mvprintw(ypos+10,xpos,"%d",ntn[nationid].tsctrs);
				if(isnpc(ntn[nationid].active))
					mvprintw(ypos+11,xpos,"Yes");
				else mvprintw(ypos+11,xpos,"No");
				count++;
				if(count<MAXINSCR && count%MAXINROW==0) {
					ypos+=RPT_LINES;
					xpos=BUF_COLS;
				} else {
					xpos+=RPT_COLS;
				}
			}
			nationid++;
		}
		standout();
		mvaddstr(LINES-6,(COLS/2)-12,"HIT ANY KEY TO CONTINUE");
		mvaddstr(LINES-5,(COLS/2)-9,"HIT SPACE IF DONE");
		standend();
		refresh();
		if (getch()==' ') done=TRUE;
		else {
			/* go to start of next page in list */
			while(nationid<NTOTAL && !isntn(ntn[nationid].active))
				nationid++;
			if(nationid==NTOTAL) count2=1;
			else count2=nationid;
		}
	}
}

#define	MAXINCOL	(LINES-10)
#define	MAXONSCR	(MAXINCOL*(COLS/40))
void
diploscrn()
{
	int i,j;
	char k,name[20];
	short nation, offset, count, count2, temp;
	short isgod=FALSE;
	long	bribecost;
	if(country==0) {
		isgod=TRUE;
		if (get_god()) return;
	}
	count2=1;
	while(1){
		count=1;
		offset=0;
		clear();
		standout();
		mvaddstr(0,(COLS/2)-12,"NATION DIPLOMACY SUMMARY");
		standend();
		mvaddstr(2,0,"                BY YOU,        TO YOU");
		for(i=count2;i<NTOTAL && count<MAXONSCR;i++)
		if((isntnorp(ntn[i].active))&&(i!=country)) {
			if(count%MAXINCOL==0) {
				offset+=40;
				mvaddstr(2,offset,"                BY YOU,        TO YOU");
				count++;
			}
			mvprintw(count%MAXINCOL+2,offset, "%d. %s",i,ntn[i].name);
			if((curntn->dstatus[i]==WAR)
			||(curntn->dstatus[i]==JIHAD)) standout();
			mvprintw(count%MAXINCOL+2,offset+14, "=> %s",*(diploname+curntn->dstatus[i]));
			standend();
			if((ntn[i].dstatus[country]==WAR)
			||(ntn[i].dstatus[country]==JIHAD)) standout();
			mvprintw(count%MAXINCOL+2,offset+28, "=> %s",*(diploname+ntn[i].dstatus[country]));
			standend();
			count++;
		}

		/* display options */
		standout();
		mvaddstr(LINES-7,0,"HIT RETURN KEY TO CHANGE STATUS; HIT SPACE IF DONE");
		mvprintw(LINES-6,0,"HIT 'B' KEY TO BRIBE NPC NATION (cost=$%ld per 1000 Mil.)",BRIBE);
		mvaddstr(LINES-5,0,"ANY OTHER KEY TO CONTINUE:");
		standend();
		refresh();
		k=getch();
		if(k==' ') {
			if(isgod==TRUE) reset_god();
			return;
		}
		if((k!='B')&&(k!='\r')&&(k!='\n')) {
			/* find start for next listing */
			for(; i<NTOTAL && (!isntnorp(ntn[i].active)||i==country); i++) ;
			if(i==NTOTAL) count2=1;
			else count2=i;
			continue;
		}
		if(k=='B'){
			if(curntn->tgold<=BRIBE){
				mvaddstr(LINES-3,0,"NOT ENOUGH GOLD");
				refresh();
				getch();
				if(isgod==TRUE) reset_god();
				return;
			}
			mvaddstr(LINES-4,0,"BRIBES DONT ALWAYS WORK (only the update will show)");
			mvaddstr(LINES-3,0,"WHAT NATION:");
			refresh();
			nation = get_country();

			/* may only change with NPCs */
			if((nation<=0)
			||(nation>=NTOTAL)
			||(!isnpc(ntn[nation].active))){
				errormsg("NOT NON PLAYER COUNTRY");
				if(isgod==TRUE) reset_god();
				return;
			}
			if(ntn[country].dstatus[nation]==UNMET){
				errormsg("YOU HAVE NOT MET COUNTRY");
				if(isgod==TRUE) reset_god();
				return;
			}
			if((isgod!=TRUE)
			    &&((ntn[nation].dstatus[country]==ALLIED)
			    ||(ntn[nation].dstatus[country]==JIHAD)
			    ||(ntn[nation].dstatus[country]==UNMET)
			    ||(ntn[nation].dstatus[country]==TREATY))){
				errormsg("Sorry, you can't bribe them");
				return;
			}

			if( isgod==TRUE ) {
				bribecost = 0;
			} else if( ntn[nation].tmil > 1000 ) {
				bribecost = BRIBE * ntn[nation].tmil / 1000;
			} else	bribecost = BRIBE;
			mvprintw(LINES-3,0,"This will cost %ld gold talons. continue (y or n)",bribecost);
			refresh();

			if( getch() != 'y' ) return;
			if(curntn->tgold<=bribecost){
				errormsg("Sorry Not Enough Gold");
				if(isgod==TRUE) reset_god();
				return;
			}
			curntn->tgold-=bribecost;

			sprintf(name,"%s%d",exefile,nation);
			if ((fm=fopen(name,"a+"))==NULL) {
				printf("error opening news file\n");
				exit(FAIL);
			}
			BRIBENATION;
			mailclose();

			ntn[nation].dstatus[country]--;

			if(isgod==TRUE) reset_god();
			return;
		}
		mvaddstr(LINES-3,0,"WHAT NATION:");
		refresh();
		nation = get_country();
		/* can't change with nomads...*/
		if((nation<=0)||(nation>NTOTAL)||(!isntnorp(ntn[nation].active))){
			if(isgod==TRUE) reset_god();
			return;
		}
		if((isgod==FALSE)
		    &&(curntn->tgold < BREAKJIHAD )
		    &&(((curntn->dstatus[nation]==TREATY)
		    &&(ntn[nation].dstatus[country]<WAR))
		    ||(curntn->dstatus[nation]==JIHAD))) {

			mvprintw(LINES-1,0,"Sorry, need %d talons to change status with ntn %s",BREAKJIHAD,ntn[nation].name);
			clrtoeol();
        		mvaddstr(LINES-1, 60, "PRESS ANY KEY");
			refresh();
			getch();
			if(isgod==TRUE) reset_god();
			return;
		} else if (isgod==FALSE && curntn->dstatus[nation]==UNMET) {
			errormsg("Sorry, you have not met that nation yet.");
			if(isgod==TRUE) reset_god();
			return;
		} else {
			clear();
			mvaddstr(0,0,"WHAT NEW STATUS");
			j=2;
			mvprintw(j++,0,"1) TREATY (%d talons to break)",BREAKJIHAD);
			mvaddstr(j++,0,"2) ALLIED");
			mvaddstr(j++,0,"3) FRIENDLY");
			mvaddstr(j++,0,"4) NEUTRAL");
			mvaddstr(j++,0,"5) HOSTILE");
			mvaddstr(j++,0,"6) WAR");
			mvprintw(j++,0,"7) JIHAD (%d talons to break):",BREAKJIHAD);
			j++;
			for( i=1; i<NTOTAL; i++ )
				if((isntnorp(ntn[i].active)) && (ntn[nation].dstatus[i]==TREATY))
				mvprintw(j++,10,"%s has treaty with %s",ntn[nation].name,ntn[i].name);

			j++;
			mvaddstr(j++,0,"INPUT:");
			refresh();
			temp = get_number();
			if((temp<=UNMET)||(temp>JIHAD)
			||((isgod==FALSE)&&(temp==UNMET))){
				mvprintw(23,0,"SORRY, Invalid inputs -- hit return");
				refresh();
				getch();
				if(isgod==TRUE) reset_god();
				return;
			}

			if(((curntn->dstatus[nation]==TREATY)&&(temp!=TREATY))
			||(( curntn->dstatus[nation]==JIHAD)&&(temp!=JIHAD)))
		    		curntn->tgold -= BREAKJIHAD;

			curntn->dstatus[nation]=temp;
			EADJDIP(country,nation);

			if((temp>HOSTILE)
			&&(ispc(ntn[nation].active))
			&&(ntn[nation].dstatus[country]<WAR)) {
				mailopen(nation);
				fprintf(fm,"Message to %s from CONQUER\n",ntn[nation].name);
				fprintf(fm,"    During the %s of Year %d,\n",PSEASON(TURN),YEAR(TURN));
				fprintf(fm,"      %s declared war on you\n",curntn->name);
				mailclose();
			}

			/*prevent ron from being sneaky*/
			if((temp>HOSTILE)
			&&(isactive(ntn[nation].active))
			&&(ntn[nation].dstatus[country]<WAR)) {
				ntn[nation].dstatus[country]=WAR;
				EADJDIP(nation,country);
				for( i=1; i<NTOTAL; i++ )
				if(ntn[i].dstatus[nation]==TREATY){
					ntn[i].dstatus[country]=WAR;
					EADJDIP(i,country);
					mailopen(country);
					fprintf(fm,"Message to %s from %s\n",ntn[country].name,ntn[i].name);
					switch( rand()%4 ) {
					case 0: fprintf(fm,"You just attacked my friend %s - your loss!!!\n",ntn[nation].name);
						break;
					case 1: fprintf(fm,"Our imperial forces will assist %s!!!\n",ntn[nation].name);
						fprintf(fm,"in repulsing your toy armies!!!\n");
						break;
					case 2: fprintf(fm,"Sucker - your aggression against %s is your doom!!!\n",ntn[nation].name);
						break;
					case 3: fprintf(fm,"We deplore your aggression against %s and are taking\n",ntn[nation].name);
						fprintf(fm,"appropriate counter measures!!! DIE!!!\n");
						break;
					}
					mailclose();
				}
			}
		}
	}
}

int terror_adj=0;
void
change()
{
	float temp;
	char string[10], command[80];
	int i, intval;
	long	cost,men;
	short armynum;
	char passwd[PASSLTH+1];
	short isgod=FALSE;
	FILE *fp;
#ifdef OGOD
	FILE *ftmp;
#endif OGOD
	char filename[80];

	if(country==0) {
		isgod=TRUE;
		if (get_god()) return;
	}
	fp=fopen("temp","w");
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	clear();
	standout();
	mvaddstr(0,(COLS/2)-10,"NATION STATS SUMMARY");
	mvprintw(3,0,"nation name is %s",curntn->name);
	mvprintw(4,0,"allignment is %s",allignment[npctype(curntn->active)]);
	if (isgod==TRUE)
		mvprintw(5,0,"active is %d",curntn->active);
	mvprintw(6,0,"tax_rate...... %2d%%",curntn->tax_rate);
	mvprintw(7,0,"inflation..... %2d%%",curntn->inflation);
	i=10*curntn->tax_rate-curntn->popularity-curntn->terror-3*curntn->charity;
	if( i<0 ) i=0;
	mvprintw(8,0,"peasant revolt %2d%%",(i*PREVOLT)/100);
	i=5*curntn->tax_rate - curntn->prestige;
	if( i<0 ) i=0;
	mvprintw(9,0,"other revolt.. %2d%%",(i*PREVOLT)/100);
	standend();
	mvprintw(10,0,"capitol loc: x is %d",curntn->capx);
	mvprintw(11,0,"             y is %d",curntn->capy);
	mvprintw(12,0,"leader is %s",curntn->leader);
	mvprintw(13,0,"class is %s",*(Class+curntn->class));
	if(ispc( curntn->active ) )
		addstr(" (PC)");
	else if(isnpc( curntn->active ) )
		addstr(" (NPC)");
	else	addstr(" (MON)");
	mvprintw(14,0,"nations mark is...%c ",curntn->mark);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	for(i=1;i<8;i++) if(curntn->race==*(races+i)[0]){
		mvprintw(15,0, "nation race is....%s  ",*(races+i));
		break;
	}

	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	mvprintw(3,COLS/2-12, "terror........ %3d",curntn->terror);
	mvprintw(4,COLS/2-12, "popularity.... %3d",curntn->popularity);
	mvprintw(5,COLS/2-12, "prestige...... %3d",curntn->prestige);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	fflush( fp );
	mvprintw(6,COLS/2-12, "knowledge..... %3d",curntn->knowledge);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	fflush( fp );
	temp = P_EATRATE;
	mvprintw(7,COLS/2-12, "eatrate.......%3.2f",temp);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	fflush( fp );
	mvprintw(8,COLS/2-12, "wealth........ %3d",curntn->wealth);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	fflush( fp );
	mvprintw(9,COLS/2-12,"charity....... %2d%%",curntn->charity);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	fflush( fp );
	mvprintw(10,COLS/2-12,"communication.%3.2f",(float) P_NTNCOM);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	mvprintw(11,COLS/2-12,"reputation.... %3d",curntn->reputation);
	mvprintw(12,COLS/2-12,"spoilrate.....%3d%%",curntn->spoilrate);
	mvprintw(13,COLS/2-12,"farm ability.. %3d",curntn->farm_ability);
	mvprintw(14,COLS/2-12,"mine ability.. %3d",curntn->mine_ability);
	mvprintw(15,COLS/2-12,"poverty rate.. %2d%%",curntn->poverty);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	mvprintw(16,COLS/2-12,"power......... %3d",curntn->power);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);

	if (country!=0) {
		mvprintw(16,0,"score currently...%ld",curntn->score);
		mvprintw(3,COLS-30, "attack bonus.........%+4d%%",curntn->aplus);
		mvprintw(4,COLS-30, "defense bonus........%+4d%%",curntn->dplus);
		mvprintw(12,COLS-30,"total soldiers....%8ld",curntn->tmil);
	} else {
		mvprintw(16,0,"turn currently....%ld",TURN);
		mvprintw(3,COLS-30, "mercs attack bonus....+%2d%%",MERCATT);
		mvprintw(4,COLS-30, "mercs defense bonus...+%2d%%",MERCDEF);
		mvprintw(12,COLS-30,"total mercs.......%8ld",MERCMEN);
	}
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);

  	mvprintw(5,COLS-30, "maximum move rate.......%2d",curntn->maxmove);
  	mvprintw(6,COLS-30, "reproduction rate......%2d%%",curntn->repro);
  	mvprintw(8,COLS-30, "gold talons......$%8ld",curntn->tgold);

	mvprintw(9,COLS-30,"jewels ..........$%8ld",curntn->jewels);
	mvprintw(10,COLS-30,"metal & minerals..%8ld",curntn->metals);
	fprintf(fp,"LINE %d FILE %s\n",__LINE__,__FILE__);
	if(curntn->tfood<2*curntn->tciv) standout();
	mvprintw(11,COLS-30,"food in granary...%8ld",curntn->tfood);
	standend();

	mvprintw(13,COLS-30,"total civilians...%8ld",curntn->tciv);
	mvprintw(14,COLS-30,"total ships..........%5d",curntn->tships);
	mvprintw(15,COLS-30,"total sectors........%5d",curntn->tsctrs);
	mvprintw(16,COLS-30,"spell points.........%5d",curntn->spellpts);

	standout();
	mvaddstr(LINES-6,COLS/2-26,"HIT 'B' FOR BUDGET SCREEN, 'P' FOR PRODUCTION SCREEN");
	mvaddstr(LINES-5,COLS/2-25,"1) NAME 2) PASSWD 3) TAX RATE 4) CHARITY 5) TERROR");
	if(magic(country,VAMPIRE)!=1)
		mvaddstr(LINES-4,COLS/2-21,"6) ADD TO COMBAT BONUS");
	else	mvaddstr(LINES-4,COLS/2-22,"CANT ADD TO COMBAT BONUS");
	addstr(" 7) TOGGLE PC <-> NPC");

#ifdef OGOD
 	if(isgod==TRUE) mvaddstr(LINES-3,COLS/2-24,"HIT 8 TO DESTROY NATION OR 9 TO CHANGE COMMODITY");
#else OGOD
  	if(isgod==TRUE) mvaddstr(LINES-3,COLS/2-11,"HIT 8 TO DESTROY NATION");
#endif OGOD
	else mvaddstr(LINES-3,COLS/2-14,"HIT ANY OTHER KEY TO CONTINUE");
	standend();
	refresh();
	switch(getch()){
	case '1': /*get name*/
		clear();
		mvaddstr(0,0,"what name would you like:");
		clrtoeol();
		refresh();
		get_nname(string);
		if((strlen(string)<=1)||(strlen(string)>NAMELTH)){
			errormsg("invalid name");
			if(isgod==TRUE) reset_god();
			return;
		}
		/*check if already used*/
		else for(i=1;i<(country-1);i++){
			if((strcmp(ntn[i].name,string)==0)&&(i!=country)) {
				errormsg("name already used");
				if(isgod==TRUE) reset_god();
				fclose(fp); return;
			}
		}
		errormsg("new name can be used following next update");
		strcpy(curntn->name,string);
		ECHGNAME;
		break;
	case '2': /*change password */
		clear();
		if(isgod!=TRUE){
			mvaddstr(0,0,"what is your current password:");
			refresh();
			gets(command);
			strncpy(passwd,crypt(command,SALT),PASSLTH);
			if((strncmp(passwd,ntn[0].passwd,PASSLTH)!=0)
			    &&(strncmp(passwd,curntn->passwd,PASSLTH)!=0)){
				errormsg("invalid password");
				fclose(fp); return;
			}
		}
		mvaddstr(2,0,"what is your new password:");
		refresh();
		gets(command);
		if((strlen(command)>PASSLTH)||(strlen(command)<2)) {
			errormsg("invalid new password");
			if(isgod==TRUE) reset_god();
			fclose(fp); return;
		}
		strncpy(passwd,command,PASSLTH);
		mvaddstr(4,0,"reenter your new password:");
		refresh();
		gets(command);
		if(strncmp(passwd,command,PASSLTH)!=0) {
			if(isgod==TRUE) reset_god();
			fclose(fp); return;
		}
		errormsg("new password can be used following next update");
		strncpy(curntn->passwd,crypt(command,SALT),PASSLTH);
		ECHGPAS;
		break;
	case '3': /* change tax rate */
		standout();
		mvaddstr(LINES-1,0,"WHAT TAX RATE DO YOU WISH:");
		standend();
		refresh();
		intval = get_number();
		if( intval < 0 )
			errormsg("ERROR - negative tax rate");
		else if( intval > 20 )
			errormsg("NO WAY! the peasants will revolt!!!");
		else if( intval > 10 && (curntn->tsctrs<20 || curntn->score<20) )
			errormsg("Sorry, you may not go above 10% yet");
		else {
			curntn->tax_rate = (unsigned char) intval;
			NADJNTN;
		}
		break;
	case '4':	/* charity */
		standout();
		mvaddstr(LINES-1,0,"GIVE WHAT PERCENT OF YOUR INCOME TO THE POOR:");
		standend();
		refresh();
		intval = get_number();
		if(( intval < 0 ) ||( intval > 100 ))
			errormsg("ERROR - invalid charity rate");
		/* this will protect from both underflow and overflow */
		else if((int)curntn->popularity + 2*(intval - (int)curntn->charity)>100)
			errormsg("ERROR - you may not increase charity that much");
		else if((int)curntn->popularity + 2*(intval - (int)curntn->charity)<0)
			errormsg("ERROR - you may not decrease charity that much");
		else {
			curntn->popularity += (unsigned char) 2*(intval - (int) curntn->charity);
			curntn->charity = intval;
			NADJNTN;
		}
		break;
	case '5':	/* terror */
		mvaddstr(LINES-2,0,"YOU CAN TERRORIZE YOUR PEOPLE AN ADDITONAL 1-5%:");
		standout();
		mvaddstr(LINES-1,0,"HOW MUCH MORE TO TERRORIZE THEM: ");
		standend();
		refresh();
		intval = get_number();
		if( intval < 0 )
			errormsg("ERROR - negative input");
		else if( intval+curntn->terror > 100 )
			errormsg("Cant go over 100 terror!!!");
		else if((intval > curntn->popularity )
		|| (intval > curntn->reputation ))
			errormsg("Sorry - this would cause underflow");
		else if(intval>5) {
			errormsg("That is over the allowed 5%");
		} else if(terror_adj>0) {
			errormsg("Terror may only be adjusted once per turn");
		} else if(intval>0) {
			terror_adj++;
			curntn->terror += (unsigned char) intval;
			curntn->popularity -= (unsigned char) intval;
			curntn->reputation -= (unsigned char) (intval+1)/2;
			NADJNTN2;
		}
		break;
	case '6':	/* combat bonus */
		if(magic(country,VAMPIRE)==1) {
			errormsg("VAMPIRES CAN'T ADD TO COMBAT BONUS");
			break;
		}
		if(magic(country,WARLORD)==1)      intval=30;
		else if(magic(country,CAPTAIN)==1) intval=20;
		else if(magic(country,WARRIOR)==1) intval=10;
		else intval=0;
		men=0;
		for(armynum=0;armynum<MAXARM;armynum++)
			if((P_ASOLD>0)&&(P_ATYPE<MINLEADER)) men+=P_ASOLD;
		men = max( men, 1500);
		armynum = max( curntn->aplus-intval, 10 );
		cost = METALORE*men*armynum*armynum/100;
		if( curntn->race == ORC) cost*=3;
		mvprintw(LINES-1,0,"Do You Wish Spend %ld Metal On Attack (enter y or n):",cost);
		refresh();
		if(getch()=='y'){
			if(curntn->metals> cost){
				curntn->aplus+=1;
				I_APLUS;
				curntn->metals-=cost;
			} else {
				errormsg("SORRY");
			}
		}
		armynum = max( curntn->dplus-intval, 10 ) / 10;
		cost=METALORE*men*armynum*armynum;
		if( curntn->race == ORC) cost*=3;
		mvprintw(LINES-1,0,"Do You Wish Spend %ld Metal On Defense (enter y or n):",cost);
		refresh();
		if(getch()=='y'){
			if(curntn->metals>cost){
				curntn->dplus+=1;
				I_DPLUS;
				curntn->metals-=cost;
			} else {
				errormsg("SORRY");
			}
		}
		break;
	case '7':
		if( startgold != curntn->tgold ) {
			errormsg("Sorry: you have already made some moves this turn!");
			break;
		} else if(ispc(curntn->active)) {
			errormsg("Note: you get no mail while playing as an NPC!");
			curntn->active *= 4;
		} else if(isnpc(curntn->active))
			curntn->active /= 4;
		NADJNTN;
		break;
	case '8':
		if(isgod==TRUE){
			clear();
			mvaddstr(LINES-1,0,"DO YOU WANT TO DESTROY THIS NATION (y or n)");
			refresh();

			if(getch()=='y') {
				/* save to last turns news file */
				sprintf(filename,"%s%d",newsfile,TURN-1);
				if ((fnews=fopen(filename,"a+"))==NULL) {
					printf("error opening news file\n");
					exit(FAIL);
				}
				destroy(country);
				fclose(fnews);
				sprintf(command,"%s/%s", EXEDIR, sortname);
				sprintf(command,"%s %s %s", command, filename, filename);
				system(command);
			}
		}
		break;
#ifdef OGOD
	case '9':
		if (isgod==TRUE) {
			/* open the target country's files */
			sprintf(filename,"%s%d",exefile,country);
			if ((ftmp=fopen(filename,"a"))==NULL) {
				beep();
				errormsg("error opening country's file");
				reset_god();
				fclose(fp); return;
			}
			/* adjust commodities */
			mvaddstr(LINES-2,0,"CHANGE: 1) Gold 2) Jewels 3) Iron 4) Food ?");
			clrtoeol();
			refresh();
			switch(getch()) {
			case '1':
				mvaddstr(LINES-1,0,"WHAT IS NEW VALUE FOR TREASURY? ");
				refresh();
				curntn->tgold = (long) get_number();
				fprintf(ftmp,"L_NGOLD\t%d \t%d \t%ld \t0 \t0 \t%s\n", XNAGOLD ,country,curntn->tgold,"null");
				break;
			case '2':
				mvaddstr(LINES-1,0,"WHAT IS NEW AMOUNT OF JEWELS? ");
				refresh();
				curntn->jewels = (long) get_number();
				fprintf(ftmp,"L_NJWLS\t%d \t%d \t%ld \t0 \t0 \t%s\n", XNARGOLD ,country,curntn->jewels,"null");
				break;
			case '3':
				mvaddstr(LINES-1,0,"WHAT IS NEW AMOUNT OF METAL? ");
				refresh();
				curntn->metals = (long) get_number();
				fprintf(ftmp,"L_NMETAL\t%d \t%d \t%ld \t0 \t0 \t%s\n", XNAMETAL ,country,curntn->metals,"null");
				break;
			case '4':
				mvaddstr(LINES-1,0,"WHAT IS NEW AMOUNT OF FOOD? ");
				refresh();
				curntn->tfood = (long) get_number();
				break;
			default:
				break;
			}
			fclose(ftmp);
		}
		break;
#endif OGOD
	case 'p':
	case 'P': produce(); fclose(fp); return;
	case 'b':
	case 'B': budget(); fclose(fp); return;
	default:
		if(isgod==TRUE) reset_god();
		fclose(fp);
		return;
	}
	if(isgod==TRUE) reset_god();
	fclose(fp);
	change();
}

void
help()
{
	int lineno;
	FILE *fp, *fopen();
	int i,xcnt,ycnt,done=FALSE;
	char line[80],fname[80];

	/*find out which helpfile to read in */
	clear_bottom(0);
	ycnt = LINES - 3;
	xcnt = 0;
	mvaddstr(LINES-4,0,"Help on which topic:");
	for (i=0;i<MAXHELP;i++) {
		sprintf(line,"  %d) %s",i,helplist[i]);
		mvaddstr(ycnt,xcnt,line);
		xcnt += 20;
		if (i==2) {
			xcnt = 0;
			ycnt ++;
		}
	}
	refresh();
	i = getch()-'0';

	/* quick exit on invalid entry */
	if (i<0 || i>MAXHELP) {
		redraw=FALSE;
		makebottom();
		return;
	}

	/*open help file*/
	sprintf(fname,"%s/%s%d",DEFAULTDIR,helpfile,i);
	if ((fp=fopen(fname,"r"))==NULL) {
		mvprintw(0,0,"\nerror on read of %s\n",fname);
		refresh();
		getch();
		return;
	}

	while(done==FALSE){
		/*read in screen (until DONE statement)*/
		fgets(line,80,fp);
		if(strncmp(line,"DONE",4)==0) done=TRUE;
		else {
			clear();
			lineno=0;
			while(strncmp(line,"END",3)!=0) {
				if(lineno==0) {
					/* highlight topic line */
					for(i=0;line[i]==' ';i++) ;
					i--;		  /* back up 1 */
					standout();
					mvaddstr(lineno,i,line+i);
					/* add a blank space on the end */
					mvaddch(lineno,strlen(line)-1,' ');
					standend();
				} else mvaddstr(lineno,0,line);
				lineno++;
				if(lineno>LINES-3) strcpy(line,"END");
				else fgets(line,80,fp);
			}
			standout();
			/* help screen 80 col format; constants needed */
			mvaddstr(LINES-2,16,"HIT ANY KEY TO CONTINUE HELP SCREENS");
			mvaddstr(LINES-1,21,"TO END HELP HIT SPACE KEY");
			standend();
			refresh();
			if(getch()==' ') done=TRUE;
		}
	}
	fclose(fp);
}

void
newspaper()
{
	int lineno;
	FILE *fp, *fopen();
	int newpage,choice,done=FALSE;
	short pagenum=1;
	int i,ydist,xdist;
	char line[80],name[80];

	/* check to make sure that there are newspapers */
	if (TURN==0) {
		clear_bottom(0);
		errormsg("no news to read");
		redraw=FALSE;
		makebottom();
		return;
	}

	clear_bottom(0);
	ydist=LINES-3;
	xdist=0;
	/* check for all newspapers up until the current turn */
	for (i=TURN-1;i>=0 && i>=TURN-MAXNEWS;i--) {
		sprintf(line,"   %d) %s of Year %d",TURN-i,
			PSEASON(i), YEAR(i));
		/* align all strings */
		mvprintw(ydist,xdist,"%s",line);
		xdist += strlen(line);
		if (xdist>60) {
			xdist=0;
			ydist++;
		}
	}
	mvaddstr(LINES-4,0,"Read Which Newspaper:");
	standend();
	refresh();
	/* get the choice */
	choice = getch() - '0';
	/* make sure the choice is valid */
	if (choice<1 || choice > MAXNEWS) {
		makebottom();
		redraw=FALSE;
		return;
	}

	sprintf(name,"%s%d",newsfile,TURN-choice);
	if ((fp=fopen(name,"r"))==NULL) {
		clear_bottom(0);
		sprintf(line,"unable to open news file <%s>",name);
		errormsg(line);
		redraw=FALSE;
		makebottom();
		return;
	}

	/*open and read one page */
	newpage=FALSE;
	line[0]='\0';
	strcpy(name,"");

	/*clear out any proceeding blanks*/
	while(done==FALSE && strlen(name)==0)
		if(fgets(name,80,fp)==NULL) done=TRUE;

	while(done==FALSE){
		if(newpage==FALSE){
			clear();
			lineno=5;
			newpage=TRUE;
			standout();
			mvprintw(0,23,"CONQUER NEWS REPORT  page %d",pagenum);
			mvprintw(1,28,"%s of Year %d",PSEASON(TURN-choice),YEAR(TURN-choice));
			mvprintw(3,37-strlen(name)/2,"%s",name+2);
			standend();
			/* display any pending non-blank lines */
			if(strcmp(line,name)!=0 && strlen(line)>2)
				mvaddstr(lineno++,0,line+2);
		} else if(fgets(line,80,fp)==NULL) done=TRUE;
		else {
			if(line[1]!='.') {
				strcpy(name,line);
				newpage=FALSE;
				pagenum++;
			} else {
				if(todigit(line[0])!=pagenum) {
					newpage=FALSE;
					pagenum=todigit(line[0]);
				}
				else if(lineno>LINES-4) newpage=FALSE;
				else if(strlen(line)>2) mvaddstr(lineno++,0,line+2);
			}
		}
		if(newpage==FALSE||done==TRUE){
			standout();
			/* constants since news is 80 col format */
			mvaddstr(LINES-2,24,"HIT ANY KEY TO CONTINUE");
			mvaddstr(LINES-1,25,"TO END NEWS HIT SPACE");
			standend();
			refresh();
			if(getch()==' ') done=TRUE;
		}
	}
	fclose(fp);
}