From c280fc719be86ea1396493dd27fa0f663c95f3ce Mon Sep 17 00:00:00 2001
From: kichikuou <KichikuouChrome@gmail.com>
Date: Tue, 7 Jan 2025 17:31:26 +0900
Subject: [PATCH] Implement SACT.PeekKey and SACT.MessagePeek

Used in Rakuen Yuki.
---
 modules/SACT/SACT.c       | 17 ++++++++++++++---
 modules/SACT/sprite.h     |  1 +
 modules/SACT/sprite_msg.c | 19 +++++++++++++++++++
 3 files changed, 34 insertions(+), 3 deletions(-)

diff --git a/modules/SACT/SACT.c b/modules/SACT/SACT.c
index 510ebe6..e43cc2d 100644
--- a/modules/SACT/SACT.c
+++ b/modules/SACT/SACT.c
@@ -1086,15 +1086,24 @@ static void WaitKeySprite() {
 
 /**
  * SACT.PeekKey (1.2~)
- *   ?????
+ *   Get the status of the key
  *   @param nKeyCode:
  *   @param vResult:
  */
 static void PeekKey() {
+	static int prevKeyCode = NUM_KEYCODES;
 	int nKeyCode = getCaliValue();
 	int *vResult = getCaliVariable();
 
-	TRACE_UNIMPLEMENTED("SACT.PeekKey %d,%p:", nKeyCode, vResult);
+	// This function is called successively with different nKeyCodes.
+	// Only the first call hits the scheduler.
+	if (nKeyCode <= prevKeyCode)
+		sys_getKeyInfo();
+	prevKeyCode = nKeyCode;
+
+	*vResult = RawKeyInfo[nKeyCode] ? 1 : 0;
+
+	TRACE("SACT.PeekKey %d,%p:", nKeyCode, vResult);
 }
 
 /**
@@ -1320,7 +1329,9 @@ static void MessagePeek() {
 	int *vCount = getCaliVariable();
 	int nTopStringNum = getCaliValue();
 
-	TRACE_UNIMPLEMENTED("SACT.MessagePeek %p,%d:", vCount, nTopStringNum);
+	*vCount = smsg_peek(nTopStringNum);
+
+	TRACE("SACT.MessagePeek %p,%d:", vCount, nTopStringNum);
 }
 
 /**
diff --git a/modules/SACT/sprite.h b/modules/SACT/sprite.h
index 5624125..4c0faa8 100644
--- a/modules/SACT/sprite.h
+++ b/modules/SACT/sprite.h
@@ -89,6 +89,7 @@ extern void smsg_newline(int wNum, int size);
 extern void smsg_out(int wNum, int wSize, int wColorR, int wColorG, int wColorB, int wFont, int wSpeed, int wLineSpace, int wAlign, int wRSize, int wRFont, int wRLineSpace, int *wLength);
 extern void smsg_clear(int wNum);
 extern int smsg_is_empty();
+extern int smsg_peek(int nTopStringNum);
 extern int smsg_keywait(int sp1, int sp2, int timeout);
 extern int smsg_update(sprite_t *sp);
 
diff --git a/modules/SACT/sprite_msg.c b/modules/SACT/sprite_msg.c
index 8dae741..65e8cba 100644
--- a/modules/SACT/sprite_msg.c
+++ b/modules/SACT/sprite_msg.c
@@ -385,6 +385,25 @@ int smsg_is_empty() {
 	return (sact.msgbuf[0] == '\0');
 }
 
+int smsg_peek(int nTopStringNum) {
+	char *p = sact.msgbuf;
+	int i;
+	for (i = 0; *p; i++) {
+		char *q = strchr(p, '\n');
+		if (q)
+			*q = '\0';
+		svar_set(nTopStringNum + i, p);
+		if (q) {
+			*q = '\n';
+			p = q + 2;
+		} else {
+			i++;
+			break;
+		}
+	}
+	return i;
+}
+
 /*
   メッセージキー入力待ち
    @param wNum1: スプライト番号1(アニメーションスプライト)