static void inl_draft_pick(struct player *j, struct player *k)
{
/* TODO: draw a phaser from captain or selector to pick? */
if (j->p_team != k->p_team) {
change_team_quietly(j->p_no, k->p_team, j->p_team);
}
if (j->p_team == FED) {
j->p_inl_pick = context->inl_home_pick++;
}
if (j->p_team == ROM) {
j->p_inl_pick = context->inl_away_pick++;
}
j->p_inl_draft = INL_DRAFT_MOVING_TO_PICK;
pmessage(0, MALL, "GOD->ALL", "Selection #%d: %s (%s) drafts %s (%s).",
context->inl_home_pick + context->inl_away_pick,
k->p_mapchars, j->p_team == FED ? "HOME" : "AWAY", j->p_mapchars,
j->p_name);
/* set rank of player depending on pick position */
if (status->gameup & GU_INROBOT)
j->p_stats.st_rank =
NUMRANKS - (context->inl_home_pick + context->inl_away_pick - 1) / 2 - 2;
}
static void inl_draft_assign_to_pool(struct player *j)
{
j->p_inl_draft = INL_DRAFT_MOVING_TO_POOL;
j->p_inl_pick = 0;
if (j->p_inl_captain) return; /* captains don't get put in the pool */
j->p_inl_pool = context->inl_pool++;
/* separate pool on client sorted player list */
change_team_quietly(j->p_no, NOBODY, j->p_team);
}
/*
** Move a player to the specified team, if they are not yet there.
** Make them peaceful with the new team, and hostile/at war with the
** other team.
*/
void change_team(int p_no, int ours, int theirs)
{
struct player *k = &players[p_no];
change_team_quietly(p_no, ours, theirs);
k->p_status = PEXPLODE;
k->p_whydead = TOURNSTART;
if (k->p_ship.s_type == STARBASE)
k->p_explode = 2 * SBEXPVIEWS;
else
k->p_explode = 10;
k->p_ntorp = 0;
k->p_nplasmatorp = 0;
k->p_hostile = (FED | ROM | ORI | KLI);
k->p_war = (k->p_hostile | k->p_swar);
}
int main(int argc, char **argv)
{
int player;
char buf[1000];
int c;
if (argc < 2)
Usage();
getpath();
openmem(0);
player=atoi(argv[1]);
if ((player == 0) && (*argv[1] != '0')) {
c = *argv[1];
if (c >= 'a' && c <= 'z')
player = c - 'a' + 10;
else {
Usage();
}
}
if (player >= MAXPLAYER) {
printf("MAXPLAYER is set to %d, and you want %d?\n",
MAXPLAYER, player);
exit(1);
}
/* request to free slot? */
if (argc > 2) {
if (*argv[2] == 'F') {
int pid;
pid = players[player].p_process;
players[player].p_disconnect = BADVERSION_DENIED;
usleep(200000); /* guarantee an update will occur */
if (players[player].p_status == PFREE) exit(0); /* slot free, he went */
if (pid != players[player].p_process) exit(0); /* pid changed, he went */
if (players[player].p_process > 1) { /* p_disconnect must have failed */
if (kill(players[player].p_process, SIGTERM) == 0)
exit(0);
}
/* if we have no pid_t, or the pid_t was wrong, free slot */
freeslot(&players[player]);
exit(0);
}
}
if (players[player].p_status != PALIVE) {
if(players[player].p_status != POBSERV) {
printf("Slot is not alive.\n");
exit(1);
}
}
if (argc > 2)
switch (*argv[2]) {
case 'T': { /* change team */
int team;
switch (argv[2][1]) {
case 'f': team = 1; break;
case 'r': team = 2; break;
case 'k': team = 4; break;
case 'o': team = 8; break;
default: team = 0;
}
change_team_quietly(players[player].p_no, team, players[player].p_team);
}
break;
case 'e': /* eject (GHOSTTIME applies in daemon) */
sprintf(buf, "GOD->ALL %s has been ejected from the game.",
players[player].p_longname);
players[player].p_whydead=KQUIT;
players[player].p_explode=10;
players[player].p_status=3;
players[player].p_whodead=0;
amessage(buf, 0, MALL);
break;
case 't': /* teleport */
switch(argv[2][1]) {
case 'f':
p_x_y_set(&players[player], planets[0].pl_x, planets[0].pl_y);
break;
case 'r':
p_x_y_set(&players[player], planets[10].pl_x, planets[10].pl_y);
break;
case 'k':
p_x_y_set(&players[player], planets[20].pl_x, planets[20].pl_y);
break;
case 'o':
p_x_y_set(&players[player], planets[30].pl_x, planets[30].pl_y);
break;
case 'c':
p_x_y_set(&players[player], GWIDTH/2, GWIDTH/2);
break;
default:
printf("Valid teleports: frkoc.\n");
exit(1);
}
break;
case 's': /* ship type change */
switch (argv[2][1]) {
case 'a': refit(&players[player], ASSAULT); break;
case 'b': refit(&players[player], BATTLESHIP); break;
case 'c': refit(&players[player], CRUISER); break;
case 'd': refit(&players[player], DESTROYER); break;
case 'g': refit(&players[player], SGALAXY); break;
case 's': refit(&players[player], SCOUT); break;
case 'o': refit(&players[player], STARBASE); break;
case 'A': refit(&players[player], ATT); break;
case 'S':
getship(&players[player].p_ship, SCOUT);
players[player].p_ship.s_torpdamage = 1;
players[player].p_ship.s_torpfuse = 8;
players[player].p_ship.s_phaserdamage = 1;
players[player].p_ship.s_plasmadamage = 1;
players[player].p_ship.s_plasmaspeed = 1;
players[player].p_ship.s_plasmaturns = 1;
players[player].p_ship.s_maxshield = 750;
break;
default:
printf("Valid ship types: abcdgsoAS.\n");
exit(1);
break;
}
players[player].p_damage = 0;
players[player].p_shield = players[player].p_ship.s_maxshield;
players[player].p_wtemp = 0;
players[player].p_etemp = 0;
players[player].p_fuel = players[player].p_ship.s_maxfuel;
if (argv[2][1] == 'o') players[player].p_flags |= PFDOCKOK;
break;
case 'p': /* puck? */
players[player].p_ship.s_tractstr = 1;
players[player].p_ship.s_torpdamage = -1;
players[player].p_ship.s_plasmadamage = -1;
players[player].p_ship.s_phaserdamage = -1;
players[player].p_hostile = 0;
players[player].p_swar = 0;
players[player].p_war = 0;
players[player].p_team = 0; /* indep */
players[player].p_ship.s_type = SCOUT;
players[player].p_ship.s_mass = 200;
players[player].p_ship.s_repair = 30000;
break;
case 'S': /* super ship */
players[player].p_ship.s_maxshield = 750;
players[player].p_shield = 750;
players[player].p_ship.s_maxdamage = 750;
players[player].p_damage = 0;
players[player].p_ship.s_maxegntemp = 5000;
players[player].p_etemp = 0;
break;
case 'D': /* demote, but not beyond ensign */
if(players[player].p_stats.st_rank == 0)
players[player].p_stats.st_rank++;
--players[player].p_stats.st_rank;
break;
case 'P': /* promote, but not beyond admiral */
if( players[player].p_stats.st_rank < (NUMRANKS - 1) )
++players[player].p_stats.st_rank;
break;
case 'k': /* kill increment */
if (strlen(argv[2]) > 1)
players[player].p_kills += atoi(argv[2]+1);
else
players[player].p_kills += 1.0;
break;
case 'a': /* army increment */
if (strlen(argv[2]) > 1)
players[player].p_armies = atoi(argv[2]+1);
else
players[player].p_armies += 6;
break;
case 'C': /* clock surrender reset */
teams[players[player].p_team].te_surrender = 6;
break;
case 'h': /* harm */
players[player].p_shield = 0;
players[player].p_damage = players[player].p_ship.s_maxdamage/2;
break;
case 'H': /* hack */
{
struct player *me = &players[player];
/* make independent and hostile to only prior team */
int team = players[player].p_team;
players[player].p_hostile = team;
players[player].p_swar = team;
players[player].p_war = team;
players[player].p_team = 0;
sprintf(players[player].p_mapchars, "%c%c",
teamlet[players[player].p_team], shipnos[player]);
sprintf(players[player].p_longname, "%s (%s)",
players[player].p_name, players[player].p_mapchars);
/* cripple */
players[player].p_shield = 0;
players[player].p_damage = players[player].p_ship.s_maxdamage/2;
/* raise shields */
players[player].p_flags |= PFSHIELD;
players[player].p_flags &= ~(PFBOMB | PFREPAIR | PFBEAMUP | PFBEAMDOWN);
/* break tractors and decloak */
me->p_flags &= ~(PFTRACT | PFPRESS);
me->p_flags &= ~PFCLOAK;
/* set speed 0 */
me->p_desspeed = 0;
bay_release(me);
me->p_flags &= ~(PFREPAIR | PFBOMB | PFORBIT | PFBEAMUP | PFBEAMDOWN);
/* make unable to act */
players[player].p_flags |= PFTWARP;
/* show as puck */
players[player].p_ship.s_type = SCOUT;
}
break;
case 'u': /* raise shields */
players[player].p_flags |= PFSHIELD;
players[player].p_flags &= ~(PFBOMB | PFREPAIR | PFBEAMUP | PFBEAMDOWN);
break;
case 'd': /* lower shields */
players[player].p_flags &= ~(PFSHIELD);
break;
case 'R': /* robot kill? */
if (players[player].p_flags & PFROBOT) {
players[player].p_ship.s_type = STARBASE;
players[player].p_whydead=KPROVIDENCE;
players[player].p_explode=10;
players[player].p_status=3;
players[player].p_whodead=0;
}
break;
case 'L': /* starbase loss adjust */
#ifdef LTD_STATS
#ifndef LTD_PER_RACE
players[player].p_stats.ltd[0][LTD_SB].deaths.total--;
#endif
#else
players[player].p_stats.st_sblosses--;
#endif
break;
case 'r': /* repair ship */
p_heal(&players[player]);
break;
case 'f': /* flatten kills / armies */
players[player].p_kills = 0;
players[player].p_armies = 0;
break;
case 'n': /* toggle carry flag */
players[player].p_no_pick = !players[player].p_no_pick;
sprintf(buf, "GOD->%s %s %s pick up armies",
team_code(players[player].p_team),
players[player].p_longname,
players[player].p_no_pick ?
"is no longer able to" : "can once again");
amessage(buf, players[player].p_team, MTEAM);
break;
default:
Usage();
} /* end switch */
else {
sprintf(buf, "GOD->ALL %s was utterly obliterated.",
players[player].p_longname);
players[player].p_ship.s_type=STARBASE;
players[player].p_whydead=KPROVIDENCE;
players[player].p_explode=10;
players[player].p_status=3;
players[player].p_whodead=0;
amessage(buf, 0, MALL);
}
return 0;
}
