Code:

REM HOUNTED HOUSE - Geek Basic SoftwareREM PROGRAMMED BY : Gemino Michael SmothersREM EMAIL         : bongo_meno@yahoo.comREM HOME          : http://www.freewebs.com/geekbasicREM I made this in about 2 or 3 hours just for fun.REM This is my first REAL IF game.REM Im only 15 so gimmie sum slak if it sux lol.FOR s = 1 TO 40 STEP 5COLOR INT(RND * 15) + 1PRINT SPACE$(s); " HAUNTED HOUSE ";NEXT sPLAY "L7O1GFGGGBABBBBCO3BBBBDGGGGFGGABCGO4DBBBBGFG"menu:CLSCOLOR 4PRINT " HAUNTED HOUSE  - BY GEEK BASIC SOFTWARE"COLOR 12PRINTPRINT "MENU -"PRINT "1> PLAY GAME"PRINT "2> HELP"PRINT "0> QUIT"DOLET k$ = INKEY$IF k$ = "1" THEN : GOTO playgameIF k$ = "2" THEN : GOTO helpIF k$ = "0" THEN : CLS : ENDLOOPhelp:CLSCOLOR 4PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."PRINTCOLOR 12PRINT "LOOK                         - CHECKS FOR AVAILABLE EXITS"PRINT "INVENTORY                    - VIEW ALL OF YOUR ITEMS"PRINT "NORTH, WEST, SOUTH, AND EAST - MOVES YOU TO AVAILABLE LOCATIONS"PRINT "EXAMINE (OBJECT)             - EXAMINES AN OBJECT"PRINT "USE (OBJECT)                 - USE AN OBJECT"PRINT "TAKE (OBJECT)                - TAKE AN OBJECT"PRINT "UNLOCK (OBJECT)              - UNLOCK AN OBJECT"PRINT "HELP                         - VIEW THIS SCREEN"PRINT "PRESS ANY KEY..."DOLOOP UNTIL LEN(INKEY$)GOTO menuplaygame:LET r = 1LET gotmainkey = 0LET gotboxkey1 = 0LET gotboxkey2 = 0LET gotcandle = 0LET gotnote = 0LET gottp = 0LET boxopen = 0CLSCOLOR 4PRINT "HAUNTED HOUSE"PRINTCOLOR 12PRINT "IT IS HALLOWEEN DAY AT MARIPOSA DRIVE."PRINT "YOUR MOM HAS GROUNDED YOU FOR THE DAY BECAUSE YOU AND YOUR FRIENDS"PRINT "THREW TOILET PAPER OVER THE NEIGHBORS HOUSE LAST NIGHT..."PRINT "AFTER YOU SPEND ABOUT HALF OF THE DAY IN YOUR ROOM STARING AT YOUR"PRINT "SOCKS AND LISTENING TO THE CHILDREN PLAY OUTSIDE, YOU DICIDE TO LEAVE"PRINT "AND GO ON YOUR OWN LITTLE HALLOWEEN ADVENTURE. YOU RMEMBER THE LOCAL"PRINT "RUMERS ABOUT THE OLD HOUSE ACROSS THE STREET BIENG HAUNTED."PRINT "YOU THINK IT MIGHT BE FUN TO GO INSIDE AND EXPLORE IT."PRINT "YOU PICK UP THE PHONE TO INVITE YOUR FRIENDS TO COME, BUT YOU REMEMBER"PRINT "THAT THEY ARE GROUNDED TO... YOU PUT THE PHONE BACK DOWN, OPEN THE WINDOW,"PRINT "AND JUMP OUT."PRINT "PRESS ANY KEY..."DOLOOP UNTIL LEN(INKEY$)CLSPRINT "YOU RUN ACROSS THE STREET TO THE 'HAUNTED HOUSE' TO SEE THAT THE DOOR"PRINT "IS SLIGHTLY OPEN, EVEN THOUGH NOBODY LIVES THERE."PRINT "YOU RUN INSIDE THE HOUSE AND THE DOOR SLAMS BEHIND YOU."PRINT "YOU TRY TO OPEN THE DOOR, BUT THERE IS A HUGE LOCK PREVENTING YOU"PRINT "FROM OPENING IT."PRINT "PRESS ANY KEY..."DOLOOP UNTIL LEN(INKEY$)DOCLSGOSUB roomGOSUB parserLOOProom:IF r = 1 THEN : GOSUB r1IF r = 2 THEN : GOSUB r2IF r = 3 THEN : GOSUB r3IF r = 4 THEN : GOSUB r4IF r = 5 THEN : GOSUB r5IF r = 6 THEN : GOSUB r6RETURNparser:COLOR 12LINE INPUT "> "; cmd$PRINTCOLOR 4LET cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" OR cmd$ = "QUIT" THENGOTO menuEND IFIF cmd$ = "HELP" THENCLSCOLOR 4PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."PRINTCOLOR 12PRINT "LOOK                         - CHECKS FOR AVAILABLE EXITS"PRINT "INVENTORY                    - VIEW ALL OF YOUR ITEMS"PRINT "NORTH, WEST, SOUTH, AND EAST - MOVES YOU TO AVAILABLE LOCATIONS"PRINT "EXAMINE (OBJECT)             - EXAMINES AN OBJECT"PRINT "USE (OBJECT)                 - USE AN OBJECT"PRINT "TAKE (OBJECT)                - TAKE AN OBJECT"PRINT "UNLOCK (OBJECT)              - UNLOCK AN OBJECT"PRINT "HELP                         - VIEW THIS SCREEN"PRINT "PRESS ANY KEY..."DOLOOP UNTIL LEN(INKEY$)END IFIF cmd$ = "LOOK" OR cmd$ = "LOOK AROUND" OR cmd$ = "L" THENIF r = 1 THEN : PRINT "YOU CAN MOVE NORTH AND WEST."IF r = 2 THEN : PRINT "YOU CAN MOVE NORTH, SOUTH, AND WEST."IF r = 3 THEN : PRINT "YOU CAN MOVE WEST AND SOUTH."IF r = 4 THEN : PRINT "YOU CAN MOVE EAST."IF r = 5 THEN : PRINT "YOU CAN MOVE EAST."IF r = 6 THEN : PRINT "YOU CAN MOVE EAST."DOLOOP UNTIL LEN(INKEY$)END IFIF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" THENPRINT "INVENTORY: "IF gotmainkey = 1 THEN : PRINT "BRONZE KEY"IF gotboxkey1 = 1 THEN : PRINT "SMALL KEY"IF gotboxkey2 = 1 THEN : PRINT "SMALL KEY"IF gotnote = 1 THEN : PRINT "NOTE"IF gotcandle = 1 THEN : PRINT "CANDLE"DOLOOP UNTIL LEN(INKEY$)END IFIF cmd$ = "NORTH" OR cmd$ = "GO NORTH" OR cmd$ = "N" THENIF r = 1 THEN : LET r = 2: GOTO movedIF r = 2 THEN : LET r = 3: GOTO movedEND IFIF cmd$ = "WEST" OR cmd$ = "GO WEST" OR cmd$ = "W" THENIF r = 1 THEN : LET r = 5: GOTO movedIF r = 2 THEN : LET r = 6: GOTO movedIF r = 3 THEN : LET r = 4: GOTO movedIF r = 7 THEN : LET r = 2: GOTO movedEND IFIF cmd$ = "SOUTH" OR cmd$ = "GO SOUTH" OR cmd$ = "S" THENIF r = 2 THEN : LET r = 1: GOTO movedIF r = 3 THEN : LET r = 2: GOTO movedEND IFIF cmd$ = "EAST" OR cmd$ = "GO EAST" OR cmd$ = "E" THENIF r = 4 THEN : LET r = 3: GOTO movedIF r = 5 THEN : LET r = 1: GOTO movedIF r = 6 THEN : LET r = 2: GOTO movedEND IFIF (cmd$ = "EXAMINE OLD RUG" OR cmd$ = "EXAMINE RUG") AND r = 1 THENPRINT "IT IS OLD, STAINED AND WORN OUT."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE HUGE TABLE" OR cmd$ = "EXAMINE TABLE") AND r = 2 THENPRINT "IT IS A LARGE GRAND LOOKING HARDWOOD TABLE."PRINT "IT IS COVERED IN DUST AND HAS CHIPS IN IT."IF gotnote = 0 THEN : PRINT "THERE IS A SMALL NOTE ON TOP OF IT."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE CHAIR" OR cmd$ = "EXAMINE CHAIRS") AND r = 2 THENPRINT "IT MIGHT NOT BE A GOOD IDEA TO SIT ON THE ONES THAT ARE NOT BROKEN"PRINT "BECAUSE THEY MIGHT BREAK TOO."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE PAINTING") AND r = 2 THENPRINT "IT IS A PICTURE OF A MIDEVAL CASTLE."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE SINK") AND r = 3 THENPRINT "YOU SEE DRIED OUT SPATTERS OF BLOOD IN THE SINK."PRINT "YOU ALSO SEE A CANDLE AND SOME MATCHES IN IT."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE COUNTER") AND r = 3 THENPRINT "IT IS PLAIN AND IS VERY DUSTY."PRINT "THERE IS WRITING IN THE DUST."PRINT "IT SAYS:"PRINT "'I HAVE BEEN TRAPPED IN THIS HOUSE FOR DAYS NOW, UNABLE TO ESCAPE."PRINT "THE FRONT DOOR REQUIRES A SPECIAL KEY TO BE OPEN FROM THE INSIDE."PRINT "IT IS NOT THE SAME AS THE ONE THAT OPENS IT FROM THE FRONT."PRINT "I WILL NOT LIVE MUCH LONGER, BUT FOR ANYONE WHO FINDS THEMSELF"PRINT "TRAPPED IN THIS TERRIBLE PLACE, I HAVE JUST MADE AN INTERRESTING DISCOVERY."PRINT "I AM NOT ONE HUNDRED PERCENT SURE, BUT I THINK...'"PRINT "THE REST IS SMEARED AWAY."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE BUCKET" OR cmd$ = "EXAMINE SMELLY BUCKET") AND r = 4 THENPRINT "IT IS FULL OF GREENISH BROWN SEMIHARD STUFF."IF gotboxkey2 = 0 THEN : PRINT "THERE IS A SMALL KEY IN IT."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE TOILET PAPER" OR cmd$ = "EXAMINE PAPER") AND gottp = 0 AND r = 4 THENPRINT "IT IS VERY OLD LOOKING."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE PLAIN MAT" OR cmd$ = "EXAMINE MAT") AND r = 5 THENPRINT "IT LOOKS SLIGHTLY LESS THAN COZY..."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE TORN UP BLANKET" OR cmd$ = "EXAMINE BLANKET") AND r = 5 THENPRINT "IT PROBABLY WONT KEEP YOU VERY WARM."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE LARGE JEWLERY BOX" OR cmd$ = "EXAMINE JEWLERY BOX") AND r = 5 THENPRINT "IT IS INLAID WITH WHAT LOOKS LIKE MARBLE."PRINT "THERE ARE TWO SMALL KEY HOLES IN THE MIDDLE."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE ROPE") AND r = 6 THENPRINT "IT IS HANGING FROM AN ODD LOOKING DEVICE IN THE ROOF."PRINT "IT LOOKS LIKE IT MIGHT ACTIVATE SOMETHING IF YOU PULL IT."DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "EXAMINE BLOOD") AND r = 6 THENPRINT "IT IS DRIED UP BLOOD ON THE FLOOR, WHAT MORE CAN I SAY!?"DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "TAKE NOTE" OR cmd$ = "GET NOTE") AND r = 2 AND gotnote = 0 THENPRINT "YOU TAKE THE NOTE."LET gotnote = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "TAKE PAINTING" OR cmd$ = "GET PAINTING") AND r = 2 AND gotboxkey1 = 0 THENPRINT "YOU GRAB THE PAINTING AND A SMALL KEY FALLS OUT FROM THE BACK OF IT."PRINT "YOU PUT THE PAINTING BACK AND GRAB THE SMALL KEY."LET gotboxkey1 = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "TAKE CANDLE" OR cmd$ = "GET CANDLE") AND r = 3 AND gotcandle = 0 THENPRINT "YOU TAKE THE CANDLE."LET gotcandle = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "TAKE SMALL KEY" OR cmd$ = "TAKE KEY" OR cmd$ = "GET SMALL KEY" OR cmd$ = "GET KEY") AND r = 4 THENPRINT "YOU TAKE THE KEY AND GET NASTY STUFF ALL OVER YOUR HAND..."LET gotboxkey2 = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "TAKE LARGE BRONZE KEY" OR cmd$ = "TAKE BRONZE KEY" OR cmd$ = "TAKE KEY" OR cmd$ = "GET LARGE BRONZE KEY" OR cmd$ = "GET BRONZE KEY" OR cmd$ = "GET KEY") AND boxopen = 1 AND r = 5 THENPRINT "YOU TAKE THE LARGE BRONZE KEY."LET gotmainkey = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "TAKE ROLL OF TOILET PAPER" OR cmd$ = "TAKE TOILET PAPER" OR cmd$ = "GET ROLL OF TOILET PAPER" OR cmd$ = "GET TOILET PAPER") AND gottp = 0 THENPRINT "YOU PICK UP THE TOILET PAPER AND IT COMPLTELY FALLS APART IN YOUR HAND."LET gottp = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "READ NOTE" OR cmd$ = "USE NOTE") AND gotnote = 1 THENPRINT "THE NOTE SAYS:"PRINT "'BEHIND THE OLD CASTLE LIES HALF OF A TOOL OF YOUR FREEDOM.'"DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "PULL ROPE" OR cmd$ = "USE ROPE") AND r = 6 THENGOTO loseEND IFIF (cmd$ = "UNLOCK JEWLERY BOX" OR cmd$ = "UNLOCK BOX") AND gotboxkey1 = 1 AND gotboxkey2 = 1 AND r = 5 THENPRINT "YOU INSERT THE TWO SMALL KEYS IN THE BOX AND IS SPRINGS OPEN"PRINT "TO REVEAL A LAGRE BRONZE KEY."LET boxopen = 1DOLOOP UNTIL LEN(INKEY$)END IFIF (cmd$ = "UNLOCK FRONT DOOR" OR cmd$ = "UNLOCK DOOR") AND gotmainkey = 1 AND r = 1 THENGOTO winEND IFmoved:RETURNr1:COLOR 4PRINT "YOU ENTER THE ENTRY WAY."PRINT "YOU SEE AN OLD RUG LEADING TO WHAT APPEARS TO BE THE DINING ROOM."PRINT "ANOTHER RUG LEADS TO A DIFFERENT ROOM."PRINTRETURNr2:COLOR 4PRINT "YOU ENTER THE DINING ROOM."PRINT "THERE ARE NO WINDOWS IN HERE, BUT THERE IS LIGHT FLOWING IN FROM THE"PRINT "OTHER ROOM, YOU CAN BARELY SEE ANYTHING."PRINT "THERE ARE SEVERAL DOORS LEADING TO DIFFERENT LOCATIONS."PRINT "YOU SEE A TRAP DOOR THAT PROBABLY LEADS DOWN TO THE BASEMENT."PRINT "THERE IS A HUGE TABLE IN THE MIDDLE OF THE ROOM."PRINT "MOST OF THE CHAIRS SURROUNDING THE TABLE HAVE BROKEN LEGS."PRINT "YOU ALSO SEE A PAINTING ON THE WALL."PRINTRETURNr3:COLOR 4PRINT "YOU ENTER THE KITCHEN."PRINT "YOU SEE A DOORWAY WITH THE DOOR MISSING."PRINT "THERE IS A SINK AND A COUNTER."PRINT "THERE IS A TON OF DUST ON THE COUNTER."PRINTRETURNr4:COLOR 4PRINT "YOU ENTER THE BATHROOM."PRINT "THERE IS A SMALL OPAQUE WINDOW ON THE WALL."PRINT "THERE IS A DOOR THAT LEADS BACK TO THE KITCHEN."PRINT "YOU SEE A BUCKET OF VILE SMELLING STUFF IN THE CORNER."IF gottp = 0 THEN : PRINT "THERE IS A ROLL OF TOILET PAPER NEXT TO IT."PRINTRETURNr5:COLOR 4PRINT "YOU ENTER THE BEDROOM."PRINT "THERE IS A DOOR THAT LEADS BACK TO THE DINING ROOM."PRINT "YOU SEE A PLAIN MAT ON THE FLOOR WITH A TORN UP BLANKET."PRINT "YOU ALSO SEE A LARGE JEWLERY BOX."PRINTRETURNr6:COLOR 4PRINT "YOU ENTER THE BASEMENT."IF gotcandle = 1 THENPRINT "YOU LIGHT A CANDLE."PRINT "YOU SEE A ROPE IN THE CENTER OF THE ROOM."PRINT "THERE IS ALSO DREID UP BLOOD ON THE FLOOR."ELSEPRINT "THERE ARE NO WINDOWS IN HERE AND YOU CANT SEE ANYTHING."PRINT "TRY TO SEE IF YOU CAN FIND A CANDLE."PRINT "YOU HEAD BACK UP THE LADDER."LET r = 2END IFPRINTRETURNwin:COLOR 14PRINT "YOU UNLOCK THE DOOR, OPEN IT AND WALK OUTSIDE AND SMELL THE FRESH AIR."PRINT "THE SUN IS SETTING. IF YOU HAD STAYED IN THERE LONGER, YOU WOULD"PRINT "BE IN COMPLETE DARKNESS AND PROBABLY HAD TO SPEND THE NIGHT IN THERE!"PRINT "REALIZING THAT YOU ARE STILL GROUNDED, YOU HEAD BACK HOME BEFORE YOUR"PRINT "MOM NOTICES THAT YOU WERE GONE..."PRINTPRINT "YOU WIN!"PRINT "PRESS ANY KEY..."DOLOOP UNTIL LEN(INKEY$)GOTO menulose:COLOR 14PRINT "YOU HEAR SOMETHING UNLOCK FOLLOWD BY A BIG CRASH."PRINT "YOUR CANDLE BLOWS OUT."PRINT "A LARGE BLADE SWINGS DOWN FROOM THE CIELING AND DECAPITATES YOU!"PRINTPRINT "GAME OVER!"PRINT "PRESS ANY KEY..."DOLOOP UNTIL LEN(INKEY$)GOTO menu[/url]