mirror of
https://github.com/zenorogue/hyperrogue.git
synced 2025-07-15 15:42:49 +00:00
seuphorica:: initial commit
This commit is contained in:
Zeno Rogue
parent
8beaa2eafb
commit
a769f7b020
293
rogueviz/seuphorica.cpp
Normal file
293
rogueviz/seuphorica.cpp
Normal file
@ -0,0 +1,293 @@
|
|||||||
|
// Seuphorica frontend
|
||||||
|
// Copyright (C) 2025 Zeno Rogue, see 'hyper.cpp' for details
|
||||||
|
// the Seuphorica repo (seuphorica.cpp and dictionary files) needs to be placed in the 'seuphorica' subdirectory
|
||||||
|
|
||||||
|
#include "rogueviz.h"
|
||||||
|
#include <fstream>
|
||||||
|
|
||||||
|
namespace hr {
|
||||||
|
|
||||||
|
namespace seuphorica {
|
||||||
|
void read_dictionary(struct language& l);
|
||||||
|
void read_naughty_dictionary(language& l);
|
||||||
|
using std::stringstream;
|
||||||
|
using std::to_string;
|
||||||
|
using std::ostream;
|
||||||
|
}
|
||||||
|
|
||||||
|
#define NONJS
|
||||||
|
#include "seuphorica/seuphorica.cpp"
|
||||||
|
|
||||||
|
namespace seuphorica {
|
||||||
|
|
||||||
|
void compute_score();
|
||||||
|
void draw_board() { compute_score(); }
|
||||||
|
|
||||||
|
void read_dictionary(language& l) {
|
||||||
|
fhstream f(find_file("rogueviz/seuphorica/" + l.fname), "rt");
|
||||||
|
if(!f.f) { l.state = language_state::fetch_fail; compute_score(); return; }
|
||||||
|
string s;
|
||||||
|
while(scan(f, s))
|
||||||
|
l.dictionary[utf8_length(s)].insert(s);
|
||||||
|
l.dictionary[utf8_length(l.gamename)].insert(l.gamename);
|
||||||
|
l.state = language_state::fetch_success;
|
||||||
|
compute_score();
|
||||||
|
}
|
||||||
|
|
||||||
|
void read_naughty_dictionary(language& l) {
|
||||||
|
fhstream f(find_file("rogueviz/seuphorica/naughty-" + l.fname), "rt");
|
||||||
|
if(!f.f) { l.state = language_state::fetch_fail; compute_score(); return; }
|
||||||
|
string s;
|
||||||
|
while(scan(f, s))
|
||||||
|
l.naughty.insert(s);
|
||||||
|
l.state = language_state::fetch_success;
|
||||||
|
compute_score();
|
||||||
|
}
|
||||||
|
|
||||||
|
coord from(cell *c) {
|
||||||
|
auto co = euc2_coordinates(c);
|
||||||
|
return coord(-co.first+7, -co.second+7);
|
||||||
|
}
|
||||||
|
|
||||||
|
string fix(string s) {
|
||||||
|
auto rep = [&] (string a, string b) {
|
||||||
|
while(true) {
|
||||||
|
auto pos = s.find(a);
|
||||||
|
if(pos == string::npos) return;
|
||||||
|
s.replace(pos, a.size(), b);
|
||||||
|
}
|
||||||
|
};
|
||||||
|
rep("<b>", "");
|
||||||
|
rep("</b>", "");
|
||||||
|
rep("</b>", "");
|
||||||
|
rep("🪙", "$");
|
||||||
|
rep("<font color='#FF4040'>", "");
|
||||||
|
rep("</font>", "");
|
||||||
|
rep("<br/>", "\n");
|
||||||
|
rep("<li> ", " * ");
|
||||||
|
rep("<li>", "* ");
|
||||||
|
rep("</li>", "\n");
|
||||||
|
rep("</ul>", "");
|
||||||
|
rep("<ul>", "\n");
|
||||||
|
return s;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool draw(cell *c, const shiftmatrix& V) {
|
||||||
|
auto sco = from(c);
|
||||||
|
if(!board.count(sco)) { c->wall = waNone; c->landparam = 0x202020; }
|
||||||
|
else {
|
||||||
|
auto& t = board.at(sco);
|
||||||
|
c->wall = waNone; c->landparam = gsp(t).background;
|
||||||
|
write_in_space(V /* ** ddspin(c,cdir,0)*/, 72, 1, t.letter, darkena(gsp(t).text_color, 0, 0xFF), 0, 8);
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
const tile *tile_moved;
|
||||||
|
vector<tile>* box_moved;
|
||||||
|
int tile_boxid;
|
||||||
|
|
||||||
|
void render_tile(const shiftmatrix& V, const tile& t, vector<tile>* origbox, int boxid) {
|
||||||
|
curvepoint(eupoint(-1, -1));
|
||||||
|
curvepoint(eupoint(-1, +1));
|
||||||
|
curvepoint(eupoint(+1, +1));
|
||||||
|
curvepoint(eupoint(+1, -1));
|
||||||
|
curvepoint(eupoint(-1, -1));
|
||||||
|
queuecurve(V, 0xFF, darkena(gsp(t).background, 0, 0xFF), PPR::ZERO);
|
||||||
|
write_in_space(V, 72, 2, t.letter, darkena(gsp(t).text_color, 0, 0xFF), 0, 8);
|
||||||
|
|
||||||
|
auto h1 = inverse_shift_any(atscreenpos(0, 0), V * eupoint(-1, -1));
|
||||||
|
auto h2 = inverse_shift_any(atscreenpos(0, 0), V * eupoint(+1, +1));
|
||||||
|
if(mousex >= h1[0] && mousex <= h2[0] && mousey >= h1[1] && mousey <= h2[1] && !holdmouse) {
|
||||||
|
mouseovers = fix(tile_desc(t));
|
||||||
|
getcstat = dialog::list_fake_key++;
|
||||||
|
dialog::add_key_action(getcstat, [&t, origbox, boxid] {
|
||||||
|
holdmouse = true;
|
||||||
|
tile_moved = &t; box_moved = origbox; tile_boxid = boxid;
|
||||||
|
});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
map<int, hyperpoint> where_is_tile;
|
||||||
|
|
||||||
|
vector<tile>* current_box;
|
||||||
|
|
||||||
|
struct tilebox {
|
||||||
|
int x1, y1, x2, y2;
|
||||||
|
vector<tile> *ptset;
|
||||||
|
color_t col;
|
||||||
|
tilebox(int x1, int y1, int x2, int y2, vector<tile>& tset, color_t col) : x1(x1), y1(y1), x2(x2), y2(y2), ptset(&tset), col(col) {}
|
||||||
|
|
||||||
|
int get_margin() { return 40; }
|
||||||
|
int get_space() { return 50; }
|
||||||
|
|
||||||
|
bool good_location(hyperpoint h) {
|
||||||
|
for(auto& t: *ptset) if(where_is_tile.count(t.id)) {
|
||||||
|
auto d = h - where_is_tile[t.id];
|
||||||
|
if(max(abs(d[0]), abs(d[1])) < get_space()) return false;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
hyperpoint locate_tile(tile& t) {
|
||||||
|
if(where_is_tile.count(t.id)) return where_is_tile[t.id];
|
||||||
|
int margin = 40, space = 50;
|
||||||
|
int px = x1 + margin, py = y1 + margin;
|
||||||
|
while(true) {
|
||||||
|
hyperpoint h = eupoint(px, py);
|
||||||
|
if(good_location(h)) {
|
||||||
|
println(hlog, tie(x1,y1), " located ", tile_desc(t), " at ", h, " coord = ", tie(x1,y1,x2,y2));
|
||||||
|
return where_is_tile[t.id] = h;
|
||||||
|
}
|
||||||
|
px += space;
|
||||||
|
if(px > x2 - margin) { px = x1 + margin; py += space; }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void render(const string& title) {
|
||||||
|
shiftmatrix ASP = atscreenpos(vid.xres - dialog::dwidth, 0);
|
||||||
|
curvepoint(eupoint(x1+10, y1+10));
|
||||||
|
curvepoint(eupoint(x1+10, y2-10));
|
||||||
|
curvepoint(eupoint(x2-10, y2-10));
|
||||||
|
curvepoint(eupoint(x2-10, y1+10));
|
||||||
|
curvepoint(eupoint(x1+10, y1+10));
|
||||||
|
|
||||||
|
auto h1 = inverse_shift_any(atscreenpos(0, 0), ASP * eupoint(x1+10, y1+10));
|
||||||
|
auto h2 = inverse_shift_any(atscreenpos(0, 0), ASP * eupoint(x2-10, y2-10));
|
||||||
|
if(mousex >= h1[0] + 10 && mousex <= h2[0] - 10 && mousey >= h1[1] + 10 && mousey <= h2[1] + 10) {
|
||||||
|
current_box = ptset;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(1) {
|
||||||
|
dynamicval lw(vid.linewidth, vid.linewidth * 5);
|
||||||
|
queuecurve(ASP, darkena(col, 0, 0xFF), darkena(col, 0, 0x80), PPR::ZERO);
|
||||||
|
write_in_space(ASP * eupush(x2 - 10, y1 + 20), 72, 50, title, darkena(col, 0, 0xFF), 16, 16);
|
||||||
|
}
|
||||||
|
|
||||||
|
int idx = 0;
|
||||||
|
for(auto& t: *ptset) {
|
||||||
|
dynamicval lw(vid.linewidth, vid.linewidth * 3);
|
||||||
|
dynamicval<ld> cs(cgi.scalefactor, 1);
|
||||||
|
auto lt = locate_tile(t);
|
||||||
|
if(&t == tile_moved && holdmouse) { idx++; continue; }
|
||||||
|
if(lt[0] < x1 + get_margin() || lt[0] > x2 - get_margin() || lt[1] < y1 + get_margin() || lt[1] > y2 - get_margin()) {
|
||||||
|
println(hlog, "relocating ", lt, " due to ", tie(x1,y1,x2,y2));
|
||||||
|
where_is_tile.erase(t.id);
|
||||||
|
lt = locate_tile(t);
|
||||||
|
}
|
||||||
|
render_tile(ASP * eupush(lt) * euscalexx(20), t, ptset, idx++);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
void seuphorica_screen() {
|
||||||
|
|
||||||
|
getcstat = '-';
|
||||||
|
cmode = 0;
|
||||||
|
cmode = sm::SIDE | sm::DIALOG_STRICT_X | sm::MAYDARK;
|
||||||
|
|
||||||
|
gamescreen();
|
||||||
|
if(mouseover) {
|
||||||
|
auto at = from(mouseover);
|
||||||
|
if(board.count(at))
|
||||||
|
mouseovers = fix(tile_desc(board.at(at)));
|
||||||
|
}
|
||||||
|
|
||||||
|
dialog::init();
|
||||||
|
dialog::display();
|
||||||
|
|
||||||
|
if(1) {
|
||||||
|
int x1 = dialog::dwidth;
|
||||||
|
|
||||||
|
flat_model_enabler fme;
|
||||||
|
initquickqueue();
|
||||||
|
dynamicval<eGeometry> g(geometry, gEuclid);
|
||||||
|
|
||||||
|
current_box = nullptr;
|
||||||
|
tilebox(0, 2*vid.fsize, x1/2, vid.yres/5, deck, 0xFF8000).render("bag");
|
||||||
|
tilebox(x1/2, 2*vid.fsize, x1, vid.yres/5, discard, 0xFF0000).render("discard");
|
||||||
|
tilebox(0, vid.yres/5, x1, vid.yres*2/5, drawn, 0x00FF00).render("hand");
|
||||||
|
tilebox(0, vid.yres*2/5, x1, vid.yres*3/5, shop, 0xFFD500).render("shop");
|
||||||
|
|
||||||
|
if(holdmouse) render_tile(atscreenpos(mousex, mousey) * euscalexx(20), *tile_moved, nullptr, 0);
|
||||||
|
|
||||||
|
quickqueue();
|
||||||
|
}
|
||||||
|
|
||||||
|
stringstream ss;
|
||||||
|
seuphorica::gamestats(ss); ss << ev.current_scoring;
|
||||||
|
dialog::displayLong(fix(ss.str()), vid.fsize, vid.yres*3/5 + vid.fsize, false);
|
||||||
|
|
||||||
|
int x0 = vid.xres - dialog::dwidth;
|
||||||
|
if(ev.valid_move) {
|
||||||
|
displayButton(lerp(x0, vid.xres, 1/6.), vid.yres - vid.fsize, just_placed.empty() ? str_skip_turn : str_play, SDLK_RETURN, 8);
|
||||||
|
dialog::add_key_action(SDLK_RETURN, play);
|
||||||
|
}
|
||||||
|
|
||||||
|
displayButton(lerp(x0, vid.xres, 3/6.), vid.yres - vid.fsize, str_view_help, 'H', 8);
|
||||||
|
dialog::add_key_action('H', [] { gotoHelp(fix(seuphorica::rules)); });
|
||||||
|
|
||||||
|
displayButton(lerp(x0, vid.xres, 5/6.), vid.yres - vid.fsize, "menu", 'Q', 8);
|
||||||
|
dialog::add_key_action('Q', [] { quitmainloop = true; });
|
||||||
|
|
||||||
|
keyhandler = [] (int sym, int uni) {
|
||||||
|
handlePanning(sym, uni);
|
||||||
|
dialog::handleNavigation(sym, uni);
|
||||||
|
if(uni == SDLK_ESCAPE) popScreen();
|
||||||
|
if(uni == PSEUDOKEY_RELEASE) {
|
||||||
|
where_is_tile[tile_moved->id] = eupoint(mousex, mousey);
|
||||||
|
if(box_moved == &shop && current_box == &drawn) {
|
||||||
|
buy(tile_boxid);
|
||||||
|
}
|
||||||
|
if(box_moved == &drawn && current_box == &shop) {
|
||||||
|
swap(drawn[tile_boxid], drawn[0]);
|
||||||
|
back_to_shop();
|
||||||
|
}
|
||||||
|
if(box_moved == &drawn && current_box == nullptr) {
|
||||||
|
auto at = from(mouseover);
|
||||||
|
if(!board.count(at)) {
|
||||||
|
swap(drawn[tile_boxid], drawn[0]);
|
||||||
|
drop_hand_on(at.x, at.y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(box_moved == &shop && current_box == nullptr && tile_moved->price <= cash) {
|
||||||
|
auto at = from(mouseover);
|
||||||
|
if(!board.count(at)) {
|
||||||
|
buy(tile_boxid);
|
||||||
|
drop_hand_on(at.x, at.y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(uni == '-' && mouseover && !holdmouse) {
|
||||||
|
auto at = from(mouseover);
|
||||||
|
if(board.count(at)) {
|
||||||
|
back_from_board(at.x, at.y);
|
||||||
|
holdmouse = true; tile_moved = &(drawn[0]); tile_boxid = 0; box_moved = &drawn;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
drop_hand_on(at.x, at.y);
|
||||||
|
}
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
void launch() {
|
||||||
|
stop_game();
|
||||||
|
enable_canvas();
|
||||||
|
ccolor::set_plain_nowall(0x202020);
|
||||||
|
start_game();
|
||||||
|
View = Id;
|
||||||
|
restart("", "", "");
|
||||||
|
|
||||||
|
showstartmenu = false;
|
||||||
|
mapeditor::drawplayer = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
void enable() {
|
||||||
|
rogueviz::rv_hook(hooks_drawcell, 100, draw);
|
||||||
|
}
|
||||||
|
|
||||||
|
auto seuphorica_hook = arg::add3("-seuphorica", [] { launch(); enable(); pushScreen(seuphorica_screen); });
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
Loading…
x
Reference in New Issue
Block a user