Final Revision

endgame.zap

@@ -0,0 +1,29 @@
+
+
+	.FUNCT	RT-TH-WINDOW-BENCH:ANY:0:1,CONTEXT
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	PRSA,V?OPEN,V?LIFT \FALSE
+	FSET	TH-WINDOW-BENCH,FL-OPEN
+	PRINTR	"	You lift the seat to reveal the red lever underneath."
+
+
+	.FUNCT	RT-TH-RED-LEVER:ANY:0:1,CONTEXT
+	ZERO?	CONTEXT \FALSE
+	EQUAL?	PRSA,V?PULL \?CCL5
+	FSET?	LG-CHAMBER-DOOR,FL-OPEN /?CCL8
+	FSET?	CH-ALIEN,FL-BROKEN \?CCL8
+	PRINTI	"	You pull the lever and feel an immediate jolt as the compression chamber pulls away from Deepcore. Through the porthole, you get a glimpse of the crippled Deepcore as you slowly rise through the water.
+
+  	[GRAPHIC #22]
+
+  	For a long time after that you have no sensation of motion, but then the water through the porthole starts to get lighter as you near the surface.
+	Suddenly chamber burst through the surface and sunlight floods through the porthole. You feel the motion of the waves for the first time in weeks as the chamber gently rises and falls. Through the porthole you see the Benthic Explorer steaming towards you.
+	Trumpets sound. Fair young maidens cluster round to look at you admiringly. You have won the game."
+	CRLF	
+	CALL2	RT-END-OF-GAME,TRUE-VALUE
+	RSTACK	
+?CCL8:	PRINTR	"	Nothing happens."
+?CCL5:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It looks an awful lot like a red lever."
+
+	.ENDI