* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
static char sccsid
[] = "@(#)play.c 5.3 (Berkeley) %G%";
** INSTRUCTION READ AND MAIN PLAY LOOP
** Well folks, this is it. Here we have the guts of the game.
** This routine executes moves. It sets up per-move variables,
** gets the command, and executes the command. After the command,
** it calls events() to use up time, attack() to have Klingons
** attack if the move was not free, and checkcond() to check up
** on how we are doing after the move.
extern int abandon(), capture(), shield(), computer(), dcrept(),
destruct(), dock(), help(), impulse(), lrscan(),
warp(), dumpgame(), rest(), shell(), srscan(),
reset(), torped(), visual(), setwarp(), undock(), phaser();
"abandon", "", abandon
, 0,
"ca", "pture", capture
, 0,
"c", "omputer", computer
, 0,
"da", "mages", dcrept
, 0,
"destruct", "", destruct
, 0,
"i", "mpulse", impulse
, 0,
"p", "hasers", phaser
, 0,
"st", "atus", srscan
, -1,
"terminate", "", reset
, 0,
"t", "orpedo", torped
, 0,
r
= getcodpar("\nCommand", Comtab
);