1
0
mirror of https://github.com/zenorogue/hyperrogue.git synced 2024-12-25 17:40:36 +00:00
hyperrogue/rogueviz/fifteen.cpp
2021-04-07 23:23:40 +02:00

398 lines
10 KiB
C++

// Hyperbolic Rogue -- fifteen+4 puzzle
// Copyright (C) 2011-2019 Zeno Rogue, see 'hyper.cpp' for details
/** \file fifteen.cpp
* \brief fifteen+4 puzzle
*/
#include "rogueviz.h"
namespace hr {
EX namespace fifteen {
static const int Empty = 0;
struct celldata {
int target, targetdir;
bool targetmirror;
int current, currentdir;
bool currentmirror;
};
map<cell*, celldata> fif;
eWall empty = waChasm;
enum ePenMove { pmJump, pmRotate, pmAdd, pmMirrorFlip };
ePenMove pen;
void init_fifteen(int q = 20) {
println(hlog, "init_fifteen");
auto ac = currentmap->allcells();
for(int i=0; i<min(isize(ac), q); i++) {
fif[ac[i]] = {i, 0, false, i, 0, false};
}
cwt.at = ac[0];
println(hlog, "ok");
}
string dotted(int i) {
string s = its(i);
bool confusing = true;
for(char c: s) if(!among(c, '0', '6', '8', '9') && !(nonorientable && c == '3'))
confusing = false;
if(confusing) s += ".";
return s;
}
/** where = empty square */
void make_move(cell *where, int dir) {
auto nw = where->cmove(dir);
auto mir = where->c.mirror(dir);
auto& f0 = fif[where];
auto& f1 = fif[nw];
f0.current = f1.current;
f0.currentmirror = f1.currentmirror ^ mir;
int d = f1.currentdir;
d -= where->c.spin(dir);
println(hlog, "mir = ", mir);
if(mir) d *= -1;
d += dir;
if(!mir) d += nw->type/2;
f0.currentdir = gmod(d, nw->type);
f1.current = Empty;
}
void check_move() {
for(int i=0; i<cwt.at->type; i++) {
cell *c1 = cwt.at->cmove(i);
if(fif.count(c1) && fif[c1].current == Empty) {
make_move(c1, cwt.at->c.spin(i));
}
}
}
void scramble() {
for(int i=0; i<1000; i++) {
int d = hrand(cwt.at->type);
cell *c1 = cwt.at->move(d);
if(fif.count(c1)) {
make_move(cwt.at, d);
cwt.at = c1;
}
}
}
bool draw_fifteen(cell *c, const shiftmatrix& V) {
if(!fif.count(c)) { c->land = laNone; c->wall = waChasm; return false; }
check_move();
auto& cd = fif[c];
int cur = anyshiftclick ? cd.target : cd.current;
int cdir = anyshiftclick ? cd.targetdir : cd.currentdir;
bool cmir = anyshiftclick ? cd.targetmirror : cd.currentmirror;
if(cur == Empty) {
c->land = laCanvas;
c->wall = waNone;
c->landparam = 0x101080;
}
else {
c->land = laCanvas;
c->wall = waNone;
c->landparam = 0xFFFFFF;
if(cdir < 0 || cdir >= c->type) {
println(hlog, "ERROR: invalid dir ", cdir);
cdir = 0;
}
write_in_space(V * ddspin(c,cdir,0) * (cmir ? MirrorX: Id), 72, 1, dotted(cur), 0xFF, 0, 8);
}
return false;
}
void edit_fifteen() {
if(!fif.count(cwt.at))
init_fifteen();
clearMessages();
getcstat = '-';
cmode = 0;
cmode = sm::SIDE | sm::DIALOG_STRICT_X | sm::MAYDARK;
auto ss = mapstream::save_start();
ss->item = itGold;
gamescreen(0);
ss->item = itNone;
dialog::init("Fifteen Puzzle", iinf[itPalace].color, 150, 100);
dialog::addBoolItem("jump", pen == pmJump, 'j');
dialog::add_action([] { pen = pmJump; });
dialog::addBoolItem("rotate", pen == pmRotate, 'r');
dialog::add_action([] { pen = pmRotate; });
dialog::addBoolItem("mirror flip", pen == pmMirrorFlip, 'f');
dialog::add_action([] { pen = pmMirrorFlip; });
dialog::addBoolItem("add tiles", pen == pmAdd, 'a');
dialog::add_action([] { pen = pmAdd; });
dialog::addBreak(100);
dialog::addItem("this is the goal", 'g');
dialog::add_action([] {
for(auto& sd: fif) {
sd.second.target = sd.second.current;
sd.second.targetdir = sd.second.currentdir;
sd.second.targetmirror = sd.second.currentmirror;
}
});
dialog::addItem("remove all tiles", 'r');
dialog::add_action([] {
fif.clear();
init_fifteen(1);
});
dialog::addItem("scramble", 's');
dialog::add_action(scramble);
dialog::addItem("save this puzzle", 'S');
dialog::add_action([] {
mapstream::saveMap("fifteen.lev");
#if ISWEB
offer_download("fifteen.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("load a puzzle", 'L');
dialog::add_action([] {
#if ISWEB
offer_choose_file([] {
mapstream::loadMap("data.txt");
});
#else
mapstream::loadMap("fifteen.lev");
#endif
mapeditor::drawplayer = false;
});
dialog::addBack();
dialog::display();
keyhandler = [] (int sym, int uni) {
dialog::handleNavigation(sym, uni);
if(sym == '-' && mouseover && !holdmouse) {
cell *c = mouseover;
if(pen == pmJump) {
if(fif.count(c)) {
auto& f0 = fif[cwt.at];
auto& f1 = fif[c];
swap(f0, f1);
cwt.at = c;
}
else {
fif[c] = fif[cwt.at];
fif.erase(cwt.at);
cwt.at = c;
}
}
if(pen == pmRotate) {
if(fif.count(c) == 0) return;
auto& f1 = fif[c];
f1.currentdir = gmod(1+f1.currentdir, c->type);
f1.targetdir = gmod(1+f1.targetdir, c->type);
}
if(pen == pmMirrorFlip) {
if(fif.count(c) == 0) return;
auto& f1 = fif[c];
f1.currentmirror ^= true;
f1.targetmirror ^= true;
}
if(pen == pmAdd) {
if(fif.count(c) == 0) {
auto& f = fif[c];
f.current = f.target = isize(fif)-1;
f.currentdir = f.targetdir == 0;
}
else {
auto& f = fif[c];
if(f.current == isize(fif)-1)
fif.erase(c);
}
}
}
else if(doexiton(sym, uni)) popScreen();
};
}
void launch() {
/* setup */
stop_game();
specialland = firstland = laCanvas;
canvas_default_wall = waChasm;
start_game();
init_fifteen();
showstartmenu = false;
mapeditor::drawplayer = false;
}
void enable();
void load_fifteen(fhstream& f) {
int num;
f.read(num);
fif.clear();
println(hlog, "read num = ", num);
for(int i=0; i<num; i++) {
int32_t at = f.get<int>();
println(hlog, "at = ", at);
cell *c = mapstream::cellbyid[at];
auto& cd = fif[c];
f.read(cd.target);
f.read(cd.targetdir);
cd.targetdir = mapstream::fixspin(mapstream::relspin[at], cd.targetdir, c->type, f.vernum);
if(nonorientable)
f.read(cd.targetmirror);
f.read(cd.current);
f.read(cd.currentdir);
if(nonorientable)
f.read(cd.currentmirror);
cd.currentdir = mapstream::fixspin(mapstream::relspin[at], cd.currentdir, c->type, f.vernum);
println(hlog, "assigned ", cd.current, " to ", c);
}
enable();
}
void o_key(o_funcs& v) {
v.push_back(named_dialog("edit the Fifteen puzzle", edit_fifteen));
}
void enable() {
rogueviz::rv_hook(hooks_o_key, 80, o_key);
rogueviz::rv_hook(hooks_drawcell, 100, draw_fifteen);
rogueviz::rv_hook(mapstream::hooks_savemap, 100, [] (fhstream& f) {
f.write<int>(15);
f.write<int>(isize(fif));
for(auto cd: fif) {
f.write(mapstream::cellids[cd.first]);
println(hlog, cd.first, " has id ", mapstream::cellids[cd.first]);
f.write(cd.second.target);
f.write(cd.second.targetdir);
if(nonorientable)
f.write(cd.second.targetmirror);
f.write(cd.second.current);
f.write(cd.second.currentdir);
if(nonorientable)
f.write(cd.second.currentmirror);
}
});
rogueviz::rv_hook(hooks_clearmemory, 40, [] () {
fif.clear();
});
}
#if CAP_COMMANDLINE
int rugArgs() {
using namespace arg;
if(0) ;
else if(argis("-fifteen")) {
PHASEFROM(3);
launch();
addHook(mapstream::hooks_loadmap_old, 100, load_fifteen);
#if ISWEB
mapstream::loadMap("1");
#endif
}
else return 1;
return 0;
}
auto fifteen_hook =
addHook(hooks_args, 100, rugArgs)
+ addHook(mapstream::hooks_loadmap, 100, [] (fhstream& f, int id) {
if(id == 15) load_fifteen(f);
})
+ addHook(tour::ss::hooks_extra_slideshows, 120, [] (tour::ss::slideshow_callback cb) {
using namespace rogueviz::pres;
static vector<slide> fifteen_slides;
if(fifteen_slides.empty()) {
fifteen_slides.emplace_back(
slide{"Introduction", 999, LEGAL::NONE,
"This is a collection of some geometric and topological variants of the Fifteen puzzle."
,
[] (presmode mode) {}
});
auto add = [&] (string s, string lev, string text, string youtube = "") {
fifteen_slides.emplace_back(
tour::slide{s, 100, LEGAL::NONE | QUICKGEO, text,
[=] (presmode mode) {
if(youtube != "")
slide_url(mode, 'y', "YouTube link", youtube);
string fname = "fifteen/" + lev + ".lev";
if(!file_exists(fname)) {
slide_error(mode, "file " + fname + " not found");
return;
}
setCanvas(mode, '0');
if(mode == pmStart) {
slide_backup(mapeditor::drawplayer, mapeditor::drawplayer);
slide_backup(vid.wallmode, 2);
slide_backup(pconf.scale, .6);
stop_game();
mapstream::loadMap(fname);
fullcenter();
if(lev == "coiled" || lev == "mobiusband")
View = spin(90*degree) * View;
if(lev == "mobiusband")
View = MirrorX * View;
}
}});
};
add("15", "classic", "The original Fifteen puzzle.");
add("15+4", "fifteen", "The 15+4 puzzle by Henry Segerman.", "https://www.youtube.com/watch?v=Hc3yfuXiWe0");
add("15-4", "sphere11", "The 15-4 puzzle.");
add("coiled", "coiled", "Coiled fifteen puzzle by Henry Segerman.", "https://www.youtube.com/watch?v=rfAEgxNEOrQ");
add("Möbius band", "mobiusband", "Fifteen puzzle on a Möbius band.");
add("Kite-and-dart", "kitedart", "Kite-and-dart puzzle.");
add_end(fifteen_slides);
}
cb(XLAT("variants of the fifteen puzzle"), &fifteen_slides[0], 'h');
});
#endif
EX }
EX }