/*
     mars.c
 */

/*
  Modified for dogfight overseeing by Jeff Nelson (jn).
  Based on puck.c of 2.01pl5 on Jan 7 1993.

  Modified for use with guzzler code by Michael Kantner (MK)
  Base upon code ftp'd from hobbes.ksu.ksu.edu on 9-9-93
  Please mail all bugs, patches, comments to kantner@hot.caltech.edu
*/

#include "copyright.h"
#include <stdio.h>
#include <sys/types.h>
#include <sys/time.h>
#include <signal.h>
#include <setjmp.h>
#include "defs.h"
#include "struct.h"
#include "data.h"
#include "marsdefs.h"

#define DOG_STATS	".dog_players"

char DogStats[256];

extern int redrawall;
extern int lastm;

char *roboname="Mars";

/* lots of neat flags */
int debug;
int oldmctl=0;			/* was "level", for monitoring messages */
int practice;			/* don't interfere with live game */
int length = 9999999;		/* Number of games to play */
struct planet *oldplanets;	/* for restoring galaxy */

int target;			/* Terminator's target 7/27/91 TC */
int phrange;			/* phaser range 7/31/91 TC */
int trrange;			/* tractor range 8/2/91 TC */

/* velocities 8/9/91 TC */

int dogslow;			/* dodge speed (hard turn) */
int dogfast;			/* dodge speed (soft turn) */
int runslow;			/* run speed (flat etemp) */
int runfast;			/* run speed (gain etemp) */
int closeslow;			/* approach speed (hard turn) */
int closefast;			/* approach speed (soft turn) */

void cleanup();

greeting()
{
	printf("****************************************\n");
	printf("                  WARNING!!\n");
	printf(" This version of the dog-fight robot can\n");
	printf("not save player stats. This is currently\n");
	printf("in development. Any suggestions on which\n");
	printf("stats you would like to see saved can be\n");
	printf("sent to: server@ecst.csuchico.edu\n");
	printf("****************************************\n");
}

main(argc, argv)
int argc;
char **argv;
{
    void marsmove();
    int team = 4;
    int pno;
    int class;			/* ship class 8/9/91 TC */

    getpath();                  /* added 11/6/92 DRG, 9/9/93 MK */    
    class = STARBASE;
    target = -1;		/* no target 7/27/91 TC */
    for( ; argc>1 && argv[1][0]=='-'; argc--,argv++) {
	switch(argv[1][1]) {
	  case 'd':
	    debug++;
	    break;
	  case 'p':  /* Used in marsmove() and keeps planet alignment here */
	    practice++;
	    break;
	  case 'l':		/* length of game */
	    if (argv[1][2] != NULL) {
		length = atoi(&argv[1][2]);
	    } else {
		length = 1;
	    }
	    break;
	  default:
            /*corrected the acceptable arg list*/
	    ERROR(1,("Unknown option '%c' (must be one of: dpl)\n", argv[1][1]));
	    exit(1);
	}			/* end switch argv[1][1] */
	
	
    }				/* end for */
    srandom(getpid() * time((long *) 0));
    openmem(1);
    readsysdefaults();

    sprintf(DogStats,"%s/%s\0",LIBDIR,DOG_STATS);
	
    if ( (pno = pickslot(QU_ROBOT)) < 0) exit(0);
    me = &players[pno];
    myship = &me->p_ship;
    mystats = &me->p_stats;
    lastm = mctl->mc_current;
    /* At this point we have memory set up.  If we aren't a fleet, we don't
       want to replace any other robots on this team, so we'll check the
       other players and get out if there are any on our team.
    */

    robonameset(me);                    /* Set the robot@nowhere */
    enter(team, 0, pno, class, "Mars"); /* was BATTLESHIP 8/9/91 TC */

    me->p_pos = -1;		     /* So robot stats don't get saved */
    me->p_flags |= PFROBOT;	     /* Mark as a robot */
    me->p_x = 50000;                 /* displace to on overlooking position */
    me->p_y = 5000;                  /* maybe we should just make it fight? */

    SIGNAL(SIGALRM, marsmove);             /*the def signal is needed - MK */
    if (!debug)
	SIGNAL(SIGINT, cleanup);

    oldplanets = (struct planet *) malloc(sizeof(struct planet) * MAXPLANETS);
    MCOPY(planets, oldplanets, sizeof(struct planet) * MAXPLANETS);
    config();
    do_war();   /*added MK-9/20/92, to plague and fill slots immediately*/
    mars_rules();

    ERROR(3,("\nRobot Using Daemon Synchronization Timing\n"));


    me->p_process = getpid();
    me->p_timerdelay = HOWOFTEN; 

    /* allows robots to be forked by the daemon -- Evil ultrix bullshit */
    SIGSETMASK(0);

    me->p_status = PALIVE;		/* Put robot in game */
    init_mars();
    while (1) {
	PAUSE(SIGALRM);
    }
}


config()
{
    int i;
    FILE* f;
    char TournMap_File[256];

    /* calc class-specific stuff */

    phrange = PHASEDIST * me->p_ship.s_phaserdamage / 100;
    trrange = TRACTDIST * me->p_ship.s_tractrng;

    if (debug) printf("My phaser range: %d.\n", phrange);
    if (debug) printf("My tractor range: %d.\n", trrange);

    myship->s_turns = 2140000000;
    myship->s_accint = 10000;
    myship->s_decint = 10000;
    myship->s_warpcost = 1;
    myship->s_tractstr = 1;
    myship->s_torpdamage = -1;
    myship->s_plasmadamage = -1;
    myship->s_phaserdamage = -1;
    me->p_hostile = 0;
    me->p_swar = 0;
    me->p_war  = 0;
    me->p_team = 0;	/* indep */
    myship->s_type = STARBASE;
/*    myship->s_type = SCOUT;*/
    myship->s_mass = 32765;
    myship->s_repair = 30000;
    myship->s_maxspeed = 30;
    myship->s_wpncoolrate = 100;
    myship->s_egncoolrate = 100;
    myship->s_maxwpntemp = 10000;
    myship->s_maxegntemp = 10000;
    oldmctl = mctl->mc_current;	/* start watching messages */

    if (practice) return;	/* don't change galaxy */
    /* align planets */

#define IND 0

    sprintf(TournMap_File,"%s/%s\0",LIBDIR,TOURNMAP);

    f = fopen(TournMap_File,"r");
    if (f == NULL) {
	fprintf(stderr,"%s: Tournament map file missing\n",TOURNMAP);
    } else {
        char dummy[3];
        int newx, newy;

	for (i = 0; i < 40; i++) {
		fscanf(f,"%s %d %d\n",dummy,&newx,&newy);
		planets[i].pl_x = newx;
		planets[i].pl_y = newy;
		planets[i].pl_owner = IND;
		planets[i].pl_info |= ALLTEAM;
		planets[i].pl_flags &= ~(PLFUEL | PLREPAIR | PLAGRI);
	}
    }
    fclose(f);

    planets[10].pl_flags |= (PLFUEL | PLREPAIR);
    planets[25].pl_flags |= (PLFUEL | PLREPAIR);
    planets[31].pl_flags |= (PLFUEL | PLREPAIR);
    planets[32].pl_flags |= (PLFUEL | PLREPAIR);
    planets[33].pl_flags |= (PLFUEL | PLREPAIR);
    planets[35].pl_flags |= (PLFUEL | PLREPAIR);
    planets[36].pl_flags |= (PLFUEL | PLREPAIR);
    planets[37].pl_flags |= (PLFUEL | PLREPAIR);
    planets[38].pl_flags |= (PLFUEL | PLREPAIR);

/*
  Everyone joins a dogfight server as ROM
  The robot tosses them to other teams at will
*/

    queues[QU_PICKUP].tournmask = ROM; 

#ifdef nodef
    planets[ 0].pl_couptime = 999999; /* no Feds */
    planets[20].pl_couptime = 999999; /* no Kli */
    planets[30].pl_couptime = 999999; /* no Ori */
#endif
}
