Function aKillBotsNearObj

scripts/Merc4.cpp:856–908

$$ACTION Custom Kill robots and players near [o:Object] aKillBotsNearObj Kill robots and players near object Kills robots and players near an object Parameters: Object: the object to search from $$END */

$$END
*/
void aKillBotsNearObj(int objhandle) {
  int room;
  vector pos;
  float radius;
  int type;
  int scan_objs[MAX_SCAN_OBJECTS];
  int n_scan;
  int n, i;
  uint16_t id;

  if (!qObjExists(objhandle))
    return;

  // Look up names if we haven't already
  if (!names_looked_up) {
    guidebot_id = Obj_FindID("GuideBot");
    names_looked_up = true;
  }

  // Make sure this object still exists
  Obj_Value(objhandle, VF_GET, OBJV_I_TYPE, &type);
  if (type == OBJ_NONE)
    return;

  // Get the size and position of the object
  Obj_Value(objhandle, VF_GET, OBJV_F_SIZE, &radius);
  Obj_Value(objhandle, VF_GET, OBJV_V_POS, &pos);
  Obj_Value(objhandle, VF_GET, OBJV_I_ROOMNUM, &room);

  // Scan for any nearby objects
  // NOTE: check the func below to see what other params do!!!
  n_scan = AI_GetNearbyObjs(&pos, room, radius, scan_objs, MAX_SCAN_OBJECTS, false, true, false, true);

  // Go through the objects that have been found and kill any robots or players
  for (i = 0; i < n_scan; i++) {
    Obj_Value(scan_objs[i], VF_GET, OBJV_I_TYPE, &type);
    if (type == OBJ_ROBOT || type == OBJ_PLAYER) {
      // Make sure it's not the guidebot
      if (type == OBJ_ROBOT) {
        Obj_Value(scan_objs[i], VF_GET, OBJV_US_ID, &id);
        if (id == ROBOT_GUIDEBOT || id == ROBOT_GUIDEBOTRED)
          continue;
      }

      // Just do damage to players, but destroy robots on contact
      if (type == OBJ_PLAYER) {
        aObjApplyDamage(scan_objs[i], 5.0f);
      } else {
        aObjDestroy(scan_objs[i]);
      }
    }
  }
}

int teleport_effect_id = -1;