|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 8164 (0x1fe4)
Types: TextFile
Names: »cmds1.c«, »cmds1.c.orig«
└─⟦87ddcff64⟧ Bits:30001253 CPHDIST85 Tape, 1985 Autumn Conference Copenhagen
└─⟦this⟧ »cph85dist/search/cmds1.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Search/cmds1.c.orig«
#ifndef lint
static char rcsid[] = "$Header: cmds1.c,v 2.3 85/08/06 22:28:20 matt Exp $";
#endif
/*
*
* search
*
* multi-player and multi-system search and destroy.
*
* Original by Greg Ordy 1979
* Rewrite by Sam Leffler 1981
* Socket code by Dave Pare 1983
* Ported & improved
* by Matt Crawford 1985
*
* routines to execute player commands
*
* Copyright (c) 1979
*
* $Log: cmds1.c,v $
* Revision 2.3 85/08/06 22:28:20 matt
* Change handling of "r", "b", "g", "j", "q" commands to
* provide better feedback, using per-player message buffer.
*
* Revision 2.2 85/05/30 22:43:05 matt
* You can't send a "Temporary malfunction" message to an alien!!
*
* Revision 2.1 85/04/10 17:30:46 matt
* Major de-linting and minor restructuring.
*
*/
#include "defines.h"
#include "structs.h"
int TDIST = TSIZE; /* max distance a torpedoe travels */
/*
* Launch a torpedo.
* "firer" shot it, using the "where" key, firing in the <ox, oy> direction.
* "dd" indicates distance until it dies.
* "mess" indicates if a launch message should be given.
* "xl" and "yl" give the origin for calculating distance.
* "type" identifies the type of the firer.
*/
void launch(firer, where, type, ox, oy, mess, xl, yl, dd)
register thing *firer;
char where, xl, yl, ox, oy;
{
extern void pstatus();
extern t_torps torps[NTORP];
register char x,
y;
register t_torps *tp,
*last;
last = &torps[NTORP];
for (tp = torps; tp < last; tp++) {
if (tp->owner == NOTHING) {
if (type==PLAYER && firer->u_player.energy<TPCOST) {
if (mess) {
pstatus(&firer->u_player,
"Need more energy!");
firer->u_player.cmdpend = 0;
}
return;
}
tp->owner = firer;
tp->torx = xl;
tp->tory = yl;
x = ox; y = oy;
tp->tcount = dd != 0 ? dd : TDIST;
switch (where) {
case NO:
y--;
break;
case NE:
x++;
y--;
break;
case EA:
x++;
break;
case SE:
x++;
y++;
break;
case SO:
y++;
break;
case SW:
x--;
y++;
break;
case WE:
x--;
break;
case NW:
x--;
y--;
break;
}
if (type != PLAYER) {
tp->xinc = x;
tp->yinc = y;
if (x == 0 && y == 0)
tp->owner = NOTHING;
return;
}
if (x == 0 && y == 0) {
pstatus(&firer->u_player,
"Torpedos must move!");
tp->owner = NOTHING;
firer->u_player.cmdpend = 0;
return;
}
tp->xinc = x;
tp->yinc = y;
firer->u_player.energy -= TPCOST;
firer->u_player.cmdpend = 0;
if (mess)
pstatus(&firer->u_player, "Launch!");
return;
}
}
if (type != PLAYER)
return;
pstatus(&firer->u_player, "Temporary malfunction!");
firer->u_player.cmdpend = 0;
}
/*
* Show coordinates of an object locked in on channel "channel".
*/
void home(p, channel)
register t_player *p;
char channel;
{
extern void pstatus();
void showhome();
p->cmdpend = 0;
if (channel < '1' || channel > '3') {
pstatus(p, "Invalid channel number!");
return;
}
channel -= '1';
if (p->home[channel] == NOTHING) {
pstatus(p, "Channel not locked on object!");
return;
}
showhome(p, channel);
}
/*
* Show the coordinates of a homing radar channel on the screen --
* assumes the channel is valid.
*/
static void showhome(p, channel)
register t_player *p;
register int channel;
{
extern void put();
extern t_sbase sbase[NBASE];
extern t_alien alien[NALIEN];
extern t_player player[NPLAYER];
extern t_torps torps[NTORP];
thing *val; /* should be union */
switch (channel) {
case 0:
move(H1DATAX, H1DATAY, p); /* macro */
break;
case 1:
move(H2DATAX, H2DATAY, p);
break;
case 2:
move(H3DATAX, H3DATAY, p);
break;
}
val = p->home[channel];
if (isalien(val))
put(p, "%d %d", val->u_alien.cx, val->u_alien.cy);
else if (isplayer(val))
put(p, "%d %d", val->u_player.curx, val->u_player.cury);
else if (isbase(val))
put(p, "%d %d", val->u_sbase.xpos, val->u_sbase.ypos);
else
put(p, "%d %d", val->u_torps.torx, val->u_torps.tory);
}
/*
* Set channel "channel" so that it's locked in on the object
* currently "underneath" player "p".
*/
void sethome(p, channel)
register t_player *p;
char channel;
{
extern void pstatus();
void showhome();
p->cmdpend = 0;
if (channel < '1' || channel > '3') {
pstatus(p, "Invalid channel number!");
return;
}
channel -= '1';
if (p->whocent == NOTHING) {
pstatus(p, "Not over an object!");
return;
}
p->home[channel] = p->whocent;
showhome(p, channel);
pstatus(p, "Locked on!");
}
/*
* Invisibility toggle -- useless during solar flares.
*/
void invisible (p)
register t_player *p;
{
extern int sfflag,
gutsflag;
extern void pmesg(),
put();
move(INDATAX, INDATAY, p); /* macro */
if (p->status.invis == FALSE) {
if (sfflag == ON) {
put(p, "off");
pmesg(p, "From radar-- Solar flare up!!");
return;
} else if (gutsflag) {
put(p, "off");
pmesg(p, "No invisibility in GUTS mode");
return;
}
put(p, "on ");
p->status.invis = TRUE;
} else {
put(p, "off");
p->status.invis = FALSE;
}
}
/*
* Dock at a starbase -- causes refueling to take place.
*/
void dock(p)
register t_player *p;
{
extern void pstatus(),
cput();
if (!isbase(p->whocent)) {
pstatus(p, "Not over a starbase!");
return;
}
pstatus(p, "Successful docking!");
if (p->maxe <= 225)
p->maxe = p->maxe+25;
p->energy = p->maxe;
cput(EGYDATA, p, "%d", p->energy);
}
/*
* Autopilot on a channel which has previously been locked onto
* an object -- normally this is a starbase, but it could be a
* player, alien, or even a planet.
*/
void autopi(p, channel)
register t_player *p;
char channel;
{
extern t_planet planet;
extern void pstatus();
thing *val;
register char *x,
*y;
p->cmdpend = 0;
if (channel < '1' || channel > '3') {
pstatus(p, "Invalid channel number!");
return;
}
channel -= '1';
val = p->home[channel];
if (val == NOTHING) {
pstatus(p, "Channel not locked on object!");
return;
}
if (isalien(val)) {
x = & val->u_alien.cx;
y = & val->u_alien.cy;
} else if (isplayer(val)) {
x = & val->u_player.curx;
y = & val->u_player.cury;
} else if (isbase(val)) {
x = & val->u_sbase.xpos;
y = & val->u_sbase.ypos;
} else { /* planet !?!?!? */
x = & planet.places[0][0];
y = & planet.places[0][1];
}
p->apx = x;
p->apy = y;
p->status.ap = TRUE;
p->status.orb = FALSE;
pstatus(p, "Autopilot process begun!");
}
/*
* Broadcast a message.
*/
void bcast(p, letter)
register t_player *p;
char letter;
{
extern void pmesg(),
echomsg(),
donemsg(),
makescab();
register t_player *pl;
if (letter != '\n' && letter != '\r') {
if (letter == SCABLETTER) { /* no tty tricks! */
makescab(p);
letter = '^';
}
echomsg(p, letter);
} else {
for (pl = player; pl < &player[NPLAYER]; pl++)
if (pl->status.alive == TRUE)
pmesg(pl, "\07From %s -- %s", p->plname, p->mesgbuf);
p->cmdpend = 0;
donemsg(p);
}
}
/*
* broadcast and radio message echoing routines
*/
void
gathermsg(p)
register t_player *p;
{
if (p->mesgdst >= NPLAYER)
pmesg(p, "From radio room-- enter message to group");
else if (p->mesgdst > 0)
pmesg(p, "From radio room-- enter message to %c (%s)",
p->mesgdst-1+'A', player[p->mesgdst-1].plname);
else
pmesg(p, "From radio room-- enter message");
prompt(p, "TEXT: ");
p->mesglen = 0;
p->mesgbuf[0] = '\0';
bflush(p);
}
/*
* echoing is relative to the prompt string given above
*/
#define INPUTSTART PROMPTX+6
#define INPUTY PROMPTY
void
echomsg(p, c)
register t_player *p;
char c;
{
if (c=='\b' || c=='\177') {
if (p->mesglen) {
cput(p->mesglen+INPUTSTART, INPUTY, p, " \b");
p->mesglen--;
}
p->mesgbuf[p->mesglen] = '\0';
} else if (c=='@' || c=='\025') {
gathermsg(p);
return;
} else {
/* unprintable cacters show up as blanks */
if (c < ' ')
c = ' ';
if (p->mesglen < 35) {
p->mesgbuf[p->mesglen++] = c;
p->mesgbuf[p->mesglen] = '\0';
cput(p->mesglen+INPUTSTART, INPUTY, p, "%c", c);
}
}
bflush(p);
}
void
donemsg(p)
register t_player *p;
{
prompt(p, "");
p->mesgdst = 0;
p->mesglen = 0;
p->mesgbuf[0] = '\0';
bflush(p);
}