/*      $NetBSD: main.c,v 1.34 2022/06/27 18:48:49 christos Exp $       */

/*
* Copyright (c) 1980, 1993
*      The Regents of the University of California.  All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
* 3. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/

#include <sys/cdefs.h>
#ifndef lint
__COPYRIGHT("@(#) Copyright (c) 1980, 1993\
The Regents of the University of California.  All rights reserved.");
#endif /* not lint */

#ifndef lint
#if 0
static char sccsid[] = "@(#)main.c      8.1 (Berkeley) 5/31/93";
#else
__RCSID("$NetBSD: main.c,v 1.34 2022/06/27 18:48:49 christos Exp $");
#endif
#endif /* not lint */

#include <ctype.h>
#include <curses.h>
#include <string.h>
#include <err.h>
#include <errno.h>
#include <fcntl.h>
#include <signal.h>
#include <stdlib.h>
#include <time.h>
#include <unistd.h>
#include "robots.h"

extern const char *Scorefile;
extern int Max_per_uid;

static bool another(void);

int
main(int argc, char **argv)
{
       const char *word;
       bool show_only;
       int score_wfd; /* high score writable file descriptor */
       int score_err = 0; /* hold errno from score file open */
       int maximum = 0;
       int ch, i;

       score_wfd = open(Scorefile, O_RDWR);
       if (score_wfd < 0)
               score_err = errno;
       else if (score_wfd < 3)
               exit(1);

       /* Revoke setgid privileges */
       setgid(getgid());

       show_only = false;
       Num_games = 1;

       while ((ch = getopt(argc, argv, "Aajnrst")) != -1) {
               switch (ch) {
                   case 'A':
                       Auto_bot = true;
                       break;
                   case 'a':
                       Start_level = 4;
                       break;
                   case 'j':
                       Jump = true;
                       break;
                   case 'n':
                       Num_games++;
                       break;
                   case 'r':
                       Real_time = true;
                       break;
                   case 's':
                       show_only = true;
                       break;
                   case 't':
                       Teleport = true;
                       break;
                   default:
                       errx(1,
                           "Usage: robots [-Aajnrst] [maximum] [scorefile]");
                       break;
               }
       }

       for (i = optind; i < argc; i++) {
               word = argv[i];
               if (isdigit((unsigned char)word[0])) {
                       maximum = atoi(word);
               } else {
                       Scorefile = word;
                       Max_per_uid = maximum;
                       if (score_wfd >= 0)
                               close(score_wfd);
                       score_wfd = open(Scorefile, O_RDWR);
                       if (score_wfd < 0)
                               score_err = errno;
#ifdef FANCY
                       word = strrchr(Scorefile, '/');
                       if (word == NULL)
                               word = Scorefile;
                       if (strcmp(word, "pattern_roll") == 0)
                               Pattern_roll = true;
                       else if (strcmp(word, "stand_still") == 0)
                               Stand_still = true;
                       if (Pattern_roll || Stand_still)
                               Teleport = true;
#endif
               }
       }

       if (show_only) {
               show_score();
               exit(0);
               /* NOTREACHED */
       }

       if (score_wfd < 0) {
               errno = score_err;
               warn("%s", Scorefile);
               warnx("High scores will not be recorded!");
               sleep(2);
       }

       if (!initscr())
               errx(0, "couldn't initialize screen");
       signal(SIGINT, quit);
       cbreak();
       noecho();
       nonl();
       if (LINES != Y_SIZE || COLS != X_SIZE) {
               if (LINES < Y_SIZE || COLS < X_SIZE) {
                       endwin();
                       printf("Need at least a %dx%d screen\n",
                           Y_SIZE, X_SIZE);
                       exit(1);
               }
               delwin(stdscr);
               stdscr = newwin(Y_SIZE, X_SIZE, 0, 0);
       }

       if (Real_time)
               signal(SIGALRM, move_robots);
       do {
               while (Num_games--) {
                       init_field();
                       for (Level = Start_level; !Dead; Level++) {
                               make_level();
                               play_level();
                               if (Auto_bot)
                                       sleep(1);
                       }
                       move(My_pos.y, My_pos.x);
                       printw("AARRrrgghhhh....");
                       refresh();
                       if (Auto_bot)
                               sleep(1);
                       score(score_wfd);
                       if (Auto_bot)
                               sleep(1);
                       refresh();
               }
               Num_games = 1;
       } while (!Auto_bot && another());
       quit(0);
       /* NOTREACHED */
       return(0);
}

/*
* quit:
*      Leave the program elegantly.
*/
void
quit(int dummy __unused)
{
       endwin();
       exit(0);
       /* NOTREACHED */
}

/*
* another:
*      See if another game is desired
*/
static bool
another(void)
{
       int y;

#ifdef FANCY
       if ((Stand_still || Pattern_roll) && !Newscore)
               return true;
#endif

       if (query("Another game?")) {
               if (Full_clear) {
                       for (y = 1; y <= Num_scores; y++) {
                               move(y, 1);
                               clrtoeol();
                       }
                       refresh();
               }
               return true;
       }
       return false;
}