+ Print(" %03d", i);
+ }
+
+ Print("\n");
+ PrintLine("=", 79);
+
+ CloseAllAndExit(0);
+}
+
+
+// ----------------------------------------------------------------------------
+// tape patch functions
+// ----------------------------------------------------------------------------
+
+static boolean PatchTape(struct TapeInfo *tape, char *mode)
+{
+ Print("[%d.%d.%d.%d]: ",
+ (tape->engine_version / 1000000) % 100,
+ (tape->engine_version / 10000 ) % 100,
+ (tape->engine_version / 100 ) % 100,
+ (tape->engine_version ) % 100);
+
+ if (strEqual(mode, "info"))
+ {
+ Print("property bits == 0x%02x\n", tape->property_bits);
+
+ return FALSE;
+ }
+
+ byte property_bits = tape->property_bits;
+ byte property_bitmask = 0;
+ boolean set_property_bit = TRUE;
+
+ if (strSuffix(mode, ":0") ||
+ strSuffix(mode, ":off") ||
+ strSuffix(mode, ":clear"))
+ set_property_bit = FALSE;
+
+ if (strEqual(mode, "em_random_bug") || strPrefix(mode, "em_random_bug:"))
+ {
+ // this bug was introduced in version 3.3.1.0 and fixed in version 4.0.1.2
+ if (tape->engine_version < VERSION_IDENT(3,3,1,0) ||
+ tape->engine_version >= VERSION_IDENT(4,0,1,2))
+ {
+ Print("This tape version cannot be patched against EM random bug!\n");
+
+ return FALSE;
+ }
+
+ property_bitmask = TAPE_PROPERTY_EM_RANDOM_BUG;
+ }
+ else
+ {
+ Print("Unknown patch mode '%s'!\n", mode);
+
+ return FALSE;
+ }
+
+ if (set_property_bit)
+ property_bits |= property_bitmask;
+ else
+ property_bits &= ~property_bitmask;
+
+ if (property_bits == tape->property_bits)
+ {
+ Print("Tape already patched for '%s'!\n", mode);
+
+ return FALSE;
+ }
+
+ Print("Patching for '%s' ... ", mode);
+
+ tape->property_bits = property_bits;
+
+ return TRUE;
+}
+
+void PatchTapes(void)
+{
+ static LevelDirTree *patchtapes_leveldir = NULL;
+ static int num_tapes_found = 0;
+ static int num_tapes_patched = 0;
+ char *mode = global.patchtapes_mode;
+ int i;
+
+ if (strEqual(mode, "help"))
+ {
+ PrintLine("=", 79);
+ Print("Supported patch modes:\n");
+ Print("- \"em_random_bug\" - use 64-bit random value bug for EM engine\n");
+ PrintLine("-", 79);
+ Print("Supported modifiers:\n");
+ Print("- add \":0\", \":off\" or \":clear\" to patch mode to un-patch tape file\n");
+ PrintLine("=", 79);
+
+ CloseAllAndExit(0);