From 9e869769cf90c5ab49d4a5e6f69834a470dded4a Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Mon, 26 Mar 2018 12:20:05 +0100
Subject: [PATCH] Accept "y" and "s" as well as "Y" and "S".

This is equivalent to the binary patch that was applied to
AI:SYS1;TS WUMPUS; the original patch was:

	.IOT TTYI,A	; at 50; jumped to from GETLF
	CAIL A,"a-1
	 SUBI A,"a-"A
	JUMPA T,GETLF+1
	JUMPA T,GETLF+2
	CAIE T,"s	; at 55; jumped to from MOVE2
	 CAIN T,"S
	  JUMPA T,MOVE2+1
	JUMPA T,MOVE2+2
PATCH:			; at 61; not used
---
 src/games/{wumpus.101 => wumpus.102} | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)
 rename src/games/{wumpus.101 => wumpus.102} (99%)

diff --git a/src/games/wumpus.101 b/src/games/wumpus.102
similarity index 99%
rename from src/games/wumpus.101
rename to src/games/wumpus.102
index d3422aec..0b6a9283 100644
--- a/src/games/wumpus.101
+++ b/src/games/wumpus.102
@@ -96,8 +96,9 @@ GO:	.OPEN TTYI,[20+.UAI,,'TTY]	;[FIXME why 20?]
 	MOVEI P, PDL
 	SAY /DIRECTIONS? (Y OR N) /	;Does he want the expl?
 GETLF:	.IOT TTYI,A
-	CAIN A,"Y
-	 SHOW EXPL
+	CAIE A,"y
+	 CAIN A,"Y
+	  SHOW EXPL
 	SHOW CRLF
 	PUSHJ P,NAMEF		;Fiddle with name
 	.RDTIME T,
@@ -359,8 +360,9 @@ MOVE1:	SAY /MOVE? /	;Demand move
 	JRST NOTPOS		;Nope, not possible
 	MOVE ME,T		;Yep, make it
 	JRST CIRCLE		;Go back
-MOVE2:	CAIN T,"S
-	JRST SHOOT
+MOVE2:	CAIE T,"s
+	 CAIN T,"S
+	  JRST SHOOT
 WHAT:	CAIN T,1000
 	 JRST MOVE1
 	SAY /WHAT??/		;Non-recognizable char