Method OnObjpadDeleteAll

editor/ObjectDialog.cpp:1272–1312

}

void CObjectDialog::OnObjpadDeleteAll() {
  if (Cur_object_index == -1)
    return;

  object *objp = &Objects[Cur_object_index];

  if (objp->type == OBJ_PLAYER) {
    OutrageMessageBox("You cannot use this function on player objects.");
    return;
  }

  int type = objp->type, id = objp->id;

  if (type == OBJ_DOOR) {
    if (OutrageMessageBox(MBOX_YESNO,
                          "It's very, very bad to delete a door object.  Are you sure you want to delete all instances "
                          "of the \"%s\" door?",
                          Doors[id].name) != IDYES)
      return;
  } else { // Not a door
    char *objid_name;
    if (IS_GENERIC(type))
      objid_name = Object_info[id].name;
    else
      objid_name = "<unknown>";
    if (OutrageMessageBox(MBOX_YESNO, "Are you sure you want to delete all %s objects of type \"%s\" in the mine?",
                          Object_type_names[type], objid_name) != IDYES)
      return;
  }

  int count = 0;
  for (int objnum = 0; objnum <= Highest_object_index; objnum++) {
    if ((Objects[objnum].type == type) && (Objects[objnum].id == id)) {
      ObjDelete(objnum);
      count++;
    }
  }

  EditorStatus("%d objects deleted.", count);
  World_changed = 1;
}