// Hyperbolic Rogue -- minor modes // Copyright (C) 2011-2019 Zeno Rogue, see 'hyper.cpp' for details /** \file yendor.cpp * \brief Yendor Quest/Challenge, Pure Tactics Mode, Peace Mode */ #include "hyper.h" namespace hr { namespace peace { extern bool on; } EX int hiitemsMax(eItem it) { int mx = 0; for(auto& a: hiitems) if(a.second[it] > mx) mx = a.second[it]; return mx; } /** 1 - just return UNKNOWN if id not assigned; 2 - assign without writing to file; 3 - assign with writing to file */ EX modecode_t modecode(int mode IS(3)); typedef vector > subscoreboard; void displayScore(subscoreboard& s, int x) { int vf = min((vid.yres-64) / 70, vid.xres/80); if(get_sync_status() == 1) { displayfr(x, 56, 1, vf, "(syncing)", 0xC0C0C0, 0); } else { sort(s.begin(), s.end()); for(int i=0; i> bestscore; EX eLand nexttostart; yendorlevel levels[YENDORLEVELS] = { {laNone, 0}, {laHell, YF_DEAD}, // FORCE BARRIERS? {laGraveyard, YF_DEAD5}, {laDesert, YF_NEAR_IVY}, // IVY OR TENTACLE? {laMinefield, YF_END}, // NOT WON, SEEMS OKAY {laEmerald, 0}, // WON FINE {laOvergrown, 0}, // WON, TOO EASY? {laMotion, YF_START_AL | YF_END}, // NOT WON, SEEMS OKAY {laAlchemist, 0}, // ALMOST WON {laIvoryTower,YF_START_CR | YF_NEAR_ELEM | YF_REPEAT}, // won cool {laMirrorOld, YF_NEAR_OVER}, // OK {laWhirlpool, 0}, // cool {laIce, YF_NEAR_ELEM}, // OK {laHive, YF_NEAR_RED}, // OK {laCaribbean, 0}, // seems OK {laOcean, YF_WALLS}, // well... stupid, add Caribbean/Fjord {laPalace, 0}, // more trapdoors! {laZebra, 0}, // TOO HARD? {laWineyard, 0}, // hard-ish {laStorms, 0}, // ? {laLivefjord, 0}, {laJungle, 0}, {laPower, YF_START_CR}, {laWildWest, 0}, {laWhirlwind, YF_NEAR_TENT}, {laHell, YF_CHAOS | YF_DEAD}, {laDragon, YF_DEAD}, {laReptile, 0}, {laTortoise, YF_RECALL}, {laCocytus, YF_NEAR_FJORD}, {laRuins, YF_DEAD}, {laCaves, YF_DEAD5}, {laWestWall, YF_START_CR}, {laEclectic, 0}, // {laVariant, YF_DEAD5}, (I do not think this works) }; int tscorelast; void uploadScore() { int tscore = 0; for(int i=1; i tscorelast) { tscorelast = tscore; if(tscore >= 1000) achievement_gain("YENDC1", rg::global); if(tscore >= 5000) achievement_gain("YENDC2", rg::global); if(tscore >= 15000) achievement_gain("YENDC3", rg::global); } achievement_score(LB_YENDOR_CHALLENGE, tscore); } EX yendorlevel& clev() { return levels[challenge]; } eLand changeland(int i, eLand l) { if(l == laIvoryTower) return laNone; if((clev().flags & YF_START_ANY) && i < 20 && l != clev().l) return clev().l; if((clev().flags & YF_END) && i > 80 && l == clev().l) return laIce; return laNone; } eLand first, second, last; #if HDR struct yendorinfo { cell *path[YDIST]; cell *actualKey; bool found; bool foundOrb; int howfar; bignum age; yendorinfo() { actualKey = NULL; } cell* key() { return path[YDIST-1]; } cell *actual_key() { return actualKey ? actualKey : key(); } cell* orb() { return path[0]; } }; #endif EX vector yi; #if HDR #define NOYENDOR 999999 #endif EX int yii = NOYENDOR; EX int hardness() { if(peace::on) return 15; // just to generate monsters if(!yendor::generating && !yendor::path && !yendor::on) return 0; int thf = 0; for(int i=0; i 25) thf += (ye.howfar - 25); } thf -= 2 * (YDIST - 25); if(thf<0) thf = 0; return items[itOrbYendor] * 5 + (thf * 5) / (YDIST-25); } #if HDR enum eState { ysUntouched, ysLocked, ysUnlocked }; #endif EX eState state(cell *yendor) { for(int i=0; i= 4 if(nil && quotient) return true; #endif #if CAP_SOLV if(asonov::in() && asonov::period_xy && asonov::period_xy <= 256) return true; #endif if(bounded) return true; return false; } EX bool check(cell *yendor) { int byi = isize(yi); for(int i=0; i=0; a--) { nyi.path[a+1] = at; vector prev; forCellCM(c2, at) if(celldistance(yendor, c2) == a) prev.push_back(c2); if(isize(prev)) at = prev[hrand(isize(prev))]; } nyi.path[0] = yendor; } else if(hybri) { /* I am lazy */ for(int i=1; i<=YDIST-1; i++) nyi.path[i] = nyi.path[i-1]->cmove(nyi.path[i-1]->type-1); } else { int t = -1; bignum full_id; bool onlychild = true; cellwalker ycw(yendor, odir = hrand(yendor->type)); ycw--; if(S3 == 3) ycw--; setdist(nyi.path[0], 7, NULL); int last_id = 0; for(int i=0; i BARLEV-6) { last_id = i+7-BARLEV; setdist(nyi.path[last_id], 7, nyi.path[i+6-BARLEV]); if(challenge && !euclid && ycw.at->land != laIvoryTower) { eLand ycl = changeland(i, ycw.at->land); if(ycl) { if(weirdhyperbolic) { buildBarrierNowall(ycw.at, ycl); } else if(hyperbolic && ishept(ycw.at)) { int bd = 2 + hrand(2) * 3; buildBarrier(ycw.at, bd, ycl); if(ycw.at->bardir != NODIR && ycw.at->bardir != NOBARRIERS) extendBarrier(ycw.at); } } } } if(ycw.at->land == laEndorian) { // follow the branch in Yendorian int bestval = -2000; int best = 0, qbest = 0; for(int d=0; dtype; d++) { setdist(ycw.at, 7, ycw.peek()); cell *c1 = (ycw+d).cpeek(); int val = d * (ycw.at->type - d); if(c1->wall == waTrunk) val += (i < YDIST-20 ? 1000 : -1000); if(val > bestval) qbest = 0, bestval = val; if(val == bestval) if(hrand(++qbest) == 0) best = d; } ycw += best; } else if(bt::in()) { // make it challenging vector ds; for(int d=0; dtype; d++) { bool increase; if(sol) increase = i < YDIST / 4 || i > 3 * YDIST / 4; else increase = i < YDIST/2; if(increase) { if(celldistAlt((ycw+d).cpeek()) < celldistAlt(ycw.at)) ds.push_back(d); } else { if(celldistAlt((ycw+d).cpeek()) > celldistAlt(ycw.at) && (ycw+d).cpeek() != nyi.path[i-1]) ds.push_back(d); } } if(isize(ds)) ycw += ds[hrand(isize(ds))]; } else if(trees_known()) { if(i == 0) { t = type_in(expansion, yendor, [yendor] (cell *c) { return celldistance(yendor, c); }); bignum b = expansion.get_descendants(YDIST-1, t); full_id_0 = full_id = hrand(b); } #if DEBUG_YENDORGEN printf("#%3d t%d %s / %s\n", i, t, full_id.get_str(100).c_str(), expansion.get_descendants(YDIST-1-i, t).get_str(100).c_str()); for(int tch: expansion.children[t]) { printf(" t%d %s\n", tch, expansion.get_descendants(YDIST-2-i, t).get_str(100).c_str()); } #endif if(i == 1) onlychild = true; if(!onlychild) ycw++; if(valence() == 3) ycw++; onlychild = false; for(int tch: expansion.children[t]) { ycw++; if(i == 1) tch = type_in(expansion, ycw.cpeek(), [yendor] (cell *c) { return celldistance(yendor, c); }); auto& sub_id = expansion.get_descendants(YDIST-i-2, tch); if(full_id < sub_id) { t = tch; break; } full_id.addmul(sub_id, -1); onlychild = true; } } else if(WDIM == 3) { int d = celldistance(nyi.path[0], ycw.at); vector next; forCellCM(c, ycw.at) if(celldistance(nyi.path[0], c) > d) next.push_back(c); if(!isize(next)) { printf("error: no more cells"); ycw.at = ycw.at->move(hrand(ycw.at->type)); } else { ycw.at = next[hrand(isize(next))]; } nyi.path[i+1] = ycw.at; } else { // stupid ycw += rev; // well, make it a bit more clever on bitruncated a4 grids if(a4 && BITRUNCATED && S7 <= 5) { if(ycw.at->type == 8 && ycw.cpeek()->type != 8) ycw++; if(hrand(100) < 10) { if(euclid ? (turns&1) : (hrand(100) < 50)) ycw+=2; else ycw-=2; turns++; } } } while(last_id < i && (nyi.path[last_id]->land == laMirror || inmirror(nyi.path[last_id]))) { last_id++; setdist(nyi.path[last_id], 7, nullptr); } if(inmirror(ycw.at)) ycw = mirror::reflect(ycw); ycw += wstep; nyi.path[i+1] = ycw.at; } } nyi.found = false; nyi.foundOrb = false; for(int i=1; iland)) { // println(hlog, i, ": ", coastvalEdge(nyi.path[i])); buildEquidistant(nyi.path[i]); } } setdist(nyi.path[YDIST-1], 7, nyi.path[YDIST-2]); cell *key = nyi.path[YDIST-1]; generating = false; for(int b=10; b>=5; b--) setdist(key, b, nyi.path[YDIST-2]); if(inmirror(key) || (geometry == gNormal && celldistance(key, yendor) < YDIST/2)) { creation_attempt++; if(creation_attempt > 100) { yendor->item = itNone; addMessage(XLAT("%The1 turned out to be an illusion!", itOrbYendor)); return false; } goto retry; } for(int i=-1; itype; i++) { cell *c2 = i >= 0 ? key->move(i) : key; checkTide(c2); c2->monst = moNone; c2->item = itNone; if(!passable(c2, NULL, P_MIRROR | P_MONSTER)) { if(c2->wall == waCavewall) c2->wall = waCavefloor; else if(c2->wall == waDeadwall) c2->wall = waDeadfloor2; else if(c2->wall == waLake) c2->wall = waFrozenLake; else if(c2->land == laCaribbean) c2->wall = waCIsland; else if(c2->land == laOcean) c2->wall = waCIsland; else if(c2->land == laRedRock) c2->wall = waRed3; else if(c2->land == laWhirlpool) c2->wall = waBoat, c2->monst = moPirate, c2->item = itOrbWater; else c2->wall = waNone; } if(c2->wall == waReptile) c2->wall = waNone; if(c2->wall == waMineMine || c2->wall == waMineUnknown) c2->wall = waMineOpen; if(c2->wall == waTrapdoor && i == -1) c2->wall = waGargoyleFloor; if(c2->land == laLivefjord) { c2->wall = waSea; for(int i=0; itype; i++) c2->move(i)->wall = waSea; } if(isGravityLand(c2->land) && key->land == c2->land && c2->land != laWestWall && c2->landparam < key->landparam && c2->wall != waTrunk) c2->wall = waPlatform; if(c2->land == laReptile && i >= 0) c2->wall = waChasm; if(c2->land == laMirrorWall && i == -1) c2->wall = waNone; } key->item = itKey; bool split_found = false; if(key->land == laWestWall && trees_known()) { int t = type_in(expansion, yendor, [yendor] (cell *c) { return celldistance(yendor, c); }); int maxage = 10; for(int i=0; iitem = itRuby; split_found = true; setdist(ycw.at, 6, NULL); auto tt = type_in(expansion, ycw.at, coastvalEdge); // println(hlog, "at split, ydist-type: ", t, " coast-type: ", tt); if(t != tt) { // try again! key->item = itNone; return check(yendor); } } t = tch; break; } full_id.addmul(sub_id, -1); if(!split_found) full_id_0.addmul(sub_id, -1); onlychild = true; } if(inmirror(ycw)) ycw = mirror::reflect(ycw); ycw += wstep; setdist(ycw.at, 8, ycw.peek()); buildEquidistant(ycw.at); // println(hlog, "actual key #", i, ": ", ycw.at->landparam); } nyi.actualKey = ycw.at; ycw.at->item = itKey; key->item = itNone; } yi.push_back(nyi); } dynamicval b(changes.on, false); addMessage(XLAT("You need to find the right Key to unlock this Orb of Yendor!")); if(yi[byi].actualKey) addMessage(XLAT("You feel that these directions are %1 turns old.", yi[byi].age.get_str(100))); if(yii != byi) { yii = byi; achievement_gain_once("YENDOR1"); playSound(yendor, "pickup-yendor"); return true; } return false; } EX void onpath() { path = false; if(yii < isize(yi)) { for(int i=0; icpdist <= 7) { if(i > yi[yii].howfar) yi[yii].howfar = i; path = true; } } } EX eLandStructure get_land_structure() { if(clev().flags & YF_CHAOS) return lsChaos; if(clev().l == laWhirlpool) return lsSingle; return lsNiceWalls; } EX void init(int phase) { if(!on) return; if(phase == 1) { won = false; if(!easy) items[itOrbYendor] = bestscore[modecode()][challenge]; land_structure = get_land_structure(); specialland = clev().l; if(clev().flags & YF_START_AL) { specialland = laAlchemist; items[itElixir] = 50; items[itFeather] = 50; } if(specialland == laPower) items[itOrbSpeed] = 60, items[itOrbWinter] = 60; if(clev().flags & YF_START_CR) { specialland = laCrossroads; } if(specialland == laGraveyard) items[itBone] = 10; if(specialland == laEmerald) items[itEmerald] = 10; if(specialland == laCocytus) items[itFjord] = 10; if(!euclid) { if(clev().flags & YF_DEAD) items[itGreenStone] = 100; if(clev().flags & YF_DEAD5) items[itGreenStone] = 5; } if(clev().flags & YF_RECALL) { int yq = items[itOrbYendor]; items[itOrbRecall] = 60 - yq; items[itOrbTime] = 60 - yq; items[itOrbEnergy] = 60 - yq; items[itOrbTeleport] = 60 - yq; items[itOrbSpace] = 60 - yq; items[itOrbDash] = 60 - yq; items[itOrbFrog] = 60 - yq; } nexttostart = laNone; } if(phase == 2) { cell *c2 = cwt.at->move(0); c2->land = firstland; if(firstland == laRlyeh) c2->wall = waNone; yendor::check(c2); if(clev().flags & YF_NEAR_IVY) nexttostart = laJungle; if(clev().flags & YF_NEAR_FJORD) nexttostart = laLivefjord; if(clev().flags & YF_NEAR_TENT) nexttostart = laRlyeh; if(clev().flags & YF_NEAR_ELEM) { if(firstland == laIce) { nexttostart = laEWater; items[itWaterShard] = 10; } else nexttostart = laEAir; } if(clev().flags & YF_NEAR_OVER) nexttostart = laOvergrown; if(clev().flags & YF_NEAR_RED) { nexttostart = laRedRock; items[itRedGem] = 25; } if(clev().flags & YF_WALLS) { items[itPirate] += 25; items[itFjord] += 25; } if(clev().l == laWhirlpool) { items[itWhirlpool] += 10; items[itOrbWater] += 150; } } if(phase == 3) { cell *c2 = cwt.at->move(0); makeEmpty(c2); c2->item = itOrbYendor; nexttostart = laNone; if(clev().flags & YF_RECALL) saveRecall(cwt); } } bool levelUnlocked(int i) { yendorlevel& ylev(levels[i]); eItem t = treasureType(ylev.l); if(ylev.l != laWildWest && hiitemsMax(t) < 10) return false; if((ylev.flags & YF_NEAR_ELEM) && hiitemsMax(itElemental) < 10) return false; if((ylev.flags & YF_NEAR_RED) && hiitemsMax(itRedGem) < 10) return false; if((ylev.flags & YF_NEAR_OVER) && hiitemsMax(itMutant) < 10) return false; if((ylev.flags & YF_NEAR_TENT) && hiitemsMax(itStatue) < 10) return false; if((ylev.flags & YF_NEAR_FJORD) && hiitemsMax(itFjord) < 10) return false; if((ylev.flags & YF_CHAOS) && !chaosUnlocked) return false; if((ylev.flags & (YF_DEAD|YF_DEAD5)) && hiitemsMax(itBone) < 10) return false; if((ylev.flags & YF_RECALL) && hiitemsMax(itSlime) < 10) return false; return true; } struct scoredata { string username; int scores[landtypes]; }; vector scoreboard; EX const char *chelp = "There are many possible solutions to the Yendor Quest. In the Yendor " "Challenge, you will try many of them!\n\n" "Each challenge takes part in a specific land, and you have to use what " "you have available.\n\n" "You need to obtain an Orb of Yendor in the normal game to activate " "this challenge, and (ever) collect 10 treasures in one or two lands " "to activate a specific level.\n\n" "After you complete each challenge, you can try it again, on a harder " "difficulty level.\n\n" "All the solutions showcased in the Yendor Challenge work in the normal " "play too. However, passages to other lands, and (sometimes) some land features " "are disabled in the Yendor " "Challenge, so that you have to use the expected method. Also, " "the generation rules are changed slightly for the Palace " "and Minefield while you are looking for the Orb of Yendor, " "to make the challenge more balanced " "(but these changes are also active during the normal Yendor Quest).\n\n" "You get 1000 points for each challenge won, and 1 extra point for " "each extra difficulty level."; int char_to_yendor(char c) { if(c >= 'a' && c <= 'z') return c - 'a' + 1; if(c >= 'A' && c <= 'Z') return c - 'A' + 1 + 26; return 0; } EX string name(int i) { yendorlevel& ylev(levels[i]); string s = XLATT1(ylev.l); if(!euclid) { if(ylev.flags & YF_CHAOS) { s = "Chaos mode"; } if(ylev.flags & YF_NEAR_IVY) { s += "+"; s += XLATT1(laJungle); } if(ylev.flags & YF_NEAR_FJORD) { s += "+"; s += XLATT1(laLivefjord); } if(ylev.flags & YF_NEAR_TENT) { s += "+"; s += XLATT1(laRlyeh); } if(ylev.flags & YF_NEAR_ELEM) { s += "+"; s += XLATT1(laElementalWall); } if(ylev.flags & YF_NEAR_OVER) { s += "+"; s += XLATT1(laOvergrown); } if(ylev.flags & YF_NEAR_RED) { s += "+"; s += XLATT1(laRedRock); } if(ylev.flags & YF_START_AL) { s += "+"; s += XLATT1(laAlchemist); } if(ylev.flags & YF_DEAD) { s += "+"; s += XLATT1(itGreenStone); } if(ylev.flags & YF_RECALL) { s += "+"; s += XLATT1(itOrbRecall); } } return s; } EX void showMenu() { set_priority_board(LB_YENDOR_CHALLENGE); int s = vid.fsize; vid.fsize = vid.fsize * 4/5; dialog::init(XLAT("Yendor Challenge"), iinf[itOrbYendor].color, 150, 100); for(int i=1; i 26 ? 'A' + i - 27 : 'a' + i-1); } dialog::addBreak(60); if (yendor::on) dialog::addItem(XLAT("Return to the normal game"), '0'); dialog::addSelItem(XLAT( easy ? "Challenges do not get harder" : "Each challenge gets harder after each victory"), " " + XLAT(easy ? "easy" : "challenge"), '1'); dialog::addBack(); dialog::addHelp(); dialog::display(); int yc = char_to_yendor(getcstat); if(yc > 0 && yc < YENDORLEVELS) { subscoreboard scorehere; for(int i=0; i 0) scorehere.push_back( make_pair(-sc, scoreboard[i].username)); } displayScore(scorehere, vid.xres / 4); } yendor::uploadScore(); vid.fsize = s; keyhandler = [] (int sym, int uni) { dialog::handleNavigation(sym, uni); int new_challenge = char_to_yendor(uni); if(new_challenge && new_challenge < YENDORLEVELS) { if(levelUnlocked(new_challenge) || autocheat) dialog::do_if_confirmed([new_challenge] { challenge = new_challenge; restart_game(yendor::on ? rg::nothing : rg::yendor); }); else addMessage("Collect 10 treasures in various lands to unlock the challenges there"); } else if(uni == '0') { if(yendor::on) restart_game(rg::yendor); } else if(uni == '1') easy = !easy; else if(uni == '2' || sym == SDLK_F1) gotoHelp(chelp); else if(doexiton(sym, uni)) popScreen(); }; } EX void collected(cell* c2) { LATE( collected(c2); ) playSound(c2, "tada"); items[itOrbShield] += 31; for(int i=0; i > choices = { {itOrbSpeed, 31}, {itOrbLightning, 78}, {itOrbFlash, 78}, {itOrbTime, 78}, {itOrbWinter, 151}, {itOrbDigging, 151}, {itOrbTeleport, 151}, {itOrbThorns, 151}, {itOrbInvis, 151}, {itOrbPsi, 151}, {itOrbAether, 151}, {itOrbFire, 151}, {itOrbSpace, 78} }; auto p = hrand_elt(choices); auto orb = p.first; if(items[orb] && i < 500) continue; if(among(getOLR(orb, getPrizeLand()), olrDangerous, olrUseless, olrForbidden)) continue; items[orb] += p.second; powers++; } items[itOrbYendor]++; items[itKey]--; changes.value_set(yendor::everwon, true); if(yendor::on) { changes.value_set(yendor::won, true); if(!cheater) { yendor::bestscore[modecode()][yendor::challenge] = max(yendor::bestscore[modecode()][yendor::challenge], items[itOrbYendor]); yendor::uploadScore(); } } addMessage(XLAT("CONGRATULATIONS!")); achievement_collection(itOrbYendor); achievement_victory(false); } auto hooks = addHook(hooks_clearmemory, 0, [] () { yendor::yii = NOYENDOR; yendor::yi.clear(); }) + addHook(hooks_removecells, 0, [] () { eliminate_if(yendor::yi, [] (yendorinfo& i) { for(int j=0; j> recordsum; map, landtypes> > lsc; eLand lasttactic; struct scoredata { string username; int scores[landtypes]; }; map> scoreboard; EX int chances(eLand l, modecode_t xc IS(modecode())) { if(xc != 0 && l != laCamelot) return 3; for(auto& ti: land_tac) if(ti.l == l) return ti.tries; return 0; } int tacmultiplier(eLand l) { if(modecode() != 0 && l != laCamelot) return 1; if(modecode() != 0 && l == laCamelot) return 3; for(auto& ti: land_tac) if(ti.l == l) return ti.multiplier; return 0; } bool tacticUnlocked(eLand l) { if(autocheat) return true; if(l == laWildWest || l == laDual) return true; return hiitemsMax(treasureType(l)) * landMultiplier(l) >= 20; } EX void record(eLand land, int score, modecode_t xc IS(modecode())) { if(land >=0 && land < landtypes) { for(int i=MAXTAC-1; i; i--) lsc[xc][land][i] = lsc[xc][land][i-1]; tactic::lsc[xc][land][0] = score; } int t = chances(land, xc); int csum = 0; for(int i=0; i 0) csum += lsc[xc][land][i]; if(csum > recordsum[xc][land]) recordsum[xc][land] = csum; } void record() { record(lasttactic, items[treasureType(lasttactic)]); } void unrecord(eLand land, flagtype xc = modecode()) { if(land >=0 && land < landtypes) { for(int i=0; i tscorelast) { tscorelast = tscore; if(tscore >= 1000) achievement_gain("PTM1", 'x'); if(tscore >= 5000) achievement_gain("PTM2", 'x'); if(tscore >= 15000) achievement_gain("PTM3", 'x'); } achievement_score(lb, tscore); } void uploadScore() { uploadScoreCode(0, LB_PURE_TACTICS); uploadScoreCode(2, LB_PURE_TACTICS_SHMUP); uploadScoreCode(4, LB_PURE_TACTICS_COOP); } EX void showMenu() { flagtype xc = modecode(); if(xc == 0) set_priority_board(LB_PURE_TACTICS); if(xc == 2) set_priority_board(LB_PURE_TACTICS_SHMUP); if(xc == 4) set_priority_board(LB_PURE_TACTICS_COOP); cmode = sm::ZOOMABLE; mouseovers = XLAT("pure tactics mode") + " - " + mouseovers; { dynamicval t(tactic::on, true); generateLandList([] (eLand l) { return land_validity(l).flags & lv::appears_in_ptm; }); } int nl = isize(landlist); int nlm; int ofs = dialog::handlePage(nl, nlm, (nl+1)/2); int vf = min((vid.yres-64-vid.fsize) / nlm, vid.xres/40); int xr = vid.xres / 64; if(on) record(specialland, items[treasureType(specialland)]); getcstat = SDLK_ESCAPE; for(int i=0; i 0 ? its(lsc[xc][l][ii]) : "-", col, 16)) getcstat = 1000 + i1; if(displayfrZH(xr*(24+2*10), i0, 1, (vf-4)*4/5, its(recordsum[xc][l]) + " x" + its(tacmultiplier(l)), col, 0)) getcstat = 1000 + i1; } else { int m = landMultiplier(l); displayfrZ(xr*26, i0, 1, (vf-4)*4/5, XLAT("Collect %1x %2 to unlock", its((20+m-1)/m), treasureType(l)), col, 0); } } dialog::displayPageButtons(3, true); uploadScore(); if(on) unrecord(specialland); if(getcstat >= 1000 && getcstat < 1000 + isize(landlist)) { int ld = landlist[getcstat-1000]; subscoreboard scorehere; for(int i=0; i 0) scorehere.push_back( make_pair(-sc, scoreboard[xc][i].username)); } displayScore(scorehere, xr * 50); } keyhandler = [] (int sym, int uni) { if(uni >= 1000 && uni < 1000 + isize(landlist)) dialog::do_if_confirmed([uni] { stop_game(); specialland = landlist[uni - 1000]; restart_game(tactic::on ? rg::nothing : rg::tactic); }); else if(uni == '0') { if(tactic::on) { stop_game(); firstland = laIce; restart_game(rg::tactic); } else popScreen(); } else if(sym == SDLK_F1) gotoHelp( "In the pure tactics mode, you concentrate on a specific land. " "Your goal to obtain as high score as possible, without using " "features of the other lands. You can then compare your score " "with your friends!\n\n" "You need to be somewhat proficient in the normal game to " "unlock the given land in this challenge " "(collect 20 treasure in the given land, or 2 in case of Camelot).\n\n" "Since getting high scores in some lands is somewhat luck dependent, " "you play each land N times, and your score is based on N consecutive " "plays. The value of N depends on how 'fast' the land is to play, and " "how random it is.\n\n" "In the Caribbean, you can access Orbs of Thorns, Aether, and " "Space if you have ever collected 25 treasure in their native lands.\n\n" "The rate of treasure spawn is static in this mode. It is not " "increased by killing monsters.\n\n" "Good luck, and have fun!" ); else if(dialog::handlePageButtons(uni)) ; else if(doexiton(sym, uni)) popScreen(); }; } EX } map code_for; EX map meaning; char xcheat; void save_mode_data(hstream& f) { mapstream::save_geometry(f); if(yendor::on) f.write(0); else f.write(land_structure); f.write(shmup::on); f.write(inv::on); #if CAP_TOUR f.write(tour::on); #else f.write(false); #endif f.write(peace::on); f.write(peace::otherpuzzles); f.write(peace::explore_other); f.write(multi::players); f.write(xcheat); } EX modecode_t modecode(int mode) { modecode_t x = legacy_modecode(); if(x != UNKNOWN) return x; xcheat = (cheater ? 1 : 0); shstream ss; ss.write(ss.vernum); save_mode_data(ss); if(code_for.count(ss.s)) return code_for[ss.s]; if(mode == 1) return UNKNOWN; modecode_t next = 100000; while(meaning.count(next)) next++; meaning[next] = ss.s; code_for[ss.s] = next; if(mode == 2) return next; FILE *f = fopen(scorefile, "at"); string s = as_hexstring(ss.s); fprintf(f, "MODE %d %s\n", next, s.c_str()); fclose(f); return next; } EX void load_modecode_line(string s) { int code = atoi(&s[5]); int pos = 5; while(s[pos] != ' ' && s[pos]) pos++; if(!s[pos]) return; pos++; string t = from_hexstring(s.substr(pos)); code_for[t] = code; meaning[code] = t; } EX namespace peace { EX bool on = false; EX bool hint = false; EX bool otherpuzzles = true; EX bool explore_other = false; vector simonlevels = { laCrossroads, laCrossroads2, laRlyeh, laDesert, laCaves, laAlchemist, laEmerald, laWineyard, laDeadCaves, laRedRock, laPalace, laLivefjord, laDragon }; vector puzzlelevels = { laBurial, laTortoise, laCamelot, laPalace }; vector explorelevels = { laIce, laJungle, laMirror, laDryForest, laCaribbean, laOcean, laZebra, laOvergrown, laWhirlwind, laWarpCoast, laReptile, laElementalWall, laAlchemist }; vector levellist; eLand getNext(eLand last) { if(!peace::on) return laNone; if(levellist.empty()) showMenu(); if(isElemental(last) && hrand(100) < 90) return laNone; else if(createOnSea(last)) return getNewSealand(last); else if(isCrossroads(last)) { while(isCrossroads(last) || last == laCaribbean || last == laCamelot) last = hrand_elt(levellist); if(last == laElementalWall) last = laEFire; return last; } else return pick(laCrossroads, laCrossroads2); } bool isAvailable(eLand l) { for(int i=0; explorelevels[i]; i++) if(explorelevels[i] == l) return true; return false; } EX namespace simon { vector path; int tobuild; void build() { if(otherpuzzles || !on) return; while(isize(path) < tobuild) { cell *cp = path[isize(path)-1]; cell *cp2 = path[isize(path)-2]; vector> clister; clister.emplace_back(cp, cp); int id = 0; manual_celllister cl; while(id < isize(clister)) { cell *c = clister[id].first; cell *fr = clister[id].second; setdist(c, 5, NULL); forCellEx(c2,c) if(!cl.listed(c2) && passable(c2, c, 0) && (c2->land == specialland || c2->land == laTemple) && !c2->item) { if(!id) fr = c2; bool next; if(specialland == laRlyeh) next = c2->land == laTemple && (cp2->land == laRlyeh || celldistAlt(c2) < celldistAlt(cp2) - 8); else next = celldistance(c2, cp2) == 8; if(next) { path.push_back(fr); fr->item = itDodeca; goto again; } clister.emplace_back(c2, fr); cl.add(c2); } id++; } printf("Path broken, searched = %d\n", id); for(auto t: clister) t.first->item = itPirate; return; again: ; } } EX void extend() { int i = 0; while(iitem != itDodeca) i++; if(tobuild == i+9) addMessage("You must collect all the dodecahedra on the path!"); tobuild = i + 9; build(); } EX void init() { tobuild = 0; if(!on) return; if(otherpuzzles) { items[itGreenStone] = 500; return; } cell *c2 = cwt.at->move(0); makeEmpty(c2); c2->item = itOrbYendor; path.clear(); path.push_back(cwt.at); path.push_back(c2); extend(); } EX void restore() { for(int i=1; iitem == itNone && items[itDodeca]) path[i]->item = itDodeca, items[itDodeca]--; } EX } EX bool in_minefield, in_dual; void reset_modes() { stop_game(); if(in_minefield) { geometry = gNormal; variation = eVariation::bitruncated; in_minefield = false; } if(in_dual) { stop_game_and_switch_mode(rg::dualmode); geometry = gNormal; variation = eVariation::bitruncated; in_dual = false; } } EX void showMenu() { string title = XLAT(otherpuzzles ? (explore_other ? "exploration" : "puzzles") : "memory game"); dialog::init(title, 0x40A040, 150, 100); int kind = 0; if(!otherpuzzles) { levellist = simonlevels, kind = 1; dialog::addInfo("Collect as many dodecahedra as you can!"); dialog::addInfo("You have to return to the starting location!"); dialog::addBreak(50); } else if(explore_other) levellist = explorelevels, kind = 2; else { levellist = puzzlelevels, kind = 0; dialog::addInfo("This mode removes roguelike elements,"); dialog::addInfo("focusing on puzzles and exploration"); dialog::addBreak(50); } char key = 'a'; for(auto lev: levellist) { if(kind == 0) switch(lev) { case laBurial: dialog::addItem("excavate the treasures using your magical shovel", 'a'); break; case laTortoise: dialog::addItem("find an adult tortoise matching the baby", 'b'); break; case laCamelot: dialog::addItem("find the center of the Round Table in Camelot", 'c'); break; case laPalace: dialog::addItem("follow the mouse", 'd'); break; default: ; } else dialog::addItem(XLAT1(linf[lev].name), key++); dialog::add_action([lev] { dialog::do_if_confirmed([lev] { reset_modes(); firstland = specialland = lev; if(!peace::on) stop_game_and_switch_mode(rg::peace); start_game(); popScreenAll(); }); }); } if(kind == 1) { dialog::addBreak(100); dialog::addItem(XLAT("other puzzles"), '1'); dialog::add_action([] { otherpuzzles = true; explore_other = false; }); } if(kind == 2) { dialog::addBreak(100); dialog::addItem(XLAT("other puzzles"), '1'); dialog::add_action([] { otherpuzzles = true; explore_other = false; }); } if(kind == 0) { dialog::addItem(XLAT("hyperbolic Minesweeper"), 'e'); dialog::add_action([] { dialog::do_if_confirmed([] { reset_modes(); if(peace::on) stop_game_and_switch_mode(rg::peace); specialland = firstland = laMinefield; if(!bounded) { geometry = gBring; variation = eVariation::goldberg; gp::param = gp::loc(2, 1); mine_adjacency_rule = true; in_minefield = true; bounded_mine_percentage = .2; } start_game(); popScreenAll(); }); }); dialog::addItem(XLAT("dual geometry puzzle"), 'f'); dialog::add_action([] { dialog::do_if_confirmed([] { reset_modes(); if(peace::on) stop_game_and_switch_mode(rg::peace); restart_game(rg::dualmode); in_dual = true; popScreenAll(); pushScreen(dpgen::show_menu); }); }); dialog::addItem(XLAT("memory game"), 'g'); dialog::add_action([] { otherpuzzles = false; }); dialog::addItem(XLAT("exploration"), 'h'); dialog::add_action([] { explore_other = true; }); } dialog::addBreak(100); dialog::addBoolItem(XLAT("display hints"), hint, '2'); dialog::add_action([] { hint = !hint; popScreen(); }); dialog::addItem(XLAT("Return to the normal game"), '0'); dialog::add_action([] { reset_modes(); if(peace::on) stop_game_and_switch_mode(rg::peace); }); dialog::addBack(); dialog::display(); } auto aNext = addHook(hooks_nextland, 100, getNext); } #if CAP_COMMANDLINE int read_mode_args() { using namespace arg; if(argis("-Y")) { yendor::on = true; shift(); yendor::challenge = argi(); } else if(argis("-peace")) { peace::otherpuzzles = true; stop_game_and_switch_mode(peace::on ? 0 : rg::peace); } else if(argis("-pmem")) { peace::otherpuzzles = false; stop_game_and_switch_mode(peace::on ? 0 : rg::peace); } TOGGLE('T', tactic::on, stop_game_and_switch_mode(rg::tactic)) else return 1; return 0; } auto ah = addHook(hooks_args, 0, read_mode_args); #endif }