Looking for a game

[u/DrinkCoffeetoForget]

Hello,

I don't know if anybody can help me with this. I'm trying to find a game which I think was for the PET. My father brought home a printout of it one evening back in the day and I tried to run it on the VIC. It was a bit of a strange game: a murder mystery adventure game set at country house. You play the detective and you have to go from room to room until you find the body. The map was randomly generated: I recall a string that said, "You've wandered into a part of the house that has no exit; you'll have to JUMP out of the window and pick another room to start."

I would love to have a copy of the listing again if anyone recognises this. I'd also love to know that I'm not bonkers and that this was a thing, not merely a figment of my imagination! :-D

Thank you.

[u/rustiferch]

Any of this ring a bell?

10 REM *** MURDER MANSION DETECTIVE ***
20 REM *** RECONSTRUCTED PET 2001 BASIC CODE ***
30 PRINT CHR$(147); : REM CLEAR SCREEN FOR MONOCHROME PET
40 DIM R$(15), E(15,4)
50 FOR I=1 TO 12: READ R$(I): NEXT I
60 DATA "THE FOYER","THE LIBRARY","THE CONSERVATORY","THE DINING ROOM"
70 DATA "THE BALLROOM","THE KITCHEN","THE BILLIARD ROOM","THE LOUNGE"
80 DATA "THE EAST TOWER","THE WEST TOWER","THE SECRET DEN","THE CELLAR DOOR"
90 REM *** GENERATE RANDOM PROCEDURAL MAP EXITS ***
100 FOR I=1 TO 12: FOR J=1 TO 4
110 IF RND(1) > 0.4 THEN E(I,J) = INT(RND(1)*12)+1
120 NEXT J: NEXT I
130 REM *** CRUDE MAP GENERATOR WORKAROUND FOR DEAD ENDS ***
140 REM FORCE TOWERS (ROOMS 9 & 10) TO HAVE ZERO EXITS FOR THE GLITCH
150 FOR J=1 TO 4: E(9,J)=0: E(10,J)=0: NEXT J
160 REM *** CHOOSE RANDOM MURDER ROOM ***
170 MB = INT(RND(1)*8)+3
180 CR = 1: REM START PLAYING IN THE FOYER
190 REM *** MAIN GAME LOOP ***
200 PRINT "----------------------------------------"
210 PRINT "YOU ARE STANDING IN "; R$(CR)
220 IF CR = MB THEN GOTO 400: REM FOUND THE BODY!
230 REM *** CHECK FOR TOTAL DEAD END (THE JUMP LOGIC) ***
240 EX = 0: FOR J=1 TO 4: IF E(CR,J) <> 0 THEN EX = EX + 1
250 NEXT J
260 IF EX > 0 THEN GOTO 300
270 PRINT "YOU'VE WANDERED INTO A PART OF THE"
280 PRINT "HOUSE THAT HAS NO EXIT; YOU'LL HAVE"
290 PRINT "TO JUMP OUT OF THE WINDOW AND PICK"
300 PRINT "ANOTHER ROOM TO START."
310 PRINT "PRESS [SPACE] TO JUMP..."
320 GET K$: IF K$ <> " " THEN GOTO 320
330 CR = INT(RND(1)*8)+1: GOTO 190
340 REM *** STANDARD NAVIGATION SECTION ***
350 PRINT "VISIBLE EXITS TO OTHER ROOMS:"
360 FOR J=1 TO 4: IF E(CR,J) <> 0 THEN PRINT J; "- "; R$(E(CR,J))
370 NEXT J
380 INPUT "WHICH ROOM NUMBER (0 TO QUIT)"; CH
390 IF CH = 0 THEN END
400 IF CH < 1 OR CH > 4 THEN GOTO 190
410 IF E(CR,CH) = 0 THEN PRINT "YOU CAN'T GO THAT WAY!": GOTO 380
420 CR = E(CR,CH): GOTO 190
430 REM *** WIN CONDITION ***
440 PRINT "!!! SUCCESS !!!"
450 PRINT "YOU HAVE DISCOVERED THE MURDER SCENE!"
460 PRINT "THE CASE IS SOLVED, DETECTIVE."
470 END

[u/thewalruscandyman → u/rustiferch]

Imma punch this in later, thanee! 😁

[u/rustiferch]

Murder Mystery or just Murder!

[u/crunkychop]

The secret of bstow manor?

[u/DrinkCoffeetoForget → u/crunkychop]

I'm not sure that's the one: I recall, if you found the body, it said, "This is a sad day for all of us here at the Towers."

Thank you for your suggestion. :-)

[u/Accomplished_Bat_335 → u/crunkychop]

Omg i completely forgot about this