556 lines
14 KiB
C++
556 lines
14 KiB
C++
// Hyperbolic Rogue -- sumotron puzzle
|
|
// Copyright (C) 2011-2019 Zeno Rogue, see 'hyper.cpp' for details
|
|
|
|
/** \file sumotron.cpp
|
|
* \brief dual geometry puzzle generator
|
|
*/
|
|
|
|
#include "../hyper.h"
|
|
|
|
namespace hr {
|
|
|
|
EX namespace starbattle {
|
|
|
|
eWall empty = waChasm;
|
|
|
|
bool in = false;
|
|
|
|
bool dialog_shown = false;
|
|
|
|
bool view_errors = false;
|
|
bool view_lines = true;
|
|
bool view_regions = true;
|
|
|
|
int stars_per_line = 1;
|
|
int stars_per_region = 1;
|
|
|
|
struct stardata {
|
|
color_t region;
|
|
bool starred;
|
|
bool illegal;
|
|
};
|
|
|
|
map<color_t, int> per_region;
|
|
|
|
map<cell*, stardata> sdata;
|
|
|
|
struct starwalker : cellwalker {
|
|
int flip;
|
|
starwalker(cell *c, int i, int f) : cellwalker(c, i), flip(f) {}
|
|
friend bool operator < (const starwalker& a, const starwalker& b) {
|
|
return tie((const cellwalker&) a, a.flip) < tie((const cellwalker&) b, b.flip);
|
|
}
|
|
};
|
|
|
|
bool stop_undo;
|
|
|
|
vector<reaction_t> undos;
|
|
|
|
void push_stop() {
|
|
undos.push_back([] { stop_undo = true; });
|
|
}
|
|
|
|
struct line_t {
|
|
vector<starwalker> cells;
|
|
color_t color;
|
|
};
|
|
|
|
vector<line_t> lines;
|
|
|
|
starwalker rev(starwalker sw) {
|
|
sw += (sw.at->type + sw.flip) / 2;
|
|
if(sw.at->type & 1) sw.flip = !sw.flip;
|
|
return sw;
|
|
}
|
|
|
|
starwalker change_flip(starwalker sw) {
|
|
sw.flip = !sw.flip;
|
|
return sw;
|
|
}
|
|
|
|
starwalker add_step(starwalker sw) {
|
|
sw += wstep;
|
|
return rev(sw);
|
|
}
|
|
|
|
enum ePenMode {
|
|
pmSolve,
|
|
pmDraw,
|
|
pmCreate,
|
|
pmWalls
|
|
};
|
|
|
|
hyperpoint adjust(starwalker sw) {
|
|
if(!(sw.at->type & 1)) return C0;
|
|
hyperpoint h1 = currentmap->adj(sw.at, sw.spin) * C0;
|
|
auto swr = rev(sw);
|
|
hyperpoint h2 = currentmap->adj(swr.at, swr.spin) * C0;
|
|
return normalize(C0 * 2 + h1 + h2);
|
|
}
|
|
|
|
void create_lines() {
|
|
set<starwalker> used;
|
|
lines.clear();
|
|
|
|
for(int it: {0,1})
|
|
for(auto c: sdata)
|
|
for(int i=0; i<c.first->type; i++)
|
|
for(int f=0; f<2; f++) {
|
|
starwalker sw(c.first, i, f);
|
|
/* with it=0, find lines which just have started */
|
|
if(it == 0 && sdata.count((rev(sw) + wstep).at)) continue;
|
|
if(used.count(sw) || used.count(rev(sw))) continue;
|
|
|
|
starwalker sw0 = sw;
|
|
line_t line;
|
|
line.color = ((hrand(0xFFFFFF) << 8) | 0x80808080) & 0xEFEFEF80;
|
|
bool even = true;
|
|
while(true) {
|
|
if(sw.at->type & 1) even = false;
|
|
line.cells.push_back(sw);
|
|
used.insert(sw);
|
|
sw = add_step(sw);
|
|
if(!sdata.count(sw.at)) break;
|
|
if(sw == sw0) break;
|
|
}
|
|
lines.push_back(line);
|
|
if(even) for(auto li: line.cells) used.insert(change_flip(li));
|
|
}
|
|
}
|
|
|
|
void add_to_puzzle(cell *c) {
|
|
sdata[c] = stardata{color_t(0xFFFFFF), false, false};
|
|
c->wall = waNone;
|
|
c->land = laCanvas;
|
|
}
|
|
|
|
void remove_from_puzzle(cell *c) {
|
|
sdata.erase(c);
|
|
c->wall = waChasm;
|
|
c->land = laNone;
|
|
}
|
|
|
|
void save_undo(cell *c) {
|
|
auto old = sdata[c];
|
|
undos.push_back([c, old] { sdata[c] = old; });
|
|
}
|
|
|
|
void init_starbattle() {
|
|
for(cell *c: currentmap->allcells())
|
|
sdata[c] = stardata{color_t(0xFFFFFF), false, false};
|
|
create_lines();
|
|
}
|
|
|
|
ePenMode pen = pmSolve;
|
|
|
|
bool draw_star(cell *c, const shiftmatrix& V) {
|
|
if(!in) return false;
|
|
if(c->wall == waSea) c->wall = waChasm;
|
|
if(!sdata.count(c)) return false;
|
|
|
|
auto& sd = sdata[c];
|
|
c->wall = waNone;
|
|
c->landparam = view_regions ? sd.region : 0xFFFFFF;
|
|
c->item = itNone;
|
|
|
|
if(view_errors && per_region[sd.region] != stars_per_region)
|
|
c->landparam = (per_region[sd.region] > stars_per_region) ? 0xFF4040 : 0x4040FF;
|
|
|
|
int prec = sphere ? 3 : 1;
|
|
prec += vid.linequality;
|
|
|
|
forCellIdCM(c1, i, c) {
|
|
if(!sdata.count(c1)) continue;
|
|
auto& sd1 = sdata[c1];
|
|
vid.linewidth *= 16;
|
|
if(sd1.region != sd.region)
|
|
gridline(V, get_corner_position(c, i), get_corner_position(c, gmod(i+1, c->type)), 0xFF, 4);
|
|
vid.linewidth /= 16;
|
|
}
|
|
|
|
if(sd.starred)
|
|
queuepoly(V, cgi.shStar, 0xFF);
|
|
|
|
if(sd.illegal) {
|
|
dynamicval d(poly_outline, 0xFF0000FF);
|
|
queuepoly(V, cgi.shPirateX, 0xFF0000FF);
|
|
}
|
|
|
|
if(pen == pmWalls && c == currentmap->gamestart())
|
|
queuepoly(V, cgi.shTriangle, 0xC0FF);
|
|
|
|
return false;
|
|
}
|
|
|
|
color_t new_region() {
|
|
again:
|
|
color_t ng = hrand(0x1000000) | 0xC0C0C0;
|
|
for(auto& sd: sdata) if(sd.second.region == ng) goto again;
|
|
return ng;
|
|
}
|
|
|
|
color_t extregion;
|
|
|
|
void draw_line(line_t& li, color_t col) {
|
|
vid.linewidth *= 10;
|
|
for(auto& lii: li.cells) {
|
|
for(const shiftmatrix& V: current_display->all_drawn_copies[lii.at])
|
|
if(sdata.count(lii.peek()))
|
|
queueline(V*adjust(lii), V*currentmap->adj(lii.at, lii.spin)*adjust(add_step(lii)), col);
|
|
}
|
|
vid.linewidth /= 10;
|
|
}
|
|
|
|
void starbattle_puzzle() {
|
|
|
|
clearMessages();
|
|
|
|
if(currentmap->gamestart()->wall == waChasm)
|
|
init_starbattle();
|
|
|
|
getcstat = '-';
|
|
cmode = 0;
|
|
if(dialog_shown) cmode = sm::SIDE | sm::DIALOG_STRICT_X | sm::MAYDARK;
|
|
|
|
dynamicval d1(vid.use_smart_range);
|
|
dynamicval d2(vid.smart_range_detail);
|
|
if(euclid) {
|
|
vid.use_smart_range = 2;
|
|
vid.smart_range_detail = 2;
|
|
}
|
|
gamescreen(0);
|
|
|
|
if(view_lines && mouseover) {
|
|
initquickqueue();
|
|
// int dir = neighborId(mouseover, mouseover2);
|
|
for(auto& li: lines) {
|
|
bool has = false;
|
|
for(auto& lii: li.cells) if(lii.at == mouseover /* && (dir == -1 || lii.spin == dir || rev(lii).spin == dir) */) has = true;
|
|
if(has) {
|
|
draw_line(li, li.color);
|
|
}
|
|
}
|
|
quickqueue();
|
|
}
|
|
|
|
if(view_errors) {
|
|
initquickqueue();
|
|
per_region.clear();
|
|
for(auto& sd: sdata) if(sd.second.starred) per_region[sd.second.region]++;
|
|
|
|
for(auto& sd: sdata) if(sd.second.starred)
|
|
for(cell *c2: adj_minefield_cells(sd.first))
|
|
if(sdata.count(c2) && sdata[c2].starred) {
|
|
vid.linewidth *= 16;
|
|
transmatrix rel = currentmap->relative_matrix(c2, sd.first, C0);
|
|
for(const shiftmatrix& V: current_display->all_drawn_copies[sd.first])
|
|
queueline(V * C0, V * rel * C0, 0xFF000060, 2, PPR::LINE);
|
|
vid.linewidth /= 16;
|
|
}
|
|
for(auto& li: lines) {
|
|
int sc = 0;
|
|
for(auto& lii: li.cells) if(sdata[lii.at].starred) sc++;
|
|
if(sc < stars_per_line) {
|
|
draw_line(li, 0x0000FF80);
|
|
draw_line(li, (li.color & 0xFFFFFF00) | 0x10);
|
|
}
|
|
if(sc > stars_per_line) {
|
|
draw_line(li, 0xFF000080);
|
|
draw_line(li, (li.color & 0xFFFFFF00) | 0x10);
|
|
}
|
|
}
|
|
quickqueue();
|
|
}
|
|
|
|
dialog::init("Star Battle", iinf[itPalace].color, 150, 100);
|
|
|
|
dialog::addSelItem("stars per line", its(stars_per_line), 'l');
|
|
dialog::add_action([] {
|
|
dialog::editNumber(stars_per_line, 0, 4, 1, 1, "", "");
|
|
});
|
|
|
|
dialog::addSelItem("stars per region", its(stars_per_region), 'g');
|
|
dialog::add_action([] {
|
|
dialog::editNumber(stars_per_region, 0, 4, 1, 1, "", "");
|
|
});
|
|
|
|
dialog::addBoolItem("view errors", view_errors, 'e');
|
|
dialog::add_action([] { view_errors = !view_errors; view_lines = view_regions = false; });
|
|
dialog::addBoolItem("view lines", view_lines, 'l');
|
|
dialog::add_action([] { view_lines = !view_lines; view_errors = false; });
|
|
dialog::addBoolItem("view regions", view_regions, 'r');
|
|
dialog::add_action([] { view_regions = !view_regions; view_errors = false; });
|
|
|
|
dialog::addBreak(100);
|
|
|
|
dialog::addBoolItem("solve mode", pen == pmSolve, 's');
|
|
dialog::add_action([] { pen = pmSolve; });
|
|
|
|
dialog::addBoolItem("free draw mode", pen == pmDraw, 'p');
|
|
dialog::add_action([] { pen = pmDraw; });
|
|
|
|
dialog::addBoolItem("create mode", pen == pmCreate, 'e');
|
|
dialog::add_action([] { pen = pmCreate; });
|
|
|
|
dialog::addBoolItem("area mode", pen == pmWalls, 'x');
|
|
dialog::add_action([] { pen = pmWalls; });
|
|
|
|
if(pen == pmSolve) dialog::addInfo("LMB = star, RMB = no star");
|
|
if(pen == pmDraw) dialog::addInfo("LMB = draw, RMB = erase");
|
|
if(pen == pmCreate) dialog::addInfo("LMB = new region, RMB = extend");
|
|
if(pen == pmWalls) dialog::addInfo("LMB = add, RMB = remove");
|
|
|
|
dialog::addBreak(100);
|
|
|
|
dialog::addItem("undo", 'z');
|
|
dialog::add_action([] {
|
|
stop_undo = true;
|
|
while(stop_undo && !undos.empty()) {
|
|
stop_undo = false;
|
|
undos.back()();
|
|
undos.pop_back();
|
|
}
|
|
while(!stop_undo && !undos.empty()) {
|
|
stop_undo = false;
|
|
undos.back()();
|
|
undos.pop_back();
|
|
}
|
|
});
|
|
|
|
dialog::addItem("save this puzzle", 'S');
|
|
dialog::add_action([] {
|
|
mapstream::saveMap("starbattle.lev");
|
|
#if ISWEB
|
|
offer_download("starbattle.lev", "mime/type");
|
|
#endif
|
|
});
|
|
|
|
dialog::addItem("settings", 'X');
|
|
dialog::add_action_push(showSettings);
|
|
|
|
mine_adjacency_rule = true;
|
|
|
|
dialog::addItem("new geometry", 'G');
|
|
dialog::add_action(runGeometryExperiments);
|
|
|
|
dialog::addItem("screenshot", 'Y');
|
|
dialog::add_action_push(shot::menu);
|
|
|
|
dialog::addItem("load a puzzle", 'L');
|
|
dialog::add_action([] {
|
|
#if ISWEB
|
|
offer_choose_file([] {
|
|
mapstream::loadMap("data.txt");
|
|
});
|
|
#else
|
|
mapstream::loadMap("starbattle.lev");
|
|
#endif
|
|
mapeditor::drawplayer = false;
|
|
});
|
|
|
|
dialog::addItem("hide menu", 'v');
|
|
dialog::add_action([] { dialog_shown = false; });
|
|
|
|
if(dialog_shown) {
|
|
dialog::display();
|
|
}
|
|
else {
|
|
displayButton(vid.xres-8, vid.yres-vid.fsize, XLAT("(v) menu"), 'v', 16);
|
|
dialog::add_key_action('v', [] { dialog_shown = true; });
|
|
}
|
|
|
|
keyhandler = [] (int sym, int uni) {
|
|
if(!dialog_shown) handlePanning(sym, uni);
|
|
dialog::handleNavigation(sym, uni);
|
|
|
|
if(among(sym, '-', SDLK_F1) && !holdmouse) push_stop();
|
|
|
|
if(sym == SDLK_F1 && mouseover && !holdmouse) {
|
|
cell *c = mouseover;
|
|
if(pen == pmSolve) {
|
|
if(!sdata.count(c)) return;
|
|
save_undo(c);
|
|
auto& sd = sdata[c];
|
|
sd.illegal = !sd.illegal;
|
|
if(sd.illegal) sd.starred = false;
|
|
holdmouse = true;
|
|
extregion = sd.illegal ? 3 : 2;
|
|
}
|
|
if(pen == pmCreate) {
|
|
if(!sdata.count(c)) return;
|
|
save_undo(c);
|
|
auto& sd = sdata[c];
|
|
extregion = sd.region;
|
|
}
|
|
if(pen == pmDraw) {
|
|
mapeditor::dt_erase(mouseh);
|
|
}
|
|
if(pen == pmWalls) {
|
|
holdmouse = true;
|
|
extregion = 0;
|
|
if(!sdata.count(c)) return;
|
|
if(c == currentmap->gamestart()) return;
|
|
save_undo(c);
|
|
undos.push_back([c] { add_to_puzzle(c); create_lines(); });
|
|
remove_from_puzzle(c);
|
|
create_lines();
|
|
}
|
|
}
|
|
if(sym == '-' && mouseover && !holdmouse) {
|
|
cell *c = mouseover;
|
|
if(pen == pmSolve) {
|
|
if(!sdata.count(c)) return;
|
|
save_undo(c);
|
|
auto& sd = sdata[c];
|
|
sd.starred = !sd.starred;
|
|
if(sd.starred) sd.illegal = false;
|
|
holdmouse = true;
|
|
extregion = sd.starred ? 1 : 0;
|
|
}
|
|
if(pen == pmCreate) {
|
|
if(!sdata.count(c)) return;
|
|
save_undo(c);
|
|
auto& sd = sdata[c];
|
|
sd.region = extregion = new_region();
|
|
}
|
|
if(pen == pmDraw) {
|
|
mapeditor::dt_add_free(mouseh);
|
|
holdmouse = true;
|
|
}
|
|
if(pen == pmWalls) {
|
|
holdmouse = true;
|
|
extregion = 1;
|
|
if(sdata.count(c)) return;
|
|
undos.push_back([c] { remove_from_puzzle(c); create_lines(); });
|
|
add_to_puzzle(c);
|
|
create_lines();
|
|
}
|
|
}
|
|
if(mouseover && mousepressed) {
|
|
cell *c = mouseover;
|
|
if(pen == pmSolve) {
|
|
if(!sdata.count(c)) return;
|
|
save_undo(c);
|
|
auto& sd = sdata[c];
|
|
if(extregion >= 2) {
|
|
sd.illegal = extregion == 3;
|
|
if(sd.illegal) sd.starred = false;
|
|
}
|
|
else {
|
|
sd.starred = extregion == 1;
|
|
if(sd.starred) sd.illegal = false;
|
|
}
|
|
}
|
|
if(pen == pmWalls && extregion == 1) {
|
|
if(sdata.count(c)) return;
|
|
undos.push_back([c] { remove_from_puzzle(c); create_lines(); });
|
|
add_to_puzzle(c);
|
|
create_lines();
|
|
}
|
|
if(pen == pmWalls && extregion == 0) {
|
|
if(!sdata.count(c)) return;
|
|
if(c == currentmap->gamestart()) return;
|
|
save_undo(c);
|
|
undos.push_back([c] { add_to_puzzle(c); create_lines(); });
|
|
remove_from_puzzle(c);
|
|
create_lines();
|
|
}
|
|
if(pen == pmCreate) {
|
|
if(!sdata.count(c)) return;
|
|
save_undo(c);
|
|
auto& sd = sdata[c];
|
|
sd.region = extregion;
|
|
}
|
|
if(pen == pmDraw && holdmouse) {
|
|
mapeditor::dt_add_free(mouseh);
|
|
}
|
|
}
|
|
if(pen == pmDraw && sym == PSEUDOKEY_RELEASE) {
|
|
mapeditor::dt_finish();
|
|
}
|
|
};
|
|
}
|
|
|
|
void launch() {
|
|
/* setup */
|
|
stop_game();
|
|
specialland = firstland = laCanvas;
|
|
canvas_default_wall = waChasm;
|
|
start_game();
|
|
screens[0] = starbattle_puzzle;
|
|
|
|
in = true;
|
|
mapeditor::dtcolor = 0xC000FF;
|
|
mapeditor::dtwidth = .05;
|
|
|
|
vid.linequality = 2;
|
|
patterns::whichShape = '9';
|
|
|
|
showstartmenu = false;
|
|
mapeditor::drawplayer = false;
|
|
rv::hook(hooks_drawcell, 100, draw_star);
|
|
}
|
|
|
|
#if CAP_COMMANDLINE
|
|
int rugArgs() {
|
|
using namespace arg;
|
|
|
|
if(0) ;
|
|
else if(argis("-starbattle")) {
|
|
PHASEFROM(3);
|
|
launch();
|
|
}
|
|
|
|
#if ISWEB
|
|
else if(argis("-sb")) {
|
|
PHASEFROM(3);
|
|
launch();
|
|
mapstream::loadMap("1");
|
|
mapeditor::drawplayer = false;
|
|
}
|
|
#endif
|
|
|
|
else return 1;
|
|
return 0;
|
|
}
|
|
|
|
auto starbattle_hook =
|
|
addHook(hooks_args, 100, rugArgs) +
|
|
addHook(mapstream::hooks_savemap, 100, [] (fhstream& f) {
|
|
f.write<int>(isize(sdata));
|
|
for(auto& sd: sdata) {
|
|
f.write(mapstream::cellids[sd.first]);
|
|
f.write(sd.second.region);
|
|
f.write(sd.second.starred);
|
|
f.write(sd.second.illegal);
|
|
}
|
|
f.write(stars_per_line);
|
|
f.write(stars_per_region);
|
|
}) +
|
|
addHook(hooks_clearmemory, 40, [] () {
|
|
sdata.clear();
|
|
lines.clear();
|
|
}) +
|
|
addHook(mapstream::hooks_loadmap, 100, [] (fhstream& f) {
|
|
int num;
|
|
f.read(num);
|
|
sdata.clear();
|
|
for(int i=0; i<num; i++) {
|
|
int32_t at = f.get<int>();
|
|
cell *c = mapstream::cellbyid[at];
|
|
auto& sd = sdata[c];
|
|
f.read(sd.region);
|
|
f.read(sd.starred);
|
|
f.read(sd.illegal);
|
|
}
|
|
f.read(stars_per_line);
|
|
f.read(stars_per_region);
|
|
create_lines();
|
|
});
|
|
#endif
|
|
|
|
EX }
|
|
|
|
EX }
|
|
|