HEP=0 ONE=0 TWO=0 THREE=0 FOUR=0 FIVE=0 SIX=0 SEVEN=0 PRINT "WELCOME TO LOST HEIGHTS!" INPUT "PRESS ENTER TO PLAY:"; PES GOTO WIGGLE WIGGLE: CLW IF HEP=3 THEN GOTO WHY PRINT "PROCESSING COMMANDS ..." WAIT 200 CLW INPUT "PLEASE TYPE 1 "; A IF A=1 THEN GOTO GG GOTO MEAS GG: CLW PRINT "TEST COMPLETE!" PRINT " " PRINT "COMPITANCE=TRUE" WAIT 300 GOTO MAINFRAME MEAS: CLW PRINT "TEST FAILED." PRINT " " PRINT "COMPITANCE=FALSE" WAIT 300 GOTO TRY2 TRY2: CLW INPUT "PLEASE TYPE 7 "; B IF B=7 THEN GOTO GGG GOTO MEAP GGG: CLW PRINT "TEST COMPLETE!" PRINT " " PRINT "COMPITANCE=TRUE" WAIT 300 GOTO HALF MEAP: CLW PRINT "TEST FAILED." PRINT " " PRINT "COMPITANCE=FALSE" WAIT 300 CLW PRINT " " PRINT "FILE NOTES: SUBJECT" PRINT "IS INCOMPATENT." PRINT "MAINFRAME ACCESS" PRINT "DENIED." PRINT " " PRINT "INCOMPITANCE ENDING" PRINT "(ENDING 1/8)" ONE=1 WAIT 400 GOTO WIGGLE MAINFRAME: CLW PRINT "WELCOME TO THE" PRINT "MAINFRAME!" PRINT "I AM JARVIS!" PRINT "HOW CAN I HELP?" PRINT " " PRINT "1. DELETE AI" PRINT "2. GAMES (1)" PRINT "3. VIRUS DETECTION" INPUT ">"; HFOE IF HFOE=1 THEN GOTO ARE IF HFOE=2 THEN GOTO GAMES IF HFOE=3 THEN GOTO MAL GOTO MAINFRAME WHY: PRINT "OK, OK, OK." PRINT "YOUVE RESTARTED" PRINT "THREE TIMES! THAT" PRINT "DESERVES AN" PRINT "ACHIEVEMENT!" PRINT " " PRINT "? ENDING" PRINT "(ENDING 7/8)" WAIT 300 HEP=0 SEVEN=1 GOTO WIGGLE ARE: CLW PRINT "ARE YOU SURE?" PRINT "1. YES" PRINT "2. NO" INPUT ">"; NEGLE IF NEGLE=1 THEN GOTO SRSLY IF NEGLE=2 THEN GOTO THX GOTO ARE MAL: CLW PRINT "(1) NEW THREAT!" PRINT "1. ???" INPUT ">"; BAGLE IF BAGLE=1 THEN GOTO MARKE GOTO MAL SRSLY: CLW PRINT "REALLY?" PRINT "1. YES" PRINT "2. NO" INPUT ">"; NEGLO IF NEGLO=1 THEN GOTO GONEOOF IF NEGLO=2 THEN GOTO THX GOTO SRSLY MARKE: CLW HEP=HEP+1 IF ONE=1 THEN GOSUB EPIC PRINT "ERR: UNDEFINED" PRINT " " PRINT "ERROR ENDING" PRINT "(ENDING 6/8)" PRINT " " PRINT "TIP:TRY GETTING THE" PRINT "OTHER ENDINGS AND" PRINT "COMING BACK..." WAIT 300 SIX=1 GOTO WIGGLE EPIC: IF TWO=1 THEN GOTO EPIC2 RETURN EPIC2: IF THREE=1 THEN GOTO EPIC3 RETURN EPIC3: IF THREE=1 THEN GOTO EPIC4 RETURN EPIC4: IF FOUR=1 THEN GOTO EPIC5 RETURN EPIC5: IF FIVE=1 THEN GOTO EPIC6 RETURN EPIC6: IF SIX=1 THEN GOTO EPIC7 RETURN EPIC7: IF SEVEN=1 THEN GOTO BEGIN RETURN HALF: CLW PRINT "WELCOME" PRINT "MAINFRA" PRINT "I AM JA" PRINT "HOW CAN" PRINT " " PRINT "1. DELE" PRINT "2. GAME" PRINT "3. VIRU" PRINT " " PRINT "HALFCOMPITENT ENDING" PRINT "(ENDING 2/8)" TWO=1 WAIT 300 GOTO WIGGLE GAMES: CLW PRINT "GAMES:" PRINT "1. ANDESIDE (DEMO)" PRINT " " INPUT ">"; NEFN IF NEFN=1 THEN GOTO ANDESIDE GOTO GAMES THX: CLW PRINT "JARVIS: PHEW!" PRINT " " PRINT "THANKFUL ENDING" PRINT "(ENDING 4/7)" FOUR=1 WAIT 300 GOTO WIGGLE GONEOOF: CLW PRINT "NOOOOOOOO-_-=-_|\==-" PRINT " " PRINT "R.I.P. ENDING" PRINT "(ENDING 5/8)" FIVE=1 WAIT 400 GOTO WIGGLE ANDESIDE: CLW H=0 PRINT "WELCOME TO ANDESIDE!" PRINT "1 PLAY" INPUT ">"; VAR IF VAR=1 THEN GOTO CHAPTERS IF VAR=69 THEN GOTO EASTER PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO ANDESIDE CHAPTERS: PRINT " " PRINT "CHAPTER SELECT:" PRINT "1 CH. ONE" IF H=1 THEN PRINT "2 CH. TWO" ELSE PRINT "LOCKED" PRINT "COMING SOON" PRINT "COMING SOON" PRINT "COMING SOON" PRINT "COMING SOON" INPUT ">"; PALES IF PALES=1 THEN GOTO INTRO1 IF PALES=2 THEN GOTO INTRO2 PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO CHAPTERS INTRO1: PRINT " " PRINT "CHAPTER ONE: THE FOREST" PRINT " " PRINT "YOU AWAKEN FROM A DEEP SLUMBER, ONLY TO FIND YOURSELF IN THE ADASTILE FOREST,HOPELESSLY LOST! WHERE WILL YOU GO?" PRINT "1 NORTH" PRINT "2 SOUTH" INPUT ">"; WAG IF WAG=1 THEN GOTO NORTH IF WAG=2 THEN GOTO SOUTH PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO INTRO1 NORTH: PRINT " " PRINT "YOU TRAVEL NORTH UNTIL YOU STUMBLE UPON A LAKE." PRINT "1 DRINK UP" PRINT "2 GO FAR NORTH" PRINT "3 TURN BACK" INPUT ">"; JAM IF JAM=1 THEN GOTO UNCON2 IF JAM=2 THEN GOTO FNORTH IF JAM=3 THEN GOTO CEN PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO NORTH FNORTH: PRINT " " PRINT "YOU WALK ON FARTHER,ONLY TO FIND A LARGEABANDONED DEFENSE TOWER." PRINT "1 GO INSIDE" PRINT "2 TURN BACK" INPUT ">"; GAG IF GAG=1 THEN GOTO UNCON IF GAG=2 THEN GOTO NORTH PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO FNORTH UNCON: PRINT " " PRINT "YOU PASSED OUT..." PRINT "YOU AWOKE FROM YOUR SLUMBER, ONLY TO REALIZE THAT IT IS NIGHT. YOU DONT KNOWWHAT DIRECTION IS NORTH, AND WHAT IS SOUTH." PRINT "1 ???" PRINT "2 ???" INPUT ">"; VAN IF VAN=1 THEN GOTO ADDON IF VAN=2 THEN GOTO WEST PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO UNCON EASTER: PRINT " " PRINT "HAHA VERY FUNNY!" WAIT 200 GOTO ANDESIDE CEN: PRINT " " PRINT "YOU MADE IT BACK TO THE CENTER." PRINT "1 NORTH" PRINT "2 SOUTH" INPUT ">"; CAN IF CAN=1 THEN GOTO NORTH IF CAN=2 THEN GOTO SOUTH PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO CEN WEST: PRINT " " PRINT "YOU FOUND THE BARRIER! YOU ESCAPE!" PRINT "1 CONTINUE" INPUT ">"; GANG IF GANG=1 THEN GOTO OUTRO1 PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO WEST ADDON: PRINT " " PRINT "BY THE TIME YOU LOCATE THE SOUTH, MORNING ARRIVED." PRINT "1 OK" INPUT ">"; EGG IF EGG=1 THEN GOTO SOUTH PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO ADDON SOUTH: PRINT " " PRINT "YOU TRAVELED SOUTH UNTIL YOU FOUND A LARGE VALLEY." PRINT "1 GO FAR SOUTH" PRINT "2 LAY DOWN" PRINT "3 GO BACK" INPUT ">"; OREO IF OREO=1 THEN GOTO FSOUTH IF OREO=2 THEN GOTO STAM IF OREO=3 THEN GOTO CEN PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO SOUTH FSOUTH: PRINT " " PRINT "YOU GO FARTHER SOUTH, ONLY TO FIND A BLODY AXE ON THE GROUND" PRINT "1 TAKE IT" PRINT "2 LEAVE IT" INPUT ">"; PARE IF PARE=1 THEN GOTO UNCON IF PARE=2 THEN GOTO ADDON2 PRINT "I DONT UNDERSTAND THAT!" WAIT 150 GOTO FSOUTH ADDON2: PRINT " " PRINT "GOOD CHOICE!" PRINT "1 OK" INPUT ">"; PLAW IF PLAW=1 THEN GOTO SOUTH PRINT "I DONT UNDERSTAND THAT!" PRINT " " WAIT 150 GOTO ADDON2 BEGIN: PRINT "COMPLETE ENDING!!!" PRINT "(ENDING 8/8!)" PRINT " " PRINT "WIZARD" WAIT 600 GOTO WIGGLE UNCON2: PRINT " " PRINT "YOU PASSED OUT, NEVER TO WAKE UP..." PRINT "GAME OVER" PRINT "1 RESTART" INPUT ">"; LAG IF LAG=1 THEN GOTO INTRO1 PRINT "I DONT UNDERSTAND THAT!" PRINT " " WAIT 150 GOTO UNCON2 STAM: PRINT " " PRINT "YOU LAY DOWN FOR A QUICK NAP" PRINT "+10 STAMINA" PRINT "1 OK" INPUT ">"; EFLO IF EFLO=1 THEN GOTO SOUTH PRINT "I DONT UNDERSTAND THAT!" PRINT " " WAIT 150 GOTO STAM OUTRO1: PRINT " " PRINT "[END OF CH. 1]" H=1 WAIT 250 GOTO CHAPTERS INTRO2: PRINT " " PRINT "YOU ESCAPED THE FOREST, ONLY TO FINDA LARGE CROWD OF FANFAIR CELEBRATING YOUR ESCAPE. CONFUSED, YOU ASK YOURE PARENTS WHAT WAS HAPPENING." WAIT 1000 PRINT " " PRINT "MOM: YOURE TRAINERS CLUB LEADER WAS THE ONE WHO PUT YOU IN THERE. HE SAID THAT YOU WILL BECOME A LEVEL THREE TRAINER IF YOU ESCAPE!" WAIT 1000 PRINT " " PRINT "YOU: WAIT, DOESNT THAT MEAN..." PRINT " " PRINT "DAD: YES SON, IT MEANS THAT YOU CAN NOW ADVENTURE OUTSIDETHE TOWN LIMITS!" WAIT 1000 PRINT " " PRINT "TIRED, YOU DECIDE TO GO TO BED. WHEN YOU GET TO YOURE BEDROOM, YOU SEE A LARGE WOODEN SWORD. ENGRAVED INTO THE HANDLE, IT SAYS, TRAINING SWORD. SATISFIED, YOU GO TO SLEEP." WAIT 1200 PRINT " " PRINT "THE NEXT MORNING..." PRINT " " PRINT "YOU WAKE UP, READY TO GO TO YOUR TRAINERS MEET WITH YOUR NEW SWORD! AT THE MEET, THE LEADER PULLS YOU ASIDE TO ANOTHER ROOM." WAIT 300 PRINT " " PRINT "LEADER: OK, BEFORE YOU LEAVE THE TOWN, I NEED TO TEACH YOU TO SWING A SWORD." ATTACK001: PRINT " " PRINT "YOU GET ATTACKED BY: PRACTICE DUMMY!" PRINT " " PRINT "WEAPONS:" PRINT "1 T. SWORD" INPUT ">"; WAGLE IF WAGLE=1 THEN GOTO SWORD PRINT "I DONT UNDERSTAND THAT!" PRINT " " WAIT 150 GOTO ATTACK001 SWORD: PRINT "YOU SWING YOUR SWORD" PRINT "+10 DAMAGE!" PRINT " " OUTRO2: PRINT "THE DUMMY FELL OVER. YOU WIN!" WAIT 250 PRINT "LEADER: WOW YOURE A NATURAL!" PRINT " " PRINT "HE PROCEDED TO LEAD YOU TO THE WALL, WHERE YOU SAID GOODBYE TO YOUR FRIENDS AND FAMILY, AND BEGAN YOUR JOURNEY INTO TUTORIVILLE..." WAIT 500 CLW PRINT "HARDCORE ENDING" PRINT "(ENDING 3/8)" THREE=1 WAIT 300 GOTO WIGGLE