static int Find_Single_DS_In_MechHex(MECH * mech, long *ref, long *bayn)
{
MAP *map = FindObjectsData(mech->mapindex);
int loop;
MECH *tempMech;
int count = 0;
*ref = 0;
if(!map)
return 0;
for(loop = 0; loop < map->first_free; loop++)
if(map->mechsOnMap[loop] >= 0) {
if(!(tempMech = getMech(map->mechsOnMap[loop])))
continue;
if(!IsDS(tempMech))
continue;
if(!Landed(tempMech))
continue; /* This might break midflight-aero-DS-docking. But aeros are broken anyway. */
if(Find_DS_Bay_In_MechHex(mech, tempMech, bayn)) {
if(count++)
*ref = -1;
else
*ref = tempMech->mynum;
}
}
return count;
}
void aero_move_event(EVENT * e)
{
MECH *mech = (MECH *) e->data;
if (!Landed(mech)) {
/* Returns 1 only if we
1) Ran out of fuel, and
2) Were VTOL, and
3) Crashed
*/
if (FuelCheck(mech))
return;
/* Genuine CHEAT :-) */
if (Started(mech)) {
aero_UpdateHeading(mech);
aero_UpdateSpeed(mech);
}
if (Fallen(mech))
MechStartFZ(mech) = MechStartFZ(mech) - 1;
move_mech(mech);
if (IsDS(mech) && MechZ(mech) <= (MechElevation(mech) + 5) &&
((event_tick / WEAPON_TICK) % 10) == 0)
DS_BlastNearbyMechsAndTrees(mech,
"You are hit by the DropShip's plasma exhaust!",
"is hit directly by DropShip's exhaust!",
"You are hit by the DropShip's plasma exhaust!",
"is hit by DropShip's exhaust!", "light up and burn.", 8);
MECHEVENT(mech, EVENT_MOVE, aero_move_event, MOVE_TICK, 0);
} else if (Landed(mech) && !Fallen(mech) && RollingT(mech)) {
UpdateHeading(mech);
UpdateSpeed(mech);
move_mech(mech);
if (fabs(MechSpeed(mech)) > 0.0 ||
fabs(MechDesiredSpeed(mech)) > 0.0 ||
MechDesiredFacing(mech) != MechFacing(mech))
if (!FuelCheck(mech))
MECHEVENT(mech, EVENT_MOVE, aero_move_event, MOVE_TICK, 0);
}
}
void mech_enterbay(dbref player, void *data, char *buffer)
{
char *args[3];
int argc;
dbref ref = -1, bayn = -1;
MECH *mech = data, *ds;
MAP *map;
cch(MECH_USUAL);
DOCHECK(MechType(mech) == CLASS_VTOL &&
AeroFuel(mech) <= 0, "You lack fuel to maneuver in!");
DOCHECK(Jumping(mech), "While in mid-jump? No way.");
DOCHECK(MechType(mech) == CLASS_MECH && (Fallen(mech) ||
Standing(mech)),
"Crawl inside? I think not. Stand first.");
DOCHECK(OODing(mech), "While in mid-flight? No way.");
DOCHECK((argc =
mech_parseattributes(buffer, args, 2)) == 2,
"Hmm, invalid number of arguments?");
if(argc > 0)
DOCHECK((ref =
FindTargetDBREFFromMapNumber(mech, args[0])) <= 0,
"Invalid target!");
if(ref < 0) {
DOCHECK(!Find_Single_DS_In_MechHex(mech, &ref, &bayn),
"No DS bay found in your hex!");
DOCHECK(ref < 0,
"Multiple enterable things found ; use the id for specifying which you want.");
DOCHECK(!(ds =
getMech(ref)), "You sense wrongness in fabric of space.");
} else {
DOCHECK(!(ds =
getMech(ref)), "You sense wrongness in fabric of space.");
DOCHECK(!Find_DS_Bay_In_MechHex(mech, ds, &bayn),
"You see no bays in your hex.");
}
DOCHECK(IsDS(mech)
&& !(MechSpecials2(mech) & CARRIER_TECH),
"Your craft can't enter bays.");
DOCHECK(!DS_Bay_Is_Open(mech, ds, AeroBay(ds, bayn)),
"The door has been jammed!");
DOCHECK(IsDS(mech), "Your unit is a bit too large to fit in there.");
DOCHECK((fabs((float) (MechSpeed(mech) - MechSpeed(ds)))) > MP1,
"Speed difference's too large to enter!");
DOCHECK(MechZ(ds) != MechZ(mech),
"Get to same elevation before thinking about entering!");
DOCHECK(abs(MechVerticalSpeed(mech) - MechVerticalSpeed(ds)) > 10,
"Vertical speed difference is too great to enter safely!");
DOCHECK(MechType(mech) == CLASS_MECH && !MechIsQuad(mech) &&
(IsMechLegLess(mech)), "Without legs? Are you kidding?");
ref = AeroBay(ds, bayn);
map = getMap(ref);
DOCHECK(!map, "You sense wrongness in fabric of space.");
DOCHECK(EnteringHangar(mech), "You are already entering the hangar!");
if(!can_pass_lock(mech->mynum, ref, A_LENTER)) {
char *msg = silly_atr_get(ref, A_FAIL);
if(!msg || !*msg)
msg = "You are unable to enter the bay!";
notify(player, msg);
return;
}
DOCHECK(!DS_Bay_Is_EnterOK(mech, ds, AeroBay(ds, bayn)),
"Someone else is using the door at the moment.");
DOCHECK(!(map =
getMap(mech->mapindex)),
"You sense a wrongness in fabric of space.");
HexLOSBroadcast(map, MechX(mech), MechY(mech),
"The bay doors at $h start to open..");
MECHEVENT(mech, EVENT_ENTER_HANGAR, mech_enterbay_event, 12, ref);
}
