--- /dev/null
+/* $Id$ - (c) Copyright 1987, 1988 Chuck Simmons */
+
+/*
+ * Copyright (C) 1987, 1988 Chuck Simmons
+ *
+ * See the file COPYING, distributed with empire, for restriction
+ * and warranty information.
+ */
+
+/*
+extern.h -- define global non-constant storage.
+*/
+
+/* user-supplied parameters */
+int SMOOTH; /* number of times to smooth map */
+int WATER_RATIO; /* percentage of map that is water */
+int MIN_CITY_DIST; /* cities must be at least this far apart */
+int delay_time;
+
+real_map_t map[MAP_SIZE]; /* the way the world really looks */
+view_map_t comp_map[MAP_SIZE]; /* computer's view of the world */
+view_map_t user_map[MAP_SIZE]; /* user's view of the world */
+
+city_info_t city[NUM_CITY]; /* city information */
+
+/*
+There is one array to hold all allocated objects no matter who
+owns them. Objects are allocated from the array and placed on
+a list corresponding to the type of object and its owner.
+*/
+
+piece_info_t *free_list; /* index to free items in object list */
+piece_info_t *user_obj[NUM_OBJECTS]; /* indices to user lists */
+piece_info_t *comp_obj[NUM_OBJECTS]; /* indices to computer lists */
+piece_info_t object[LIST_SIZE]; /* object list */
+
+/* Display information. */
+int lines; /* lines on screen */
+int cols; /* columns on screen */
+
+/* constant data */
+extern piece_attr_t piece_attr[];
+extern int dir_offset[];
+extern char *func_name[];
+extern int move_order[];
+extern char type_chars[];
+extern char tt_attack[];
+extern char army_attack[];
+extern char fighter_attack[];
+extern char ship_attack[];
+
+extern move_info_t tt_load;
+extern move_info_t tt_explore;
+extern move_info_t tt_unload;
+extern move_info_t army_fight;
+extern move_info_t army_load;
+extern move_info_t fighter_fight;
+extern move_info_t ship_fight;
+extern move_info_t ship_repair;
+extern move_info_t user_army;
+extern move_info_t user_army_attack;
+extern move_info_t user_fighter;
+extern move_info_t user_ship;
+extern move_info_t user_ship_repair;
+
+extern char *help_cmd[];
+extern char *help_edit[];
+extern char *help_user[];
+extern int cmd_lines;
+extern int edit_lines;
+extern int user_lines;
+
+/* miscellaneous */
+long date; /* number of game turns played */
+char automove; /* TRUE iff user is in automove mode */
+char resigned; /* TRUE iff computer resigned */
+char debug; /* TRUE iff in debugging mode */
+char print_debug; /* TRUE iff we print debugging stuff */
+char print_vmap; /* TRUE iff we print view maps */
+char trace_pmap; /* TRUE if we are tracing pmaps */
+int win; /* set when game is over */
+char jnkbuf[STRSIZE]; /* general purpose temporary buffer */
+char save_movie; /* TRUE iff we should save movie screens */
+int user_score; /* "score" for user and computer */
+int comp_score;
+
+/* Screen updating macros */
+#define display_loc_u(loc) display_loc(USER,user_map,loc)
+#define display_loc_c(loc) display_loc(COMP,comp_map,loc)
+#define print_sector_u(sector) print_sector(USER,user_map,sector)
+#define print_sector_c(sector) print_sector(COMP,comp_map,sector)
+#define loc_row(loc) ((loc)/MAP_WIDTH)
+#define loc_col(loc) ((loc)%MAP_WIDTH)
+#define row_col_loc(row,col) ((long)((row)*MAP_WIDTH + (col)))
+#define sector_row(sector) ((sector)%SECTOR_ROWS)
+#define sector_col(sector) ((sector)/SECTOR_ROWS)
+#define row_col_sector(row,col) ((int)((col)*SECTOR_ROWS+(row)))
+
+#define loc_sector(loc) \
+ row_col_sector(loc_row(loc)/ROWS_PER_SECTOR, \
+ loc_col(loc)/COLS_PER_SECTOR)
+
+#define sector_loc(sector) row_col_loc( \
+ sector_row(sector)*ROWS_PER_SECTOR+ROWS_PER_SECTOR/2, \
+ sector_col(sector)*COLS_PER_SECTOR+COLS_PER_SECTOR/2)
+
+/* global routines */
+
+void empire();
+
+void attack();
+void comp_move();
+void user_move();
+void edit();
+
+/* map routines */
+void vmap_cont();
+void rmap_cont();
+void vmap_mark_up_cont();
+scan_counts_t vmap_cont_scan();
+scan_counts_t rmap_cont_scan();
+int map_cont_edge();
+long vmap_find_aobj();
+long vmap_find_wobj();
+long vmap_find_lobj();
+long vmap_find_lwobj();
+long vmap_find_wlobj();
+long vmap_find_dest();
+void vmap_prune_explore_locs();
+void vmap_mark_path();
+void vmap_mark_adjacent();
+void vmap_mark_near_path();
+long vmap_find_dir();
+int vmap_count_adjacent();
+int vmap_shore();
+int rmap_shore();
+int vmap_at_sea();
+int rmap_at_sea();
+
+void kill_display(); /* display routines */
+void sector_change();
+int cur_sector();
+long cur_cursor();
+void display_loc();
+void display_locx();
+void print_sector();
+int move_cursor();
+void print_zoom();
+void print_pzoom();
+void print_xzoom();
+void display_score();
+
+void init_game(); /* game routines */
+void save_game();
+int restore_game();
+void save_movie_screen();
+void replay_movie();
+
+void get_str(); /* input routines */
+void get_strq();
+char get_chx();
+int getint();
+char get_c();
+char get_cq();
+int getyn();
+int get_range();
+
+void rndini(); /* math routines */
+long irand();
+int dist();
+int sqrt();
+
+int find_nearest_city();
+city_info_t *find_city(); /* object routines */
+piece_info_t *find_obj();
+piece_info_t *find_nfull();
+long find_transport();
+piece_info_t *find_obj_at_loc();
+int obj_moves();
+int obj_capacity();
+void kill_obj();
+void kill_city();
+void produce();
+void move_obj();
+void move_sat();
+int good_loc();
+void embark();
+void disembark();
+void describe_obj();
+void scan();
+void scan_sat();
+void set_prod();
+
+/* terminal routines */
+void pdebug();
+void topini();
+void clreol();
+void topmsg();
+void prompt();
+void error();
+void info();
+void comment();
+void extra();
+void huh();
+void help();
+void set_need_delay();
+
+/* utility routines */
+void ttinit();
+void redraw();
+void clear_screen();
+void delay();
+void close_disp();
+void pos_str();
+void addprintf();
+void assert();
+void empend();
+void ver();
+char upper();
+void tupper();
+void check();
+
+/* randon routines we use */
+long time();
+void exit();
+void perror();
+void srand();
+char *strcpy();
--- /dev/null
+/* $Id$ - (c) Copyright 1987, 1988 Chuck Simmons */
+
+/*
+ * Copyright (C) 1987, 1988 Chuck Simmons
+ *
+ * See the file COPYING, distributed with empire, for restriction
+ * and warranty information.
+ */
+
+/*
+main.c -- parse command line for empire
+
+options:
+
+ -w water: percentage of map that is water. Must be in the range
+ 10..90. Default is 70.
+
+ -s smooth: amount of smoothing performed to generate map. Must
+ be a nonnegative integer. Default is 5.
+
+ -d delay: number of milliseconds to delay between output.
+ default is 2000 (2 seconds).
+*/
+
+#include <stdio.h>
+#include "empire.h"
+#include "extern.h"
+
+#define OPTFLAGS "w:s:d:"
+
+main (argc, argv)
+int argc;
+char *argv[];
+{
+ int c;
+ extern char *optarg;
+ extern int optind;
+ extern int opterr; /* set to 1 to suppress error msg */
+ int errflg = 0;
+ int wflg, sflg, dflg;
+ int land;
+
+ wflg = 70; /* set defaults */
+ sflg = 5;
+ dflg = 2000;
+
+ /*
+ * extract command line options
+ */
+
+ while ((c = getopt (argc, argv, OPTFLAGS)) != EOF) {
+ switch (c) {
+ case 'w':
+ wflg = atoi (optarg);
+ break;
+ case 's':
+ sflg = atoi (optarg);
+ break;
+ case 'd':
+ dflg = atoi (optarg);
+ break;
+ case '?': /* illegal option? */
+ errflg++;
+ break;
+ }
+ }
+ if (errflg || (argc-optind) != 0) {
+ (void) printf ("empire: usage: empire [-w water] [-s smooth] [-d delay]\n");
+ exit (1);
+ }
+
+ if (wflg < 10 || wflg > 90) {
+ (void) printf ("empire: -w argument must be in the range 0..90.\n");
+ exit (1);
+ }
+ if (sflg < 0) {
+ (void) printf ("empire: -s argument must be greater or equal to zero.\n");
+ exit (1);
+ }
+
+ if (dflg < 0 || dflg > 30000) {
+ (void) printf ("empire: -d argument must be in the range 0..30000.\n");
+ exit (1);
+ }
+
+ SMOOTH = sflg;
+ WATER_RATIO = wflg;
+ delay_time = dflg;
+
+ /* compute min distance between cities */
+ land = MAP_SIZE * (100 - WATER_RATIO) / 100; /* available land */
+ land /= NUM_CITY; /* land per city */
+ MIN_CITY_DIST = sqrt (land); /* distance between cities */
+
+ empire (); /* call main routine */
+ return (0);
+}
projects / vms-empire.git / commitdiff