"The Treasure of McDooby's Mansion" Version 2.0

Started by SRS, 23:04, 12 September 16

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

SRS

This "Adventure" from Jason Wells   is not the best or fanciest one, but hey, maybe you'll like it !

It is of course "brand new" to CPC.

If you find real bugs, please fix them and share ici ;)

UPDATED VERSION 2.A

alex76gr

Thank you! :)

Line 113: change "THE" to "THEN"
I still believe that i got my myopia from the green GT-65 monitor, but i can't prove it! :)

SRS

Here's the modified listing in "pure ascii":


1 MODE 1:REM ** "The Treasure of McDooby's Mansion" Version 2.0
2 CLS:DEFINT a-z
3 PRINT TAB(10);"****************************"
4 PRINT TAB(10);"*     The Treasure of      *"
5 PRINT TAB(10);"*    McDooby's Mansion     *"
6 PRINT TAB(10);"*         Version 2        *"
7 PRINT TAB(10);"*     By: Jason Wells      *";TAB(10);"*    CPC Version by SRS    *"
8 PRINT TAB(10);"****************************"
9 PRINT TAB(10);"Press SPACE bar to begin."
10 PRINT TAB(10);"(Be sure the CapsLock is on.)"
11 A$=INKEY$:IF A$<>CHR$(32) THEN 11
12 '
13 GOTO 27
14 '
17 FOR T=1 TO 2000:NEXT T
21 RETURN
22 CLS:REM *** Endless Woods
23 PRINT"You are in a forest with strange trees everywhere."
24 GOSUB 1000:GOTO 22
27 CLS:REM *** Near House
28 PRINT"You can see a house to the NORTH, woods to the SOUTH, EAST, and WEST."
29 GOSUB 1000
30 IF C$="WEST" OR C$="SOUTH" OR C$="EAST" THEN 22
31 IF C$="NORTH" THEN 33
32 GOTO 27
33 CLS:REM *** Front Door
34 PRINT"The front door of the house. Forests surround you on the EAST and WEST sides."
35 INPUT"Do you want to ring the DOORBELL(Y/N)?",Z$:IF Z$="Y" THEN GOSUB 14
36 GOSUB 1000
38 IF C$="NORTH" THEN 42
39 IF C$="EAST" OR C$="WEST" THEN 22
40 IF C$="SOUTH" THEN 27
41 GOTO 33
42 CLS:REM *** Hallway
44 PRINT"A grand entrance hall. Exits are in all directions."
46 GOSUB 1000
48 IF C$="EAST" THEN 52
49 IF C$="SOUTH" THEN 33
50 IF C$="WEST" THEN 83
51 IF C$="NORTH" THEN 69
52 CLS:REM *** Kitchen
53 PRINT"A very old kitchen. There are more cracks on the wall than you can count."
54 IF J=0 THEN PRINT"There is a JAR on the counter."
55 IF J=1 THEN GOTO 57
56 INPUT"Do you want to get the JAR(Y/N)";Z$:IF Z$="Y" THEN J=1
57 GOSUB 1000:IF C$="WEST" THEN 42
58 IF C$="NORTH" THEN 60
59 GOTO 52
60 CLS:REM *** Dining Room
61 PRINT"This is a nice dining room.";:IF K=0 THEN PRINT"A KEY is on the table."
62 IF K=1 THEN GOSUB 1000
63 INPUT"Do you want to get the KEY(Y/N)";Z$:IF Z$="Y" THEN K=1:GOSUB 1000:GOTO 66
64 IF Z$="N" THEN GOSUB 1000
66 IF C$="SOUTH" THEN 52
67 IF C$="WEST" THEN 69
68 GOTO 60
69 CLS:REM *** Library
70 PRINT"You are in the library. Many books are on the walls."
71 IF S=1 THEN GOSUB 1000:GOTO 78
72 IF S=0 THEN PRINT"A sword is on the shelf."
73 INPUT"Do you want to get the SWORD(Y/N)";Z$
74 IF Z$="N" THEN GOSUB 1000:GOTO 78
76 IF Z$="Y" THEN S=1:GOSUB 1000
78 IF C$="EAST" THEN 60
79 IF C$="SOUTH" THEN 42
80 GOTO 69
83 CLS:REM *** Ballroom
84 PRINT"You have entered a very nice ballroom. There is a loose PANEL on the NORTH wall."
85 GOSUB 1000
86 IF C$="EAST" THEN 42
87 IF C$="NORTH" THEN 90
88 GOTO 83
90 CLS:REM *** Secret passage
91 REM
92 PRINT"A very dark passage. The stairs seem to lead DOWN into the darkness."
93 PRINT"The only ways out are UP and DOWN."
95 GOSUB 1000
96 IF C$="DOWN" THEN 100
97 IF C$="UP" THEN 83
98 GOTO 90
100 CLS:REM *** In front of door
101 PRINT"A massive DOOR stands in front of you to the NORTH."
102 GOSUB 1000
103 IF C$="EAST" AND K=1 THEN DOOR=1:PRINT"DOOR unlocked.":GOSUB 1000
104 IF C$="UP" THEN 90
105 IF C$="EAST" AND K=0 THEN 108
106 IF C$="EAST" AND DOOR=1 THEN 110
108 PRINT"The large DOOR is locked."
110 CLS:REM *** Troll's cave
113 IF T=0 THEN PRINT"A TROLL is here to meet you."
114 IF S=1 THEN 116
115 IF S=0 THEN PRINT"BAP!POW!WHAM!OOOF! That darn TROLL did a smashing job of killing you."
116 PRINT"You successfully defeat the TROLL.":T=1:GOSUB 1000
118 IF C$="WEST" THEN 100
119 IF C$="EAST" THEN 122
120 GOTO 100
122 CLS:REM *** Sorcerer's room
123 REM *** COOLNESS ***
124 PRINT"A room with a strange glowing GEM."
125 IF SO=0 THEN PRINT"Unfortunatly a sorcerer gaurds it(MCDOOBY!!!)."
126 IF J=0 THEN PRINT"The wizards magic turns you into sub-atomic particles blown away by the prevailing wind.":GOTO 2000
129 IF J=1 THEN PRINT"You pour the jar of water on the wizard. He dissolves into a puddle of orange ooze.":SO=1:GOSUB 1000
130 IF C$="WEST" THEN 110
131 IF C$="NORTH" THEN PRINT"You take the";:PRINT" GEM ";:PRINT"on your way out of the mansion":GOTO 3000
132 GOTO 122
1000 REM Get command from user.
1002 INPUT"Enter command";C$
1003 IF C$="Q" THEN END
1007 IF C$="INV" THEN GOSUB 4000
1008 RETURN
2000 REM G A M E  O V E R
2002 FOR Z=1 TO 7:PRINT:NEXT Z
2004 PRINT"You really screwed up this time."
2005 REM
2006 REM
2008 PRINT"1) Try again"
2009 PRINT"2) I give up"
2010 INPUT"Enter choice -->",Q$
2012 IF Q$="1" THEN 27: REM CLEAR - GOTO 27
2014 IF Q$="2" THEN END
2016 GOTO 2010
3000 REM THE END
3002 CLS:C$="YOU WIN!!"
3004 FOR T=1 TO 2000:PRINT C$;:NEXT T
3006 REM
3010 A$=INKEY$:IF A$="" THEN 3006
3012 GOTO 2
4000 REM *** Inventory
4002 CLS:PRINT"Inventory"
4004 PRINT"---------"
4006 IF J=1 THEN PRINT"JAR"
4008 IF K>1 THEN PRINT"KEY"
4010 IF S>1 THEN PRINT"SWORD"
4012 IF S=0 AND K=0 AND J=0 THEN PRINT"Nothing."
4014 RETURN


SRS

Updated first post.

tastefulmrship


- Lines 4008 and 4010 need to be "=" and not ">" or change the "1" to "0" on both lines; otherwise the INV command only shows the JAR.

- The game flows better when you change all the CLS commands to PRINT; and, again, the INV command is useless if you don't.

- The DOOR locks itself when you go WEST (?!?!?!?!) and you can infinitely kill the TROLL (maybe we need that HERE *smiley face*) and the SORCEROR! (These are issues with the original, I think, not the conversion!) Maybe make a v3.0 that fixes the confusion?


Other than that a very small, confusing, but easy adventure.
Another decent addition to the PC->CPC adventure series.

SRS

And you could take the KEY inf..., too.

Would have thought IF someone puts an adventure listing into the net it is playable and bugfree. I want to convert, not bugfix  ;D .

Changed the found bugs, changed "The DOOR" behaviour - it'S in the NORTH but you have to enter EAST to cross it ?) ... You get not told everytime you killed the troll, neither the sorcerer ... and now if you choose to replay you can do.

Powered by SMFPacks Menu Editor Mod