10 ' PYRAMID8
20 MODE 1:BORDER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"Pyramid8.cmp"
60 FOR i=0 TO 3:INK i,0:NEXT i
70 POKE &A634,&C8:POKE &A635,0:POKE &A636,0:CALL &A60B
80 POKE &C7F1,&C9:CALL &C7D0
90 CALL &A60B

100 WINDOW #1,25,36,4,19
110 INK 0,0:INK 1,3:INK 2,15:INK 3,24
120 PEN #1,3:PRINT #1:PRINT #1,"A silent":PRINT #1,"room":PRINT #1,"with a wall":PRINT #1,"of ancient":PRINT #1,"symbols"
130 PRINT #1,"watches":PRINT #1,"under the":PRINT #1,"impassive":PRINT #1,"gaze":PRINT #1,"of a stone":PRINT #1,"pharaoh."

140 LOCATE 13,20:PEN 2:PRINT"WHAT WILL YOU DO ?"
150 PEN 3:LOCATE 4,21:PRINT "1-WEST     2-Examine     3-Search"
160 PEN 2:LOCATE 4,22:PRINT "4-Sit on the statue"
170 PEN 3:LOCATE 4,23:PRINT "5-Move the statue"
180 PEN 2:LOCATE 4,24:PRINT "6-Decipher the glyphs"

200 k$=INKEY$
210 IF k$="1" THEN RUN"Pyramid7.bas"
220 IF k$="2" THEN GOTO 300
230 IF k$="3" THEN GOTO 400
240 IF k$="4" THEN GOTO 500
250 IF k$="5" THEN GOTO 600
260 IF k$="6" AND PEEK(&BE83)<4 THEN GOTO 700
270 IF k$="6" AND PEEK(&BE83)=4 THEN GOTO 800
280 IF k$<"1" OR k$>"6" THEN GOTO 200

300 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
310 PEN 3:PRINT:PRINT "You scan the room with the same":PRINT "intensity as a customer seeking free Wi-Fi in a deserted cafe..."
320 PEN 2:PRINT:PRINT "Before you, a wall full of glyphs":PRINT "seems to tell twisted stories, each":PRINT "more bizarre than the last."
330 PEN 3:PRINT:PRINT "To the right, a massive pharaoh statue":PRINT "sits, wearing a solemn look."
340 PRINT "As if judging your curiosity":PRINT "and poor manners."
350 PEN 2:PRINT:PRINT "You can almost hear its thoughts:"
360 PEN 1:PRINT:PRINT CHR$(34);"Another one who will touch everything!";CHR$(34)
370 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
380 GOTO 60

400 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
410 PEN 3:PRINT:PRINT "You scratch, feel, and even sniff":PRINT "the wall a little..."
420 PEN 2:PRINT:PRINT "You search everywhere, as if the":PRINT "statue would suddenly hand you":PRINT "a clue on a post-it."
430 PEN 1:PRINT:PRINT "             But nothing."
440 PEN 3:PRINT:PRINT "Except a good layer of dust on your":PRINT "hands and the feeling of being":PRINT "a furniture fetishist."
450 PEN 2:PRINT:PRINT "Oh wait! You notice a fresh breeze":PRINT "with a nasty smell coming from":PRINT "under the statue."
460 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
470 GOTO 60

500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
510 PEN 3:PRINT:PRINT "You climb the pharaoh statue and sit":PRINT "regally on its knees like a child":PRINT "waiting for a Christmas gift..."
520 PEN 2:PRINT:PRINT "But this pharaoh doesn't look very":PRINT "generous."
530 PEN 1:PRINT:PRINT "           Nothing happens."
540 PEN 3:PRINT:PRINT "No secret door, no mystical music.":PRINT "Just you, sitting like a fool on":PRINT "a millennia-old relic."
550 PEN 2:PRINT:PRINT "With that, Egyptology advances by":PRINT "giant steps, surely..."
560 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
570 GOTO 60

600 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
610 PEN 3:PRINT:PRINT "You move the statue to peek behind..."
620 PEN 2:PRINT:PRINT "It is incredibly light... too light":PRINT "to be honest."
630 PEN 1:PRINT:PRINT "         And what a surprise!"
640 PEN 3:PRINT:PRINT "An abyssal void was hidden behind."
650 PEN 2:PRINT:PRINT "No time to say ";CHR$(34);"pyramid";CHR$(34); " before you":PRINT "fall into the hole like an overripe fig."
660 PEN 3:PRINT:PRINT "A second later, you mimic a dead":PRINT "leaf in free fall."
670 PEN 1:PRINT:PRINT "Cool breeze on your cheeks, darkness,":PRINT "then... SPLAT! Game over."
680 PEN 2:PRINT:PRINT "At least now you know it wasn't":PRINT "decorative emptiness behind."
690 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
695 RUN"Mort.bas"

700 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
710 PEN 3:PRINT "You stare at the glyphs with the":PRINT "confidence of an expert."
720 PEN 2:PRINT:PRINT "Until you spot a symbol vaguely":PRINT "looking like a... SPACESHIP !!!"
730 PEN 1:PRINT:PRINT "Uh... wait, that was in no manual!"
740 PEN 3:PRINT:PRINT "You try again, but no luck: these":PRINT "glyphs are as readable as a":PRINT "receipt written in Klingon..."
750 PEN 2:PRINT:PRINT "Maybe a little extra vocabulary":PRINT "would help..."
760 PEN 1:PRINT:PRINT "Like a good old hieroglyph manual":PRINT "version 2.0"
770 PEN 3:PRINT:PRINT "Come back and try again once your":PRINT "lexicon is strong."
780 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
790 GOTO 60

800 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
810 PEN 3:PRINT "Armed with your new knowledge of":PRINT "exotic glyphs from the manual":PRINT "found in the pyramid, you feel":PRINT "this wall has no more secrets."
820 PEN 2:PRINT:PRINT "Time to unveil its message!"
830 PEN 1:PRINT:PRINT "These symbols tell a legend...":PRINT "Ancient... VERY ancient."
840 PEN 3:PRINT:PRINT "Like, before sand was fashionable."
850 PEN 2:PRINT:PRINT "It speaks of powerful gods":PRINT "coming from the sky aboard a":PRINT "mysterious ship."
860 PEN 1:PRINT:PRINT "       Yes, yes, just that!"
870 PEN 3:PRINT:PRINT "Right between Egyptian myth and":PRINT "discount science fiction."
880 LOCATE 15,25:INPUT" ENTER  ",en$
990 CLS
1000 PEN 3:LOCATE 1,11:PRINT "You decode, symbol by symbol,":PRINT "this millennia-old riddle."
1010 PEN 2:PRINT:PRINT "Its secret finally reveals itself..."
1015 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1020 CLS:PEN 2:PRINT "When the Dark-muzzled Guardian descended":Locate 1,2:PRINT "from the sky, the King of Men":PRINT "erected four pyramids in his honor."
1030 PEN 3:PRINT:PRINT "In his left hand, he placed":PRINT "desert sand and the sun flame:"
1040 PEN 2:PRINT:PRINT "   A brown pyramid and a yellow one"
1050 PEN 3:PRINT:PRINT "In his right hand, he placed dawn":PRINT "and dusk side by side:"
1060 PEN 2:PRINT:PRINT "   A yellow pyramid and a brown one"
1070 PEN 3:PRINT:PRINT "Then, the Lord of Shadows, as a":PRINT "sign of alliance, gave him in":PRINT "exchange the night pyramid, darker":PRINT "than the desert depths, blacker than":PRINT "death itself."
1080 PEN 1:PRINT:PRINT "You know what? If I were a clue,":PRINT "I'd hide right here!"
1085 LOCATE 8,5:PEN 2:PRINT "left hand":LOCATE 8,10:PRINT "right hand":LOCATE 25,18:PRINT "blacker"
1090 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1100 GOTO 60
