2011-08-01 18:21:25 -06:00
|
|
|
#include <iostream>
|
|
|
|
#include <iomanip>
|
|
|
|
#include <map>
|
|
|
|
#include <algorithm>
|
|
|
|
#include <vector>
|
|
|
|
#include <string>
|
|
|
|
|
2011-12-31 04:48:42 -07:00
|
|
|
#include "Core.h"
|
2012-01-15 13:54:14 -07:00
|
|
|
#include "Console.h"
|
|
|
|
#include "Export.h"
|
|
|
|
#include "PluginManager.h"
|
|
|
|
#include "modules/Maps.h"
|
|
|
|
#include "modules/Gui.h"
|
|
|
|
#include "TileTypes.h"
|
|
|
|
#include "modules/MapCache.h"
|
2012-12-06 15:46:59 -07:00
|
|
|
#include "df/plant.h"
|
2011-08-01 18:21:25 -06:00
|
|
|
|
|
|
|
using std::vector;
|
|
|
|
using std::string;
|
|
|
|
using namespace DFHack;
|
2012-01-21 16:54:57 -07:00
|
|
|
using df::global::world;
|
|
|
|
|
2012-12-06 15:46:59 -07:00
|
|
|
const uint32_t sapling_to_tree_threshold = 120 * 28 * 12 * 3; // 3 years
|
|
|
|
|
2012-02-21 10:19:17 -07:00
|
|
|
DFHACK_PLUGIN("plants");
|
2011-08-01 18:21:25 -06:00
|
|
|
|
|
|
|
enum do_what
|
|
|
|
{
|
|
|
|
do_immolate,
|
|
|
|
do_extirpate
|
|
|
|
};
|
|
|
|
|
2011-08-08 17:50:22 -06:00
|
|
|
static bool getoptions( vector <string> & parameters, bool & shrubs, bool & trees, bool & help)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-01-31 09:55:38 -07:00
|
|
|
for(size_t i = 0;i < parameters.size();i++)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
|
|
|
if(parameters[i] == "shrubs")
|
|
|
|
{
|
|
|
|
shrubs = true;
|
|
|
|
}
|
|
|
|
else if(parameters[i] == "trees")
|
|
|
|
{
|
|
|
|
trees = true;
|
|
|
|
}
|
|
|
|
else if(parameters[i] == "all")
|
|
|
|
{
|
|
|
|
trees = true;
|
|
|
|
shrubs = true;
|
|
|
|
}
|
2011-08-08 17:50:22 -06:00
|
|
|
else if(parameters[i] == "help" || parameters[i] == "?")
|
|
|
|
{
|
|
|
|
help = true;
|
|
|
|
}
|
2011-08-01 18:21:25 -06:00
|
|
|
else
|
|
|
|
{
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Book of Immolations, chapter 1, verse 35:
|
|
|
|
* Armok emerged from the hellish depths and beheld the sunny realms for the first time.
|
|
|
|
* And he cursed the plants and trees for their bloodless wood, turning them into ash and smoldering ruin.
|
|
|
|
* Armok was pleased and great temples were built by the dwarves, for they shared his hatred for trees and plants.
|
|
|
|
*/
|
2012-03-10 04:55:42 -07:00
|
|
|
static command_result immolations (color_ostream &out, do_what what, bool shrubs, bool trees, bool help)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2011-08-08 17:50:22 -06:00
|
|
|
if(help)
|
2013-10-30 13:19:52 -06:00
|
|
|
return CR_WRONG_USAGE;
|
2012-03-10 04:55:42 -07:00
|
|
|
CoreSuspender suspend;
|
2012-01-19 20:44:17 -07:00
|
|
|
if (!Maps::IsValid())
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-03-10 04:55:42 -07:00
|
|
|
out.printerr("Map is not available!\n");
|
2011-08-01 18:21:25 -06:00
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
uint32_t x_max, y_max, z_max;
|
2012-01-19 20:44:17 -07:00
|
|
|
Maps::getSize(x_max, y_max, z_max);
|
|
|
|
MapExtras::MapCache map;
|
2011-08-01 18:21:25 -06:00
|
|
|
if(shrubs || trees)
|
|
|
|
{
|
|
|
|
int destroyed = 0;
|
2012-01-21 16:54:57 -07:00
|
|
|
for(size_t i = 0 ; i < world->plants.all.size(); i++)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-01-21 16:54:57 -07:00
|
|
|
df::plant *p = world->plants.all[i];
|
|
|
|
if(shrubs && p->flags.bits.is_shrub || trees && !p->flags.bits.is_shrub)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
|
|
|
if (what == do_immolate)
|
2012-12-03 11:03:07 -07:00
|
|
|
p->damage_flags.bits.is_burning = true;
|
2011-08-01 18:21:25 -06:00
|
|
|
p->hitpoints = 0;
|
|
|
|
destroyed ++;
|
|
|
|
}
|
|
|
|
}
|
2012-03-10 04:55:42 -07:00
|
|
|
out.print("Praise Armok!\n");
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
int32_t x,y,z;
|
2012-03-03 06:38:24 -07:00
|
|
|
if(Gui::getCursorCoords(x,y,z))
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-04-11 02:01:27 -06:00
|
|
|
auto block = Maps::getTileBlock(x,y,z);
|
|
|
|
vector<df::plant *> *alltrees = block ? &block->plants : NULL;
|
|
|
|
if(alltrees)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
|
|
|
bool didit = false;
|
|
|
|
for(size_t i = 0 ; i < alltrees->size(); i++)
|
|
|
|
{
|
2012-01-21 16:54:57 -07:00
|
|
|
df::plant * tree = alltrees->at(i);
|
|
|
|
if(tree->pos.x == x && tree->pos.y == y && tree->pos.z == z)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
|
|
|
if(what == do_immolate)
|
2012-12-03 11:03:07 -07:00
|
|
|
tree->damage_flags.bits.is_burning = true;
|
2011-08-01 18:21:25 -06:00
|
|
|
tree->hitpoints = 0;
|
|
|
|
didit = true;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
if(!didit)
|
|
|
|
{
|
|
|
|
cout << "----==== There's NOTHING there! ====----" << endl;
|
|
|
|
}
|
|
|
|
*/
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2012-03-10 04:55:42 -07:00
|
|
|
out.printerr("No mass destruction and no cursor...\n" );
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
}
|
|
|
|
return CR_OK;
|
|
|
|
}
|
|
|
|
|
2012-03-10 04:55:42 -07:00
|
|
|
command_result df_immolate (color_ostream &out, vector <string> & parameters)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2011-08-08 17:50:22 -06:00
|
|
|
bool shrubs = false, trees = false, help = false;
|
|
|
|
if(getoptions(parameters,shrubs,trees,help))
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2013-10-30 13:19:52 -06:00
|
|
|
return immolations(out,do_immolate,shrubs,trees,help);
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2012-03-10 04:55:42 -07:00
|
|
|
out.printerr("Invalid parameter!\n");
|
2013-10-30 13:19:52 -06:00
|
|
|
return CR_WRONG_USAGE;
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2012-03-10 04:55:42 -07:00
|
|
|
command_result df_extirpate (color_ostream &out, vector <string> & parameters)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2011-08-08 17:50:22 -06:00
|
|
|
bool shrubs = false, trees = false, help = false;
|
2013-10-30 13:19:52 -06:00
|
|
|
if(getoptions(parameters,shrubs,trees,help))
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2013-10-30 13:19:52 -06:00
|
|
|
return immolations(out,do_extirpate,shrubs,trees,help);
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2012-03-10 04:55:42 -07:00
|
|
|
out.printerr("Invalid parameter!\n");
|
2013-10-30 13:19:52 -06:00
|
|
|
return CR_WRONG_USAGE;
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2012-03-10 04:55:42 -07:00
|
|
|
command_result df_grow (color_ostream &out, vector <string> & parameters)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-01-31 09:55:38 -07:00
|
|
|
for(size_t i = 0; i < parameters.size();i++)
|
2011-08-08 17:50:22 -06:00
|
|
|
{
|
|
|
|
if(parameters[i] == "help" || parameters[i] == "?")
|
2013-10-30 13:19:52 -06:00
|
|
|
return CR_WRONG_USAGE;
|
2011-08-08 17:50:22 -06:00
|
|
|
}
|
2012-03-10 04:55:42 -07:00
|
|
|
CoreSuspender suspend;
|
|
|
|
|
2012-01-19 20:44:17 -07:00
|
|
|
if (!Maps::IsValid())
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-03-10 04:55:42 -07:00
|
|
|
out.printerr("Map is not available!\n");
|
2011-08-01 18:21:25 -06:00
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
2012-01-19 20:44:17 -07:00
|
|
|
MapExtras::MapCache map;
|
2011-08-01 18:21:25 -06:00
|
|
|
int32_t x,y,z;
|
2012-03-03 06:38:24 -07:00
|
|
|
if(Gui::getCursorCoords(x,y,z))
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-04-11 02:01:27 -06:00
|
|
|
auto block = Maps::getTileBlock(x,y,z);
|
|
|
|
vector<df::plant *> *alltrees = block ? &block->plants : NULL;
|
|
|
|
if(alltrees)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
|
|
|
for(size_t i = 0 ; i < alltrees->size(); i++)
|
|
|
|
{
|
2012-01-21 16:54:57 -07:00
|
|
|
df::plant * tree = alltrees->at(i);
|
|
|
|
if(tree->pos.x == x && tree->pos.y == y && tree->pos.z == z)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-02-13 15:56:33 -07:00
|
|
|
if(tileShape(map.tiletypeAt(DFCoord(x,y,z))) == tiletype_shape::SAPLING &&
|
|
|
|
tileSpecial(map.tiletypeAt(DFCoord(x,y,z))) != tiletype_special::DEAD)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-12-06 15:46:59 -07:00
|
|
|
tree->grow_counter = sapling_to_tree_threshold;
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
int grown = 0;
|
2012-01-21 16:54:57 -07:00
|
|
|
for(size_t i = 0 ; i < world->plants.all.size(); i++)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-01-21 16:54:57 -07:00
|
|
|
df::plant *p = world->plants.all[i];
|
2012-02-13 15:56:33 -07:00
|
|
|
df::tiletype ttype = map.tiletypeAt(df::coord(p->pos.x,p->pos.y,p->pos.z));
|
|
|
|
if(!p->flags.bits.is_shrub && tileShape(ttype) == tiletype_shape::SAPLING && tileSpecial(ttype) != tiletype_special::DEAD)
|
2011-08-01 18:21:25 -06:00
|
|
|
{
|
2012-12-06 15:46:59 -07:00
|
|
|
p->grow_counter = sapling_to_tree_threshold;
|
2011-08-01 18:21:25 -06:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return CR_OK;
|
|
|
|
}
|
|
|
|
|
2013-10-30 13:19:52 -06:00
|
|
|
command_result df_createplant (color_ostream &out, vector <string> & parameters)
|
|
|
|
{
|
|
|
|
if ((parameters.size() != 1) || (parameters[0] == "help" || parameters[0] == "?"))
|
|
|
|
return CR_WRONG_USAGE;
|
|
|
|
|
|
|
|
CoreSuspender suspend;
|
|
|
|
|
|
|
|
if (!Maps::IsValid())
|
|
|
|
{
|
|
|
|
out.printerr("Map is not available!\n");
|
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
int32_t x,y,z;
|
|
|
|
if(!Gui::getCursorCoords(x,y,z))
|
|
|
|
{
|
|
|
|
out.printerr("No cursor detected - please place the cursor over the location in which you wish to create a new plant.\n");
|
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
df::map_block *map = Maps::getTileBlock(x, y, z);
|
|
|
|
if (!map)
|
|
|
|
{
|
|
|
|
out.printerr("Invalid location selected!\n");
|
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
int tx = x & 15, ty = y & 15;
|
|
|
|
int mat = tileMaterial(map->tiletype[tx][ty]);
|
|
|
|
if ((tileShape(map->tiletype[tx][ty]) != tiletype_shape::FLOOR) || ((mat != tiletype_material::SOIL) && (mat != tiletype_material::GRASS_DARK) && (mat != tiletype_material::GRASS_LIGHT)))
|
|
|
|
{
|
|
|
|
out.printerr("Plants can only be placed on dirt or grass floors!\n");
|
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
int plant_id = -1;
|
|
|
|
df::plant_raw *plant_raw = NULL;
|
|
|
|
for (size_t i = 0; i < world->raws.plants.all.size(); i++)
|
|
|
|
{
|
|
|
|
plant_raw = world->raws.plants.all[i];
|
|
|
|
if (plant_raw->id == parameters[0])
|
|
|
|
{
|
|
|
|
plant_id = i;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (plant_id == -1)
|
|
|
|
{
|
|
|
|
out.printerr("Invalid plant ID specified!\n");
|
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
if (plant_raw->flags.is_set(plant_raw_flags::GRASS))
|
|
|
|
{
|
|
|
|
out.printerr("You cannot plant grass using this command.\n");
|
|
|
|
return CR_FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
df::plant *plant = new df::plant;
|
|
|
|
if (plant_raw->flags.is_set(plant_raw_flags::TREE))
|
|
|
|
plant->hitpoints = 400000;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
plant->hitpoints = 100000;
|
|
|
|
plant->flags.bits.is_shrub = 1;
|
|
|
|
}
|
|
|
|
// for now, always set "watery" for WET-permitted plants, even if they're spawned away from water
|
|
|
|
// the proper method would be to actually look for nearby water features, but it's not clear exactly how that works
|
|
|
|
if (plant_raw->flags.is_set(plant_raw_flags::WET))
|
|
|
|
plant->flags.bits.watery = 1;
|
|
|
|
plant->material = plant_id;
|
|
|
|
plant->pos.x = x;
|
|
|
|
plant->pos.y = y;
|
|
|
|
plant->pos.z = z;
|
|
|
|
plant->update_order = rand() % 10;
|
|
|
|
plant->temperature_tile_tick = -1;
|
|
|
|
plant->temperature_tile = 60001;
|
|
|
|
plant->min_safe_temp = 9900;
|
|
|
|
plant->max_safe_temp = 60001;
|
|
|
|
|
|
|
|
world->plants.all.push_back(plant);
|
|
|
|
switch (plant->flags.whole & 3)
|
|
|
|
{
|
|
|
|
case 0: world->plants.tree_dry.push_back(plant); break;
|
|
|
|
case 1: world->plants.tree_wet.push_back(plant); break;
|
|
|
|
case 2: world->plants.shrub_dry.push_back(plant); break;
|
|
|
|
case 3: world->plants.shrub_wet.push_back(plant); break;
|
|
|
|
}
|
|
|
|
map->plants.push_back(plant);
|
|
|
|
if (plant->flags.bits.is_shrub)
|
|
|
|
map->tiletype[tx][ty] = tiletype::Shrub;
|
|
|
|
else
|
|
|
|
map->tiletype[tx][ty] = tiletype::Sapling;
|
|
|
|
|
|
|
|
return CR_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
DFhackCExport command_result plugin_init ( color_ostream &out, std::vector <PluginCommand> &commands)
|
|
|
|
{
|
|
|
|
commands.push_back(PluginCommand("grow", "Grows saplings into trees (with active cursor, only the targetted one).", df_grow,
|
|
|
|
"This command turns all living saplings on the map into full-grown trees.\n"));
|
|
|
|
commands.push_back(PluginCommand("immolate", "Set plants on fire (under cursor, 'shrubs', 'trees' or 'all').", df_immolate,
|
|
|
|
"Without any options, this command burns a plant under the cursor.\n"
|
|
|
|
"Options:\n"
|
|
|
|
"shrubs - affect all shrubs\n"
|
|
|
|
"trees - affect all trees\n"
|
|
|
|
"all - affect all plants\n"));
|
|
|
|
commands.push_back(PluginCommand("extirpate", "Kill plants (same mechanics as immolate).", df_extirpate,
|
|
|
|
"Without any options, this command destroys a plant under the cursor.\n"
|
|
|
|
"Options:\n"
|
|
|
|
"shrubs - affect all shrubs\n"
|
|
|
|
"trees - affect all trees\n"
|
|
|
|
"all - affect all plants\n"));
|
|
|
|
commands.push_back(PluginCommand("createplant", "Create a new plant at the cursor.", df_createplant,
|
|
|
|
"Specify the type of plant to create by its raw ID (e.g. TOWER_CAP or MUSHROOM_HELMET_PLUMP).\n"
|
|
|
|
"Only shrubs and saplings can be placed, and they must be located on a dirt or grass floor.\n"));
|
|
|
|
return CR_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
DFhackCExport command_result plugin_shutdown ( color_ostream &out )
|
|
|
|
{
|
|
|
|
return CR_OK;
|
|
|
|
}
|