ponscripter hook

texthook/engine/engine.cc

@@ -12596,6 +12596,33 @@ bool InsertPalHook() // use Old Pal first, which does not have ruby
 	return InsertOldPalHook() || InsertNewPal1Hook() || InsertNewPal2Hook(); 
 }
 
+bool InsertPONScripterHook()
+{
+	if (DWORD str = MemDbg::findBytes("CBString::Failure in (CBString", 30, processStartAddress, processStopAddress))
+	{
+		if (DWORD calledAt = MemDbg::findBytes(&str, sizeof(str), processStartAddress, processStopAddress))
+		{
+			DWORD funcs[] = { 0xec8b55, 0xe58955 };
+			DWORD addr = MemDbg::findBytes(funcs, 3, calledAt - 0x100, calledAt);
+			if (!addr) addr = MemDbg::findBytes(funcs + 1, 3, calledAt - 0x100, calledAt);
+			if (addr)
+			{
+				HookParam hp = {};
+				hp.address = addr;
+				hp.type = USING_STRING | USING_UTF8 | DATA_INDIRECT;
+				hp.offset = 4;
+				hp.index = 0xc;
+				NewHook(hp, "PONScripter");
+				return true;
+			}
+			else ConsoleOutput("Textractor: failed to find function start");
+		}
+		else ConsoleOutput("Textractor: failed to find string reference");
+	}
+	else ConsoleOutput("Textractor: failed to find string");
+	return false;
+}
+
 /** jichi 7/6/2014 NeXAS
  *  Sample game: BALDRSKYZERO EXTREME
  *

texthook/engine/engine.h

@@ -136,6 +136,7 @@ bool InsertNexton1Hook();
 bool InsertNitroplusHook();     // Nitroplus: *.npa
 bool InsertPalHook();           // AMUSE CRAFT: *.pac
 bool InsertPensilHook();        // Pensil: PSetup.exe
+bool InsertPONScripterHook();
 bool InsertQLIEHook();          // QLiE: GameData/*.pack
 //bool InsertRai7Hook();          // Rai7puk: rai7.exe
 bool InsertRejetHook();         // Rejet: Module/{gd.dat,pf.dat,sd.dat}

texthook/engine/match32.cc

@@ -80,6 +80,11 @@ bool DeterminePCEngine()
 
 bool DetermineEngineByFile1()
 {
+	if (Util::SearchResourceString(L"Proportional ONScripter"))
+	{
+		InsertPONScripterHook();
+		return true;
+	}
   // Artikash 7/14/2018: AIRNovel - sample game https://vndb.org/v18814
   if (Util::CheckFile(L"*.swf"))
   {