auto unit = Gui::getSelectedUnit(out);

if (!unit)

return CR_FAILURE;

out.print("Creature {}, race {} (0x{:x}), civ {} (0x{:x})\n",

unit->id, unit->race, unit->race, unit->civ_id, unit->civ_id);

for (auto inv_item : unit->inventory) {

df::item* item = inv_item->item;

if (inv_item->mode == df::inv_item_role_type::Worn) {

out << " wears item: #" << item->id;

if (item->flags.bits.owned)

out << " (owned)";

else

out << " (not owned)";

if (item->getEffectiveArmorLevel() != 0)

out << ", armor";

out << std::endl;

}

}

return CR_OK;

out.print("{}", static_cast<int>(tiletype));

if (tileName(tiletype))

out.print(" = {}", tileName(tiletype));

out.print(" ({})", ENUM_KEY_STR(tiletype, tiletype).c_str());

out.print("\n");

df::tiletype_shape shape = tileShape(tiletype);

df::tiletype_material material = tileMaterial(tiletype);

df::tiletype_special special = tileSpecial(tiletype);

df::tiletype_variant variant = tileVariant(tiletype);

out.print("{:>10}: {:4} {}\n","Class" ,static_cast<int>(shape),

ENUM_KEY_STR(tiletype_shape, shape));

out.print("{:>10}: {:4} {}\n","Material" , static_cast<int>(material),

ENUM_KEY_STR(tiletype_material, material));

out.print("{:>10}: {:4} {}\n","Special" , static_cast<int>(special),

ENUM_KEY_STR(tiletype_special, special));

out.print("{:>10}: {:4} {}\n","Variant" , static_cast<int>(variant),

ENUM_KEY_STR(tiletype_variant, variant));

out.print("{:>10}: {}\n" ,"Direction",

tileDirection(tiletype).getStr());

out.print("\n");

auto& inorganic = world->raws.inorganics.all;

if (!Maps::IsValid()) {

out.printerr("Map is not available!\n");

return CR_FAILURE;

}

MapExtras::MapCache mc;

int32_t regionX, regionY, regionZ;

Maps::getPosition(regionX,regionY,regionZ);

df::coord cursor;

if (parameters.size())

Lua::CallLuaModuleFunction(out, "plugins.probe", "parse_commandline", parameters,

1, [&](lua_State *L){

if (!lua_isnil(L, -1))

Lua::CheckDFAssign(L, &cursor, -1);

});

if (!Maps::isValidTilePos(cursor)) {

if (!Gui::getCursorCoords(cursor)) {

out.printerr("No cursor; place cursor over tile to probe.\n");

return CR_FAILURE;

}

}

uint32_t blockX = cursor.x / 16;

uint32_t tileX = cursor.x % 16;

uint32_t blockY = cursor.y / 16;

uint32_t tileY = cursor.y % 16;

MapExtras::Block * b = mc.BlockAt(cursor/16);

if (!b || !b->is_valid()) {

out.printerr("No data.\n");

return CR_OK;

}

auto &block = *b->getRaw();

out.print("block addr: {}\n\n", static_cast<void*>(&block));

df::tiletype tiletype = mc.tiletypeAt(cursor);

df::tile_designation &des = block.designation[tileX][tileY];

df::tile_occupancy &occ = block.occupancy[tileX][tileY];

uint8_t fog_of_war = block.fog_of_war[tileX][tileY];

out.print("tiletype: ");

describeTile(out, tiletype);

out.print("static: ");

describeTile(out, mc.staticTiletypeAt(cursor));

out.print("base: ");

describeTile(out, mc.baseTiletypeAt(cursor));

out.print("temperature1: {} U\n", mc.temperature1At(cursor));

out.print("temperature2: {} U\n", mc.temperature2At(cursor));

int offset = block.region_offset[des.bits.biome];

int bx = clip_range(block.region_pos.x + (offset % 3) - 1, 0, world->world_data->world_width-1);

int by = clip_range(block.region_pos.y + (offset / 3) - 1, 0, world->world_data->world_height-1);

auto biome = &world->world_data->region_map[bx][by];

int sav = biome->savagery;

int evi = biome->evilness;

int sindex = sav > 65 ? 2 : sav < 33 ? 0 : 1;

int eindex = evi > 65 ? 2 : evi < 33 ? 0 : 1;

int surr = sindex + eindex * 3;

const char* surroundings[] = {

"Serene", "Mirthful", "Joyous Wilds",

"Calm", "Wilderness", "Untamed Wilds",

"Sinister", "Haunted", "Terrifying"

};

// biome, geolayer

out << "biome: " << des.bits.biome << " (" <<

"region id=" << biome->region_id << ", " <<

surroundings[surr] << ", " <<

"savagery " << biome->savagery << ", " <<

"evilness " << biome->evilness << ")" << std::endl;

out << "geolayer: " << des.bits.geolayer_index

<< std::endl;

int16_t base_rock = mc.layerMaterialAt(cursor);

if (base_rock != -1)

{

out << "Layer material: " << std::dec << base_rock;

out << " / " << inorganic[base_rock]->id

<< " / "

<< inorganic[base_rock]->material.stone_name

<< std::endl;

}

int16_t vein_rock = mc.veinMaterialAt(cursor);

if (vein_rock != -1)

{

out << "Vein material (final): " << std::dec << vein_rock;

out << " / " << inorganic[vein_rock]->id

<< " / "

<< inorganic[vein_rock]->material.stone_name

<< " ("

<< ENUM_KEY_STR(inclusion_type, b->veinTypeAt(cursor))

<< ")"

<< std::endl;

}

MaterialInfo minfo(mc.baseMaterialAt(cursor));

if (minfo.isValid())

out << "Base material: " << minfo.getToken() << " / " << minfo.toString() << std::endl;

minfo.decode(mc.staticMaterialAt(cursor));

if (minfo.isValid())

out << "Static material: " << minfo.getToken() << " / " << minfo.toString() << std::endl;

// liquids

if (des.bits.flow_size) {

if(des.bits.liquid_type == tile_liquid::Magma)

out <<"magma: ";

else out <<"water: ";

out << des.bits.flow_size << std::endl;

}

if (des.bits.flow_forbid)

out << "flow forbid" << std::endl;

if (des.bits.pile)

out << "stockpile?" << std::endl;

if (des.bits.rained)

out << "rained?" << std::endl;

if (des.bits.smooth)

out << "smooth?" << std::endl;

if (des.bits.water_salt)

out << "salty" << std::endl;

if (des.bits.water_stagnant)

out << "stagnant" << std::endl;

#define PRINT_FLAG( FIELD, BIT ) out.print("{:<16} = {}\n", #BIT , ( FIELD.bits.BIT ? 'Y' : ' ' ) )

out.print("{:<16} = {}\n", "dig", enum_item_key(des.bits.dig));

PRINT_FLAG(occ, dig_marked);

PRINT_FLAG(occ, dig_auto);

out.print("{:<16} = {}\n", "traffic", enum_item_key(des.bits.traffic));

PRINT_FLAG(occ, carve_track_north);

PRINT_FLAG(occ, carve_track_south);

PRINT_FLAG(occ, carve_track_east);

PRINT_FLAG(occ, carve_track_west);

PRINT_FLAG( des, hidden );

PRINT_FLAG( des, light );

PRINT_FLAG( des, outside );

PRINT_FLAG( des, subterranean );

PRINT_FLAG( des, water_table );

PRINT_FLAG( des, rained );

PRINT_FLAG( occ, monster_lair);

out.print("{:<16} = {}\n", "fog_of_war", fog_of_war);

df::coord2d pc(blockX, blockY);

t_feature local;

t_feature global;

Maps::ReadFeatures(&block,&local,&global);

PRINT_FLAG( des, feature_local );

if(local.type != -1)

{

out.print("{:<16}", "");

out.print(" {:4}", block.local_feature);

out.print(" ({:2})", static_cast<int>(local.type));

out.print(" addr {}", static_cast<void*>(local.origin));

out.print(" {}", sa_feature(local.type));

}

PRINT_FLAG( des, feature_global );

if(global.type != -1)

{

out.print("{:<16}", "");

out.print(" {:4}", block.global_feature);

out.print(" ({:2})", static_cast<int>(global.type));

out.print(" {}", static_cast<void*>(global.origin));

out.print(" {}", sa_feature(global.type));

}

out << "local feature idx: " << block.local_feature

<< std::endl;

out << "global feature idx: " << block.global_feature

<< std::endl;

out << std::endl;

out << "Occupancy:" << std::endl;

out.print("{:<16} = {}\n", "building", enum_item_key(occ.bits.building));

PRINT_FLAG(occ, unit);

PRINT_FLAG(occ, unit_grounded);

PRINT_FLAG(occ, item);

PRINT_FLAG(occ, moss);

out << std::endl;

if (block.occupancy[tileX][tileY].bits.no_grow)

out << "no grow" << std::endl;

for (auto blev : block.block_events) {

df::block_square_event_type blevtype = blev->getType();

switch(blevtype) {

case df::block_square_event_type::grass:

{

auto gr_ev = (df::block_square_event_grassst *)blev;

if (gr_ev->amount[tileX][tileY] > 0)

out << "amount of grass: " << (int)gr_ev->amount[tileX][tileY] << std::endl;

break;

}

case df::block_square_event_type::world_construction:

{

auto co_ev = (df::block_square_event_world_constructionst *)blev;

uint16_t bits = co_ev->tile_bitmask[tileY];

out << "construction bits: " << bits << std::endl;

break;

}

default:

break;

}

}

#undef PRINT_FLAG

return CR_OK;

auto bld = Gui::getSelectedBuilding(out);

if (!bld)

return CR_FAILURE;

string name;

bld->getName(&name);

auto bld_type = bld->getType();

int16_t subtype{bld->getSubtype()};

int32_t custom = bld->getCustomType();

out.print("Building {:<4}, \"{}\", type {} ({})",

bld->id,

name,

ENUM_KEY_STR(building_type, bld_type),

static_cast<int>(bld_type));

switch (bld_type) {

case df::building_type::Civzone:

out.print(", subtype {} ({})",

ENUM_KEY_STR(civzone_type, static_cast<df::civzone_type>(subtype)),

subtype);

break;

case df::building_type::Furnace:

out.print(", subtype {} ({})",

ENUM_KEY_STR(furnace_type, static_cast<df::furnace_type>(subtype)),

subtype);

if (static_cast<df::furnace_type>(subtype) == df::furnace_type::Custom)

out.print(", custom type {} ({})",

world->raws.buildings.all[custom]->code,

custom);

break;

case df::building_type::Workshop:

out.print(", subtype {} ({})",

ENUM_KEY_STR(workshop_type, static_cast<df::workshop_type>(subtype)),

subtype);

if (subtype == static_cast<int16_t>(df::workshop_type::Custom))

out.print(", custom type {} ({})",

world->raws.buildings.all[custom]->code,

custom);

break;

case df::building_type::Construction:

out.print(", subtype {} ({})",

ENUM_KEY_STR(construction_type, static_cast<df::construction_type>(subtype)),

subtype);

break;

case df::building_type::Shop:

out.print(", subtype {} ({})",

ENUM_KEY_STR(shop_type, static_cast<df::shop_type>(subtype)),

subtype);

break;

case df::building_type::SiegeEngine:

out.print(", subtype {} ({})",

ENUM_KEY_STR(siegeengine_type, static_cast<df::siegeengine_type>(subtype)),

subtype);

break;

case df::building_type::Trap:

out.print(", subtype {} ({})",

ENUM_KEY_STR(trap_type, static_cast<df::trap_type>(subtype)),

subtype);

break;

case df::building_type::NestBox:

{

df::building_nest_boxst* nestbox = virtual_cast<df::building_nest_boxst>(bld);

if (nestbox)

out.print(", claimed:({}), items:({})", nestbox->claimed_by, nestbox->contained_items.size());

break;

}

default:

if (subtype != -1)

out.print(", subtype {}", subtype);

break;

}

if (bld->relations.size()) //Connected to rooms.

out << ", " << bld->relations.size() << " rooms";

if (bld->getBuildStage() != bld->getMaxBuildStage())

out << ", in construction";

out.print("\n");

return CR_OK;

commands.push_back(PluginCommand("cprobe",

"Display low-level properties of the selected unit.",

df_cprobe));

commands.push_back(PluginCommand("probe",

"Display low-level properties of the selected tile.",

df_probe));

commands.push_back(PluginCommand("bprobe",

"Display low-level properties of the selected building.",

df_bprobe));

return CR_OK;