00001
00002
00003
00004
00005
00006
00007
00008
00009
00010 #include <stdio.h>
00011 #include <stdlib.h>
00012 #include <math.h>
00013 #include <sys/file.h>
00014
00015 #include "mech.h"
00016 #include "p.mech.utils.h"
00017 #include "p.mech.los.h"
00018 #include "p.map.obj.h"
00019 #include "p.mech.scan.h"
00020 #include "autopilot.h"
00021 #include "p.autopilot_command.h"
00022 #include "p.mine.h"
00023 #include "p.mech.build.h"
00024 #include "p.mech.status.h"
00025 #include "p.mech.update.h"
00026 #include "p.mech.combat.h"
00027 #include "p.mech.combat.misc.h"
00028
00029 #define SHOW_INFO 1
00030 #define SHOW_ARMOR 2
00031 #define SHOW_WEAPONS 4
00032
00033 void mech_scan(dbref player, void *data, char *buffer)
00034 {
00035 MECH *mech = (MECH *) data;
00036 MAP *mech_map;
00037 char *args[4];
00038 int mapx = 0, mapy = 0;
00039 char targetID[2];
00040 dbref target;
00041 int numargs;
00042 MECH *tempMech = NULL;
00043 float fx, fy, fz = 0.0;
00044 float range = 0.0, enemyX, enemyY, enemyZ;
00045 int dob = 0, doh = 0;
00046 int options = SHOW_INFO | SHOW_ARMOR | SHOW_WEAPONS;
00047
00048 mech_map = getMap(mech->mapindex);
00049 cch(MECH_USUAL);
00050 numargs = mech_parseattributes(buffer, args, 4);
00051 DOCHECK(numargs > 3, "Wrong number of arguments to scan!");
00052 DOCHECK(!MechScanRange(mech), "Your system seems to be inoperational.");
00053 switch (numargs) {
00054 case 1:
00055
00056 targetID[0] = args[0][0];
00057 if(args[0][1]) {
00058 targetID[1] = args[0][1];
00059 target = FindTargetDBREFFromMapNumber(mech, targetID);
00060 tempMech = getMech(target);
00061 DOCHECK(!tempMech, "Target is not in line of sight!");
00062 range = FaMechRange(mech, tempMech);
00063 DOCHECK(!InLineOfSight(mech, tempMech, MechX(tempMech),
00064 MechY(tempMech), range),
00065 "Target is not in line of sight!");
00066 DOCHECK(!InLineOfSight_NB(mech, tempMech, MechX(tempMech),
00067 MechY(tempMech), range),
00068 "That target isn't seen well enough by the scanners for scanning!");
00069 DOCHECK(!MechIsObservator(mech) &&
00070 (int) range > MechScanRange(mech),
00071 "Target is out of scanner range.");
00072 break;
00073 } else {
00074 switch (toupper(args[0][0])) {
00075 case 'A':
00076 options = SHOW_ARMOR;
00077 break;
00078 case 'I':
00079 options = SHOW_INFO;
00080 break;
00081 case 'W':
00082 options = SHOW_WEAPONS;
00083 break;
00084 default:
00085 notify(player, "Truly odd option!");
00086 return;
00087 }
00088 }
00089 case 0:
00090
00091 target = MechTarget(mech);
00092 tempMech = getMech(target);
00093 if(tempMech) {
00094 range = FaMechRange(mech, tempMech);
00095 DOCHECK(!MechIsObservator(mech) &&
00096 (int) range > MechScanRange(mech),
00097 "Target is out of scanner range.");
00098 DOCHECK(!InLineOfSight(mech, tempMech, MechX(tempMech),
00099 MechY(tempMech), range),
00100 "Target is not in line of sight!");
00101 DOCHECK(!InLineOfSight_NB(mech, tempMech, MechX(tempMech),
00102 MechY(tempMech), range),
00103 "That target isn't seen well enough by the scanners for scanning!");
00104 } else {
00105 if(!(MechStatus(mech) & LOCK_BUILDING))
00106 DOCHECK(!FindTargetXY(mech, &enemyX, &enemyY, &enemyZ),
00107 "No default target set!");
00108 mapx = MechTargX(mech);
00109 mapy = MechTargY(mech);
00110 MapCoordToRealCoord(mapx, mapy, &fx, &fy);
00111 fz = ZSCALE * Elevation(mech_map, mapx, mapy);
00112 range =
00113 FindRange(MechFX(mech), MechFY(mech), MechFZ(mech), fx, fy,
00114 fz);
00115 ValidCoordA(mech_map, mapx, mapy,
00116 "Those coordinates are out of scanner range.");
00117 DOCHECK(!MechIsObservator(mech) &&
00118 (int) range > MechScanRange(mech),
00119 "Those coordinates are out of scanner range.");
00120 DOCHECK(!InLineOfSight_NB(mech, tempMech, mapx, mapy, range),
00121 "Target hex is not in line of sight!");
00122
00123 if(MechStatus(mech) & LOCK_BUILDING)
00124 dob = 1;
00125 else if(MechStatus(mech) & LOCK_HEX) {
00126 dob = 1;
00127 doh = 1;
00128 } else if(!(tempMech =
00129 find_mech_in_hex(mech, mech_map, mapx, mapy, 1)))
00130 tempMech = (MECH *) NULL;
00131 }
00132 break;
00133 case 3:
00134
00135 mapx = atoi(args[0]);
00136 mapy = atoi(args[1]);
00137 ValidCoordA(mech_map, mapx, mapy,
00138 "Those coordinates are out of scanner range.");
00139 switch (toupper(args[2][0])) {
00140 case 'H':
00141 doh = 1;
00142 case 'B':
00143 dob = 1;
00144 break;
00145 default:
00146 notify(player, "Invalid 3rd argument!");
00147 return;
00148 }
00149 MapCoordToRealCoord(mapx, mapy, &fx, &fy);
00150 fz = ZSCALE * Elevation(mech_map, mapx, mapy);
00151 range =
00152 FindRange(MechFX(mech), MechFY(mech), MechFZ(mech), fx, fy, fz);
00153 DOCHECK((int) range > MechScanRange(mech),
00154 "Those coordinates are out of scanner range.");
00155 DOCHECK(!InLineOfSight(mech, tempMech, mapx, mapy, range),
00156 "Coordinates are not in line of sight!");
00157 break;
00158 case 2:
00159
00160 mapx = atoi(args[0]);
00161 mapy = atoi(args[1]);
00162 if(!mapx && strcmp(args[0], "0")) {
00163 targetID[0] = args[0][0];
00164 targetID[1] = args[0][1];
00165 target = FindTargetDBREFFromMapNumber(mech, targetID);
00166 tempMech = getMech(target);
00167 DOCHECK(!tempMech, "Target is not in line of sight!");
00168 range = FaMechRange(mech, tempMech);
00169 DOCHECK(!InLineOfSight(mech, tempMech, MechX(tempMech),
00170 MechY(tempMech), range),
00171 "Target is not in line of sight!");
00172 DOCHECK(!MechIsObservator(mech) &&
00173 (int) range > MechScanRange(mech),
00174 "Target is out of scanner range.");
00175 switch (toupper(args[1][0])) {
00176 case 'A':
00177 options = SHOW_ARMOR;
00178 break;
00179 case 'I':
00180 options = SHOW_INFO;
00181 break;
00182 case 'W':
00183 options = SHOW_WEAPONS;
00184 break;
00185 default:
00186 notify(player, "Truly odd option!");
00187 return;
00188 }
00189 break;
00190 }
00191 ValidCoordA(mech_map, mapx, mapy,
00192 "Those coordinates are out of scanner range.");
00193 MapCoordToRealCoord(mapx, mapy, &fx, &fy);
00194 range =
00195 FindRange(MechFX(mech), MechFY(mech), MechFZ(mech), fx, fy, fz);
00196 DOCHECK(!MechIsObservator(mech) &&
00197 (int) range > MechScanRange(mech),
00198 "Those coordinates are out of scanner range.");
00199 DOCHECK(!InLineOfSight(mech, tempMech, mapx, mapy, range),
00200 "Coordinates are not in line of sight!");
00201 fz = ZSCALE * Elevation(mech_map, mapx, mapy);
00202
00203 if(!(tempMech = find_mech_in_hex(mech, mech_map, mapx, mapy, 1)))
00204 tempMech = (MECH *) NULL;
00205 break;
00206 }
00207 if(tempMech) {
00208 DOCHECK(!InLineOfSight_NB(mech, tempMech, MechX(tempMech),
00209 MechY(tempMech), range),
00210 "That target isn't seen well enough by the scanners for report!");
00211 DOCHECK((MechType(tempMech) == CLASS_MW),
00212 "Your scanners cannot give you precise information on targets that small!");
00213 PrintEnemyStatus(player, mech, tempMech, range, options);
00214 if(!MechIsObservator(mech)) {
00215 mech_printf(tempMech, MECHSTARTED,
00216 "You are being scanned by %s",
00217 GetMechToMechID(tempMech, mech));
00218 auto_reply(tempMech, tprintf("%s just scanned me.",
00219 GetMechToMechID(tempMech, mech)));
00220 }
00221 return;
00222 }
00223 if(!dob && !doh) {
00224 notify(player, "You see nobody in the hex!");
00225 return;
00226 }
00227 if(dob)
00228 show_building_in_hex(mech, mapx, mapy);
00229 if(doh)
00230 show_mines_in_hex(player, mech, range, mapx, mapy);
00231 }
00232
00233 void mech_report(dbref player, void *data, char *buffer)
00234 {
00235 MECH *mech = (MECH *) data;
00236 MAP *mech_map;
00237 char *args[3];
00238 int mapx = 0, mapy = 0;
00239 char targetID[2];
00240 dbref target;
00241 int numargs;
00242 MECH *tempMech = NULL;
00243 float fx, fy, fz = 0.0;
00244 float range = 0.0, enemyX, enemyY, enemyZ;
00245
00246 mech_map = getMap(mech->mapindex);
00247 cch(MECH_USUAL);
00248 numargs = mech_parseattributes(buffer, args, 3);
00249 DOCHECK(numargs > 2, "Wrong number of arguments to report!");
00250 DOCHECK(!MechScanRange(mech), "Your system seems to be inoperational.");
00251 switch (numargs) {
00252 case 1:
00253
00254 targetID[0] = args[0][0];
00255 targetID[1] = args[0][1];
00256 target = FindTargetDBREFFromMapNumber(mech, targetID);
00257 tempMech = getMech(target);
00258 DOCHECK(!tempMech, "Target is not in line of sight!");
00259 range = FaMechRange(mech, tempMech);
00260 DOCHECK(!InLineOfSight(mech, tempMech, MechX(tempMech),
00261 MechY(tempMech), range),
00262 "Target is not in line of sight!");
00263 DOCHECK(!InLineOfSight_NB(mech, tempMech, MechX(tempMech),
00264 MechY(tempMech), range),
00265 "That target isn't seen well enough by the scanners for a report!");
00266 break;
00267 case 2:
00268
00269 mapx = atoi(args[0]);
00270 mapy = atoi(args[1]);
00271 MapCoordToRealCoord(mapx, mapy, &fx, &fy);
00272 range =
00273 FindRange(MechFX(mech), MechFY(mech), MechFZ(mech), fx, fy, fz);
00274 ValidCoordA(mech_map, mapx, mapy,
00275 "Those coordinates are out of scanner range.");
00276 DOCHECK((int) range > MechScanRange(mech),
00277 "Those coordinates are out of scanner range.");
00278 DOCHECK(!InLineOfSight(mech, tempMech, mapx, mapy, range),
00279 "Coordinates are not in line of sight!");
00280 DOCHECK(!InLineOfSight_NB(mech, tempMech, mapx, mapy, range),
00281 "That target isn't seen well enough by the scanners for a report!");
00282 fz = ZSCALE * Elevation(mech_map, mapx, mapy);
00283
00284 tempMech = find_mech_in_hex(mech, mech_map, mapx, mapy, 1);
00285 DOCHECK(!tempMech, "No target found.");
00286 break;
00287 case 0:
00288
00289 target = MechTarget(mech);
00290 tempMech = getMech(target);
00291 if(tempMech) {
00292 range = FaMechRange(mech, tempMech);
00293 DOCHECK(!InLineOfSight(mech, tempMech, MechX(tempMech),
00294 MechY(tempMech), range),
00295 "Target is not in line of sight!");
00296 DOCHECK(!InLineOfSight_NB(mech, tempMech, MechX(tempMech),
00297 MechY(tempMech), range),
00298 "That target isn't seen well enough by the scanners for a report!");
00299 } else {
00300 DOCHECK(!FindTargetXY(mech, &enemyX, &enemyY, &enemyZ),
00301 "No default target set!");
00302
00303 tempMech = find_mech_in_hex(mech, mech_map, mapx, mapy, 1);
00304 DOCHECK(!tempMech, "You don't see a thing.");
00305 DOCHECK(!InLineOfSight(mech, tempMech, MechX(tempMech),
00306 MechY(tempMech), range),
00307 "You don't see a thing.");
00308 }
00309 }
00310 if(tempMech)
00311 PrintReport(player, mech, tempMech, range);
00312 }
00313
00314 void ShowTurretFacing(dbref player, int spaces, MECH * mech)
00315 {
00316 int i;
00317 int j;
00318 char buff[MBUF_SIZE];
00319
00320 if(GetSectInt(mech, TURRET) && !(MechType(mech) == CLASS_MECH ||
00321 MechType(mech) == CLASS_BSUIT
00322 || MechType(mech) == CLASS_MW)
00323 && !is_aero(mech)) {
00324 i = AcceptableDegree(MechTurretFacing(mech));
00325 if(i > 180)
00326 i -= 360;
00327 j = AcceptableDegree(MechTurretFacing(mech) + MechFacing(mech));
00328 if(MechMove(mech) != MOVE_NONE)
00329 sprintf(buff, " Turret Facing: %d degrees%s", j,
00330 i ? tprintf(" (%d offset from heading)", i) : "");
00331 else
00332 sprintf(buff, " Turret Facing: %d degrees", j);
00333 notify(player, buff);
00334 }
00335 }
00336
00337 void PrintReport(dbref player, MECH * mech, MECH * tempMech, float range)
00338 {
00339 int bearing;
00340 char buff[100];
00341 int weaponarc;
00342 char *mech_name;
00343
00344 mech_name = silly_atr_get(tempMech->mynum, A_MECHNAME);
00345 sprintf(buff, "[%s] %-25.25s Tonnage: %d", MechIDS(tempMech,
00346 MechSeemsFriend(mech,
00347 tempMech)),
00348 mech_name, MechTons(tempMech));
00349 notify(player, buff);
00350 bearing =
00351 FindBearing(MechFX(mech), MechFY(mech), MechFX(tempMech),
00352 MechFY(tempMech));
00353 sprintf(buff, " Range: %.1f hex\t\tBearing: %d degrees", range,
00354 bearing);
00355 notify(player, buff);
00356 sprintf(buff, " Speed: %.1f KPH\t\tHeading: %d degrees",
00357 MechSpeed(tempMech), MechVFacing(tempMech));
00358 notify(player, buff);
00359 if(FlyingT(tempMech))
00360 notify_printf(player, " Vertical speed: %.1f KPH",
00361 MechVerticalSpeed(tempMech));
00362 sprintf(buff, " X, Y, Z: %3d, %3d, %3d\tHeat: %.0f deg C.",
00363 MechX(tempMech), MechY(tempMech), MechZ(tempMech),
00364 10. * MechHeat(tempMech));
00365 notify(player, buff);
00366 if(MechLateral(tempMech))
00367 notify_printf(player, " Mech is moving laterally %s",
00368 LateralDesc(tempMech));
00369 ShowTurretFacing(player, 6, tempMech);
00370
00371 switch (MechMove(tempMech)) {
00372 case MOVE_NONE:
00373 notify(player, " Type: INSTALLATION");
00374 break;
00375 case MOVE_BIPED:
00376 switch (MechType(tempMech)) {
00377 case CLASS_MW:
00378 notify(player, " Type: MECHWARRIOR Movement: BIPED");
00379 break;
00380 case CLASS_MECH:
00381 notify(player, " Type: MECH Movement: BIPED");
00382 break;
00383 case CLASS_BSUIT:
00384 notify(player, " Type: BATTLESUIT(S) Movement: BIPED");
00385
00386 }
00387 break;
00388 case MOVE_QUAD:
00389 notify(player, " Type: MECH Movement: QUAD");
00390 break;
00391 case MOVE_TRACK:
00392 notify(player, " Type: VEHICLE Movement: TRACKED");
00393 break;
00394 case MOVE_WHEEL:
00395 notify(player, " Type: VEHICLE Movement: WHEELED");
00396 break;
00397 case MOVE_HOVER:
00398 notify(player, " Type: VEHICLE Movement: HOVER");
00399 break;
00400 case MOVE_VTOL:
00401 notify(player, " Type: VTOL Movement: VTOL");
00402 break;
00403 case MOVE_FLY:
00404 notify_printf(player,
00405 " Type: %-9s Movement: FLIGHT",
00406 MechType(tempMech) ==
00407 CLASS_AERO ? "AEROSPACE" : "DROPSHIP");
00408 break;
00409 case MOVE_HULL:
00410 notify(player, " Type: NAVAL Movement: HULL");
00411 break;
00412 case MOVE_SUB:
00413 notify(player, " Type: NAVAL Movement: SUBMARINE");
00414 break;
00415 case MOVE_FOIL:
00416 notify(player, " Type: NAVAL Movement: HYDROFOIL");
00417 break;
00418 }
00419
00420 weaponarc = InWeaponArc(mech, MechFX(tempMech), MechFY(tempMech));
00421 if(weaponarc & TURRETARC) {
00422 notify(player, " In Turret Arc");
00423 weaponarc &= ~TURRETARC;
00424 }
00425 notify_printf(player, " In %s Weapons Arc",
00426 GetArcID(mech, weaponarc));
00427 Mech_ShowFlags(player, tempMech, 6, 1);
00428 if(Jumping(tempMech))
00429 notify_printf(player, " Mech is Jumping!\tJump Heading: %d",
00430 MechJumpHeading(tempMech));
00431 notify(player, " ");
00432 }
00433
00434 void PrintEnemyStatus(dbref player, MECH * mymech, MECH * mech,
00435 float range, int opt)
00436 {
00437 MECH *tempMech;
00438 int owner = 0;
00439
00440 if(!CheckData(player, mech))
00441 return;
00442 if(MechCritStatus(mymech) & OBSERVATORIC)
00443 owner = 1;
00444 PrintReport(player, mymech, mech, range);
00445 if(opt & SHOW_ARMOR)
00446 PrintArmorStatus(player, mech, owner);
00447 if(opt & SHOW_INFO) {
00448 if(MechStatus(mech) & TORSO_RIGHT)
00449 notify(player, "Torso is 60 degrees right");
00450 if(MechStatus(mech) & TORSO_LEFT)
00451 notify(player, "Torso is 60 degrees left");
00452 if(MechCarrying(mech) > 0)
00453 if((tempMech = getMech(MechCarrying(mech))))
00454 notify_printf(player, "Towing %s.", GetMechToMechID(mech,
00455 tempMech));
00456 notify(player, " ");
00457 }
00458 if(opt & SHOW_WEAPONS) {
00459 if(owner)
00460 PrintWeaponStatus(mech, player);
00461 else
00462 PrintEnemyWeaponStatus(mech, player);
00463 }
00464 }
00465
00466 void mech_bearing(dbref player, void *data, char *buffer)
00467 {
00468 MECH *mech = (MECH *) data, *tempMech;
00469 MAP *mech_map;
00470 char *args[4];
00471 int argc;
00472 int ix0, iy0;
00473 float x0, y0;
00474 int ix1, iy1;
00475 float x1, y1, z1;
00476 float temp;
00477 char trash[20];
00478 char buff[100];
00479
00480 x1 = y1 = -1;
00481
00482 cch(MECH_USUAL);
00483 x0 = MechFX(mech);
00484 y0 = MechFY(mech);
00485 if(mech->mapindex != -1) {
00486 mech_map = getMap(mech->mapindex);
00487 argc = mech_parseattributes(buffer, args, 4);
00488 if(argc == 0) {
00489
00490 if(MechTarget(mech) != -1) {
00491 tempMech = getMech(MechTarget(mech));
00492 if(tempMech) {
00493 if(!InLineOfSight(mech, tempMech, MechX(tempMech),
00494 MechY(tempMech), FaMechRange(mech,
00495 tempMech)))
00496 {
00497 notify(player, "Target is not in line of sight!");
00498 return;
00499 }
00500 }
00501 }
00502 if(!FindTargetXY(mech, &x1, &y1, &z1)) {
00503 notify(player, "There is no default target!");
00504 } else {
00505 strcpy(buff, "Bearing to default target is: ");
00506 }
00507 } else if(argc == 2) {
00508
00509 ix1 = atoi(args[0]);
00510 iy1 = atoi(args[1]);
00511 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00512 iy1 < mech_map->map_height)) {
00513 notify(player, "Invalid map coordinates!");
00514 x1 = y1 = -1.;
00515 } else {
00516 sprintf(buff, "Bearing to %d,%d is: ", ix1, iy1);
00517 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00518 }
00519 } else if(argc == 4) {
00520 ix0 = atoi(args[0]);
00521 iy0 = atoi(args[1]);
00522 ix1 = atoi(args[2]);
00523 iy1 = atoi(args[3]);
00524
00525 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00526 y1 < mech_map->map_height && ix0 >= 0 &&
00527 ix0 <= mech_map->map_width && iy0 >= 0 &&
00528 iy0 < mech_map->map_height)) {
00529 notify(player, "Invalid map coordinates!");
00530 x1 = y1 = -1;
00531 } else {
00532 sprintf(buff, "Bearing to %d,%d from %d,%d is: ", ix1, iy1,
00533 ix0, iy0);
00534 MapCoordToRealCoord(ix0, iy0, &x0, &y0);
00535 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00536 }
00537 } else {
00538 notify(player,
00539 "Invalid number of attributes to Bearing function!");
00540 }
00541 if(x1 != -1) {
00542 temp = FindBearing(x0, y0, x1, y1);
00543 sprintf(trash, "%.0f degrees.", temp);
00544 strcat(buff, trash);
00545 notify(player, buff);
00546 }
00547 } else {
00548 notify(player, "You are not on a map!");
00549 }
00550 }
00551
00552 void mech_range(dbref player, void *data, char *buffer)
00553 {
00554 MECH *mech = (MECH *) data, *tempMech = NULL;
00555 MAP *mech_map;
00556 char *args[4];
00557 int argc;
00558 int ix0, iy0;
00559 float x0, y0, z0;
00560 int ix1, iy1;
00561 float x1, y1, z1, hr;
00562 float temp;
00563 char trash[40];
00564 char buff[100];
00565 char buf1[20];
00566 char buf2[20];
00567
00568 x1 = y1 = -1;
00569
00570 cch(MECH_USUAL);
00571 x0 = MechFX(mech);
00572 y0 = MechFY(mech);
00573 z0 = MechFZ(mech);
00574 if(mech->mapindex != -1) {
00575 mech_map = getMap(mech->mapindex);
00576 argc = mech_parseattributes(buffer, args, 4);
00577 if(argc == 0) {
00578
00579 if(MechTarget(mech) != -1) {
00580 tempMech = getMech(MechTarget(mech));
00581 if(tempMech) {
00582 if(!InLineOfSight(mech, tempMech, MechX(tempMech),
00583 MechY(tempMech), FaMechRange(mech,
00584 tempMech)))
00585 {
00586 notify(player, "Target is not in line of sight!");
00587 return;
00588 }
00589 }
00590 }
00591 DOCHECK(!FindTargetXY(mech, &x1, &y1, &z1),
00592 "There is no default target!");
00593 if(MapIsDark(mech_map) && !tempMech)
00594 z1 = ZSCALE * MechZ(mech);
00595 strcpy(buff, "Range to default target is: ");
00596 } else if(argc == 2) {
00597
00598 ix1 = atoi(args[0]);
00599 iy1 = atoi(args[1]);
00600 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00601 iy1 < mech_map->map_height)) {
00602 notify(player, "Invalid map coordinates!");
00603 x1 = y1 = -1.;
00604 } else {
00605 sprintf(buff, "Range to %d,%d is: ", ix1, iy1);
00606 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00607 if(MapIsDark(mech_map))
00608 z1 = ZSCALE * MechZ(mech);
00609 else
00610 z1 = ZSCALE * Elevation(mech_map, ix1, iy1);
00611 }
00612 } else if(argc == 4) {
00613
00614 ix0 = atoi(args[0]);
00615 iy0 = atoi(args[1]);
00616 ix1 = atoi(args[2]);
00617 iy1 = atoi(args[3]);
00618
00619 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00620 iy1 < mech_map->map_height && ix0 >= 0 &&
00621 ix0 <= mech_map->map_width && iy0 >= 0 &&
00622 iy0 < mech_map->map_height)) {
00623 notify(player, "Invalid map coordinates!");
00624 x1 = y1 = -1;
00625 } else {
00626 sprintf(buff, "Range to %d,%d from %d,%d is: ", ix1, iy1,
00627 ix0, iy0);
00628 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00629 MapCoordToRealCoord(ix0, iy0, &x0, &y0);
00630 if(MapIsDark(mech_map))
00631 z1 = z0 = 0;
00632 else {
00633 z1 = ZSCALE * Elevation(mech_map, ix1, iy1);
00634 z0 = ZSCALE * Elevation(mech_map, ix0, iy0);
00635 }
00636 }
00637 } else {
00638 notify(player, "Invalid number of attributes to Range function!");
00639 x1 = y1 = -1;
00640 }
00641 if(x1 != -1) {
00642 temp = FindRange(x0, y0, z0, x1, y1, z1);
00643 hr = FindHexRange(x0, y0, x1, y1);
00644 sprintf(buf1, "%.1f", temp);
00645 sprintf(buf2, "%.1f", hr);
00646 if(strcmp(buf1, buf2))
00647 sprintf(trash, "%s hexes (%s ground hexes).", buf1, buf2);
00648 else
00649 sprintf(trash, "%s hexes.", buf1);
00650 strcat(buff, trash);
00651 notify(player, buff);
00652 }
00653 } else {
00654 notify(player, "You are not on a map!");
00655 }
00656 }
00657
00658 void mech_vector(dbref player, void *data, char *buffer)
00659 {
00660 MECH *mech = (MECH *) data, *tempMech;
00661 MAP *mech_map;
00662 char *args[6];
00663 int argc;
00664 int ix0, iy0, iz0;
00665 float x0, y0, z0;
00666 int ix1, iy1, iz1;
00667 float x1, y1, z1, hr;
00668 float temp;
00669 char trash[40];
00670 char buff[100];
00671 char buf1[20];
00672 char buf2[20];
00673
00674 x1 = y1 = -1;
00675
00676 cch(MECH_USUAL);
00677 x0 = MechFX(mech);
00678 y0 = MechFY(mech);
00679 z0 = MechFZ(mech);
00680 if(mech->mapindex != -1) {
00681 mech_map = getMap(mech->mapindex);
00682 argc = mech_parseattributes(buffer, args, 6);
00683 if(argc == 0) {
00684
00685 if(MechTarget(mech) != -1) {
00686 tempMech = getMech(MechTarget(mech));
00687 if(tempMech) {
00688 if(!InLineOfSight(mech, tempMech, MechX(tempMech),
00689 MechY(tempMech), FaMechRange(mech,
00690 tempMech)))
00691 {
00692 notify(player, "Target is not in line of sight!");
00693 return;
00694 }
00695 }
00696 }
00697 DOCHECK(!FindTargetXY(mech, &x1, &y1, &z1),
00698 "There is no default target!");
00699 strcpy(buff, "Vector to default target is: ");
00700 } else if(argc == 2) {
00701
00702 ix1 = atoi(args[0]);
00703 iy1 = atoi(args[1]);
00704 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00705 iy1 < mech_map->map_height)) {
00706 notify(player, "Invalid map coordinates!");
00707 x1 = y1 = -1.;
00708 } else {
00709 sprintf(buff, "Vector to %d,%d is: ", ix1, iy1);
00710 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00711 z1 = ZSCALE * Elevation(mech_map, ix1, iy1);
00712 }
00713 } else if(argc == 3) {
00714 iz0 = z0 / ZSCALE;
00715 ix1 = atoi(args[0]);
00716 iy1 = atoi(args[1]);
00717 iz1 = atoi(args[2]);
00718 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00719 iy1 < mech_map->map_height)) {
00720 notify(player, "Invalid map coordinates!");
00721 x1 = y1 = -1.;
00722 } else {
00723 sprintf(buff, "Vector to %d,%d,%d is: ", ix1, iy1, iz1);
00724 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00725 z1 = ZSCALE * iz1;
00726 }
00727 } else if(argc == 4) {
00728
00729 ix0 = atoi(args[0]);
00730 iy0 = atoi(args[1]);
00731 ix1 = atoi(args[2]);
00732 iy1 = atoi(args[3]);
00733
00734 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00735 y1 < mech_map->map_height && ix0 >= 0 &&
00736 ix0 <= mech_map->map_width && iy0 >= 0 &&
00737 iy0 < mech_map->map_height)) {
00738 notify(player, "Invalid map coordinates!");
00739 x1 = y1 = -1;
00740 } else {
00741 sprintf(buff, "Vector to %d,%d from %d,%d is: ", ix1, iy1,
00742 ix0, iy0);
00743 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00744 MapCoordToRealCoord(ix0, iy0, &x0, &y0);
00745 z1 = ZSCALE * Elevation(mech_map, ix1, iy1);
00746 z0 = ZSCALE * Elevation(mech_map, ix0, iy0);
00747 }
00748 } else if(argc == 6) {
00749 ix0 = atoi(args[0]);
00750 iy0 = atoi(args[1]);
00751 iz0 = atoi(args[2]);
00752 ix1 = atoi(args[3]);
00753 iy1 = atoi(args[4]);
00754 iz1 = atoi(args[5]);
00755
00756 if(!(ix1 >= 0 && ix1 < mech_map->map_width && iy1 >= 0 &&
00757 y1 < mech_map->map_height && ix0 >= 0 &&
00758 ix0 <= mech_map->map_width && iy0 >= 0 &&
00759 iy0 < mech_map->map_height)) {
00760 notify(player, "Invalid map coordinates!");
00761 x1 = y1 = -1;
00762 } else {
00763 sprintf(buff, "Vector to %d,%d,%d from %d,%d,%d is: ", ix1,
00764 iy1, iz1, ix0, iy0, iz0);
00765 MapCoordToRealCoord(ix1, iy1, &x1, &y1);
00766 MapCoordToRealCoord(ix0, iy0, &x0, &y0);
00767 z1 = ZSCALE * iz1;
00768 z0 = ZSCALE * iz0;
00769 }
00770
00771 } else {
00772 notify(player,
00773 "Invalid number of attributes to Vector function!");
00774 x1 = y1 = -1;
00775 }
00776 if(x1 != -1) {
00777
00778 temp = FindRange(x0, y0, z0, x1, y1, z1);
00779 hr = FindHexRange(x0, y0, x1, y1);
00780 sprintf(buf1, "%.1f", temp);
00781 sprintf(buf2, "%.1f", hr);
00782 if(strcmp(buf1, buf2))
00783 sprintf(trash, "%s hexes (%s ground hexes) and ", buf1, buf2);
00784 else
00785 sprintf(trash, "%s hexes and ", buf1);
00786 strcat(buff, trash);
00787
00788
00789 temp = FindBearing(x0, y0, x1, y1);
00790 if(argc != 0 && argc != 3 && argc != 6)
00791 sprintf(trash, "%.0f degrees.", temp);
00792 else
00793 sprintf(trash, "%.0f degrees mark %c%d.", temp,
00794 (z1 > z0 ? '+' : z1 < z0 ? '-' : ' '),
00795 FindZBearing(x0, y0, z0, x1, y1, z1));
00796 strcat(buff, trash);
00797
00798 notify(player, buff);
00799 }
00800 } else {
00801 notify(player, "You are not on a map!");
00802 }
00803 }
00804
00805 void PrintEnemyWeaponStatus(MECH * mech, dbref player)
00806 {
00807 unsigned char weaparray[MAX_WEAPS_SECTION];
00808 unsigned char weapdata[MAX_WEAPS_SECTION];
00809 int critical[MAX_WEAPS_SECTION];
00810 int count;
00811 int loop;
00812 int ii;
00813 char weapbuff[70];
00814 char tempbuff[50];
00815 char location[20];
00816 int running_sum = 0;
00817
00818 recycle_weaponry(mech);
00819 notify(player, "================WEAPON SYSTEMS================");
00820 if(MechType(mech) == CLASS_BSUIT)
00821 notify(player, "----- Weapon ------ [##] Holder ------ Status");
00822 else
00823 notify(player, "----- Weapon ------ [##] Location ---- Status");
00824 for(loop = 0; loop < NUM_SECTIONS; loop++) {
00825 if(SectIsDestroyed(mech, loop))
00826 continue;
00827 count = FindWeapons(mech, loop, weaparray, weapdata, critical);
00828 if(count > 0) {
00829 ArmorStringFromIndex(loop, tempbuff, MechType(mech),
00830 MechMove(mech));
00831 sprintf(location, "%-14.14s", tempbuff);
00832
00833 for(ii = 0; ii < count; ii++) {
00834 sprintf(weapbuff, " %-18.18s [%2d] ",
00835 &MechWeapons[weaparray[ii]].name[3],
00836 running_sum + ii);
00837 strcat(weapbuff, location);
00838
00839 if(PartIsNonfunctional(mech, loop, critical[ii])) {
00840 strcat(weapbuff, "%ch%cx*****%c");
00841 } else {
00842 if(weapdata[ii]) {
00843 strcat(weapbuff, "-----");
00844 } else {
00845 strcat(weapbuff, "%cgReady%c");
00846 }
00847 }
00848 notify(player, weapbuff);
00849 }
00850 running_sum += count;
00851 }
00852 }
00853 }
00854
00855 void mech_sight(dbref player, void *data, char *buffer)
00856 {
00857 MECH *mech = (MECH *) data;
00858 MAP *mech_map;
00859 char *args[5];
00860 int argc;
00861 int weapnum;
00862
00863 mech_map = getMap(mech->mapindex);
00864 cch(MECH_USUAL);
00865 argc = mech_parseattributes(buffer, args, 5);
00866 if(argc >= 1) {
00867 weapnum = atoi(args[0]);
00868 FireWeaponNumber(player, mech, mech_map, weapnum, argc, args, 1);
00869 } else {
00870 notify(player, "Not enough arguments to the function");
00871 }
00872 }
00873
00874 void mech_view(dbref player, void *data, char *buffer)
00875 {
00876 MECH *mech = (MECH *) data, *target;
00877 MAP *mech_map;
00878 int targetnum;
00879 char targetID[5];
00880 char *args[5];
00881 int argc;
00882 char *target_desc;
00883
00884 cch(MECH_USUAL);
00885 argc = mech_parseattributes(buffer, args, 2);
00886 if(argc == 0) {
00887 if(MechTarget(mech) == -1) {
00888 mech_notify(mech, MECHALL,
00889 "You do not have a default target set!");
00890 return;
00891 }
00892 target = getMech(MechTarget(mech));
00893 if(!target) {
00894 mech_notify(mech, MECHALL, "Invalid default target!");
00895 MechTarget(mech) = -1;
00896 return;
00897 }
00898 DOCHECK(!InLineOfSight_NB(mech, target, MechX(target),
00899 MechY(target), FlMechRange(mech_map, mech,
00900 target)),
00901 "That target isn't seen well enough by the scannfers for viewing!");
00902 if(*(target_desc = silly_atr_get(target->mynum, A_MECHDESC)))
00903 notify(player, target_desc);
00904 else
00905 notify(player, "That target has no markings.");
00906 } else if(argc == 1) {
00907 targetID[0] = args[0][0];
00908 targetID[1] = args[0][1];
00909 targetnum = FindTargetDBREFFromMapNumber(mech, targetID);
00910 if(targetnum == -1) {
00911 mech_notify(mech, MECHPILOT, "Target is not in line of sight!");
00912 return;
00913 }
00914 target = getMech(targetnum);
00915 mech_map = getMap(mech->mapindex);
00916
00917 if(!target ||
00918 !InLineOfSight(mech, target, MechX(target), MechY(target),
00919 FlMechRange(mech_map, mech, target))) {
00920 mech_notify(mech, MECHPILOT, "Target is not in line of sight!");
00921 return;
00922 }
00923
00924 DOCHECK(!InLineOfSight_NB(mech, target, MechX(target),
00925 MechY(target), FlMechRange(mech_map, mech,
00926 target)),
00927 "That target isn't seen well enough by the scanners for viewing!");
00928
00929 if(*(target_desc = silly_atr_get(target->mynum, A_MECHDESC)))
00930 notify(player, target_desc);
00931 else
00932 notify(player, "That target has no markings.");
00933 } else
00934 notify(player, "Invalid number of arguments to function.");
00935 }
