Fall of the Human Race I (Revision 1) Written by mjhayes@cs.buffalo.edu September 2, 1998 This program uses the graphics from the "Sub Hunt" cartridge. You can substitute another cartridge with similar graphics if you can find the location of the boat sprite on that cartridge, then substitute the value of N in the third line from the end. You are Robert LaThan, aka "The Leviathan." You and your father, David LaThan, live as bounty hunters in a cave on the coast of Lake Inferior. David, you is your assistant and an engineer, makes occasional upgrades to your watercraft and gives you necessary equipment for your missions. You just received a message from the Chief of Law Enforcement that Dr. Hydra, a mad scientist, has threatened to destroy the last nine remaining Global Rainforests unless he receives a $100,000,000 ransom by Saturday at 1800 hours. Obviously you are asked to stop the madman. David gives you equipment, and you leave immediately. At the title screen, you will be asked to start or continue. When you start a new game, you are given three chances to continue. After that, you must start a new game. There are sixteen chapters. At the beginning of each chapter, the screen slowly fills with color, then the action begins. Use the keypad to adjust the speed of your craft and the disk to steer the craft. Waves, wind, whirpools, and other obstacles knock your craft back and forth as you keep up your pursuit with Dr. Hydra. Keep the craft on the screen because if you stray from either side of the screen, you will dash against rocks or run aground, and you will lose your craft. Here is a map of the region that the local satellite, which is located on Central Island, can broadcast radio signals to. What follows is the journal of the sixteen chapters. ___________________________________________________ | 3 |1. Mountain cave. Your | _______| hideout is in here. | 2 ________ ________] |2. Lauron, a populate city. |____ _______] [_______] |3. The Seventh Global | [________] | Rainforest | 8 |4. Karia, another populate | _____ | city. | [ 6 ] ________|5. The Eighth Global | [___] [__ 4 | Rainforest |_____ 7 [_____|6. Central Island. The law | ] | enforcement agency is | 1 ]_ ________ | located here. | ] ________[ 5 ]__________|7. Lake Inferior |_____]_________________[_________________________|8. Lake Eerie Chapter 1; Date= Tuesday, December 14, 1999 "As I drive through the cave on my pursuit of Dr. Hydra, I take inventory of the equipment I have been given. I have rations, handcuffs, a loaded handgun, an adaptor to make the craft submerge, an aqua lung with 60 minutes of oxygen, and this device that translates speech into text. "The cave is calm as usual, oblivious to the danger outside. If the water outside is just as calm, this should be a sinch. I'll search for Dr. Hydra at one of the Global Rainforests, since that is where he is probably waiting." Chapter 2; Date= Wednesday, December 15, 1999 "Dr. Hydra has found our hideout and gassed the cave. I would return to check on my father, but the pursuit of Dr. Hydra is far more important. I submerged to avoid the gas, but I can only stay down for an hour. After that I will have to resurface and hope the gas is gone. "This leaves a few questions unanswered. How did Dr. Hydra find the hideout? How did he know that I am pursuing him? Why did he attack, if it isn't even Saturday yet? When I catch up to him, I'm going to get the answers I demand." Chapter 3; Date= Thursday, December 16, 1999 "Robert!" "Robert! Are you there?" "Of course I am. Are you okay?" "I'm fine. The fumes are almost gone, and I went into the shelter to avoid the gas. The radar is now fully operational again, and I have just received signals from Dr. Hydra's craft. He's just a few minutes from the coast of Lauron, and is moving toward the Seventh Global Rainforest." "Okay. I know where I am, and will change course toward Lauron now. I should reach it by morning." Chapter 4; Date= Friday, December 17, 1999 "I have reached Lauron, and I have just spotted Dr. Hydra. He is using the river as a shortcut to the Global Rainforest. I think the river gets shallow near the Rainforest, so I might have him trapped. It's only a matter of time now. "It's very polluted here. I can barely see. The current is not as strong as it usually is, which makes up for the bad visibility." Chapter 5; Date= Saturday, December 18, 1999 "Okay. I have just reached the Seventh Global Rainforest, but I do not see Dr. Hydra anywhere. I haven't seen his craft since I passed through Lauron yesterday. I will start by driving around the perimeter of the Rainforest, then I will search near the center." Chapter 6; Date= Sunday, December 19, 1999 "1800 hours came and went yesterday. I chased Dr. Hydra into this Global Rainforest, so he must be... "There he is! I have him trapped! Let's keep it clean. "Hey! He is using poison gas! I can't submerge! What do I do! I can't see! Where is he? Hold still!... "..." Chapter 7; Date= Monday, December 20, 1999 "Father!" "Father! Do you hear me?" "..." "Still no contact. I am still reeling from yesterday's attack. Where am I? I see the sun on the horizon, so it is either dawn or dusk. If it is dawn, then I am travelling to the east, else I am travelling to the west. Where is Dr. Hydra now? I must find him! I have no choice but to just keep going. "The water is getting turbulent. I wonder if a blizzard is approaching. I must be far from land, because the water is not frozen, and I see no ice at all." Chapter 8; Date= Tuesday, December 21, 1999 "Great. A blizzard is approaching quickly, just like I said. Wherever I am going, I have to go quickly before the blizzard overtakes my craft. "I am barely holding out against the storm. There is still no radio contact, and no sign of Dr. Hydra either. Is this the end?" Chapter 9; Date= Wednesday, December 22, 1999 "The blizzard is gone, but now there is a thick fog. The craft is still seaworthy, which is miraculous considering yesterday's storm. The water is very turbulent. I have to avoid these rocks, or I'm dead. "Still no radio contact. Where am I now, and where am I going to? Where is Dr. Hydra? Am I too late?" Chapter 10; Date= Thursday, December 23, 1999 "The thick fog has lifted, and the sky is clear and untroubled. The water is very rough here, but it shouldn't be. Am I in fresh water? "How long have I been drifting? Why is there no radio contact? Where am I going... "What the heck is that? A large tentacle appeared right in front of me! The last thing I need is to be devoured by a sea creature! This thing is rocking the craft everywhere! How do I escape from it? I just have to keep moving!" Chapter 11; Date= Friday, December 24, 1999 "Hey!" "Robert!" "Do your hear me?" "Dad? There is finally radio contact." "It's about time I got ahold of you! Where have you been for the last four days, and what were you doing?" "I don't know." "You drifted outside of the area, and I couldn't contact you. While you were fooling around where I couldn't contact you, you let Dr. Hydra destroy the first seven Global Rainforests! That's seven too many!" "Listen! I was at the Seventh Global Rainforest with Dr. Hydra and was about to apprehend him when he sprayed more poison gas at me. I went blind, and when I woke up, I was out in the middle of nowhere." "It took you four days to find out where you were?" "So it has been four days already. I saw no land anywhere, and I still see no land. Where am I?" "You are in Lake Eerie, about twenty minutes north of Karia. Dr. Hydra has just been spotted as well. He happens to be in Karia now, and he is travelling south toward the Eighth Global Rainforest." "Okay. I will move south then." Chapter 12; Date= Saturday, December 25, 1999 "This must be Karia. I can't see a thing. I am cutting through the river bank in the pursuit of Dr. Hydra. The hydroelectric power generators are running now, and they are making the water so turbulent that I fear the craft will sink! "This is the fastest way to get to the Eighth Global Rainforest. Will I catch up with Dr. Hydra fast in time before he destroys that rainforest too?" Chapter 13; Date= Sunday, December 26, 1999 "I have passed through Karia, and am currently in the ocean between Karia and the Eighth Global Rainforest. In just a couple of hours... "There he is! This time I can move out of the way if he uses poison gas! The first thing is to catch up to him. "What is he doing? He is changing course! Now he is moving toward the Ninth Global Rainforest. I might have enough time to catch up before we get there. Dr. Hydra has proven to be not only armed and dangerous, but also elusive. Never have I had such a hard time apprehending a wanted man." Chapter 14; Date= Monday, December 27, 1999 "I am still pursuing Dr. Hydra. He has just changed course again, and he is moving toward the Eighth Global Rainforest. We probably will reach the Rainforest before I can get close enough to stop him. "The water is as turbulent as ever; the other craft leaves such a strong wake that I barely can keep control of my own craft! When we reach the Global Rainforest, he will have to slow down. Then I can easily apprehend him." Chapter 15; Date= Tuesday, December 28, 1999 "We have reached the Eighth Global Rainforest. The river that runs through this Rainforest is wide and deep enough to keep up the pursuit at full speed. "This could take a while. I forgot how long this stretch of river really is. I am getting closer to Dr. Hydra, but he isn't using any weapons. Has he run out? Will I finally bring him to justice?" Chapter 16; Date= Wednesday, December 29, 1999 "Ha! In this section of the river, there is a small waterfall. We can go down, but we can't get back up. Beyond the waterfall, the river runs in a tight circle. It's only a matter of time now! This far Dr. Hydra can go and no further! "I almost have him. He doesn't have any poison... "What the heck? What is that thing he's using? Is it a bomb? Whatever it is, it won't get him out of here. The only way he can resist arrest is to kill me. I'll bet half the bounty that is just what he intends to do!" "If I can just keep the craft in one piece and survive the blast, I can put this guy in his place. This is it pal!" Epilogue "The terror is over. I arrested Dr. Hydra. That weapon of his destroyed the Eighth Global Rainforest, which leaves only one left. I suppose as long as there is at least one, then the human race can survive--but I doubt that one will be enough. "Many people will suffer and perish. The area around the Ninth--or should I say the only remaining--Global Rainforest will be overcrowded. Life in that area will quickly reduce to anarchy, and probably cannibalism, in a desperate struggle to survive. "Everybody thought that we would look to the turn of the millenium with hope; instead we will look to it in despair. The future looks bleak at best. I know my Redeemer lives, and will graciously provide for all of us, but I just don't see how." 10 FM(4)=1 ; The text will be displayed in blue. 20 SET A$="YOU CAN'T CONTINUE." 30 SET B$="YOU BEAT THIS LEVEL." 40 SET C$="YOU WIN, BIG DEAL." ; Pre-define the text to save memory. 50 L=65535 60 E=3 ; The values of L and E are used for sound. 70 N=8 ; The sprite is a "watercraft." 80 CALL SHOW ; Display the watercraft. 90 CO(0)=5 ; Hide the watercraft for now. RUN 10 CALL HUSH 20 CLR ; Lines 20..110 make the text "START CONTINUE" ; appear at the top of the screen and puts ; an arrow between the words. Pressing a ; top action button on the left hand ; controller reverses the arrow, and ; pressing a bottom action button enters ; the selection. 30 PRIN "START<-CONTINUE" 40 CALL HAND 50 IF(A=0)GOTO 40 60 IF(A>1)GOTO 140 70 CLR 80 PRIN "START->CONTINUE" 90 CALL HAND 100 IF(A=0)GOTO 90 110 IF(A=1)GOTO 20 120 IF(B>0)GOTO 180 ; Are there any continues left? 130 PUT A$ 140 A=A/0 ; Attempting to divide by zero in ECS BASIC ; blows a whistle. 150 FOR A=0 TO 99 160 NEXT A ; Time delay. 170 GOTO 20 180 B=B-1 ; Use a continue. 190 GOTO 220 200 F=0 210 B=3 ; Reset chapter and continue counters. 220 XV(0)=0 ; Stop the watercraft. 230 XP(0)=80 ; Put the watercraft into position. 240 FOR A=0 TO 159 250 BK(A)=F ; Draw the background in the appropriate color ; for that chapter. 260 NEXT A 270 FOR A=160 TO 239 280 BK(A)=1 ; Draw the water. 290 NEXT A 300 P=4095 ; Set the pitch of the watercraft's motor. 310 G=(F+1)*99 ; Calculate length of chapter. 320 FOR I=0 TO G ; Main game loop{ 330 CALL HUSH 340 CALL ENVN ; Update the motor sound. 350 CALL HAND ; Poll the left hand controller. 360 IF(H>11)J=H-100 ; Was a keypad key pressed? 370 P=12-J ; Update the value of the watercraft's speed. 380 H=0-H 390 IF(H=1)XV(0)=XV(0)+J ; Was the disc pressed to the right? 400 IF(H=9)XV(0)=XV(0)-J ; Was the disc pressed to the left? 410 K=(RN(0)-50)*F ; Randomly determine speed and direction to ; push the watercraft. 420 XV(0)=XV(0)+K ; Offset the watercraft's velocity. 430 IF(XP(0)<0)GOTO 900 440 IF(XP(0)>160)GOTO 900 ; Did the watercraft go off the screen? 450 NEXT I ; } 460 CLR 470 PUT B$ 480 FOR A=0 TO 99 490 NEXT A ; Time delay 500 F=F+1 ; Update the chapter counter. 510 IF(F<16)GOTO 210 ; Was the last chapter completed? 520 P=1 530 L=9999 540 E=10 ; Update values for sound of seawash. 550 CALL ENVN ; Generate new sound. 560 CLR 570 XV(0)=0 ; Stop the watercraft. 580 XP(0)=RN(0)+30 590 YP(0)=71 ; Put the watercraft into random position. 600 YS(0)=1 610 XS(0)=1 ; Zoom in on the watercraft. 620 FOR A=0 TO 79 630 BK(A)=9 640 NEXT A 650 FOR A=80 TO 99 660 BK(A)=7 670 NEXT A 680 FOR A=100 TO 139 690 BK(A)=12 700 NEXT A 710 FOR A=140 TO 199 720 BK(A)=1 730 NEXT A 740 FOR A=200 TO 239 750 BK(A)=3 ; Draw the sky (with sunset), water, and shore. 760 NEXT A 770 L=65535 780 E=4 790 C=3 800 P=305 810 CALL ENVT 820 C=4 830 P=290 840 CALL ENVT 850 C=5 860 P=230 870 CALL ENVT ; Generate three-tone victory sound. 880 PUT C$ ; Familiar endgame text. 890 GOTO 890 ; Infinite loop. 900 C=3 ; Game over{ 910 CALL ENVN ; Generate crashing noise. 920 C=2 930 GOTO 20 ; Back to title screen.}