* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)play.c 5.1 (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
);