Posted Yesterday, 11:20 PM
Here is the first segment of source code of the game...
I would like some help developing the title screen (lines 12960 - 12969)
If any one would like to comment on this code, and help develop the title screen and music please add...
1 REM GHOSTS OF QUABBIN
2 PRINT "CODED BY KERNAL, ATARI VERSION 1.0 RECODED FEB 2012"
3 GR. 10 : SETCOLOR 3,2,1
4 REM © 2012 TALON/CSMP3 PROGRAMMING
5 A = 0 :B =0 :C=0:D=0:E=0:F=0:G=0:H=0:I=0:J=0:K=0:L=0
09 PRINT " THE YEAR IS 1938, YOU ARE A REPORTER FOR THE BOSTON NEWSPAPER, INVESTIGATING REPORTS OF STRANGE EVENTS HAPPENING"
11 PRINT " IN THE RECENTLY ABANDONED SWIFT RIVER VALLEY, WHERE THE QUABBIN RESIVOUR IS BEING BUILT"
12 PRINT " PEOPLE LEAVING THE VALLEY REPORT THAT PEOPLE HAVE BEEN SCARED OUT OF THE VALLEY BY THESE GHOSTS"
13 PRINT " YOUR OBJECTIVE IS TO INVESTIGATE WHAT IS GOING ON.. BUT BECAREFUL SOME GHOSTS ARE FRIENDLY AND SOME ARE EVIL"
14 PRINT " FRIENDLY GHOSTS WILL HELP YOU AND GUIDE YOU THRU YOUR JOURNEY, WHILE EVIL GHOSTS WILL HURT YOU AND MISLEAD YOU"
15 PRINT "PRESS 1 TO CONTINUE" : INPUT NULL : GOTO 20
20 SETCOLOR 3,2,1
30 GOTO 12960
50 PRINT "LOADING.............."
51 GRAPHICS 10
52 PRINT "YOU ARE STANDING IN FRONT OF ASA SNOWS CABIN"
53 PRINT "YOU SEE HIS GLASS COFFIN, HIS CABIN AND A PIG"
54 PRINT "WHAT DO YOU WANT TO DO?"
55 PRINT "1.) ENTER CABIN"
56 PRINT "2.) OPEN COFFIN"
57 PRINT "3.) TAKE PIG"
58 PRINT "4.) HEAD DOWN DANA ROAD"
59 INPUT A
60 IF A=1 THEN GOTO 70
61 IF A=2 THEN GOTO 80
62 IF A=3 THEN GOTO 90
63 IF A=4 THEN GOTO 100
64 GOTO 52
65 PRINT "ERROR"
70 PRINT "YOU ENTER THE CABIN, YOU SEE A PILE OF STONES AND A KEY"
71 PRINT "PRESS 1 TO TAKE THE KEY, OTHER WISE PRESS 0 TO LEAVE CABIN"
72 INPUT B
73 IF B = 1 THEN KEY = 1 : IF B = 3 STONES = 1 : GOTO 52
74 IF B = 0 THEN GOTO 52
75 GOTO 70
80 PRINT "YOU OPEN THE COFFIN AND A NOTE READS ON ASA'S CORPSE 'PEOPLE SHOULD SEARCH FOR THE GOLDMINE IN THE GREENWICH VILLAGE'"
81 PRINT " 'TAKE THE PIG TO ENTER SECRET AREAS'"
82 PRINT " PRESS 1 TO TAKE THE NOTE, 2 TO POKE ASA, OR 0 TO CLOSE THE COFFIN "
83 INPUT C
84 IF C = 1 THEN NOTE = 1: GOTO 80
85 IF C = 2 THEN ASA = 1: GOTO 80
86 IF C = 0 THEN GOTO 52
87 GOTO 80
88 PRINT "ERROR: GAME HALTED": END
90 PRINT "YOU HAVE TAKEN THE PIG, HE IS DRESSED IN A DRESS"
91 PIG = 1 : PRINT "HIS PRESENCE WILL ALLOW YOU TO ENTER FORBIDDEN AREAS"
92 GOTO 52
100 GR.10 : PRINT "YOU BEGIN WALKING DOWN THE LONG ROAD TO DANA, THE SKY IS DARK AND THERE IS A FOG"
101 PRINT " THE ROAD IS LINED BY 100 YEAR OAK TREES AND COLONIAL STONE WALLS"
102 PRINT " YOU HEAR A QUIET VOICE CALLING OUT TO YOU TO THE LEFT"
103 PRINT " PRESS 1.)TO LISTEN TO THE VOICE"
104 PRINT " PRESS 2.)TO CONTINUE DOWN THE ROAD"
105 INPUT D
106 IF D = 1 THEN GOTO 110
107 IF D = 2 THEN GOTO 130
108 GOTO 100
109 PRINT "ERROR:GAME HALTED":END
110 GR.0 : PRINT " YOU STOP AND LISTEN TO VOICE, AN IMAGE OF A WOMAN ABOUT 27 YEARS OLD EMERGES FROM THE FOG"
111 PRINT "SHE SAYS 'HI MY NAME IS COURTNEY, I HAVE LIVED IN THIS VALLEY ALL MY LIFE AND THE PEOPLE FROM BOSTON'
112 PRINT "'NEED WATER TO DRINK, BUT MY VALLEY IS BEING FLOODED SO THEY CAN DRINK THE WATERS OF THE SWIFT RIVER'"
113 PRINT "'ALL THE PLACES I GREW UP AND PLAYED IN WHEN I WAS YOUNG IS BEING FLOODED OVER; AND MY FATHER WORKED'"
114 PRINT "'IN A GOLDMINE ON THE GREENWICH/PRESCOTT TOWN BORDER. I LIVED IN A HOUSE IN DANA UP THE ROAD AT THE COMMON'"
115 PRINT "'IF YOU WANT ILL SHOW YOU AROUND THE TOWN AND HELP YOU AT LEAST UNTIL DANA"
116 PRINT ""
117 PRINT "DO YOU WANT COURTNEY TO JOIN YOU ON YOUR JOURNEY?"
118 PRINT "PRESS 1.) IF YOU WANT COURTNEY TO JOIN YOU IN THE JOURNEY"
119 PRINT "PRESS 2.) IF YOU ARE TO SCARED OF A GHOST TO ACCEPT HER HELP"
120 INPUT E
121 IF E = 1 THEN COURTNEY = 1 : GOTO 130
122 IF E = 2 THEN PRINT "YOU CONTINUE ON YOUR JOURNEY" : GOTO 130
123 GOTO 117
124 PRINT "ERROR GAME HALTED":END
12959 PRINT "GAME HALTED":END
12960 GRAPHICS 2:POKE 710,0:PRINT #6," GHOSTS OF QUABBIN"
12961 POKE 752,1:PRINT "©2012 TALON/CSMP3 PROGRAMMING"
12962 GOTO 50
Quote
MultiQuote
Report
#2 Kernal ONLINE
Chopper Commander
185 posts Joined:29-August 09
Posted Yesterday, 11:30 PM
oops some errors in this code.... replace line 12962 with
12962 input null : goto 50
i would really like to have access to the infocom text adventure engine to really develop this game in the style of hitchhikers guide to the galaxy
and of course the 3d pc version is being developed at
https://sourceforge....fquabbin/files/