1118 lines
34 KiB
C++
1118 lines
34 KiB
C++
#include <string.h> // for memset
|
|
#include <string>
|
|
#include <fstream>
|
|
#include <iostream>
|
|
#include <iomanip>
|
|
#include <vector>
|
|
#include <map>
|
|
#include <bitset>
|
|
using namespace std;
|
|
|
|
#include <sstream>
|
|
// the header name comes from the build system.
|
|
#include <curses.h>
|
|
#include <stdlib.h>
|
|
#include <signal.h>
|
|
#include <locale.h>
|
|
#include <math.h>
|
|
|
|
#define DFHACK_WANT_MISCUTILS
|
|
#define DFHACK_WANT_TILETYPES
|
|
#include <DFHack.h>
|
|
|
|
using namespace DFHack;
|
|
|
|
|
|
string error;
|
|
Context * pDF = 0;
|
|
|
|
|
|
struct t_tempz
|
|
{
|
|
int32_t limit;
|
|
int character;
|
|
};
|
|
|
|
t_tempz temp_limits[]=
|
|
{
|
|
{50, '.'},
|
|
{100, '+'},
|
|
{500, '*'},
|
|
{1000, '#'},
|
|
{2000, '!'}
|
|
};
|
|
#define NUM_LIMITS 5
|
|
|
|
static void finish(int sig);
|
|
|
|
int gotoxy(int x, int y)
|
|
{
|
|
wmove(stdscr, y , x );
|
|
return 0;
|
|
}
|
|
|
|
void putch(int x, int y, int znak, int color)
|
|
{
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddch(stdscr, y, x, znak);
|
|
attroff(COLOR_PAIR(color));
|
|
}
|
|
void putwch(int x, int y, int znak, int color)
|
|
{
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddch(stdscr, y, x, znak);
|
|
attroff(COLOR_PAIR(color));
|
|
}
|
|
/*
|
|
enum TileClass
|
|
{
|
|
EMPTY,
|
|
|
|
WALL,
|
|
PILLAR,
|
|
FORTIFICATION,
|
|
|
|
STAIR_UP,
|
|
STAIR_DOWN,
|
|
STAIR_UPDOWN,
|
|
|
|
RAMP,
|
|
|
|
FLOOR,
|
|
TREE_DEAD,
|
|
TREE_OK,
|
|
SAPLING_DEAD,
|
|
SAPLING_OK,
|
|
SHRUB_DEAD,
|
|
SHRUB_OK,
|
|
BOULDER,
|
|
PEBBLES
|
|
};*/
|
|
|
|
void puttile(int x, int y, int tiletype, int color)
|
|
{
|
|
unsigned int znak;
|
|
switch(tileShape(tiletype))
|
|
{
|
|
case EMPTY:
|
|
znak = ' ';
|
|
break;
|
|
case PILLAR:
|
|
case WALL:
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddwstr(stdscr, y, x, L"\u2593");
|
|
attroff(COLOR_PAIR(color));
|
|
//znak = ;
|
|
return;
|
|
case FORTIFICATION:
|
|
znak = '#';
|
|
break;
|
|
case STAIR_DOWN:
|
|
znak = '>';
|
|
break;
|
|
case STAIR_UP:
|
|
znak = '<';
|
|
break;
|
|
case STAIR_UPDOWN:
|
|
znak = '=';
|
|
break;
|
|
case RAMP:
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddwstr(stdscr, y, x, L"\u25B2");
|
|
attroff(COLOR_PAIR(color));
|
|
return;
|
|
case RAMP_TOP:
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddwstr(stdscr, y, x, L"\u25BC");
|
|
attroff(COLOR_PAIR(color));
|
|
return;
|
|
case FLOOR:
|
|
znak = '.';
|
|
break;
|
|
case TREE_DEAD:
|
|
case TREE_OK:
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddwstr(stdscr, y, x, L"\u2663");
|
|
attroff(COLOR_PAIR(color));
|
|
return;
|
|
case SAPLING_DEAD:
|
|
case SAPLING_OK:
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddwstr(stdscr, y, x, L"\u03C4");
|
|
attroff(COLOR_PAIR(color));
|
|
return;
|
|
case SHRUB_DEAD:
|
|
case SHRUB_OK:
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddwstr(stdscr, y, x, L"\u2666");
|
|
attroff(COLOR_PAIR(color));
|
|
return;
|
|
case BOULDER:
|
|
case PEBBLES:
|
|
znak= '*';
|
|
break;
|
|
}
|
|
attron(COLOR_PAIR(color));
|
|
mvwaddch(stdscr, y, x, znak);
|
|
attroff(COLOR_PAIR(color));
|
|
}
|
|
|
|
int cprintf(const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
va_start(ap, fmt);
|
|
int i = vwprintw(stdscr,fmt, ap);
|
|
va_end(ap);
|
|
return i;
|
|
}
|
|
|
|
void clrscr()
|
|
{
|
|
wbkgd(stdscr, COLOR_PAIR(COLOR_BLACK));
|
|
wclear(stdscr);
|
|
}
|
|
|
|
/*
|
|
enum TileMaterial
|
|
{
|
|
AIR,
|
|
SOIL,
|
|
STONE,
|
|
FEATSTONE, // whatever it is
|
|
OBSIDIAN,
|
|
|
|
VEIN,
|
|
ICE,
|
|
GRASS,
|
|
GRASS2,
|
|
GRASS_DEAD,
|
|
GRASS_DRY,
|
|
DRIFTWOOD,
|
|
HFS,
|
|
MAGMA,
|
|
CAMPFIRE,
|
|
FIRE,
|
|
ASHES,
|
|
CONSTRUCTED
|
|
};
|
|
*/
|
|
int pickColor(int tiletype)
|
|
{
|
|
switch(tileMaterial(tiletype))
|
|
{
|
|
case AIR:
|
|
return COLOR_BLACK;
|
|
case STONE:
|
|
case FEATSTONE:
|
|
case OBSIDIAN:
|
|
case CONSTRUCTED:
|
|
case ASHES:
|
|
default:
|
|
return COLOR_WHITE;
|
|
case SOIL:
|
|
case GRASS_DEAD:
|
|
case GRASS_DRY:
|
|
case DRIFTWOOD:
|
|
return COLOR_YELLOW;
|
|
case ICE:
|
|
return COLOR_CYAN;
|
|
case VEIN:
|
|
return COLOR_MAGENTA;
|
|
case GRASS:
|
|
case GRASS2:
|
|
return COLOR_GREEN;
|
|
case HFS:
|
|
case MAGMA:
|
|
case CAMPFIRE:
|
|
case FIRE:
|
|
return COLOR_RED;
|
|
}
|
|
|
|
}
|
|
|
|
/*
|
|
address = absolute address of dump start
|
|
length = length in bytes
|
|
*/
|
|
void hexdump (DFHack::Context* DF, uint32_t address, uint32_t length, int filenum)
|
|
{
|
|
uint32_t reallength;
|
|
uint32_t lines;
|
|
lines = (length / 16) + 1;
|
|
reallength = lines * 16;
|
|
char *buf = new char[reallength];
|
|
ofstream myfile;
|
|
|
|
stringstream ss;
|
|
ss << "hexdump" << filenum << ".txt";
|
|
string name = ss.str();
|
|
|
|
myfile.open (name.c_str());
|
|
|
|
DF->ReadRaw(address, reallength, (uint8_t *) buf);
|
|
for (size_t i = 0; i < lines; i++)
|
|
{
|
|
// leading offset
|
|
myfile << "0x" << hex << setw(4) << i*16 << " ";
|
|
// groups
|
|
for(int j = 0; j < 4; j++)
|
|
{
|
|
// bytes
|
|
for(int k = 0; k < 4; k++)
|
|
{
|
|
int idx = i * 16 + j * 4 + k;
|
|
|
|
myfile << hex << setw(2) << int(static_cast<unsigned char>(buf[idx])) << " ";
|
|
}
|
|
myfile << " ";
|
|
}
|
|
myfile << endl;
|
|
}
|
|
delete buf;
|
|
myfile.close();
|
|
}
|
|
|
|
// p = attached process
|
|
// blockaddr = address of the block
|
|
// blockX, blockY = local map X and Y coords in 16x16 of the block
|
|
// printX, printX = where to print stuff on the screen
|
|
/*
|
|
void do_features(Process* p, uint32_t blockaddr, uint32_t blockX, uint32_t blockY, int printX, int printY, vector<DFHack::t_matgloss> &stonetypes)
|
|
{
|
|
memory_info* mem = p->getDescriptor();
|
|
uint32_t block_feature1 = mem->getOffset("map_data_feature_local");
|
|
uint32_t block_feature2 = mem->getOffset("map_data_feature_global");
|
|
uint32_t region_x_offset = mem->getAddress("region_x");
|
|
uint32_t region_y_offset = mem->getAddress("region_y");
|
|
uint32_t region_z_offset = mem->getAddress("region_z");
|
|
uint32_t feature1_start_ptr = mem->getAddress("local_feature_start_ptr");
|
|
int32_t regionX, regionY, regionZ;
|
|
|
|
// read position of the region inside DF world
|
|
p->readDWord (region_x_offset, (uint32_t &)regionX);
|
|
p->readDWord (region_y_offset, (uint32_t &)regionY);
|
|
p->readDWord (region_z_offset, (uint32_t &)regionZ);
|
|
// local feature present ?
|
|
int16_t idx = p->readWord(blockaddr + block_feature1);
|
|
if(idx != -1)
|
|
{
|
|
gotoxy(printX,printY);
|
|
cprintf("local feature present: %d", idx);
|
|
|
|
uint64_t block48_x = blockX / 3 + regionX;
|
|
gotoxy(printX,printY+1);
|
|
cprintf("blockX: %d, regionX: %d\nbigblock_x: %d\n", blockX, regionX, block48_x);
|
|
|
|
// region X coord offset by 8 big blocks (48x48 tiles)
|
|
uint16_t region_x_plus8 = ( block48_x + 8 ) / 16;
|
|
//uint16_t v12b = block48_x / 16;
|
|
//cout << "v12: " << v12 << " : " << v12b << endl;
|
|
// plain region Y coord
|
|
uint64_t region_y_local = (blockY / 3 + regionY) / 16;
|
|
gotoxy(printX,printY+2);
|
|
cprintf("region_y_local: %d\n", region_y_local);
|
|
|
|
// deref pointer to the humongo-structure
|
|
uint32_t base = p->readDWord(feature1_start_ptr);
|
|
gotoxy(printX,printY+3);
|
|
cprintf("region_y_local: 0x%x\n", base);
|
|
|
|
// this is just a few pointers to arrays of 16B (4 DWORD) structs
|
|
uint32_t array_elem = p->readDWord(base + (region_x_plus8 / 16) * 4);
|
|
gotoxy(printX,printY+4);
|
|
cprintf("array_elem: 0x%x\n", array_elem);
|
|
|
|
// second element of the struct is a pointer
|
|
uint32_t wtf = p->readDWord(array_elem + (16*(region_y_local/16)) + 4); // rounding!
|
|
gotoxy(printX,printY+5);
|
|
cprintf("wtf : 0x%x @ 0x%x\n", wtf, array_elem + (16*(region_y_local/16)) );
|
|
if(wtf)
|
|
{
|
|
//v14 = v10 + 24 * ((signed __int16)_tX + 16 * v9 % 16);
|
|
uint32_t feat_vector = wtf + 24 * (16 * (region_x_plus8 % 16) + (region_y_local % 16));
|
|
gotoxy(printX,printY+6);
|
|
cprintf("local feature vector: 0x%x\n", feat_vector);
|
|
DfVector<uint32_t> p_features(p, feat_vector);
|
|
gotoxy(printX,printY + 7);
|
|
cprintf("feature %d addr: 0x%x\n", idx, p_features[idx]);
|
|
if(idx >= p_features.size())
|
|
{
|
|
gotoxy(printX,printY + 8);
|
|
cprintf("ERROR, out of vector bounds.");
|
|
}
|
|
else
|
|
{
|
|
string name = p->readClassName(p->readDWord( p_features[idx] ));
|
|
bool discovered = p->readDWord( p_features[idx] + 4 );
|
|
gotoxy(printX,printY+8);
|
|
cprintf("%s", name.c_str());
|
|
if(discovered)
|
|
{
|
|
gotoxy(printX,printY+9);
|
|
cprintf("You've discovered it already!");
|
|
}
|
|
|
|
if(name == "feature_init_deep_special_tubest")
|
|
{
|
|
int32_t master_type = p->readWord( p_features[idx] + 0x30 );
|
|
int32_t slave_type = p->readDWord( p_features[idx] + 0x34 );
|
|
char * matname = "unknown";
|
|
// is stone?
|
|
if(master_type == 0)
|
|
{
|
|
matname = stonetypes[slave_type].id;
|
|
}
|
|
gotoxy(printX,printY+10);
|
|
cprintf("material %d/%d : %s", master_type, slave_type, matname);
|
|
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// global feature present
|
|
idx = p->readWord(blockaddr + block_feature2);
|
|
if(idx != -1)
|
|
{
|
|
gotoxy(printX,printY+11);
|
|
cprintf( "global feature present: %d\n", idx);
|
|
DfVector<uint32_t> p_features (p,mem->getAddress("global_feature_vector"));
|
|
if(idx < p_features.size())
|
|
{
|
|
uint32_t feat_ptr = p->readDWord(p_features[idx] + mem->getOffset("global_feature_funcptr_"));
|
|
gotoxy(printX,printY+12);
|
|
cprintf("feature descriptor?: 0x%x\n", feat_ptr);
|
|
string name = p->readClassName(p->readDWord( feat_ptr));
|
|
bool discovered = p->readDWord( feat_ptr + 4 );
|
|
gotoxy(printX,printY+13);
|
|
cprintf("%s", name.c_str());
|
|
if(discovered)
|
|
{
|
|
gotoxy(printX,printY+14);
|
|
cout << "You've discovered it already!" << endl;
|
|
}
|
|
if(name == "feature_init_underworld_from_layerst")
|
|
{
|
|
int16_t master_type = p->readWord( feat_ptr + 0x34 );
|
|
int32_t slave_type = p->readDWord( feat_ptr + 0x38 );
|
|
char * matname = "unknown";
|
|
// is stone?
|
|
if(master_type == 0)
|
|
{
|
|
matname = stonetypes[slave_type].id;
|
|
}
|
|
gotoxy(printX,printY+15);
|
|
cprintf("material %d/%d : %s", master_type, slave_type, matname);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
*/
|
|
void do_features(Context* DF, mapblock40d * block, uint32_t blockX, uint32_t blockY, int printX, int printY, vector<DFHack::t_matgloss> &stonetypes)
|
|
{
|
|
Maps * Maps = DF->getMaps();
|
|
Process * p = DF->getProcess();
|
|
if(!Maps)
|
|
return;
|
|
vector<DFHack::t_feature> global_features;
|
|
std::map <DFHack::DFCoord, std::vector<DFHack::t_feature *> > local_features;
|
|
if(!Maps->ReadGlobalFeatures(global_features))
|
|
return;
|
|
if(!Maps->ReadLocalFeatures(local_features))
|
|
return;
|
|
|
|
DFCoord pc(blockX, blockY);
|
|
int16_t idx =block->global_feature;
|
|
if(idx != -1)
|
|
{
|
|
t_feature &ftr =global_features[idx];
|
|
gotoxy(printX,printY);
|
|
cprintf( "global feature present: %d @ 0x%x\n", idx, ftr.origin);
|
|
if(ftr.discovered )
|
|
{
|
|
gotoxy(printX,printY+1);
|
|
cprintf("You've discovered it already!");
|
|
}
|
|
|
|
char * matname = (char *) "unknown";
|
|
// is stone?
|
|
if(ftr.main_material == 0)
|
|
{
|
|
matname = stonetypes[ftr.sub_material].id;
|
|
}
|
|
gotoxy(printX,printY+2);
|
|
cprintf("%d:%s, material %d/%d : %s", ftr.type, sa_feature(ftr.type), ftr.main_material, ftr.sub_material, matname);
|
|
{
|
|
gotoxy(printX,printY+3);
|
|
string name = p->readClassName(p->readDWord( ftr.origin ));
|
|
cprintf("%s", name.c_str());
|
|
}
|
|
}
|
|
idx =block->local_feature;
|
|
if(idx != -1)
|
|
{
|
|
vector <t_feature *> &ftrv = local_features[pc];
|
|
if(idx < ftrv.size())
|
|
{
|
|
t_feature & ftr = *ftrv[idx];
|
|
gotoxy(printX,printY + 4);
|
|
cprintf( "local feature present: %d @ 0x%x\n", idx, ftr.origin);
|
|
if(ftr.discovered )
|
|
{
|
|
gotoxy(printX,printY+ 5);
|
|
cprintf("You've discovered it already!");
|
|
}
|
|
char * matname = (char *) "unknown";
|
|
// is stone?
|
|
if(ftr.main_material == 0)
|
|
{
|
|
matname = stonetypes[ftr.sub_material].id;
|
|
}
|
|
gotoxy(printX,printY+6);
|
|
cprintf("%d:%s, material %d/%d : %s", ftr.type, sa_feature(ftr.type), ftr.main_material, ftr.sub_material, matname);
|
|
|
|
gotoxy(printX,printY+7);
|
|
string name = p->readClassName(p->readDWord( ftr.origin ));
|
|
cprintf("%s", name.c_str());
|
|
}
|
|
else
|
|
{
|
|
gotoxy(printX,printY + 4);
|
|
cprintf( "local feature vector overflow: %d", idx);
|
|
}
|
|
}
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
/* initialize your non-curses data structures here */
|
|
|
|
signal(SIGINT, finish); /* arrange interrupts to terminate */
|
|
setlocale(LC_ALL,"");
|
|
initscr(); /* initialize the curses library */
|
|
keypad(stdscr, TRUE); /* enable keyboard mapping */
|
|
nonl(); /* tell curses not to do NL->CR/NL on output */
|
|
cbreak(); /* take input chars one at a time, no wait for \n */
|
|
noecho(); /* don't echo input */
|
|
//nodelay(stdscr, true);
|
|
|
|
keypad(stdscr, TRUE);
|
|
scrollok(stdscr, TRUE);
|
|
|
|
if (has_colors())
|
|
{
|
|
start_color();
|
|
|
|
/*
|
|
* Simple color assignment, often all we need.
|
|
*/
|
|
init_pair(COLOR_BLACK, COLOR_BLACK, COLOR_BLACK);
|
|
init_pair(COLOR_GREEN, COLOR_GREEN, COLOR_BLACK);
|
|
init_pair(COLOR_RED, COLOR_RED, COLOR_BLACK);
|
|
init_pair(COLOR_BLUE, COLOR_BLUE, COLOR_BLACK);
|
|
init_pair(COLOR_YELLOW, COLOR_YELLOW, COLOR_BLACK);
|
|
|
|
init_color(COLOR_CYAN, 700, 700, 700); // lt grey
|
|
init_color(COLOR_MAGENTA, 500, 500, 500); // dk grey
|
|
init_pair(COLOR_WHITE, COLOR_WHITE, COLOR_BLACK);
|
|
init_pair(COLOR_CYAN, COLOR_CYAN, COLOR_BLACK);
|
|
init_pair(COLOR_MAGENTA, COLOR_MAGENTA, COLOR_BLACK);
|
|
}
|
|
|
|
int x_max,y_max,z_max;
|
|
uint32_t x_max_a,y_max_a,z_max_a;
|
|
/*
|
|
uint16_t tiletypes[16][16];
|
|
DFHack::t_designation designations[16][16];
|
|
uint8_t regionoffsets[16];
|
|
*/
|
|
map <int16_t, uint32_t> materials;
|
|
materials.clear();
|
|
mapblock40d blocks[3][3];
|
|
vector<DFHack::t_effect_df40d> effects;
|
|
vector< vector <uint16_t> > layerassign;
|
|
vector<t_vein> veinVector;
|
|
vector<t_frozenliquidvein> IceVeinVector;
|
|
vector<t_spattervein> splatter;
|
|
vector<t_grassvein> grass;
|
|
vector<t_worldconstruction> wconstructs;
|
|
t_temperatures b_temp1;
|
|
t_temperatures b_temp2;
|
|
|
|
DFHack::Materials * Mats = 0;
|
|
DFHack::Maps * Maps = 0;
|
|
|
|
|
|
DFHack::ContextManager DFMgr("Memory.xml");
|
|
DFHack::Context* DF;
|
|
try
|
|
{
|
|
pDF = DF = DFMgr.getSingleContext();
|
|
DF->Attach();
|
|
Maps = DF->getMaps();
|
|
}
|
|
catch (exception& e)
|
|
{
|
|
cerr << e.what() << endl;
|
|
#ifndef LINUX_BUILD
|
|
cin.ignore();
|
|
#endif
|
|
finish(0);
|
|
}
|
|
bool hasmats = true;
|
|
try
|
|
{
|
|
Mats = DF->getMaterials();
|
|
}
|
|
catch (exception&)
|
|
{
|
|
hasmats = false;
|
|
}
|
|
|
|
// init the map
|
|
if(!Maps->Start())
|
|
{
|
|
error = "Can't find a map to look at.";
|
|
finish(0);
|
|
}
|
|
|
|
Maps->getSize(x_max_a,y_max_a,z_max_a);
|
|
x_max = x_max_a;
|
|
y_max = y_max_a;
|
|
z_max = z_max_a;
|
|
|
|
bool hasInorgMats = false;
|
|
bool hasPlantMats = false;
|
|
bool hasCreatureMats = false;
|
|
|
|
if(hasmats)
|
|
{
|
|
// get stone matgloss mapping
|
|
if(Mats->ReadInorganicMaterials())
|
|
{
|
|
hasInorgMats = true;
|
|
}
|
|
if(Mats->ReadCreatureTypes())
|
|
{
|
|
hasCreatureMats = true;
|
|
}
|
|
if(Mats->ReadOrganicMaterials())
|
|
{
|
|
hasPlantMats = true;
|
|
}
|
|
}
|
|
/*
|
|
// get region geology
|
|
if(!DF.ReadGeology( layerassign ))
|
|
{
|
|
error = "Can't read local geology.";
|
|
pDF = 0;
|
|
finish(0);
|
|
}
|
|
*/
|
|
// FIXME: could fail on small forts
|
|
int cursorX = x_max/2 - 1;
|
|
int cursorY = y_max/2 - 1;
|
|
int cursorZ = z_max/2 - 1;
|
|
|
|
|
|
bool dig = false;
|
|
bool dump = false;
|
|
bool digbit = false;
|
|
bool dotwiddle;
|
|
unsigned char twiddle = 0;
|
|
int vein = 0;
|
|
int filenum = 0;
|
|
bool dirtybit = false;
|
|
uint32_t blockaddr = 0;
|
|
uint32_t blockaddr2 = 0;
|
|
t_blockflags bflags;
|
|
bflags.whole = 0;
|
|
enum e_tempmode
|
|
{
|
|
TEMP_NO,
|
|
TEMP_1,
|
|
TEMP_2,
|
|
WATER_SALT,
|
|
WATER_STAGNANT
|
|
};
|
|
e_tempmode temperature = TEMP_NO;
|
|
|
|
// resume so we don't block DF while we wait for input
|
|
DF->Resume();
|
|
|
|
for (;;)
|
|
{
|
|
dig = false;
|
|
dump = false;
|
|
dotwiddle = false;
|
|
digbit = false;
|
|
|
|
int c = getch(); /* refresh, accept single keystroke of input */
|
|
flushinp();
|
|
clrscr();
|
|
/* process the command keystroke */
|
|
switch(c)
|
|
{
|
|
case KEY_DOWN:
|
|
cursorY ++;
|
|
break;
|
|
case KEY_UP:
|
|
cursorY --;
|
|
break;
|
|
case KEY_LEFT:
|
|
cursorX --;
|
|
break;
|
|
case KEY_RIGHT:
|
|
cursorX ++;
|
|
break;
|
|
case KEY_NPAGE:
|
|
cursorZ --;
|
|
break;
|
|
case KEY_PPAGE:
|
|
cursorZ ++;
|
|
break;
|
|
case '+':
|
|
vein ++;
|
|
break;
|
|
case 'd':
|
|
dig = true;
|
|
break;
|
|
case 'o':
|
|
dump = true;
|
|
break;
|
|
case '-':
|
|
vein --;
|
|
break;
|
|
case 'z':
|
|
digbit = true;
|
|
break;
|
|
case '/':
|
|
if(twiddle != 0) twiddle--;
|
|
break;
|
|
case '*':
|
|
twiddle++;
|
|
break;
|
|
case 't':
|
|
dotwiddle = true;
|
|
break;
|
|
case 'b':
|
|
temperature = TEMP_NO;
|
|
break;
|
|
case 'n':
|
|
temperature = TEMP_1;
|
|
break;
|
|
case 'm':
|
|
temperature = TEMP_2;
|
|
break;
|
|
case 'c':
|
|
temperature = WATER_SALT;
|
|
break;
|
|
case 'v':
|
|
temperature = WATER_STAGNANT;
|
|
break;
|
|
case 27: // escape key
|
|
DF->Detach();
|
|
return 0;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
cursorX = max(cursorX, 0);
|
|
cursorY = max(cursorY, 0);
|
|
cursorZ = max(cursorZ, 0);
|
|
|
|
cursorX = min(cursorX, x_max - 1);
|
|
cursorY = min(cursorY, y_max - 1);
|
|
cursorZ = min(cursorZ, z_max - 1);
|
|
|
|
if(twiddle > 31)
|
|
twiddle = 31;
|
|
|
|
// clear data before we suspend
|
|
memset(blocks,0,sizeof(blocks));
|
|
veinVector.clear();
|
|
IceVeinVector.clear();
|
|
effects.clear();
|
|
splatter.clear();
|
|
grass.clear();
|
|
dirtybit = 0;
|
|
|
|
// Supend, read/write data
|
|
DF->Suspend();
|
|
// restart cleared modules
|
|
Maps->Start();
|
|
if(hasmats)
|
|
{
|
|
Mats->Start();
|
|
if(hasInorgMats)
|
|
{
|
|
Mats->ReadInorganicMaterials();
|
|
}
|
|
if(hasPlantMats)
|
|
{
|
|
Mats->ReadOrganicMaterials();
|
|
}
|
|
if(hasCreatureMats)
|
|
{
|
|
Mats->ReadCreatureTypes();
|
|
}
|
|
}
|
|
/*
|
|
if(DF.InitReadEffects(effectnum))
|
|
{
|
|
for(uint32_t i = 0; i < effectnum;i++)
|
|
{
|
|
t_effect_df40d effect;
|
|
DF.ReadEffect(i,effect);
|
|
effects.push_back(effect);
|
|
}
|
|
}
|
|
*/
|
|
for(int i = -1; i <= 1; i++) for(int j = -1; j <= 1; j++)
|
|
{
|
|
mapblock40d * Block = &blocks[i+1][j+1];
|
|
if(Maps->isValidBlock(cursorX+i,cursorY+j,cursorZ))
|
|
{
|
|
Maps->ReadBlock40d(cursorX+i,cursorY+j,cursorZ, Block);
|
|
// extra processing of the block in the middle
|
|
if(i == 0 && j == 0)
|
|
{
|
|
if(hasInorgMats)
|
|
do_features(DF, Block, cursorX, cursorY, 50,10, Mats->inorganic);
|
|
// read veins
|
|
Maps->ReadVeins(cursorX+i,cursorY+j,cursorZ,&veinVector,&IceVeinVector,&splatter,&grass, &wconstructs);
|
|
|
|
// get pointer to block
|
|
blockaddr = Maps->getBlockPtr(cursorX+i,cursorY+j,cursorZ);
|
|
blockaddr2 = Block->origin;
|
|
|
|
// dig all veins and trees
|
|
if(dig)
|
|
{
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
int16_t tiletype = Block->tiletypes[x][y];
|
|
TileShape tc = tileShape(tiletype);
|
|
TileMaterial tm = tileMaterial(tiletype);
|
|
if( tc == WALL && tm == VEIN || tc == TREE_OK || tc == TREE_DEAD)
|
|
{
|
|
Block->designation[x][y].bits.dig = designation_default;
|
|
}
|
|
}
|
|
Maps->WriteDesignations(cursorX+i,cursorY+j,cursorZ, &(Block->designation));
|
|
}
|
|
|
|
// read temperature data
|
|
Maps->ReadTemperatures(cursorX+i,cursorY+j,cursorZ,&b_temp1, &b_temp2 );
|
|
if(dotwiddle)
|
|
{
|
|
bitset<32> bs ((int)Block->designation[0][0].whole);
|
|
bs.flip(twiddle);
|
|
Block->designation[0][0].whole = bs.to_ulong();
|
|
Maps->WriteDesignations(cursorX+i,cursorY+j,cursorZ, &(Block->designation));
|
|
dotwiddle = false;
|
|
}
|
|
|
|
// do a dump of the block data
|
|
if(dump)
|
|
{
|
|
hexdump(DF,blockaddr,0x1E00,filenum);
|
|
filenum++;
|
|
}
|
|
// read/write dirty bit of the block
|
|
Maps->ReadDirtyBit(cursorX+i,cursorY+j,cursorZ,dirtybit);
|
|
Maps->ReadBlockFlags(cursorX+i,cursorY+j,cursorZ,bflags);
|
|
if(digbit)
|
|
{
|
|
dirtybit = !dirtybit;
|
|
Maps->WriteDirtyBit(cursorX+i,cursorY+j,cursorZ,dirtybit);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// Resume, print stuff to the terminal
|
|
DF->Resume();
|
|
for(int i = -1; i <= 1; i++) for(int j = -1; j <= 1; j++)
|
|
{
|
|
mapblock40d * Block = &blocks[i+1][j+1];
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
int color = COLOR_BLACK;
|
|
color = pickColor(Block->tiletypes[x][y]);
|
|
/*
|
|
if(!Block->designation[x][y].bits.hidden)
|
|
{
|
|
puttile(x+(i+1)*16,y+(j+1)*16,Block->tiletypes[x][y], color);
|
|
}
|
|
else*/
|
|
{
|
|
|
|
attron(A_STANDOUT);
|
|
puttile(x+(i+1)*16,y+(j+1)*16,Block->tiletypes[x][y], color);
|
|
attroff(A_STANDOUT);
|
|
|
|
}
|
|
}
|
|
// print effects for the center tile
|
|
/*
|
|
if(i == 0 && j == 0)
|
|
{
|
|
for(uint zz = 0; zz < effects.size();zz++)
|
|
{
|
|
if(effects[zz].z == cursorZ && !effects[zz].isHidden)
|
|
{
|
|
// block coords to tile coords
|
|
uint16_t x = effects[zz].x - (cursorX * 16);
|
|
uint16_t y = effects[zz].y - (cursorY * 16);
|
|
if(x < 16 && y < 16)
|
|
{
|
|
putch(x + 16,y + 16,'@',COLOR_WHITE);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
*/
|
|
}
|
|
gotoxy(50,0);
|
|
cprintf("arrow keys, PGUP, PGDN = navigate");
|
|
gotoxy(50,1);
|
|
cprintf("+,- = switch vein");
|
|
gotoxy(50,2);
|
|
uint32_t mineralsize = veinVector.size();
|
|
uint32_t icesize = IceVeinVector.size();
|
|
uint32_t splattersize = splatter.size();
|
|
uint32_t grasssize = grass.size();
|
|
uint32_t wconstrsize = wconstructs.size();
|
|
uint32_t totalVeinSize = mineralsize+ icesize + splattersize + grasssize + wconstrsize;
|
|
if(vein == totalVeinSize) vein = totalVeinSize - 1;
|
|
if(vein < -1) vein = -1;
|
|
cprintf("X %d/%d, Y %d/%d, Z %d/%d. Vein %d of %d",cursorX+1,x_max,cursorY+1,y_max,cursorZ,z_max,vein+1,totalVeinSize);
|
|
if(!veinVector.empty() || !IceVeinVector.empty() || !splatter.empty() || !grass.empty() || !wconstructs.empty())
|
|
{
|
|
if(vein != -1 && vein < totalVeinSize)
|
|
{
|
|
uint32_t realvein = 0;
|
|
if(vein < mineralsize)
|
|
{
|
|
realvein = vein;
|
|
//iterate through vein rows
|
|
for(uint32_t j = 0;j<16;j++)
|
|
{
|
|
//iterate through the bits
|
|
for (uint32_t k = 0; k< 16;k++)
|
|
{
|
|
// and the bit array with a one-bit mask, check if the bit is set
|
|
bool set = !!(((1 << k) & veinVector[realvein].assignment[j]) >> k);
|
|
if(set)
|
|
{
|
|
putch(k+16,j+16,'$',COLOR_RED);
|
|
}
|
|
}
|
|
}
|
|
if(hasInorgMats)
|
|
{
|
|
gotoxy(50,3);
|
|
cprintf("Mineral: %s",Mats->inorganic[veinVector[vein].type].id);
|
|
}
|
|
}
|
|
else if (vein < mineralsize + icesize)
|
|
{
|
|
realvein = vein - mineralsize;
|
|
t_frozenliquidvein &frozen = IceVeinVector[realvein];
|
|
for(uint32_t i = 0;i<16;i++)
|
|
{
|
|
for (uint32_t j = 0; j< 16;j++)
|
|
{
|
|
int color = COLOR_BLACK;
|
|
int tile = frozen.tiles[i][j];
|
|
color = pickColor(tile);
|
|
|
|
attron(A_STANDOUT);
|
|
puttile(i+16,j+16,tile, color);
|
|
attroff(A_STANDOUT);
|
|
}
|
|
}
|
|
gotoxy(50,3);
|
|
cprintf("ICE");
|
|
}
|
|
else if(vein < mineralsize + icesize + splattersize)
|
|
{
|
|
realvein = vein - mineralsize - icesize;
|
|
for(uint32_t yyy = 0; yyy < 16; yyy++)
|
|
{
|
|
for(uint32_t xxx = 0; xxx < 16; xxx++)
|
|
{
|
|
uint8_t intensity = splatter[realvein].intensity[xxx][yyy];
|
|
if(intensity)
|
|
{
|
|
attron(A_STANDOUT);
|
|
putch(xxx+16,yyy+16,'*', COLOR_RED);
|
|
attroff(A_STANDOUT);
|
|
}
|
|
}
|
|
}
|
|
if(hasCreatureMats)
|
|
{
|
|
gotoxy(50,3);
|
|
cprintf("Spatter: %s",PrintSplatterType(splatter[realvein].mat1,splatter[realvein].mat2,Mats->race).c_str());
|
|
}
|
|
}
|
|
else if(vein < mineralsize + icesize + splattersize + grasssize)
|
|
{
|
|
realvein = vein - mineralsize - icesize - splattersize;
|
|
t_grassvein & grassy =grass[realvein];
|
|
for(uint32_t yyy = 0; yyy < 16; yyy++)
|
|
{
|
|
for(uint32_t xxx = 0; xxx < 16; xxx++)
|
|
{
|
|
uint8_t intensity = grassy.intensity[xxx][yyy];
|
|
if(intensity)
|
|
{
|
|
attron(A_STANDOUT);
|
|
putch(xxx+16,yyy+16,'X', COLOR_RED);
|
|
attroff(A_STANDOUT);
|
|
}
|
|
}
|
|
}
|
|
if(hasPlantMats)
|
|
{
|
|
gotoxy(50,3);
|
|
cprintf("Grass: 0x%x, %s",grassy.address_of, Mats->organic[grassy.material].id);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
realvein = vein - mineralsize - icesize - splattersize - grasssize;
|
|
t_worldconstruction & wconstr=wconstructs[realvein];
|
|
for(uint32_t j = 0; j < 16; j++)
|
|
{
|
|
for(uint32_t k = 0; k < 16; k++)
|
|
{
|
|
bool set = !!(((1 << k) & wconstr.assignment[j]) >> k);
|
|
if(set)
|
|
{
|
|
putch(k+16,j+16,'$',COLOR_RED);
|
|
}
|
|
}
|
|
}
|
|
if(hasInorgMats)
|
|
{
|
|
gotoxy(50,3);
|
|
cprintf("Road: 0x%x, %d - %s", wconstr.address_of, wconstr.material,Mats->inorganic[wconstr.material].id);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
mapblock40d * Block = &blocks[1][1];
|
|
t_temperatures * ourtemp;
|
|
if(temperature == TEMP_NO)
|
|
{
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
if((Block->occupancy[x][y].whole & (1 << twiddle)))
|
|
{
|
|
putch(x + 16,y + 16,'@',COLOR_WHITE);
|
|
}
|
|
}
|
|
}
|
|
else if(temperature == WATER_SALT)
|
|
{
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
if(Block->designation[x][y].bits.water_salt)
|
|
{
|
|
putch(x + 16,y + 16,'@',COLOR_WHITE);
|
|
}
|
|
}
|
|
gotoxy (50,8);
|
|
cprintf ("Salt water");
|
|
}
|
|
else if(temperature == WATER_STAGNANT)
|
|
{
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
if(Block->designation[x][y].bits.water_stagnant)
|
|
{
|
|
putch(x + 16,y + 16,'@',COLOR_WHITE);
|
|
}
|
|
}
|
|
gotoxy (50,8);
|
|
cprintf ("Stagnant water");
|
|
}
|
|
else
|
|
{
|
|
if(temperature == TEMP_1)
|
|
ourtemp = &b_temp1;
|
|
else if(temperature == TEMP_2)
|
|
ourtemp = &b_temp2;
|
|
uint64_t sum = 0;
|
|
uint16_t min, max;
|
|
min = max = (*ourtemp)[0][0];
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
uint16_t temp = (*ourtemp)[x][y];
|
|
if(temp < min) min = temp;
|
|
if(temp > max) max = temp;
|
|
sum += temp;
|
|
}
|
|
uint64_t average = sum/256;
|
|
gotoxy (50,8);
|
|
if(temperature == TEMP_1)
|
|
cprintf ("temperature1 [°U] (min,avg,max): %d,%d,%d", min, average, max);
|
|
else if(temperature == TEMP_2)
|
|
cprintf ("temperature2 [°U] (min,avg,max): %d,%d,%d", min, average, max);
|
|
|
|
for(int x = 0; x < 16; x++) for(int y = 0; y < 16; y++)
|
|
{
|
|
int32_t temper = (int32_t) (*ourtemp)[x][y];
|
|
temper -= average;
|
|
uint32_t abs_temp = abs(temper);
|
|
int color;
|
|
unsigned char character = ' ';
|
|
if(temper >= 0)
|
|
color = COLOR_RED;
|
|
else
|
|
color = COLOR_BLUE;
|
|
|
|
for(int i = 0; i < NUM_LIMITS; i++)
|
|
{
|
|
if(temp_limits[i].limit < abs_temp)
|
|
character = temp_limits[i].character;
|
|
else break;
|
|
}
|
|
if( character != ' ')
|
|
{
|
|
putch(x + 16,y + 16,character,color);
|
|
}
|
|
}
|
|
}
|
|
gotoxy (50,4);
|
|
cprintf("block address 0x%x, flags 0x%08x",blockaddr, bflags.whole);
|
|
gotoxy (50,5);
|
|
cprintf("dirty bit: %d, twiddle: %d",dirtybit,twiddle);
|
|
gotoxy (50,6);
|
|
cprintf ("d - dig veins, o - dump map block, z - toggle dirty bit");
|
|
gotoxy (50,7);
|
|
cprintf ("b - no temperature, n - temperature 1, m - temperature 2");
|
|
wrefresh(stdscr);
|
|
}
|
|
pDF = 0;
|
|
finish(0);
|
|
}
|
|
|
|
static void finish(int sig)
|
|
{
|
|
// ugly
|
|
if(pDF)
|
|
{
|
|
pDF->ForceResume();
|
|
pDF->Detach();
|
|
}
|
|
endwin();
|
|
if(!error.empty())
|
|
{
|
|
cerr << error << endl;
|
|
}
|
|
exit(0);
|
|
}
|