164 lines
4.4 KiB
C++
164 lines
4.4 KiB
C++
// Produces a list of materials available on the map.
|
|
// Options:
|
|
// -a : show unrevealed tiles
|
|
// -p : don't show plants
|
|
// -s : don't show slade
|
|
// -t : don't show demon temple
|
|
|
|
//#include <cstdlib>
|
|
#include <iostream>
|
|
#include <iomanip>
|
|
#include <map>
|
|
#include <algorithm>
|
|
#include <vector>
|
|
|
|
using namespace std;
|
|
#include "Core.h"
|
|
#include "Console.h"
|
|
#include "Export.h"
|
|
#include "PluginManager.h"
|
|
#include "modules/MapCache.h"
|
|
|
|
#include "MiscUtils.h"
|
|
|
|
#include "DataDefs.h"
|
|
#include "df/world.h"
|
|
#include "df/world_data.h"
|
|
#include "df/world_region_details.h"
|
|
#include "df/world_geo_biome.h"
|
|
#include "df/world_geo_layer.h"
|
|
#include "df/region_map_entry.h"
|
|
#include "df/inclusion_type.h"
|
|
#include "df/viewscreen_choose_start_sitest.h"
|
|
|
|
using namespace DFHack;
|
|
using namespace df::enums;
|
|
using df::global::world;
|
|
using df::coord2d;
|
|
|
|
|
|
|
|
command_result rprobe (color_ostream &out, vector <string> & parameters);
|
|
|
|
DFHACK_PLUGIN("rprobe");
|
|
|
|
DFhackCExport command_result plugin_init ( color_ostream &out, std::vector <PluginCommand> &commands)
|
|
{
|
|
commands.push_back(PluginCommand(
|
|
"rprobe", "Display region information from embark screen",
|
|
rprobe, false,
|
|
"Display assorted region information from embark screen\n"
|
|
));
|
|
return CR_OK;
|
|
}
|
|
|
|
DFhackCExport command_result plugin_shutdown ( color_ostream &out )
|
|
{
|
|
return CR_OK;
|
|
}
|
|
|
|
|
|
command_result rprobe (color_ostream &out, vector <string> & parameters)
|
|
{
|
|
CoreSuspender suspend;
|
|
|
|
bool set = false;
|
|
int to_set = -1, set_field = -1, set_val = -1;
|
|
|
|
// Embark screen active: estimate using world geology data
|
|
VIRTUAL_CAST_VAR(screen, df::viewscreen_choose_start_sitest, Core::getTopViewscreen());
|
|
|
|
if (!screen)
|
|
return CR_WRONG_USAGE;
|
|
|
|
if (!world || !world->world_data)
|
|
{
|
|
out.printerr("World data is not available.\n");
|
|
return CR_FAILURE;
|
|
}
|
|
|
|
|
|
if (parameters.size() == 2)
|
|
{
|
|
if (parameters[0] == "rai")
|
|
set_field = 0;
|
|
else if (parameters[0] == "veg")
|
|
set_field = 1;
|
|
else if (parameters[0] == "tem")
|
|
set_field = 2;
|
|
else if (parameters[0] == "evi")
|
|
set_field = 3;
|
|
else if (parameters[0] == "dra")
|
|
set_field = 4;
|
|
else if (parameters[0] == "sav")
|
|
set_field = 5;
|
|
else if (parameters[0] == "sal")
|
|
set_field = 6;
|
|
else
|
|
return CR_WRONG_USAGE;
|
|
|
|
if (screen->biome_highlighted)
|
|
to_set = screen->biome_idx;
|
|
else
|
|
to_set = 0;
|
|
|
|
set = true;
|
|
set_val = atoi(parameters[1].c_str());
|
|
}
|
|
|
|
df::world_data *data = world->world_data;
|
|
|
|
// Compute biomes
|
|
for (size_t i = 0; i < screen->location.biome_rgn.size(); i++)
|
|
{
|
|
coord2d rg = screen->location.biome_rgn[i];
|
|
|
|
auto rd = &data->region_map[rg.x][rg.y];
|
|
|
|
if (set && int(i) == to_set) {
|
|
if (set_field == 0)
|
|
rd->rainfall = set_val;
|
|
else if (set_field == 1)
|
|
rd->vegetation = set_val;
|
|
else if (set_field == 2)
|
|
rd->temperature = set_val;
|
|
else if (set_field == 3)
|
|
rd->evilness = set_val;
|
|
else if (set_field == 4)
|
|
rd->drainage = set_val;
|
|
else if (set_field == 5)
|
|
rd->savagery = set_val;
|
|
else if (set_field == 6)
|
|
rd->salinity = set_val;
|
|
}
|
|
|
|
out << i << ": x = " << rg.x << ", y = " << rg.y;
|
|
|
|
out <<
|
|
" region_id: " << rd->region_id <<
|
|
" geo_index: " << rd->geo_index <<
|
|
" landmass_id: " << rd->landmass_id <<
|
|
" flags: " << hex << rd->flags.as_int() << dec << endl;
|
|
out <<
|
|
"rai: " << rd->rainfall << " " <<
|
|
"veg: " << rd->vegetation << " " <<
|
|
"tem: " << rd->temperature << " " <<
|
|
"evi: " << rd->evilness << " " <<
|
|
"dra: " << rd->drainage << " " <<
|
|
"sav: " << rd->savagery << " " <<
|
|
"sal: " << rd->salinity;
|
|
|
|
int32_t *p = (int32_t *)rd;
|
|
int c = sizeof(*rd) / sizeof(int32_t);
|
|
for (int j = 0; j < c; j++) {
|
|
if (j % 8 == 0)
|
|
out << endl << setfill('0') << setw(8) << hex << (intptr_t)(rd+j) << ": ";
|
|
out << " " << setfill('0') << setw(8) << hex << p[j];
|
|
}
|
|
out << setfill(' ') << setw(0) << dec << endl;
|
|
|
|
}
|
|
|
|
return CR_OK;
|
|
}
|