Path: utzoo!attcan!uunet!husc6!bloom-beacon!mit-eddie!uw-beaver!tektronix!tekgen!tekred!games
From: games@tekred.TEK.COM
Newsgroups: comp.sources.games
Subject: v04i045:  conquer3 - middle earth multi-player game (V3), Part04/08
Message-ID: <2654@tekred.TEK.COM>
Date: 16 Jun 88 21:37:09 GMT
Sender: billr@tekred.TEK.COM
Lines: 2156
Approved: billr@saab.CNA.TEK.COM

Submitted by: ihnp4!homxc!smile
Comp.sources.games: Volume 4, Issue 45
Archive-name: conquer3/Part04



#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of archive 4 (of 8)."
# Contents:  Makefile commands.c makeworld.c
# Wrapped by billr@saab on Thu Jun 16 09:39:58 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"Makefile\"
else
echo shar: Extracting \"Makefile\" \(6885 characters\)
sed "s/^X//" >Makefile <<'END_OF_Makefile'
X#	conquer: Copyright (c) 1988 by Edward M Barlow
X#	MODIFICATION OF THIS FILE COMITS THE MODIFIER TO FOLLOW THE
X#	THE LIMITED USE CONTRACT CONTAINED IN THE FILE "header.h"
XMAKE	= /bin/make
XCC	= /bin/cc
XRM	= /bin/rm -f
XLD	= mld
X
X#	This should be installed by whomever you want to own the game.
X#	I recommend "games" or "root".
X
X#	uncomment the next line if you dont have getopt in your library
X#	(eg you are on a pc, or a non unix system).  getopt.c is a
X#	public domain software, and has not been tested by the author
X#	of conquer.
X#GETOPT	= getopt.o	
X
X#if the final link does not compile change to the line below
X#LIBRARIES = -lcurses -ltermcap
XLIBRARIES = -lcurses
X
X#	DEFAULT is the directory where default nations & help files will be
X#	stored.  It is also the default directory = where players will play
X#	if they do not use the -d option.
XDEFAULT = /c28/smile/game/default
X
XCFLAGS  = -DDEFAULTDIR=\"$(DEFAULT)\" -O
X#	The following CFLAGS should be used if you wish to debug the game
X#CFLAGS  = -DDEFAULTDIR=\"$(DEFAULT)\" -DDEBUG -g
X
X#	this is the name of the user executable
X#	the user executable contains commands for the games players
XGAME = conquer
X#	this is the name of the administrative executable
X#	the administrative executable contains commands for the game super user
XADMIN = admin
X
X#	This directory is where the executables will be stored
XEXEDIR = /c28/smile/game/runv
X
X#	GAME IDENTIFICATION
X#	this is the game identifier.  See the DATA variable below
XGAMEID = 1
X#	This directory is where individual Conquer game data will be stored.
X#	As multiple simultaneous games are supported, each game must have its
X#	own directory.
XDATA = $(EXEDIR)/lib$(GAMEID)
X
X# AFILS are files needed for game updating...
XAFILS = combat.c cexecute.c io.c admin.c makeworld.c  \
Xnewlogin.c update.c magic.c npc.c misc.c randevent.c data.c
XAOBJS = combat.o cexecuteA.o ioA.o admin.o makeworld.o  \
Xnewlogin.o update.o magicA.o npc.o miscA.o randevent.o dataA.o $(GETOPT)
X
X# GFILS are files needed to run a normal interactive game
XGFILS = commands.c cexecute.c forms.c io.c main.c move.c \
Xmagic.c misc.c reports.c data.c display.c extcmds.c
XGOBJS = commands.o cexecute.o forms.o io.o main.o move.o \
Xmagic.o misc.o reports.o data.o display.o extcmds.o $(GETOPT)
X
XHEADERS=header.h data.h newlogin.h
XHELPFILE=help.txt
XSUPT1=nations Makefile $(HELPFILE) README run man.page 
XSUPT2=execute messages news
XHELPOUT=help
XALLFILS=$(SUPT1) $(HEADERS) $(AFILS) commands.c forms.c main.c move.c \
Xreports.c display.c extcmds.c
X
Xall:	$(ADMIN) $(GAME) helpfile
X	@echo YAY! make new_game to set up permissions, zero appropriate
X	@echo initial files, move $(GAME) and $(ADMIN) to 
X	@echo $(EXEDIR), and set up the world.
X	@echo If a game is in progress, make install will just move $(GAME) 
X	@echo and $(ADMIN) to $(EXEDIR).
X	@echo
X
X$(ADMIN):	$(AOBJS)
X	@echo phew...
X	@echo if the next command does not you might also need -ltermcap
X	@echo === compiling administrative functions
X	$(CC) -O -o $(ADMIN) $(AOBJS) $(LIBRARIES)
X
X$(GAME):	$(GOBJS)
X	@echo phew...
X	@echo if the next command does not compile you might also need -ltermcap
X	@echo === compiling user interface
X	$(CC) -O -o $(GAME) $(GOBJS) $(LIBRARIES)
X
Xclobber:
X	$(RM) *.o core newhelp conquer.doc $(GAME) $(ADMIN) $(HELPOUT) 2>/dev/null
X
Xclean:
X	$(RM) *.o core conquer.doc newhelp $(HELPOUT) 2>/dev/null
X
Xinstall:	$(ADMIN) $(GAME) helpfile
X	cp $(GAME) $(ADMIN) $(EXEDIR)
X	cp $(HELPOUT) $(DATA)
X	cp $(HELPOUT) $(DEFAULT)
X	chmod 4755 $(EXEDIR)/$(GAME)
X	chmod 4750 $(EXEDIR)/$(ADMIN) 
X
Xnew_game:	$(ADMIN) $(GAME) helpfile
X	@echo Installing new game
X	-mkdir $(EXEDIR) 2>/dev/null
X	-mkdir $(DATA) 2>/dev/null
X	-mkdir $(DEFAULT)  2>/dev/null
X	chmod 755 $(EXEDIR)
X	chmod 751 $(DATA) $(DEFAULT)
X	cp $(GAME) $(ADMIN) $(EXEDIR)
X	chmod 4755 $(EXEDIR)/$(GAME) $(EXEDIR)/$(ADMIN)
X	chmod 0700 run
X	chmod 0644 $(HELPOUT)
X	chmod 0600 nations
X	cp $(HELPOUT) nations $(DATA)
X	cp $(HELPOUT) nations $(DEFAULT)
X	@echo now making the world
X	$(EXEDIR)/$(ADMIN) -d$(DATA) -m
X	$(EXEDIR)/$(ADMIN) -d$(DATA) -a
X
Xhelpfile:	$(HELPOUT)
X
X$(HELPOUT):	newhelp.c data.o header.h data.h
X	$(CC) $(CFLAGS) newhelp.c data.o -o newhelp
X	@echo Building the help file
X	newhelp
X	cat $(HELPFILE) | sed -f helpscript > $(HELPOUT)
X	$(RM) helpscript
X	cp $(HELPOUT) $(DEFAULT)
X
Xlint:
X	lint -DDEFAULTDIR=\"$(DEFAULT)\" -DCONQUER $(GFILS) > lintg
X	lint -DDEFAULTDIR=\"$(DEFAULT)\" -DADMIN $(AFILS) > linta
X
Xdocs:	$(HELPOUT) conquer.doc
X
Xconquer.doc:
X	sed -e "s/^END//g" $(HELPOUT) > conquer.doc
X
Xcpio:
X	-$(RM) core
X	find . -name '*[CrpsEech]' -print | cpio -ocBv > cpiosv
X
Xshar:	
X	echo " lines   words chars   FILENAME" > MANIFEST
X	wc $(ALLFILS) >> MANIFEST
X	createshar 1 combat.c commands.c forms.c
X	mv shar.out shar1
X	createshar 2  move.c makeworld.c main.c
X	mv shar.out shar2
X	createshar 3 $(SUPT1)
X	mv shar.out shar3
X	createshar 4 npc.c newlogin.c MANIFEST newlogin.h
X	mv shar.out shar4
X	createshar 5 reports.c misc.c randevent.c
X	mv shar.out shar5
X	createshar 6 magic.c update.c cexecute.c data.c MANIFEST
X	mv shar.out shar6
X	createshar 7 admin.c display.c getopt.c newhelp.c extcmds.c io.c data.h header.h 
X	mv shar.out shar7
X
Xcombat.o:	data.h header.h combat.c
X	$(CC) $(CFLAGS) -DADMIN -c combat.c
Xcexecute.o:	data.h header.h cexecute.c
X	$(CC) $(CFLAGS) -DCONQUER -c cexecute.c
Xio.o:	data.h header.h  io.c
X	$(CC) $(CFLAGS) -DCONQUER -c io.c
XcexecuteA.o:	data.h header.h cexecute.c
X	$(CC) $(CFLAGS) -DADMIN -c cexecute.c
X	mv cexecute.o cexecuteA.o
XioA.o:	data.h header.h  io.c
X	$(CC) $(CFLAGS) -DADMIN -c io.c
X	mv io.o ioA.o
Xadmin.o:	data.h header.h admin.c
X	$(CC) $(CFLAGS) -DADMIN -c admin.c
Xmakeworld.o:	data.h header.h makeworld.c
X	$(CC) $(CFLAGS) -DADMIN -c makeworld.c
Xnewlogin.o:	data.h header.h newlogin.h newlogin.c
X	$(CC) $(CFLAGS) -DADMIN -c newlogin.c
Xupdate.o:	data.h header.h update.c
X	$(CC) $(CFLAGS) -DADMIN -c update.c
Xmagic.o:	data.h header.h magic.c
X	$(CC) $(CFLAGS) -DCONQUER -c magic.c
XmagicA.o:	data.h header.h magic.c
X	$(CC) $(CFLAGS) -DADMIN -c magic.c
X	mv magic.o magicA.o
Xnpc.o:	data.h header.h npc.c
X	$(CC) $(CFLAGS) -DADMIN -c npc.c
Xmisc.o:	data.h header.h misc.c
X	$(CC) $(CFLAGS) -DCONQUER -c misc.c
XmiscA.o:	data.h header.h misc.c
X	$(CC) $(CFLAGS) -DADMIN -c misc.c
X	mv misc.o miscA.o
Xrandevent.o:	data.h header.h randevent.c
X	$(CC) $(CFLAGS) -DADMIN -c randevent.c
Xdata.o:	data.h header.h data.c
X	$(CC) $(CFLAGS) -DCONQUER -c data.c
XdataA.o:	data.h header.h data.c
X	$(CC) $(CFLAGS) -DADMIN -c data.c
X	mv data.o dataA.o
Xdisplay.o:	data.h header.h display.c
X	$(CC) $(CFLAGS) -DCONQUER -c display.c
Xreports.o:	data.h header.h reports.c
X	$(CC) $(CFLAGS) -DCONQUER -c reports.c
Xmove.o:	data.h header.h move.c
X	$(CC) $(CFLAGS) -DCONQUER -c move.c
Xmain.o:	data.h header.h main.c
X	$(CC) $(CFLAGS) -DCONQUER -c main.c
Xforms.o:	data.h header.h forms.c
X	$(CC) $(CFLAGS) -DCONQUER -c forms.c
Xcommands.o:	data.h header.h commands.c
X	$(CC) $(CFLAGS) -DCONQUER -c commands.c
END_OF_Makefile
if test 6885 -ne `wc -c <Makefile`; then
    echo shar: \"Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f commands.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"commands.c\"
else
echo shar: Extracting \"commands.c\" \(23192 characters\)
sed "s/^X//" >commands.c <<'END_OF_commands.c'
X/*conquer : Copyright (c) 1988 by Ed Barlow.
X *  I spent a long time writing this code & I hope that you respect this.
X *  I give permission to alter the code, but not to copy or redistribute
X *  it without my explicit permission.  If you alter the code,
X *  please document changes and send me a copy, so all can have it.
X *  This code, to the best of my knowledge works well,  but it is my first
X *  'C' program and should be treated as such.  I disclaim any
X *  responsibility for the codes actions (use at your own risk).  I guess
X *  I am saying "Happy gaming", and am trying not to get sued in the process.
X *                                                Ed
X */
X
X/*	commands.c		*/
X
X/*include files*/
X#include "header.h"
X#include "data.h"
X#include <ctype.h>
X
X/*execute file pointer*/
Xextern FILE *fexe;
Xextern short country;
Xextern short selector;
Xextern short pager;
Xextern short xcurs,ycurs,xoffset,yoffset;
X
X/*change current hex designation*/
Xvoid
Xredesignate()
X{
X	char newdes;
X	short x,y;
X
X	if(country==0){
X		clear_bottom(0);
X		mvaddstr(LINES-4,0,"SUPER USER: CHANGE (v)egetation, (e)levation, (d)esig, (o)wner, (m)inerals");
X		refresh();
X		switch(getch()){
X		case 'e':
X			/*simple contour map definitions*/
X			mvprintw(LINES-3,7,"ELEVATIONS: change to %c, %c, %c, %c or %c?",WATER,PEAK,MOUNTAIN,HILL,CLEAR);
X			refresh();
X			newdes=getch();
X			if(newdes!=WATER&&newdes!=PEAK&&newdes!=MOUNTAIN
X			&&newdes!=HILL&&newdes!=CLEAR) return;
X			sct[XREAL][YREAL].altitude=newdes;
X			if((newdes==PEAK)||(newdes==WATER)) {
X				sct[XREAL][YREAL].owner=0;
X				sct[XREAL][YREAL].people=0;
X				sct[XREAL][YREAL].fortress=0;
X			}
X			/*will fall through as must change vegetation*/
X		case 'v':
X			/*vegetation types*/
X			mvprintw(LINES-3,7,"VEGETATIONS: change to %c, %c, %c, %c, %c, %c, %c, %c, %c, %c, %c or %c?",
X			VOLCANO,DESERT,TUNDRA,BARREN,LT_VEG,
X			GOOD,WOOD,FOREST,JUNGLE,SWAMP,ICE,NONE);
X			refresh();
X			newdes=getch();
X			if(newdes!=VOLCANO
X			&&newdes!=DESERT&&newdes!=TUNDRA
X			&&newdes!=BARREN&&newdes!=LT_VEG
X			&&newdes!=NONE&&newdes!=GOOD
X			&&newdes!=WOOD&&newdes!=FOREST&&newdes!=JUNGLE
X			&&newdes!=SWAMP&&newdes!=ICE) return;
X			sct[XREAL][YREAL].vegetation=newdes;
X			if(tofood(sct[XREAL][YREAL].vegetation,0)!=0)
X				sct[XREAL][YREAL].designation=newdes;
X			return;
X		case 'o':
X			mvprintw(LINES-3,7,"what nation owner:");
X			refresh();
X			x = get_number();
X			if (x<NTOTAL) sct[XREAL][YREAL].owner=x;
X			return;
X		case 'm':
X			mvaddstr(LINES-2,7,"(g)old, or (i)ron?");
X			refresh();
X			switch(getch()) {
X			case 'g':
X				mvaddstr(LINES-2,7,"new sector gold value: ");
X				refresh();
X				x = get_number();
X				if (x<100 && x>=0)
X					sct[XREAL][YREAL].gold = x;
X				break;
X			case 'i':
X				mvaddstr(LINES-2,7,"new sector iron value:");
X				refresh();
X				x = get_number();
X				if (x<100 && x>=0)
X					sct[XREAL][YREAL].iron = x;
X				break;
X			default:
X				break;
X			}
X			return;
X		}
X	}
X	if((country!=0)&&(sct[XREAL][YREAL].owner!=country)) {
X		errormsg("You do not own");
X		return;
X	}
X	clear_bottom(0);
X	mvprintw(LINES-4,7,"$%d: redesignate to %c, %c, %c",DESCOST,DMINE,DGOLDMINE,DFARM);
X	mvprintw(LINES-3,7,"$%d: redesignate to %c, %c?",20*DESCOST,DCITY,DCAPITOL);
X	mvprintw(LINES-2,0,"space to return => what new designation:");
X	refresh();
X	/*read answer*/
X	newdes=getch();
X
X	if(newdes!=DMINE&&newdes!=DGOLDMINE&&newdes!=DFARM&&newdes!=DCITY&&newdes!=DCAPITOL) {
X		errormsg("invalid input");
X		return;
X	}
X
X	if((SOWN==country)||(country==0)) {
X		if(((tofood(sct[XREAL][YREAL].vegetation,country)>=DESFOOD)
X		||(country==0))){
X			if(((newdes!=DCITY)&&(newdes!=DCAPITOL))||(country==0)) {
X				/*decrement treasury*/
X				sct[XREAL][YREAL].designation=newdes;
X				if(country==0) {
X					country=sct[XREAL][YREAL].owner;
X					SADJDES;
X					country=0;
X				}
X				else {
X					SADJDES;
X					ntn[country].tgold-=DESCOST;
X				}
X			}
X			else if((newdes==DCAPITOL)
X			&&(sct[XREAL][YREAL].designation==DCITY)){
X
X				ntn[country].tgold-=20*DESCOST;
X				ntn[country].tiron-=DESCOST;
X				x=ntn[country].capx;
X				y=ntn[country].capy;
X				sct[x][y].designation=DCITY;
X				if(country==0) {
X					country=sct[x][y].owner;
X					SADJDES2;
X					country=0;
X				}
X				else SADJDES2;
X				sct[XREAL][YREAL].designation=newdes;
X				ntn[country].capx=XREAL;
X				ntn[country].capy=YREAL;
X				if(country==0) {
X					country=sct[XREAL][YREAL].owner;
X					SADJDES;
X					country=0;
X				}
X				else SADJDES;
X			}
X			else if((newdes==DCAPITOL)
X			&&(sct[XREAL][YREAL].designation!=DCITY)){
X				errormsg("New Capitol must be in a town");
X			}
X			else if((ntn[country].tiron>DESCOST)
X			&&(newdes==DCITY)){
X				if(sct[XREAL][YREAL].people>=500){
X					ntn[country].tgold-=20*DESCOST;
X					ntn[country].tiron-=DESCOST;
X					sct[XREAL][YREAL].designation=newdes;
X					if(country==0) {
X						country=sct[XREAL][YREAL].owner;
X						SADJDES;
X						country=0;
X					}
X					else SADJDES;
X				}
X				else {
X				errormsg("Need 500 people to build to town");
X				}
X			} else	errormsg("Not enough iron for town");
X		} else	errormsg("vegetation too sparse");
X	} else {
X	errormsg("Sorry, you don't own sector");
X	}
X}
X
X/*build fort or ship-type */
Xvoid
Xconstruct()
X{
X	int nearsea,repairs;
X	long cost;
X	int armbonus;
X	int x,y;
X	short nvynum=0;
X	short mnumber,wnumber;
X	short isgod=FALSE;
X	char type;
X
X	clear_bottom(0);
X	if(country==0){
X		isgod=TRUE;
X		country=sct[XREAL][YREAL].owner;
X	}
X
X	if(sct[XREAL][YREAL].owner!=country) {
X		errormsg("You do not own");
X		if(isgod==TRUE) country=0;
X		return;
X	}
X
X	if((isgod==FALSE) && (ntn[country].tgold < 0 )) {
X		errormsg("You are broke");
X		return;
X	}
X
X	if((sct[XREAL][YREAL].designation==DCITY)
X	||(sct[XREAL][YREAL].designation==DCAPITOL)) {
X		/*calculate cost for fort*/
X		cost=FORTCOST;
X		if(isgod==TRUE) cost=0;
X		else for(x=1;x<=sct[XREAL][YREAL].fortress;x++)
X			cost*=2;
X
X		if(sct[XREAL][YREAL].designation==DCITY) armbonus=8;
X		else if(sct[XREAL][YREAL].designation==DCAPITOL) armbonus=10;
X		if(magic(country,ARCHITECT)==TRUE) armbonus*=2;
X
X		mvprintw(LINES-4,0,"Construct <f>ortifications (+%d%% - %ld gold) or <s>hips?:",armbonus,cost);
X		refresh();
X		type=getch();
X	} else {
X		errormsg("Must construct in town or capitol");
X		if (isgod==1) country=0;
X		return;
X	}
X
X	/* construct ships*/
X	if (type=='s') {
X		/*check if next to sea*/
X		nearsea=0;
X		for(x=XREAL-1;x<=XREAL+1;x++)
X			for(y=YREAL-1;y<=YREAL+1;y++)
X				if(sct[x][y].altitude==WATER) nearsea=1;
X
X		if (nearsea==0) {
X			errormsg("not in a harbor");
X			if(isgod==TRUE) country=0;
X			return;
X		}
X
X		repairs=FALSE;
X		if((nvynum=getselunit()-MAXARM)>=0){
X			if(nvynum>=MAXNAVY){
X				errormsg("INVALID NAVY");
X				if(isgod==TRUE) country=0;
X				return;
X			}
X			mvaddstr(LINES-3,0,"Do you wish to repair existing fleet (y or n)");
X			refresh();
X			if(getch()=='y') repairs=TRUE;
X			else{
X				mvaddstr(LINES-3,0,"Do you wish to raise a new fleet (y or n)");
X				clrtoeol();
X				refresh();
X				if(getch()=='y') nvynum=(-1);
X			}
X		}
X
X		if(repairs==TRUE){
X			clear_bottom(0);
X			mvprintw(LINES-4,0,"Repairing Fleet %d",nvynum);
X			mvaddstr(LINES-3,0,"How many crew per ship do you wish to add:");
X			clrtoeol();
X			refresh();
X			mnumber = get_number();
X			cost = (long) mnumber*WARSHPCOST*NWAR + (long) mnumber*MERSHPCOST*NMER;
X			if( ntn[country].tgold < cost ) {
X				errormsg("NOT ENOUGH GOLD");
X				if(isgod==TRUE) country=0;
X				return;
X			}
X			if( sct[XREAL][YREAL].people < (NWAR+NMER) * mnumber ){
X				errormsg("NOT ENOUGH CIVILIANS IN SECTOR");
X				if(isgod==TRUE) country=0;
X				return;
X			}
X			if( SHIPCREW * (NWAR+NMER) < NCREW + (NWAR+NMER) * mnumber ){
X				errormsg("THAT WOULD EXCEED MAXIMUM SHIP CREW");
X				if(isgod==TRUE) country=0;
X				return;
X			}
X	
X			if(magic(country,SAILOR)==TRUE){
X				ntn[country].tgold -= cost/2;
X			} else {
X				ntn[country].tgold -= cost;
X			}
X
X			NCREW += (NWAR+NMER) * mnumber;
X			if(isgod==TRUE) country=0;
X			return;
X		}
X
X		if(nvynum<0) {
X			nvynum=0;
X			x=(-1);
X			while((x==(-1))&&(nvynum<MAXNAVY)) {
X				if(NWAR+NMER<=0) {
X					x=nvynum;
X					NWAR=0;
X					NMER=0;
X					NADJSHP;
X				}
X				nvynum++;
X			}
X			nvynum=x;
X		}
X		if(nvynum<0){
X			errormsg("NO FREE NAVIES");
X			if(isgod==TRUE) country=0;
X			return;
X		}
X		else	mvprintw(LINES-2,30,"raising new fleet %d",nvynum);
X
X
X		mvprintw(LINES-3,0,"how many merchants:");
X		refresh();
X		mnumber = get_number();
X		mvprintw(LINES-3,40,"how many warships:");
X		refresh();
X		wnumber = get_number();
X		/*sanity checks*/
X		if((wnumber>100)||(wnumber<0)) wnumber=0;
X		if((mnumber>100)||(mnumber<0)) mnumber=0;
X		if (wnumber==0 && mnumber==0)
X		{
X			if(isgod==1) country=0;
X			return;
X		}
X		cost =  wnumber*WARSHPCOST + mnumber*MERSHPCOST;
X		if(isgod==TRUE)				cost=0;
X		else if(magic(country,SAILOR)==TRUE)	cost/=2;
X
X		if(cost > ntn[country].tgold ) {
X			errormsg("sorry - not enough gold");
X			if(isgod==TRUE) country=0;
X			return;
X		}
X
X		if( sct[XREAL][YREAL].people < (wnumber+mnumber) * mnumber ){
X			errormsg("NOT ENOUGH CIVILIANS IN SECTOR");
X			if(isgod==TRUE) country=0;
X			return;
X		}
X
X		if((nvynum>=0)&&(nvynum<MAXNAVY)) {
X			clear_bottom(0);
X			mvprintw(LINES-4,0,"constructing %hd warships and %hd merchant",wnumber,mnumber);
X
X			NCREW += (wnumber+mnumber) * SHIPCREW;
X			sct[XREAL][YREAL].people -= (wnumber+mnumber)*SHIPCREW;
X
X			ntn[country].tgold -= cost;
X
X			NXLOC =XREAL;
X			NYLOC =YREAL;
X			NWAR+=wnumber;
X			NMER+=mnumber;
X			NMOVE=0;
X			NADJSHP;
X			NADJLOC;
X			NADJMOV;
X		} else errormsg("ERROR!!!!!!!!!!!!!");
X
X		mvprintw(LINES-2,30,"adding ships to fleet %d",nvynum);
X		mvprintw(LINES-2, 60, "PRESS ANY KEY");
X		beep();
X		refresh();
X		getch();
X	}
X	/* construct fortification points*/
X	else if(type=='f'){
X		if(sct[XREAL][YREAL].people>=500)
X		/* can only go into debt as much as the nation has jewels */
X		if ((ntn[country].tgold - cost) > ((-1)*10*ntn[country].jewels)) {
X			mvprintw(LINES-3,25,"you build +%d%% fort points for %ld gold",armbonus,cost);
X			ntn[country].tgold-=cost;
X			sct[XREAL][YREAL].fortress++;
X			INCFORT;
X			errormsg("");
X		}
X		else errormsg("need 500 people or you are broke");
X	}
X	else errormsg("invalid input error");
X
X	if(isgod==TRUE) country=0;
X	refresh();
X}
X
X/*DRAFT IF IN A CITY*/
Xvoid
Xdraft()
X{
X	short armynum,x,y,i;
X	int men=0,mercs;
X	short army=(-1), isgod=FALSE, newtype=0;
X	long i_cost, e_cost;
X
X	clear_bottom(0);
X	if(country==0) {
X		isgod=TRUE;
X		country=sct[XREAL][YREAL].owner;
X	}
X	else if(sct[XREAL][YREAL].owner!=country) {
X		errormsg("You do not own");
X		return;
X	}
X
X	if((sct[XREAL][YREAL].designation!=DCITY)
X	&&(sct[XREAL][YREAL].designation!=DCAPITOL)) {
X		errormsg("must raise in towns");
X		if(isgod==TRUE) country=0;
X		return;
X	}
X
X	if((sct[XREAL][YREAL].designation==DCITY)
X	&&(sct[XREAL][YREAL].people*(2*CITYLIMIT+(ntn[country].tsctrs/2))<ntn[country].tciv)){
X		mvprintw(LINES-1,0,"need %d people in town: hit any key",ntn[country].tciv/(2*CITYLIMIT+(ntn[country].tsctrs/2)));
X		refresh();
X		getch();
X		if(isgod==TRUE) country=0;
X		return;
X	}
X
X	if(ntn[country].tgold <= 0){
X		errormsg("you dont have any gold");
X		if(isgod==TRUE) country=0;
X		return;
X	}
X
X	/*raise an untrained army */
X	mvprintw(LINES-3,0,"how many men do you wish to raise:");
X	clrtoeol();
X	refresh();
X	men = get_number();
X	if(men<=0) {
X		if (isgod==TRUE) country=0;
X		return;
X	}
X	/* i_people is initial people -> can  draft up to following */
X	/*	draftable = max_draft - already drafted */
X	/*		  = imen/4 - ( imen - people)   */
X	/*		  = -3/4 * imen + people)   */
X	if((men > sct[XREAL][YREAL].people - (3*sct[XREAL][YREAL].i_people/4))
X	||(sct[XREAL][YREAL].i_people <= 0)) {
X		if(sct[XREAL][YREAL].i_people <= 0) {
X		errormsg("aborting: can not raise in this sector");
X		}
X		else errormsg("aborting: raising too many soldiers");
X		if(isgod==TRUE) country=0;
X		return;
X	}
X	/*ask what type of unit*/
X	y=LINES-2;
X	x=0;
X	mvaddstr(y,x,"options:");
X	clrtoeol();
X	x+=9;
X	for(i=0;i<=NOUNITTYPES;i++){
X		if(unitvalid(i)==TRUE) {
X			mvprintw(y,x+2,"%s",*(shunittype+i));
X			mvprintw(y,x,"(%c)",*(shunittype+i)[0]);
X			x+=7;
X			if(x>COLS-10){
X				x=0;
X				y++;
X			}
X		}
X	}
X	move(y,x);
X	clrtoeol();
X	if((magic(country,WARRIOR)==TRUE)
X	||(magic(country,WARLORD)==TRUE)
X	||(magic(country,CAPTAIN)==TRUE))
X	mvaddstr(LINES-3,0,"(Warrior = 1/2 enlist cost) what type of unit do you want:");
X	else
X	mvaddstr(LINES-3,0,"what type of unit do you want to raise:");
X
X	clrtoeol();
X	refresh();
X	switch(getch()){
X	case 'm':
X		newtype=A_MILITIA;
X		break;
X	case 'I':
X		newtype=A_INFANTRY;
X		break;
X	case 'A':
X		newtype=A_ARCHER;
X		break;
X	case 'M':
X		newtype=A_MERCENARY;
X		break;
X	case 'P':
X		newtype=A_PHALANX;
X		break;
X	case 'L':
X		newtype=A_LEGION;
X		break;
X	case 'E':
X		newtype=A_ELITE;
X		break;
X	case 'D':
X		newtype=A_DRAGOON;
X		break;
X	case 'C':
X		newtype=A_CAVALRY;
X		break;
X	case 'K':
X		newtype=A_KNIGHT;
X		break;
X	case 'c':
X		newtype=A_CATAPULT;
X		break;
X	case 's':
X		newtype=A_SEIGE;
X		break;
X	case 'R':
X		newtype=A_ROC;
X		break;
X	case 'O':
X		newtype=A_ORC;
X		break;
X	case 'U':
X		newtype=A_URUK;
X		break;
X	case 'T':
X		newtype=A_TROLL;
X		break;
X	case 'g':
X		newtype=A_GRIFFON;
X		break;
X	case 'l':
X		newtype=A_LT_CAV;
X		break;
X	case 'o':
X		newtype=A_OLOG;
X		break;
X	case 'N':
X		newtype=A_NINJA;
X		break;
X	case 'X':
X		newtype=A_MARINES;
X		break;
X	case 'S':
X		newtype=A_SAILOR;
X		break;
X	case 'G':
X		newtype=A_GOBLIN;
X		break;
X	case 'e':
X		newtype=A_ELEPHANT;
X		break;
X	default:
X		errormsg("Invalid type");
X		if (isgod==TRUE) country=0;
X		return;
X	}
X	if(unitvalid(newtype)==FALSE) {
X		errormsg("Invalid type");
X		if (isgod==TRUE) country=0;
X		return;
X	}
X
X	/* check that you dont have too many mercenaries */
X	mercs=0;
X	if(newtype == A_MERCENARY){
X		for(armynum=0;armynum<MAXARM;armynum++){
X			if(ATYPE==A_MERCENARY) mercs+=ASOLD;
X		}
X		if(men+mercs > (ntn[country].tmil-mercs)/2) {
X			errormsg("aborting--you would then have more than 50%% mercenaries");
X			if(isgod==TRUE) country=0;
X			return;
X		}
X	}
X
X	e_cost= (long) *(u_encost+newtype) * men;
X	i_cost= (long) *(u_eniron+newtype) * men;
X
X	/*magiced get 1/2 enlistment costs*/
X	if((magic(country,WARRIOR)==TRUE)
X	||(magic(country,WARLORD)==TRUE)
X	||(magic(country,CAPTAIN)==TRUE))
X		e_cost/=2;
X
X	if((magic(country,SAPPER)==TRUE)
X	&&((newtype==A_SEIGE)||(newtype==A_CATAPULT))){
X		e_cost/=2;
X		i_cost/=2;
X	}
X
X	/*check to see if enough gold*/
X	if(e_cost >  ntn[country].tgold) {
X		errormsg("aborting--you dont have enough gold in treasury");
X		if(isgod==TRUE) country=0;
X		return;
X	}
X	/*check for iron deposits*/
X	else if(i_cost > ntn[country].tiron) {
X		mvprintw(LINES-1,0,"aborting--you dont have %ld iron",i_cost);
X		clrtoeol();
X		refresh();
X		getch();
X		if(isgod==TRUE) country=0;
X		return;
X	}
X	else {
X		move(LINES-2,0);
X		clrtoeol();
X	}
X
X	/*count is order of that army in sector*/
X	/*armynum is number of that army*/
X	if((armynum=getselunit())>=0){
X		if(armynum>=MAXARM) {
X			army = -1;
X		} else {
X			/*if different types, must raise new army*/
X			if(newtype == ATYPE){
X			mvaddstr(LINES-1,0,"Do you wish to raise a new army:");
X			clrtoeol();
X			refresh();
X			if(getch()!='y') army=armynum;
X			else army= -1;
X			}
X			else army=(-1);
X		}
X	}
X	if(army==(-1)) {
X		mvprintw(LINES-2,0,"(%s, gold=%ld, iron=%ld) raising a new army",*(unittype+newtype),e_cost,i_cost);
X		clrtoeol();
X		refresh();
X		sleep(1);
X
X		armynum=0;
X		while((army==(-1))&&(armynum<MAXARM)) {
X			if(ASOLD<=0) {
X				army=armynum;
X				ASOLD=0;
X				ASTAT=DEFEND; /* set new armies to DEFEND */
X				AADJSTAT;
X				AADJMEN;
X			}
X			armynum++;
X		}
X		if(army==(-1)){
X			errormsg("NO FREE ARMIES");
X			if(isgod==TRUE) country=0;
X			return;
X		}
X		armynum=army;
X	} else {
X		mvprintw(LINES-2,0,"(%s, gold=%ld, iron=%ld) adding to existing army",*(unittype+newtype),e_cost,i_cost);
X		clrtoeol();
X		refresh();
X		sleep(1);
X	}
X
X	ATYPE=newtype;
X	if(ATYPE != A_MERCENARY){
X		sct[XREAL][YREAL].people -= men;
X		SADJCIV;
X	}
X	AYLOC=YREAL;
X	AXLOC=XREAL;
X	AADJLOC;
X	AMOVE=0;
X	AADJMOV;
X	ASOLD+=men;
X	AADJMEN;
X	ntn[country].tiron -= i_cost;
X	ntn[country].tgold -= e_cost;
X	makemap(); /* if display 'y' is set, this will show new army */
X	if(isgod==TRUE) country=0;
X}
X
X/*adjust picked army*/
Xvoid
Xadjarm(armynum)
Xint armynum;
X{
X	short status;
X
X	clear_bottom(0);
X	if(armynum==(-1)) armynum=getselunit();
X	mvprintw(LINES-4,0,"ADJUST ARMY %d",armynum);
X	mvaddstr(LINES-3,0,"1) March  2) Scout  3) Attack  4) Defend  5) Garrison");
X	mvaddstr(LINES-2,0,"Enter your choice (return to continue):");
X	refresh();
X	status = get_number();
X	if((status<1)||(status>5)) return;
X	change_status(armynum,status);
X}
X
X/*go through msgfile not rewriting to temp messages you discard*/
X/* then move temp to msgfile*/
Xvoid
Xrmessage()
X{
X	int unlink();
X	FILE *mesgfp;
X	FILE *fptemp;
X	int i;
X	int count;
X	int contd;
X	int done=FALSE;
X	char tempfile[ 30 ];
X	char mesgfile[ 30 ];
X	char line[80];
X	char save[20][80];
X
X	clear();
X	/*open file*/
X	sprintf(tempfile,"%s:temp",msgfile);
X	if( (fptemp = fopen(tempfile,"w")) == NULL ) {
X		mvprintw(0,0,"error on creating %s--hit return", tempfile);
X		refresh();
X		getch();
X		return;
X	}
X
X	sprintf(mesgfile,"%s%d",msgfile,country);
X	if ((mesgfp=fopen(mesgfile,"r"))==NULL) {
X	        (void) unlink (tempfile) ;
X		mvprintw(0,0,"no messages in %s, hit return",mesgfile);
X		refresh();
X		getch();
X		return;
X	}
X
X	/*read in file a line at at time*/
X	if(fgets(line,80,mesgfp)==NULL) done=TRUE;
X	while(done==FALSE) {
X		contd=0;
X		count=3;
X		if(strncmp(line,ntn[country].name,strlen(ntn[country].name))==0) {
X			clear();
X			standout();
X			/*print to end of message*/
X			while(contd==0) {
X				if(count<22) strcpy(save[count-3],line);
X				mvprintw(count,0,"%s",line);
X				standend();
X				for(i=0;i<strlen(ntn[country].name);i++)
X					mvaddch(count,i,' ');
X				count++;
X				if(fgets(line,80,mesgfp)==NULL) contd=1;
X				if(strncmp(line,"END",3)==0) contd=1;
X			}
X			standout();
X			mvaddstr(LINES-3,(COLS/2)-22,"HIT RETURN TO SAVE MESSAGE");
X			mvaddstr(LINES-2,(COLS/2)-22,"HIT ANY OTHER KEY TO CONTINUE");
X			standend();
X			refresh();
X			if(getch()=='\n') {
X				for(i=0;i<count-3;i++) fputs(save[i],fptemp);
X				strcpy(line,"END\n");
X				fputs(line,fptemp);
X			}
X		}
X		else fputs(line,fptemp);
X		if(fgets(line,80,mesgfp)==NULL) done=TRUE;
X	}
X	fclose(mesgfp);
X	fclose(fptemp);
X
X	/*IMPLEMENT A MOVE BETWEEN TMP FILE AND REAL FILE HERE*/
X	move_file( tempfile, mesgfile );
X}
X
Xvoid
Xwmessage()
X{
X	FILE *fp, *fopen();
X	int x,y;
X	int done=FALSE;
X	char ch;
X	char name[12];
X	char realname[12];
X	int temp=(-1);
X	int linedone;
X	char line[100];
X	int nationid;
X
X	/*what nation to send to*/
X	clear();
X	mvprintw(0,0,"to send a message to the administrator, send to 'god':");
X	mvprintw(2,0,"What country name do you wish to send to:");
X	refresh();
X	get_nname(name);
X
X	/*is name valid*/
X	for(nationid=0;nationid<MAXNTN;nationid++) if(ntn[nationid].active!=0)
X		if(strcmp(name,ntn[nationid].name)==0) temp=nationid;
X
X	if(strcmp(name,"god")==0) {
X		temp=0;
X		strcpy(realname,"unowned");
X	}
X	else strcpy(realname,name);
X
X	if (temp==(-1)) {
X		mvprintw(3,0,"error--invalid name");
X		refresh();
X		getch();
X		return;
X	}
X
X	sprintf(line,"%s%d",msgfile,temp);
X	if ((fp=fopen(line,"a+"))==NULL) {
X		mvprintw(4,0,"error opening %s",line);
X		refresh();
X		getch();
X		return;
X	}
X
X	move(0,0);
X	clrtoeol();
X	move(2,0);
X	clrtoeol();
X	standout();
X	mvprintw(3,(COLS-25)/2,"message to nation %s",name);
X	mvprintw(LINES-2,(COLS-35)/2,"end with a return on a new line");
X	standend();
X
X	if (country==0)
X		fprintf(fp,"%s Message to %s from GOD\n",realname,name);
X	else fprintf(fp,"%s Message to %s from %s\n",realname,name,ntn[country].name);
X	fprintf(fp,"%s \n",realname);
X	y=6;
X	x=0;
X	refresh();
X	while(done==FALSE) {
X		linedone=FALSE;
X		ch=' ';
X		/*read line*/
X		while(linedone==FALSE){
X			/* check for delete or backspace */
X			if(ch=='\b' || ch=='\177'){
X				if(x>0) x--;
X				mvaddch(y,x,' ');
X				move(y,x);
X				line[x]=' ';
X				refresh();
X				ch=getch();
X			} else if(ch=='\n') linedone=TRUE;
X			else if(isprint(ch)&&(x<65)){
X				/*concatonate to end*/
X				line[x]=ch;
X				mvaddch(y,x,ch);
X				x++;
X				refresh();
X				ch=getch();
X			} else	ch=getch();
X		}
X		if (ch!='\n') {
X			mvaddch(y,x,ch);
X			line[x]=ch;
X			x++;
X		}
X		line[x]='\0';
X		if(x<=1) done=TRUE;
X		/*write to file*/
X		fprintf(fp,"%s %s\n",realname,line);
X		x=0;
X		y++;
X	}
X	fputs("END\n",fp);
X	mvprintw(20,0,"Done with messaging");
X	fclose(fp);
X}
X
X/*strategic move of civilians...once only*/
Xvoid
Xmoveciv()
X{
X	short people;
X	short i,j;
X
X	mvaddstr(LINES-1,0,"Moving civilians costs 50 per civilian");
X	if(sct[XREAL][YREAL].owner!=country){
X		mvprintw(LINES-2,0,"you do not own:  hit return");
X		clrtoeol();
X		refresh();
X		getch();
X		return;
X	}
X	else if(sct[XREAL][YREAL].people==0){
X		mvaddstr(LINES-2,0,"nobody lives here!!!:  hit return");
X		clrtoeol();
X		refresh();
X		getch();
X		makebottom();
X		return;
X	}
X
X	clear();
X	mvaddstr(0,0,"Moving civilians costs 50 per civilian");
X	mvprintw(1,0,"sector contains %d people",sct[XREAL][YREAL].people);
X	mvaddstr(2,0,"how many people to move?");
X	clrtoeol();
X	refresh();
X	people = get_number();
X	if((people<0)
X	||(people>sct[XREAL][YREAL].people)
X	||(people*50>ntn[country].tgold)){
X		mvaddstr(5,0,"Sorry...Input error or you do not have the gold");
X		clrtoeol();
X		refresh();
X		getch();
X		makebottom();
X		return;
X	}
X
X	mvprintw(5,0,"sector location is x=%d, y=%d",XREAL,YREAL);
X	mvaddstr(7,0,"what x location to move to?");
X	refresh();
X	i = get_number();
X
X	if((i-(XREAL))>2||(i-(XREAL))<-2) {
X		mvprintw(10,0,"can only move 2 sectors (you tried %hd)...--hit any key",i-(XREAL));
X		refresh();
X		getch();
X		return;
X	}
X
X	mvaddstr(10,0,"what y location to move to?");
X	clrtoeol();
X	refresh();
X	j = get_number();
X	if((j-(YREAL)>2)||((YREAL)-j>2)) {
X		mvprintw(10,0,"sorry, can only move 2 sectors (you tried %hd)...--hit any key",j-(XREAL));
X		refresh();
X		getch();
X	}
X	else if(sct[i][j].owner!=country){
X		mvaddstr(12,0,"sorry, you dont own it...");
X		clrtoeol();
X		refresh();
X		getch();
X	}
X	/*need to check move cost > 0 for sector*/
X	else if(movecost[i][j]<0){
X		mvaddstr(12,0,"you can't enter there...");
X		clrtoeol();
X		refresh();
X		getch();
X	}
X	else {
X		ntn[country].tgold-=50*people;
X		sct[XREAL][YREAL].people-=people;
X		SADJCIV;
X		sct[i][j].people+=people;
X		SADJCIV2;
X	}
X}
X
Xint
Xarmygoto()
X{
X	short armynum=0,loop=0;
X	armynum=getselunit();
X	if((armynum<0)||(armynum>MAXARM)) armynum=0;
X	else armynum++;
X	/* move to next army with > 0 soldiers*/
X	while ((armynum < MAXARM) && (ASOLD <= 0)) armynum++;
X	if(armynum >= MAXARM)  {
X		armynum=0;
X		if(ASOLD <= 0) return(0);
X	}
X	/*move to correct location*/
X	xcurs = AXLOC - xoffset;
X	ycurs = AYLOC - yoffset;
X	coffmap();
X
X	/*select correct unit*/
X	selector=0;
X	pager=0;
X	while((getselunit() != armynum) && (loop++ < 500)) {
X		selector+=2;
X		if(selector>=10) {
X			selector=0;
X			pager+=1;
X		}
X	}
X	return(1);
X}
X
Xint
Xnavygoto()
X{
X	short nvynum=0,loop=0;
X	nvynum=getselunit()-MAXARM;
X	if((nvynum<0)||(nvynum>MAXNAVY)) nvynum=0;
X	else nvynum++;
X	/* move to next nvy with > 0 soldiers*/
X	while ((nvynum < MAXNAVY) && (NMER+NWAR <= 0)) nvynum++;
X	if(nvynum >= MAXNAVY) {
X		nvynum=0;
X		if(NMER+NWAR <= 0) return(0);
X	}
X	/*move to correct location*/
X	xcurs = NXLOC - xoffset;
X	ycurs = NYLOC - yoffset;
X	coffmap();
X
X	/*select correct unit*/
X	selector=0;
X	pager=0;
X	while(((getselunit()-MAXARM) != nvynum) && (loop++ < 500)) {
X		selector+=2;
X		if(selector>=10) {
X			selector=0;
X			pager+=1;
X		}
X	}
X	return(1);
X}
END_OF_commands.c
if test 23192 -ne `wc -c <commands.c`; then
    echo shar: \"commands.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f makeworld.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"makeworld.c\"
else
echo shar: Extracting \"makeworld.c\" \(22776 characters\)
sed "s/^X//" >makeworld.c <<'END_OF_makeworld.c'
X/*conquer : Copyright (c) 1988 by Ed Barlow.
X *  I spent a long time writing this code & I hope that you respect this.
X *  I give permission to alter the code, but not to copy or redistribute
X *  it without my explicit permission.  If you alter the code,
X *  please document changes and send me a copy, so all can have it.
X *  This code, to the best of my knowledge works well,  but it is my first
X *  'C' program and should be treated as such.  I disclaim any
X *  responsibility for the codes actions (use at your own risk).  I guess
X *  I am saying "Happy gaming", and am trying not to get sued in the process.
X *                                                Ed
X */
X
X/*Create a world*/
X
X/*DEFINE TEMPORARY VARIABLES FROM MAKEFILE*/
X#include <ctype.h>
X#include <stdio.h>
X#include "header.h"
X#include "data.h"
X
X#define HALF 2
X#define LAND 3
X
Xextern short country;
Xint area_map[MAXX][MAXY];/*Value Map of Areas*/
Xint type[MAPX][MAPY];
X
X#define TOHILL(x,y)	{ \
Xsct[(x)][(y)].altitude=HILL; \
Xnmountains--; \
X}
X#define TOMT(x,y)	{ \
Xsct[(x)][(y)].altitude=MOUNTAIN; \
Xnmountains--; \
X}
X#define TOPEAK(x,y)	{ \
Xsct[(x)][(y)].altitude=PEAK; \
Xnmountains--; \
X}
X
Xvoid
Xmakeworld()
X{
X	register int i,j;
X	register int x,y;
X	int n; /*count used in string searches*/
X	float avvalue; /*Average water tvalue of sectors*/
X	int number[5]; /*Number of sectors with type=[0-4]*/
X	char passwd[12];
X	int alloc = NUMAREAS * 2;/*Value Allocated*/
X	int tplace[MAXX][MAXY] ;/*Temporary matrix to see if an area is placed*/
X	int X, Y, chance;
X	int X1,Y1;
X	int X2,Y2;
X	int valid;
X	int nmountains;
X	int rnd;
X	int tempfd;
X	char newstring[40];
X
X	/*abort if datafile currently exists*/
X	if((tempfd=open(datafile,0))!=-1) {
X		printf("ABORTING: File %s exists\n",datafile);
X		printf("\tthis means that a game is in progress. To proceed, you must remove \n");
X		printf("\tthe existing data file. This will, of course, destroy that game.\n\n");
X		exit(FAIL);
X	}
X	printf("\n**********************WELCOME TO CONQUER**********************");
X	printf("\nThe world will now be created...Your super user login will be 'god'.");
X	printf("\nNon player countries will be read from data stored in the nations file");
X	printf("\n& will have the same password as god (about to be entered). Add player");
X	printf("\nnations with the command <conquer -a>.  Have fun!!!\n");
X	printf("\nRemember to check the world out before playing to make sure");
X	printf("\nno nations are in bad positions (surrounded by water... )");
X	printf("\n******************************************************************\n\n");
X
X	printf("First, we must zero extraneous files from prior games\n");
X	sprintf(newstring,"rm %s* 2> /dev/null",exefile);
X	printf("\t%s\n",newstring);
X	system(newstring);
X	sprintf(newstring,"rm %s* 2> /dev/null",msgfile);
X	printf("\t%s\n",newstring);
X	system(newstring);
X	sprintf(newstring,"> %s 2> /dev/null",newsfile);
X	printf("\t%s\n",newstring);
X	system(newstring);
X	printf("OK This has been done, Now to set up a new world\n\n");
X
X	printf("please enter new conquer super user password (remember this!):");
X	scanf("%s",passwd);
X	getchar();
X	printf("please reenter conquer password:");
X	scanf("%s",ntn[0].passwd);
X	getchar();
X	if((strlen(ntn[0].passwd)<2)
X	||(strncmp(passwd,ntn[0].passwd,PASSLTH)!=0)) {
X		printf("\ninvalid super user password\n");
X		exit(FAIL);
X	}
X	strncpy(ntn[0].passwd,crypt(passwd,SALT),PASSLTH);
X
X	printf("\n\ncreating world\n");
X	/*initialize variables */
X	avvalue = (((float) (100-PWATER)/25.0)); /*Average water tvalue of sectors*/
X	for(i=0;i<MAXX;i++) for(j=0;j<MAXY;j++) {
X		tplace[i][j]=0;
X		area_map[i][j]=0;
X	}
X	for(i=0;i<MAPX;i++) for(j=0;j<MAPY;j++) sct[i][j].vegetation=NONE;
X
X	for(i=0;i<5;i++) number[i] = NUMAREAS/5;  /*areas with type=[i]*/
X	number[2]=NUMAREAS - 4*number[0]; /*correct for roundoff*/
X
X	/*determine # of area types to areas*/
X	for(i=0;i<250;i++) {
X		if((avvalue*NUMAREAS)>alloc) {
X			/*have not allocated high enough so Allocate more */
X			x = rand()%4;   /*0 to 3*/
X			if(number[x]>0) {
X				number[x] = number[x] - 1;
X				number[x+1] = number[x+1] + 1;
X				alloc = alloc + 1;
X			}
X		}
X		else	{
X			/*have allocated too much  Allocate less */
X			x = (rand()%4) +1; /*1 to 4*/
X			if(number[x]>0) {
X				number[x] = number[x] - 1;
X				number[x-1] = number[x-1] + 1;
X				alloc = alloc - 1;
X			}
X		}
X	}
X
X	i=0;
X	while((number[4]>0)&&(i<500)) {
X		i++;
X		/*place a full land sector anywhere but on edge*/
X		X = ((rand()%(MAXX-2))+1); /*1 to MAXX-2)*/
X		Y = ((rand()%(MAXY-2))+1); /*1 to MAXY-2)*/
X		if(tplace[X][Y] == 0) {
X			tplace[X][Y]=1;
X			area_map[X][Y]=4;
X			number[4]=number[4] - 1;
X			/*place surrounding sectors*/
X			if(tplace[X+1][Y] == 0) {
X				rnd = rand()%100 + 1; /*1 to 100*/
X				if((rnd<25) && (number[4]>0)) {
X					area_map[X+1][Y]=4;
X					number[4]=number[4]-1;
X					tplace[X+1][Y]=1;
X				}
X				if(rnd>25 && number[3]>0) {
X					area_map[X+1][Y]=3;
X					number[3]=number[3]-1;
X					tplace[X+1][Y]=1;
X				}
X			}
X			if(tplace[X-1][Y] == 0) {
X				rnd = rand()%100 + 1 ; /*(1 to 100)*/
X				if(rnd<25 && number[4]>0) {
X					area_map[X-1][Y]=4;
X					number[4]=number[4]-1;
X					tplace[X-1][Y]=1;
X				}
X				if(rnd>25 && number[3]>0) {
X					area_map[X-1][Y]=3;
X					number[3]=number[3]-1;
X					tplace[X-1][Y]=1;
X				}
X			}
X			if(tplace[X][Y+1] == 0) {
X				rnd = rand()%100 + 1 ; /*(1 to 100)*/
X				if(rnd<25 && number[4]>0) {
X					area_map[X][Y+1]=4;
X					number[4]=number[4]-1;
X					tplace[X][Y+1]=1;
X				}
X				if(rnd>25 && number[3]>0) {
X					area_map[X][Y+1]=3;
X					number[3]=number[3]-1;
X					tplace[X][Y+1]=1;
X				}
X			}
X			if(tplace[X][Y-1] == 0) {
X				rnd = rand()%100 + 1 ; /*(1 to 100)*/
X				if(rnd<25 && number[4]>0) {
X					area_map[X][Y-1]=4;
X					number[4]=number[4]-1;
X					tplace[X][Y-1]=1;
X				}
X				if(rnd>25 && number[3]>0) {
X					area_map[X][Y-1]=3;
X					number[3]=number[3]-1;
X					tplace[X][Y-1]=1;
X				}
X			}
X		}
X	}
X
X	/* place all other areas*/
X	for(X=0;X<MAXX;X++) for(Y=0;Y<MAXY;Y++) {
X		while(tplace[X][Y] == 0) {
X			rnd = rand()%5; /*(0 to 4)*/
X			if(number[rnd]>0) {
X				area_map[X][Y]=rnd;
X				number[rnd]=number[rnd]-1;
X				tplace[X][Y]=1;
X			}
X		}
X	}
X
X	/*ALL AREAS PLACED, NOW DETERMINE SECTOR TYPE
X *fill in each area with sectors
X *      1)   water
X *      2)   water with major islands (25% land)
X *      3)   50/50 water/land
X *      4)   land with major water (75% Land)
X *      5)   land
X */
X	for(Y=0;Y<MAXY;Y++) for(X=0;X<MAXX;X++) {
X		/*fill in edges*/
X		fill_edge(X,Y);
X		/*fill in center*/
X		for(i=1;i<7;i++) {
X			for(j=1;j<7;j++) switch(area_map[X][Y]){
X
X			case 0:
X				if((rand()%100) < 95) type[X*8+i][Y*8+j]=WATER;
X				else type[X*8+i][Y*8+j]=HALF;
X				break;
X			case 1:
X				if(rand()%2 == 0) type[X*8+i][Y*8+j]=WATER;
X				else type[X*8+i][Y*8+j]=HALF;
X				break;
X			case 2:
X				if (rand()%2 == 0) type[X*8+i][Y*8+j]=WATER;
X				else type[X*8+i][Y*8+j]=LAND;
X				break;
X			case 3:
X				if (rand()%2 == 0) type[X*8+i][Y*8+j]=LAND;
X				else type[X*8+i][Y*8+j]=HALF;
X				break;
X			case 4:
X				if ((rand()%100) < 95) type[X*8+i][Y*8+j]=LAND;
X				else type[X*8+i][Y*8+j]=HALF;
X				break;
X			default:
X				printf("ERROR");
X			}
X		}
X	}
X
X	/*calculate all 50% areas*/
X	for(X=0;X<MAPX;X++) for(Y=0;Y<MAPY;Y++) {
X		if(type[X][Y] == HALF)
X			if(rand()%100 >= (100-PWATER)) {
X				type[X][Y] = LAND;
X			}
X			else type[X][Y] = WATER;
X	}
X
X	chance=0;
X	for(X=0;X<MAPX;X++) for(Y=0;Y<MAPY;Y++)
X		if(type[X][Y] == WATER) chance++;
X	printf("amount of water is %d / %d sectors\n",chance,MAPX*MAPY);
X
X	/*Newly added code to smooth the world out*/
X	for(X=1;X<MAPX-1;X++) for(Y=1;Y<MAPY-1;Y++) {
X		chance = 0;
X		/*count # of land and sea sides*/
X		for(i=X-1;i<=X+1;i++) for(j=Y-1;j<=Y+1;j++)
X			if(type[i][j] == LAND) chance++;
X		if(rand()%9 < chance) type[X][Y] = LAND;
X		else type[X][Y] = WATER;
X	}
X	chance=0;
X	for(X=0;X<MAPX;X++) for(Y=0;Y<MAPY;Y++)
X		if(type[X][Y] == WATER) chance++;
X	printf("smoothing...amount of water is %d / %d sectors\n",chance,MAPX*MAPY);
X
X	/*Adjust world given sectors as land or sea, place vegetation,
X	designation, and altitude */
X
X	for(i=0;i<MAPX;i++) for(j=0;j<MAPY;j++)
X		if(type[i][j]==LAND) sct[i][j].altitude = CLEAR;
X		else sct[i][j].altitude = WATER;
X
X	/*place  */
X	nmountains= MAPX * MAPY * PMOUNT * ( 100-PWATER ) / (100*100);
X	printf("%d mountains to be placed",nmountains);
X
X	/* heuristic says that 5 is cutoff number to stop placing ranges */
X	while(nmountains>(NUMAREAS*3*PWATER/100)+5) {
X		/*Place one range randomly*/
X		X1 = rand()%(MAPX-6);
X		Y1 = rand()%(MAPY-6);
X		if((type[X1][Y1]==LAND)
X		&&(type[X1+1][Y1+1]==LAND)
X		&&(type[X1+1][Y1]==LAND)
X		&&(type[X1][Y1+1]==LAND)
X		&&(type[X1+2][Y1+2]==LAND)) {
X			/*place second endpoint */
X			valid = FALSE;
X			i=0;
X			while((valid==FALSE) && (i<500)) {
X				i++;
X				X2 = (rand()%7) + X1;
X				Y2 = (rand()%7) + Y1;
X				if(type[X2][Y2] == LAND) {
X					valid = TRUE;
X					/*fill in mountain range*/
X					for(x=X1;x<=X2;x++) {
X						if(X1<X2)
X						y=((Y2-Y1)*(x-X1)/(X2-X1))+Y1;
X						else y=Y1;
X						if(type[x][y] == LAND){
X							if(rand()%100>80) {
X								TOPEAK(x,y);
X							}
X							else {
X								TOMT(x,y)
X							}
X						}
X						if((y < MAPY - 1)
X						&& type[x][y+1] == LAND) {
X							rnd=rand()%100+1;
X							if(rnd>90) {
X								TOPEAK(x,y+1);
X							}
X							else if(rnd>50) {
X								TOMT(x,y+1);
X							}
X							else if(rnd>20) {
X								TOHILL(x,y+1);
X							}
X						}
X						if((y!=0)
X						&& type[x][y-1] == LAND ) {
X							rnd=rand()%100+1;
X							if(rnd>90) {
X								TOPEAK(x,y-1);
X							} else
X							if(rnd>50) {
X								TOMT(x,y-1);
X							} else
X							if(rnd>20) {
X								TOHILL(x,y-1);
X							}
X						}
X						if((y>=2)
X						&&(type[x][y-2] == LAND )) {
X							rnd=rand()%100+1;
X							if(rnd>90) {
X								TOMT(x,y-2);
X							} else {
X								if(rnd>50) TOHILL(x,y-2);
X							}
X						}
X						if((y < MAPY - 2)
X						&&(type[x][y+2] == LAND )) {
X							rnd=rand()%100+1;
X							if(rnd>90) {
X								TOMT(x,y+2);
X							} else if(rnd>50) {
X								TOHILL(x,y+2);
X							}
X						}
X					}
X				}
X			}
X		}
X	}
X
X	/*fill in random hills to work out,not to left of to water*/
X	while(nmountains>0) {
X		x = rand()%(MAPX-1);
X		y = rand()%(MAPY-1);
X		if((type[x][y]==LAND)&&(type[x+1][y]==LAND))
X			TOHILL(x,y);
X	}
X
X	/*make sure no peak or mountain is next to water*/
X	for(y=1;y<MAPY-1;y++) for(x=1;x<MAPX-1;x++)
X		if((sct[x][y].altitude==PEAK)
X		||(sct[x][y].altitude==MOUNTAIN))
X			for(i=0;i<=2;i++) for(j=0;j<=2;j++)
X				if(sct[x+i-1][y+j-1].altitude==WATER)
X					sct[x][y].altitude=HILL;
X
X	/*FIGURE OUT SECTOR VEGETATION TYPE
X *use sector.altitude, and sector to determine vegetation
X *from water is distance from nearest water
X */
X
X	for(x=0;x<MAPX;x++) for(y=0;y<MAPY;y++)
X		if(type[x][y]==LAND)
X		{
X			sct[x][y].vegetation=(*(veg+3+rand()%5));
X			/*if hill then decrement vegetation*/
X			if(sct[x][y].altitude==HILL) {
X				for(n=3;n<9;n++)
X					if(sct[x][y].vegetation==(*(veg+n)))
X						sct[x][y].vegetation=(*(veg+n-1));
X				if(area_map[x/8][y/8]<=1) sct[x][y].vegetation=VOLCANO;
X			}
X			else if(sct[x][y].altitude==MOUNTAIN)
X				if((rand()%6==4)&&((y>MAPY/2+8)||(y<MAPY/2-8)))
X					sct[x][y].vegetation=ICE;
X				else sct[x][y].vegetation=(*(veg+2+rand()%3));
X			else if(sct[x][y].altitude==PEAK)
X				if((rand()%3==0)&&((y>MAPY/2+8)||(y<MAPY/2-8)))
X					sct[x][y].vegetation=ICE;
X				else sct[x][y].vegetation=VOLCANO;
X		}
X
X	/*REWORK POLEAR/EQUATORIAL sector.vegetation*/
X	/*Determine which areas are North Pole and Equatorial*/
X	/*char veg[]="VDW46973JSI~"*/
X	/*char veg[]="VDWBLGWFJSI~"*/
X	/*               012345678901*/
X
X	/*polar work*/
X	for(x=0;x<MAPX;x++)
X	{
X		for(y=0;y<6;y++) if(type[x][y]==LAND)
X		{
X			if(rand()%4 == 0) sct[x][y].vegetation = ICE;
X			else for(n=3;n<10;n++)
X				if(sct[x][y].vegetation==(*(veg+n)))
X					sct[x][y].vegetation=(*(veg+(n-1)));
X		}
X		for(y=MAPY-7;y<MAPY;y++) if(type[x][y]==LAND)
X		{
X			if(rand()%4 == 0) sct[x][y].vegetation = ICE;
X			else for(n=3;n<10;n++)
X				if(sct[x][y].vegetation==(*(veg+n)) )
X					sct[x][y].vegetation=(*(veg+(n-1)));
X		}
X	}
X
X	/*insert equator*/
X	for(y=(MAPY/2)-8;y<=(MAPY/2)+8;y++) for(x=0;x<MAPX;x++)
X		if(type[x][y]==LAND)
X			if(rand()%10 ==0) sct[x][y].vegetation=DESERT;
X			/*increment vegetation if between Waste and Jungle*/
X			else for(n=2;n<9;n++)
X				if((sct[x][y].vegetation==(*(veg+n)))
X				&&(sct[x][y].altitude==CLEAR)
X				&&(rand()%4==0))
X				sct[x][y].vegetation=(*(veg+(n+1)));
X
X	/*char veg[]="VDW46973JSI~"*/
X	/*char veg[]="VDWBLGWFJSI~"*/
X	/*               012345678901*/
X
X	for(y=((MAPY/2)-2);y<=((MAPY/2)+2);y++) for(x=0;x<MAPX;x++)
X		if((type[x][y]==LAND)&&(sct[x][y].altitude==CLEAR))
X			if(rand()%10 == 0) sct[x][y].vegetation=DESERT;
X			else if(rand()%10 == 0) sct[x][y].vegetation=JUNGLE;
X			else if(rand()%10 == 0) sct[x][y].vegetation=SWAMP;
X			/*increment vegetation again, but only Waste to Light*/
X			else for(n=2;n<4;n++)
X				if(sct[x][y].vegetation==(*(veg+n)))
X					sct[x][y].vegetation=(*(veg+(n+1)));
X
X	/*expand swamps*/
X	for(y=2;y<MAPY;y++) for(x=2;x<MAPX;x++)
X		if(sct[x][y].vegetation==SWAMP)
X			for(i=0;i<2;i++) for(j=0;j<2;j++)
X				if((type[x-i][y-j]==LAND)&&((rand()%3)==0))
X					sct[x-i][y-j].vegetation=SWAMP;
X	/*expand deserts*/
X	for(y=2;y<MAPY;y++) for(x=2;x<MAPX;x++)
X		if(sct[x][y].vegetation==DESERT)
X			for(i=0;i<2;i++) for(j=0;j<2;j++)
X				if((type[x-i][y-j]==LAND)&&((rand()%3)==0))
X					sct[x-i][y-j].vegetation=DESERT;
X
X	/*change all volcanos to peaks */
X	for(y=1;y<MAPY;y++) for(x=1;x<MAPX;x++)
X		if(sct[x][y].vegetation==VOLCANO) sct[x][y].altitude=PEAK;
X
X	/*make sure no desert is next to water*/
X	for(y=1;y<MAPY-1;y++) for(x=1;x<MAPX-1;x++)
X		if(sct[x][y].vegetation==DESERT)
X			for(i=0;i<=2;i++) for(j=0;j<=2;j++)
X				if(sct[x+i-1][y+j-1].altitude==WATER)
X					sct[x][y].vegetation=LT_VEG;
X
X	/*PLACE EACH SECTOR'S RAW MATERIALS */
X
X	printf("\nplacing raw materials\n");
X	for(y=0;y<MAPY;y++) for(x=0;x<MAPX;x++) {
X
X		/*gold*/
X		if(rand()%10==0) sct[x][y].gold=rand()%4+4;
X		else if(rand()%4==0) sct[x][y].gold=rand()%4;
X		else sct[x][y].gold=0;
X
X		/*iron*/
X		if(rand()%10==0) sct[x][y].iron=rand()%4+4;
X		else if(rand()%4==0) sct[x][y].iron=rand()%4;
X		else sct[x][y].iron=0;
X
X		/*default designations*/
X		sct[x][y].designation=DNODESIG;
X
X		/*default owner is unowned*/
X		sct[x][y].owner=0;
X	}
X	printf("populating world\n");
X	populate();
X	close(tempfd);
X	writedata();
X}
X
X/*fill: subroutine to fill in a square edges with land or sea*/
Xvoid
Xfill_edge(AX,AY)
X{
X/*      1)   water
X *      2)   water with major islands (25% land)
X *      3)   50/50 water/land
X *      4)   land with major water (75% Land)
X *      5)   land
X */
X	register int i;
X	int edgearea, X0, Y0, X1, Y1, X2, Y2, X3, Y3, X4, Y4;
X	int area;
X
X	X0=AX;
X	Y0=AY;
X	X1=X0-1;
X	Y1=Y0;
X	X2=X0+1;
X	Y2=Y0;
X	X3=X0;
X	Y3=Y0-1;
X	X4=X0;
X	Y4=Y0+1;
X
X	/*NORMALIZE FOR EDGE OF WORLD*/
X	if( X1 < 0 ) X1 = MAXX - 1;
X	if( X2 >= MAXX ) X2 = 0;
X	if( Y3 < 0 ) Y3 = MAXY - 1;
X	if( Y4 >= MAXY ) Y4 = 0;
X
X	area=area_map[X0][Y0];
X	/*fill in south*/
X	edgearea=area_map[X4][Y4];
X	if(area + edgearea > 6) for(i=0;i<8;i++) type[X0*8+i][Y0*8+7] = LAND;
X	else if((area + edgearea)>3) {
X		for(i=0;i<8;i++)
X			if(rand()%2 == 0) type[(X0*8)+i][Y0*8+7] = LAND;
X			else type[(X0*8)+i][Y0*8+7] = WATER;
X	}
X	else for(i=0;i<8;i++) type[(X0*8)+i][Y0*8+7] = WATER;
X	/*fill in east*/
X	edgearea=area_map[X2][Y2];
X	if(area + edgearea > 6) for(i=0;i<8;i++) type[X0*8+7][Y0*8+i] = LAND;
X	else if((area + edgearea)>3) {
X		for(i=0;i<8;i++)
X			if(rand()%2==0) type[X0*8+7][Y0*8+i] = LAND;
X			else type[X0*8+7][Y0*8+i] = WATER;
X	}
X	else for(i=0;i<8;i++) type[X0*8+7][Y0*8+i] = WATER;
X	/*fill in west*/
X	edgearea=area_map[X1][Y1];
X	if(area + edgearea > 6) for(i=0;i<=7;i++) type[X0*8][Y0*8+i] = LAND;
X	else if((area + edgearea)>3) {
X		for(i=0;i<8 ;i++)
X			if(rand()%2==0) type[X0*8][Y0*8+i] = LAND;
X			else type[X0*8][Y0*8+i] = WATER;
X	}
X	else for(i=0;i<8 ;i++) type[X0*8][Y0*8+i] = WATER;
X	/*fill in north*/
X	edgearea=area_map[X3][Y3];
X	if(area + edgearea > 6) for(i=0;i<8 ;i++) type[X0*8+i][Y0*8] = LAND;
X	else if((area + edgearea)>3) {
X		for(i=0;i<8 ;i++)
X			if(rand()%2==0) type[(X0*8)+i][Y0*8] = LAND;
X			else type[(X0*8)+i][Y0*8] = WATER;
X	}
X	else for(i=0;i<8 ;i++) type[(X0*8)+i][Y0*8] = WATER;
X}
X
X/* ALLOCATE POPULATIONS OF THE WORLD*/
Xvoid
Xpopulate()
X{
X	int i=0,x=0,y=0,j=0;
X	int nvynum=0,army2num=0,armynum=0;
X	int temp;
X	int cnum=0;
X	FILE *fp, *fopen();
X	int done=FALSE;
X	char line[80];
X
X
X	/*randomly scatter lizard city (want in DESERTS/swamp/Ice) */
X	/*don't reproduce. Their cities are fortified and stockpiled */
X#ifdef LZARD
X	strncpy(ntn[NLIZARD].name,"lizard",10);
X	strncpy(ntn[NLIZARD].leader,"dragon",10);
X	strcpy(ntn[NLIZARD].passwd,ntn[0].passwd);
X	ntn[NLIZARD].race=LIZARD;
X	ntn[NLIZARD].mark='*';
X	ntn[NLIZARD].active=2;
X	ntn[NLIZARD].aplus=0;
X	ntn[NLIZARD].dplus=0;
X	ntn[NLIZARD].maxmove=0;
X	ntn[NLIZARD].repro=0;
X	ntn[NLIZARD].powers=KNOWALL;
X	for(i=0;i<NTOTAL;i++) if(i!=NLIZARD) {
X		ntn[NLIZARD].dstatus[i]=WAR;
X		ntn[i].dstatus[NLIZARD]=WAR;
X	}
X
X	armynum=0;
X	country=NLIZARD;
X	/* adjustment to make sure that fair amount of lizards are */
X	/* created on the map ... but not too many... */
X	while(armynum<(min((MAXARM-2),(MAXARM-2) * MAPX * MAPY / 10000 ))){
X		x = (rand()%MAPX);
X		y = (rand()%MAPY);
X		if(armynum>=MAXARM) break;
X		if (is_habitable(x,y)) {
X			sct[x][y].designation = DCASTLE;
X			sct[x][y].fortress = 5+rand()%5;
X			sct[x][y].gold = 15+rand()%20;
X			for(i=x-1;i<=x+1;i++) for(j=y-1;j<=y+1;j++)
X				if(i>=0&&j>=0&&i<MAPX&&j<MAPY)
X					if(sct[i][j].altitude!=WATER)
X						sct[i][j].owner = NLIZARD;
X			AMOVE=0;
X			AXLOC=x;
X			AYLOC=y;
X			ASTAT=GARRISON;
X			ASOLD=750+100*(rand()%10);
X			ATYPE=A_INFANTRY;
X			armynum++;
X			AMOVE=8;
X			AXLOC=x;
X			AYLOC=y;
X			ASTAT=ATTACK;
X			ASOLD=750+100*(rand()%10);
X			ATYPE=A_INFANTRY;
X			armynum++;
X		}
X	}
X	printf("%d lizards placed\n",armynum/2);
X#endif
X
X	/* Place Brigands, Barbarians, and Nomads*/
X#ifdef MONSTER
X	armynum=0;
X	army2num=0;
X	strcpy(ntn[NBARBARIAN].name,"bbarian");
X	strcpy(ntn[NBARBARIAN].leader,"shaman");
X	strcpy(ntn[NBARBARIAN].passwd,ntn[0].passwd);
X	ntn[NBARBARIAN].race=BARBARIAN;
X	ntn[NBARBARIAN].powers=KNOWALL;
X	ntn[NBARBARIAN].mark='*';
X	ntn[NBARBARIAN].active=2;
X	ntn[NBARBARIAN].aplus=0;
X	ntn[NBARBARIAN].dplus=10;
X	ntn[NBARBARIAN].maxmove=4;
X	ntn[NBARBARIAN].repro=5;
X	for(i=0;i<NTOTAL;i++) if(i!=NBARBARIAN) {
X		ntn[NBARBARIAN].dstatus[i]=WAR;
X		ntn[i].dstatus[NBARBARIAN]=WAR;
X	}
X	ntn[NBARBARIAN].dstatus[NBARBARIAN]=NEUTRAL;
X
X	strcpy(ntn[NNOMAD].name,"nomad");
X	strcpy(ntn[NNOMAD].leader,"khan");
X	strcpy(ntn[NNOMAD].passwd,ntn[0].passwd);
X	ntn[NNOMAD].powers=KNOWALL;
X	ntn[NNOMAD].race=NOMAD;
X	ntn[NNOMAD].mark='*';
X	ntn[NNOMAD].active=2;
X	ntn[NNOMAD].aplus=10;
X	ntn[NNOMAD].dplus=0;
X	ntn[NNOMAD].maxmove=4;
X	ntn[NNOMAD].repro=5;
X	for(i=0;i<NTOTAL;i++) if(i!=NNOMAD) {
X		ntn[NNOMAD].dstatus[i]=WAR;
X		ntn[i].dstatus[NNOMAD]=WAR;
X	}
X	ntn[NNOMAD].dstatus[NNOMAD]=NEUTRAL;
X
X	strcpy(ntn[NPIRATE].name,"pirate");
X	strcpy(ntn[NPIRATE].leader,"captain");
X	strcpy(ntn[NPIRATE].passwd,ntn[0].passwd);
X	ntn[NPIRATE].powers=KNOWALL;
X	ntn[NPIRATE].race=PIRATE;
X	ntn[NPIRATE].mark='*';
X	ntn[NPIRATE].active=2;
X	ntn[NPIRATE].aplus=20;
X	ntn[NPIRATE].dplus=0;
X	ntn[NPIRATE].maxmove=4;
X	ntn[NPIRATE].repro=5;
X	for(i=0;i<NTOTAL;i++) if(i!=NPIRATE) {
X		ntn[NPIRATE].dstatus[i]=WAR;
X		ntn[i].dstatus[NPIRATE]=WAR;
X	}
X	ntn[NPIRATE].dstatus[NPIRATE]=NEUTRAL;
X
X	temp=(rand()%10+1)*(rand()%10+1);
X	for(i=0;i<temp;i++){
X		/*50% chance will be on edge, else anywhere*/
X		if(rand()%2==0){
X			if(rand()%2==0) {
X				x=(rand()%20);
X				y=(rand()%20);
X			}
X			else {
X				x=(MAPX-(rand()%20)-1);
X				y=(MAPY-(rand()%20)-1);
X			}
X			if(rand()%2==0) x = rand()%MAPX;
X			else y = rand()%MAPY;
X		}
X		else {
X			x = rand()%MAPX;
X			y = rand()%MAPY;
X		}
X
X		/* now place people*/
X		if (is_habitable(x,y)&&sct[x][y].owner==0) {
X			if(rand()%2==0) {
X				sct[x][y].owner = NBARBARIAN;
X				country=NBARBARIAN;
X				AXLOC=x;
X				AYLOC=y;
X				ASTAT=ATTACK;
X				ASOLD=200+100*(rand()%10);
X				ATYPE=A_INFANTRY;
X				if(armynum<MAXARM-1) armynum++;
X			}
X			else {
X				sct[x][y].owner = NNOMAD;
X				ntn[NNOMAD].arm[army2num].xloc=x;
X				ntn[NNOMAD].arm[army2num].yloc=y;
X				ntn[NNOMAD].arm[army2num].stat=ATTACK;
X				ntn[NNOMAD].arm[army2num].sold=100+100*(rand()%15);
X				ntn[NNOMAD].arm[army2num].unittyp=A_CAVALRY;
X				if(army2num<MAXARM-1) army2num++;
X			}
X		}
X		else if(nvynum<MAXNAVY) {
X			country=NPIRATE;
X			NXLOC=x;
X			NYLOC=y;
X			NWAR=2*(1+rand()%10);
X			NCREW=NWAR*SHIPCREW;
X			nvynum++;
X		}
X	}
X	printf("all random population placed\n");
X#endif
X
X	/*set up god but dont place*/
X	strcpy(ntn[0].name,"unowned");
X	strcpy(ntn[0].leader,"god");
X	ntn[cnum].race=GOD;
X	ntn[cnum].mark='-';
X	ntn[cnum].active=0;
X	ntn[cnum].location=GOD;
X	ntn[cnum].powers=KNOWALL;
X	cnum++;
X
X	if ((fp=fopen(helpfile,"r"))==NULL) {
X		printf("\terror on read of %s file\n",helpfile);
X		printf("\tdo you wish to use default help file (y or n)?");
X		if(getchar()=='y'){
X		sprintf(line,"cp %s/%s %s",DEFAULTDIR,helpfile,helpfile);
X		printf("\n%s\n",line);
X		system(line);
X		} else {
X			printf("\nOK; no NPC nations used\n");
X			return;
X		}
X		getchar();
X	}
X
X#ifdef NPC
X
X	/*open npcsfile file*/
X	if ((fp=fopen(npcsfile,"r"))==NULL) {
X		printf("error on read of %s file\n",npcsfile);
X		printf("do you wish to use default NPC nations file (y or n)?");
X		if(getchar()=='y'){
X		sprintf(line,"%s/%s",DEFAULTDIR,npcsfile);
X		if ((fp=fopen(line,"r"))==NULL) {
X			printf("\nsorry; error on read of %s file\n",line);
X			return;
X		} else printf("\nOK; default nations used\n");
X		} else {
X			printf("\nOK; no NPC nations used\n");
X			return;
X		}
X	}
X	else printf("reading npc nation data from file: %s\n",npcsfile);
X
X	cnum=1;
X	/*set up npc nation*/
X	if(fgets(line,80,fp)==NULL) done=TRUE;
X	while(done==FALSE) {
X		/*read and parse a new line*/
X		if(line[0]!='#') {
X			sscanf(line,"%s %s %c %c %c %hd %hd %hd %ld %ld %ld %hd %hd",
X			ntn[cnum].name,ntn[cnum].leader,&ntn[cnum].race,
X			&ntn[cnum].mark,&ntn[cnum].location,&ntn[cnum].aplus,
X			&ntn[cnum].dplus,&ntn[cnum].maxmove,&ntn[cnum].tgold,
X			&ntn[cnum].tmil,&ntn[cnum].tciv,&ntn[cnum].repro,
X			&ntn[cnum].active);
X			ntn[cnum].active++;
X			ntn[cnum].class=0;
X			strcpy(ntn[cnum].passwd,ntn[0].passwd);
X			country=cnum;
X			if(ntn[country].race==HUMAN){
X				ntn[country].powers=WARRIOR;
X				exenewmgk(WARRIOR);
X			}
X			else if(ntn[country].race==DWARF){
X				ntn[country].powers=MINER;
X				exenewmgk(MINER);
X			}
X			else if(ntn[country].race==ELF){
X				ntn[country].powers=THE_VOID;
X				exenewmgk(THE_VOID);
X			}
X			else if(ntn[country].race==ORC){
X				ntn[country].powers=MI_MONST;
X				exenewmgk(MI_MONST);
X			}
X			else ntn[country].powers=WARRIOR;
X			ntn[country].tfood= ntn[country].tciv * 3;
X			ntn[country].tiron=10000L;
X			ntn[country].jewels=10000L;
X			printf("\tnation %d: %s",cnum,line);
X			cnum++;
X			place();
X		}
X		if(fgets(line,80,fp)==NULL) done=TRUE;
X	}
X	printf("all npc nations placed\n");
X#endif
X}
END_OF_makeworld.c
if test 22776 -ne `wc -c <makeworld.c`; then
    echo shar: \"makeworld.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 4 \(of 8\).
cp /dev/null ark4isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 8 archives.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0