Kernal Posted February 3, 2012 Share Posted February 3, 2012 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 Link to comment Share on other sites More sharing options...
Kernal Posted February 3, 2012 Author Share Posted February 3, 2012 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.net/projects/ghostsofquabbin/files/ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.