/* * If a set of given conditions are met, fire a single torp in direction * course. Use different attributes * * torp->t_fuse is the life of the torpedo. It is set here based on * a random function. Torps currently live two to five seconds. */ void ntorp(u_char course, int attributes) { static LONG last_torp_fired_update = 0; struct torp *k; int c_fuel, c_etemp, c_wtemp; if (status->gameup & GU_CONQUER) return; c_fuel = getAdjTorpCost(course, TORP_ADJ_FUEL); c_etemp = getAdjTorpCost(course, TORP_ADJ_ETEMP); c_wtemp = getAdjTorpCost(course, TORP_ADJ_WTEMP); /* * Prevent player from firing more than one torp per update. */ if (me->p_updates == last_torp_fired_update) return; if (me->p_flags & PFWEP) { new_warning(25, "Torpedo launch tubes have exceeded maximum safe temperature!"); if (!chaosmode) return; } if (me->p_ntorp == MAXTORP) { new_warning(26, "Our computers limit us to having 8 live torpedos at a time captain!"); return; } if (me->p_fuel < c_fuel) { new_warning(27, "We don't have enough fuel to fire photon torpedos!"); return; } if (me->p_flags & PFREPAIR) { new_warning(28, "We cannot fire while our vessel is in repair mode."); return; } if ((me->p_cloakphase) && (me->p_ship.s_type != ATT)) { #ifdef STURGEON if (sturgeon) { if (!me->p_upgradelist[UPG_FIRECLOAK]) { new_warning(UNDEF,"We don't have the proper upgrade to fire while cloaked, captain!"); return; } if (me->p_fuel < myship->s_torpcost * 2) { new_warning(UNDEF,"We don't have enough fuel to fire photon torpedos while cloaked!"); return; } } else #endif { new_warning(29, "We are unable to fire while in cloak, captain!"); return; } } /* * If topgun mode, * Permit firing only if out of the front of the ship */ if (topgun && ((me->p_ship).s_type != STARBASE)) { int delta; if ((delta = ((int) me->p_dir - (int) course)) < 0) delta = -delta; if ((delta > topgun) && (delta < (256 - topgun))) { /* note: 128 = 180 degrees left/right */ new_warning(30, "We only have forward mounted cannons."); return; } } /* can't fire if we're etemp and firing has an etemp cost and an etemp multiplier greater than 1.0 (ASSTORP_ETEMP_MULT) */ if ((me->p_flags & PFENG) && (c_etemp > 0) && (asstorp_etemp_mult > 1.0) && ((myship->s_type != STARBASE) || asstorp_base)) { new_warning(UNDEF,"Engines have overheated rear torpedos tubes."); return; } /* * Find a free torp to use */ for (k = firstTorpOf(me); k <= lastTorpOf(me); k++) if (k->t_status == TFREE) break; #if 0 /* Pseudo code for run-time debugging, if someone wants it. */ if (k > lastTorpOf(me)) error(); #endif last_torp_fired_update = me->p_updates; /* * Change my ship state: less fuel, more weapon temp */ me->p_ntorp++; me->p_fuel -= c_fuel; me->p_wtemp += c_wtemp; me->p_etemp += c_etemp; /* * Initialize torp: */ k->t_status = TMOVE; k->t_type = TPHOTON; k->t_attribute = attributes; k->t_owner = me->p_no; t_x_y_set(k, me->p_x, me->p_y); k->t_turns = myship->s_torpturns; k->t_damage = myship->s_torpdamage; k->t_gspeed = (attributes & TVECTOR) ? torpGetVectorSpeed(me->p_dir, me->p_speed, course, myship->s_torpspeed) : myship->s_torpspeed * WARP1; k->t_fuse = (myship->s_torpfuse + (random() % 20)) * T_FUSE_SCALE; k->t_dir = course; k->t_war = me->p_war; k->t_team = me->p_team; k->t_whodet = NODET; #if 0 k->t_no = i; k->t_speed = k->t_gspeed / WARP1; #endif #ifdef STURGEON k->t_spinspeed = 0; #endif #ifdef LTD_STATS /* At this point, a torpedo was fired */ ltd_update_torp_fired(me); #endif }
int setship(const char *cmds) { const char delimiters[] = " "; char *copy, *token; struct player *me; copy = strdup(cmds); token = strtok(copy, delimiters); if (!token) { usage(); return 1; } openmem(0); state_0: me = player_by_number(token); if (me == NULL) { fprintf(stderr, "unknown slot\n"); exit(1); } state_1: if (!(token = strtok (NULL, delimiters))) return 0; if (!strcmp(token, "show-position")) { printf("frame %d", context->frame); printf(" speed %d", me->p_speed); printf(" dir %d", me->p_dir); printf(" position %d %d", me->p_x, me->p_y); printf("\n"); goto state_1; } if (!strcmp(token, "position")) { int p_x, p_y; if (!(token = strtok (NULL, delimiters))) return 0; p_x = atoi(token); if (!(token = strtok (NULL, delimiters))) return 0; p_y = atoi(token); p_x_y_set(me, p_x, p_y); goto state_1; } if (!strcmp(token, "dir")) { if (!(token = strtok (NULL, delimiters))) return 0; me->p_dir = atoi(token); me->p_desdir = atoi(token); bay_release(me); me->p_flags &= ~(PFBOMB | PFORBIT | PFBEAMUP | PFBEAMDOWN); goto state_1; } if (!strcmp(token, "speed")) { if (!(token = strtok (NULL, delimiters))) return 0; me->p_desspeed = atoi(token); me->p_flags &= ~(PFREPAIR | PFBOMB | PFORBIT | PFBEAMUP | PFBEAMDOWN); me->p_flags &= ~(PFPLOCK | PFPLLOCK); goto state_1; } if (!strcmp(token, "wait-for-stop")) { while (me->p_speed) usleep(20000); goto state_1; } if (!strcmp(token, "lock-planet")) { if (!(token = strtok (NULL, delimiters))) return 0; struct planet *pl = planet_find(token); //* lock on, from lock_planet() in interface.c me->p_flags |= PFPLLOCK; me->p_flags &= ~(PFPLOCK|PFORBIT|PFBEAMUP|PFBEAMDOWN|PFBOMB); me->p_planet = pl->pl_no; goto state_1; } if (!strcmp(token, "wait-for-orbit")) { while (!(me->p_flags & PFORBIT)) usleep(20000); goto state_1; } if (!strcmp(token, "wobble")) { t_attribute |= TWOBBLE; goto state_1; } if (!strcmp(token, "no-wobble")) { t_attribute &= ~TWOBBLE; goto state_1; } if (!strcmp(token, "torp-speed")) { if (!(token = strtok (NULL, delimiters))) return 0; t_torpspeed = atoi(token); goto state_1; } if (!strcmp(token, "fire-test-torpedo")) { if (!(token = strtok (NULL, delimiters))) return 0; struct ship *myship = &me->p_ship; struct torp *k = t_find(me, TFREE); me->p_ntorp++; k->t_status = TMOVE; k->t_type = TPLASMA; k->t_attribute = t_attribute; k->t_owner = me->p_no; t_x_y_set(k, me->p_x, me->p_y); k->t_turns = myship->s_torpturns; k->t_damage = 0; k->t_gspeed = (t_torpspeed == -1 ? myship->s_torpspeed : t_torpspeed) * WARP1; k->t_fuse = 500; k->t_dir = atoi(token); k->t_war = me->p_war; k->t_team = me->p_team; k->t_whodet = NODET; goto state_1; } if (!strcmp(token, "show-test-torpedo-position")) { struct torp *k = t_find(me, TMOVE); if (k != NULL) { printf("torp %d x %d y %d\n", k->t_dir, k->t_x, k->t_y); } goto state_1; } if (!strcmp(token, "destroy-test-torpedo")) { struct torp *k = t_find(me, TMOVE); if (k != NULL) { k->t_status = TOFF; } goto state_1; } if (!strcmp(token, "monitor-coordinates")) { for (;;) { printf("p_x %X p_y %X p_x_internal %X p_y_internal %X\n", me->p_x, me->p_y, me->p_x_internal, me->p_y_internal); usleep(20000); } goto state_1; } if (!strcmp(token, "monitor-docking")) { for (;;) { printf("p_flags & PFDOCK %X p_dock_with %X p_dock_bay %X\n", me->p_flags & PFDOCK, me->p_dock_with, me->p_dock_bay); usleep(20000); } goto state_1; } if (!strcmp(token, "sleep")) { if (!(token = strtok(NULL, delimiters))) return 0; sleep(atoi(token)); goto state_1; } if (!strcmp(token, "set-inl-draft")) { if (!(token = strtok(NULL, delimiters))) return 0; me->p_inl_draft = atoi(token); goto state_1; } if (!strcmp(token, "monitor-inl-draft")) { for (;;) { printf("p_inl_captain %d p_inl_draft %d (%s) p_inl_x %d p_inl_y %d p_inl_pick %d\n", me->p_inl_captain, me->p_inl_draft, inl_draft_name(me->p_inl_draft), me->p_inl_x, me->p_inl_y, me->p_inl_pick); usleep(20000); } goto state_1; } if (!strcmp(token, "show-inl-draft")) { printf("p_inl_captain %d p_inl_draft %d (%s) p_inl_x %d p_inl_y %d p_inl_pick %d\n", me->p_inl_captain, me->p_inl_draft, inl_draft_name(me->p_inl_draft), me->p_inl_x, me->p_inl_y, me->p_inl_pick); goto state_1; } if (!strcmp(token, "wait-for-inl-draft-to-end")) { for (;;) { if (me->p_inl_draft == INL_DRAFT_OFF) exit(0); usleep(20000); } goto state_1; } if (!strcmp(token, "player")) { me->p_flags &= ~PFOBSERV; me->p_status = PALIVE; goto state_1; } if (!strcmp(token, "observer")) { me->p_flags |= PFOBSERV; me->p_status = POBSERV; goto state_1; } if (!strcmp(token, "captain")) { me->p_inl_captain = 1; goto state_1; } if (!strcmp(token, "no-captain")) { me->p_inl_captain = 0; goto state_1; } if (!strcmp(token, "damage")) { if (!(token = strtok (NULL, delimiters))) return 0; me->p_damage = me->p_ship.s_maxdamage - atoi(token); goto state_1; } if (!strcmp(token, "shields")) { if (!(token = strtok (NULL, delimiters))) return 0; me->p_shield = atoi(token); goto state_1; } if (!strcmp(token, "fuel")) { if (!(token = strtok (NULL, delimiters))) return 0; me->p_fuel = atoi(token); goto state_1; } if (!strcmp(token, "disconnect")) { if (!(token = strtok (NULL, delimiters))) return 0; me->p_disconnect = atoi(token); goto state_1; } goto state_0; }