Jump to content
IGNORED

ghosts of quabbin atari version development thread 2


Kernal

Recommended Posts

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

 

#2 Kernal ONLINE

 

 

 

Chopper Commander

  • default_large.png
  • rank_joysticks_3.gif
  • 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/

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...