QB / QB64 Discussion Forum     RULES     Other Subforums, Links and Downloads    Index of Threads

 

 Return to Index  

Everest source code

April 21 2006 at 1:42 PM
xXlennonboyXx  (no login)


Response to Everest

 
Here is the source code:


DECLARE SUB end9 ()
DECLARE SUB end10 ()
DECLARE SUB game6 ()
DECLARE SUB endgame ()
DECLARE SUB config ()
DECLARE SUB options ()
DECLARE SUB end7 ()
DECLARE SUB end8 ()
DECLARE SUB game5 ()
DECLARE SUB newgame ()
DECLARE SUB gmdct ()
DECLARE SUB lvlslt ()
DECLARE SUB cmenu ()
DECLARE SUB savegame ()
DECLARE SUB loadgame ()
DECLARE SUB end4 ()
DECLARE SUB end5 ()
DECLARE SUB end6 ()
DECLARE SUB game4 ()
DECLARE SUB Softwear ()
DECLARE SUB end2 ()
DECLARE SUB game3 ()
DECLARE SUB end3 ()
DECLARE SUB menu ()
DECLARE SUB game1 ()
DECLARE SUB end1 ()
DECLARE SUB game2 ()
DECLARE SUB story1 ()
DECLARE SUB everestlogo ()
DECLARE SUB everestlogo2 ()
COMMON SHARED save$, f$, godmode%, progfile$, prog2file$
SCREEN 12
prog2file$ = "econfig.cfg"
OPEN prog2file$ FOR APPEND AS #1
CLOSE
KEY(1) ON
KEY(2) ON
KEY(3) ON
SCREEN 12
sf: CLS
Softwear
mainloop: CLS
everestlogo
CLS
SCREEN 12
cv: CLS
menu
END
c: END

SUB cmenu
DO
  CLS
  PRINT ""
  PRINT ""
  PRINT "                   Everest Cheats"
  PRINT ""
  PRINT "                   1. GodMode Activation"
  PRINT "                   2. Run FileReset"
  PRINT "                   3. Disable and quit to menu"
  DO
    Choice$ = INPUT$(1)
  LOOP WHILE INSTR("123", Choice$) = 0 'Check for valid choice
  SELECT CASE Choice$
  CASE "1"
    gmdct
  CASE "2"
  GOTO mrmean
  CASE "3"
    menu
END SELECT
LOOP
END
mrmean:
OPEN progfile$ FOR OUTPUT AS #1
PRINT ""
PRINT ""
INPUT "     What do you want to write to the file?>  ", write$
PRINT #1, write$
PRINT "     Written"
PRINT "     press a key....."
DO WHILE INKEY$ = ""
LOOP
chetamode: CLS
menu
END SUB

SUB config
98 PRINT ""
PRINT ""
PRINT "                 Everest Game Config"
PRINT ""
PRINT "      1. Playing from a floppy disk [A:\]"
PRINT "      2. Playing from a hard drive [C:\]"
INPUT "      ", iinput%
SELECT CASE iinput%
       CASE 1
       progfile$ = "A:\esave.save"
       OPEN prog2file$ FOR OUTPUT AS #1
       PRINT #1, progfile$
       CLOSE
       CASE 2
       progfile$ = "esave.save"
       OPEN prog2file$ FOR OUTPUT AS #1
       PRINT #1, progfile$
       CLOSE
       CASE ELSE
       CLS
       GOTO 98
END SELECT
CLOSE
END SUB

SUB end1
COLOR 6
PRINT ""
PRINT ""
PRINT "                                  SPLAT."
PRINT "     Unfortunatly, Ricky slipped and froze. When he hit the ground,"
PRINT "     the ice busted and he broke every single bone in his body."
PRINT "     _______________________________________________________________"
PRINT "                           GAME OV-ER, MAN!"
DO WHILE INKEY$ = ""
LOOP
mh32: CLS
menu
END SUB

SUB end10
RANDOMIZE TIMER
c = INT(RND * 10)
COLOR c
PRINT ""
PRINT ""
PRINT "          Ring Ring..."
PRINT "       ____________________________"
PRINT "       Ricky whipped out his cell and "
PRINT "       dialed. The answer was:"
PRINT "       IF YOU'D LIKE TO MAKE A CALL, "
PRINT "       PLEASE HANG UP AND TRY AGAIN."
PRINT "                --"
PRINT "       PHONE PLAN MONEY WASTER RICKY KILLER,"
PRINT "              GAME OVER"
DO WHILE INKEY$ = ""
LOOP
menu
END SUB

SUB end2
COLOR 4
PRINT ""
PRINT ""
PRINT "                               WHAMMO!!!!"
PRINT "     Ricky was totally swept off his feet by the force of the avalanche."
PRINT "                         May he everest in peace."
PRINT "                            DARN YOU, LOSER"
PRINT "                               GAME OVER                  "
DO WHILE INKEY$ = ""
LOOP
fky: CLS
menu
END SUB

SUB end3
CLS
COLOR 12
PRINT ""
PRINT ""
PRINT "                         BREAK!!!"
PRINT "      Ricky jumps and lands face first. His head suffers a"
PRINT "     major concussion, and he dies after laying there for"
PRINT "     a good 6 weeks."
PRINT "              YET ANOTHER ENDING, LOSER."
PRINT "                       GAME OVER "
DO WHILE INKEY$ = ""
LOOP
mainloop1: CLS
menu
END SUB

SUB end4
COLOR 6
PRINT ""
PRINT ""
PRINT "                       ZZZZZZZZZZZzzzzzzzzzzzzz......"
PRINT "        Ricky tried to fight, but got tired to soon."
PRINT "        The bear picked the sleeping Ricky up and drop-kicked"
PRINT "        him over the mountain."
PRINT "                 THIS WILL HAUNT YOU, LOSER"
PRINT "                           GAME OVER"
DO WHILE INKEY$ = ""
LOOP
mainlooop: CLS
menu
END SUB

SUB end5
COLOR 14
PRINT ""
PRINT ""
PRINT "                    FAINT."
PRINT "     Ricky picked up the bear ____ and fainted. The bear"
PRINT "     drop-kicked him out."
PRINT "                    BAD LOSER"
PRINT "                    GAME OVER"
DO WHILE INKEY$ = ""
LOOP
pooploop: CLS
menu
END SUB

SUB end6
PRINT ""
PRINT ""
PRINT "                      (DUST SETTLING)"
PRINT "     Ricky ran so fast he ran right over the edge of the mountain"
PRINT "                   YOU MURDERED RICKY AGAIN"
PRINT "                          GAME OVER"
DO WHILE INKEY$ = ""
LOOP
runloop: CLS
menu
END SUB

SUB end7
COLOR 4
PRINT ""
PRINT "   "
PRINT "                      <bathroom sound here>"
PRINT "          _____________________________________________________"
PRINT "          Well, Ricky headed for the bush, tripped over a rock,"
PRINT "          fell off the mountain, and died."
PRINT ""
PRINT "               YOU AREN'T WORTHY OF EATING GOAT DUNG, LOSER"
PRINT "                               GAME OVER"
DO WHILE INKEY$ = ""
LOOP
mainloop88: CLS
menu
END SUB

SUB end8
COLOR 10
PRINT ""
PRINT ""
PRINT "               <funny bladder explosions here>"
PRINT "               _______________________________"
PRINT "               What a choice. Ricky held it "
PRINT "               and his bladder couldn't take"
PRINT "               it. It all froze and Ricky died"
PRINT "               of his frozen urine."
PRINT ""
PRINT "               YOU LOSE, I SHALL CALL YOU 'IT'"
PRINT "                           GAME OVER, IT"
DO WHILE INKEY$ = ""
LOOP
mainloop87: CLS
menu
END SUB

SUB end9
PRINT "     "
PRINT ""
PRINT "          <grotesque sounds here>"
RANDOMIZE TIMER
c = INT(RND * 10)
COLOR c
PRINT "          _______________________"
PRINT "          Ricky was halfway "
PRINT "          through the strenuous"
PRINT "          task when he realized"
PRINT "          he didn't have Han Solo."
PRINT "          The wookie tore him apart"
PRINT "          "
PRINT "               EAT SNOW LOSER"
PRINT "                  GAME OVER"
DO WHILE INKEY$ = ""
LOOP
menu
END SUB

SUB endgame
     KILL prog2file$
     KILL progfile$
     END
END SUB

SUB everestlogo
COLOR 15
PRINT ""
PRINT ""
PRINT ""
PRINT "    /\"
PRINT "   /  \______"
PRINT "  /EVEREST 0.3\"
PRINT " /_____________\"
PRINT
PRINT ""
PRINT ""
PRINT ""
PRINT " Created by TheBeatlefreak"
PRINT ""
PRINT ""
SLEEP
END SUB

SUB everestlogo2
COLOR 15
PRINT ""
PRINT "                      /\"
PRINT "                    /    \___"
PRINT "                  /EVEREST 0.3\"
PRINT "                /_______________\"
PRINT
PRINT ""
PRINT ""
PRINT ""
PRINT "           A Texted Script Adventure (tm)"
PRINT ""
PRINT ""
DO WHILE INKEY$ = ""
LOOP
END SUB

SUB game1
CLS
ON KEY(3) GOSUB c
COLOR 5
PRINT ""
PRINT ""
PRINT "     Well, Ricky strapped up. he bagan to walk out of the plane."
PRINT "     SPLAT. Oh, did I mention that he sky-dived?"
DO WHILE INKEY$ = ""
LOOP
PRINT ""
PRINT "     Ricky (thinking): Well, there goes my cellphone."
PRINT "     He landed on the ground safely, and is thinking about what to do."
DO WHILE INKEY$ = ""
LOOP
CLS
PRINT ""
PRINT ""
17 PRINT "     Well, here we are. Ricky is about to climb the mountain. Should he:"
PRINT "     A) Climb up the mountain, no support or bungee cords or anything,"
PRINT "                wearing nothing but swimming trunks?"
PRINT "     B) Fully dressed in winter gear, start to climb up"
PRINT "           with all possible support?"
INPUT "     Choose now >", ce$
IF godmode% = 1 THEN GOTO mg
97 SELECT CASE ce$
       CASE "a"
mn: CLS
end1
       CASE "b"
mn2: CLS
game2
       CASE ELSE
       CLS
       PRINT ""
       PRINT ""
       PRINT "     Hellooo??"
       GOTO 17
END SELECT
END
mg:
imgod: CLS
game2
END
END SUB

SUB game2
ON KEY(3) GOSUB c
COLOR 10
12 PRINT ""
PRINT ""
PRINT "      Well, Ricky made it up okay. He got up onto a ledge, and stood there for"
PRINT "     a minute, catching his breath. Then, he started climbing again."
PRINT "     As luck would have it, an avalanche started when he had climbed about"
PRINT "     50 feet off the ledge. He stood there, paralysed temporairly."
PRINT "     Then his mind started racing. What should he do?"
PRINT "       A) Stand there, thinking happy and pleasent thoughts?"
PRINT "       B) Inflate his Insty-flate-o sled and hitch a ride?"
PRINT "       C) Jump back down to the ledge, because it's out of avalanche range?"
PRINT ""
INPUT "     Choose NOW!>", c$
IF godmode% = 1 THEN GOTO ma
SELECT CASE c$
       CASE "a"
mj: CLS
end2
       CASE "b"
game3e: CLS
game3
      CASE "c"
md: CLS
end3
CASE ELSE
CLS
PRINT ""
PRINT ""
PRINT "     I am computer. You are guy who don't want virus. A, B, OR C!"
GOTO 12
END SELECT
ma:
ingod: CLS
game3
END SUB

SUB game3
ON KEY(3) GOSUB c
LET save$ = "save1"
mainloop98: CLS
savegame
CLS
COLOR 10
PRINT ""
PRINT ""
PRINT "      With one swift motion, Ricky whipped out his sled."
PRINT "     He jumped on the sled and made it down to the ledge."
PRINT "     He rested as the avalanche thundered by. "
PRINT "        (Which took 3 days, mind you.)"
PRINT ""
PRINT "     Press a key or DIE MORTAL!!"
DO WHILE INKEY$ = ""
LOOP
CLS
COLOR 8
PRINT ""
PRINT ""
9 PRINT "      After the avalanche passed, he started climbing again."
PRINT "     He arrives at a cave. He has not rested in a while and enters."
PRINT "     He lays down and falls asleep."
PRINT "     There just so happens to be a bear in the cave."
PRINT "     Ricky wakes up to bear breath."
PRINT "     Now what?"
PRINT "      A) Beat the stuffing out of the bear"
PRINT "      B) Defend yourself with a few pieces of bear crap"
PRINT "      C) Run like heck"
PRINT "      D) Try to reason with the 3000 pound bear"
PRINT ""
INPUT "      Well Einstien?>", a$
IF godmode% = 1 THEN GOTO mb
SELECT CASE a$
       CASE "a"
mainloop2: CLS
end4
        CASE "b"
mainloop3: CLS
end5
        CASE "c"
mainloop4: CLS
end6
        CASE "d"
        game4
        CASE ELSE
        CLS
        PRINT ""
        PRINT ""
        PRINT "     Yeah. THAT'S the ticket."
        PRINT ""
        GOTO 9
END SELECT
mb:
iagod: CLS
game4
END SUB

SUB game4
ON KEY(3) GOSUB c
CLS
PRINT ""
PRINT ""
PRINT "     Ricky, half awake, got up and walked towards the"
PRINT "     300 lb bear."
COLOR 13
PRINT "        OH MAN!! ALL BLOOD AND GORE!! LOOK AT 'IM!!"
COLOR 14
PRINT ""
PRINT "     Well Ricky leaves the cave without a scratch."
PRINT "     Then he is faced with an impossible situation."
PRINT "               "
COLOR 1
PRINT "              Nature's calling"
COLOR 8
PRINT "             press a key <flush......>"
DO WHILE INKEY$ = ""
LOOP
CLS
PRINT ""
PRINT ""
27 COLOR 14
PRINT "    Well well well..."
PRINT "    What would you do?"
PRINT "        A) Go in a bush"
PRINT "        B) Lean over the edge and let 'r fly"
PRINT "        C) Hold it"
PRINT ""
INPUT "        [Choose wisely>", crapper$
IF godmode% = 1 THEN GOTO mc
SELECT CASE crapper$
       CASE "a"
penfailed: CLS
end7
       CASE "b"
penworked: CLS
game5
       CASE "c"
ickypen: CLS
end8
       CASE ELSE
       CLS
       PRINT ""
       PRINT ""
       PRINT "     That's really helps Ricky out...Yeah, let him wet himself..."
       PRINT ""
       GOTO 27
END SELECT
mc:
mainloop89: CLS
game5
END SUB

SUB game5
CLS
ON KEY(3) GOSUB c
PRINT ""
PRINT ""
COLOR 7
PRINT "     Gee, urinating never felt so goooooood..."
PRINT "     Ricky: FORE!!"
PRINT "     <bombing sounds>"
PRINT "     <SPLAT>"
PRINT "     Well, enough of that."
PRINT "            press a k, man"
DO WHILE INKEY$ = ""
LOOP
CLS
PRINT ""
PRINT ""
PRINT "       As Ricky stumbles along, he comes upon a"
PRINT "       giant Wookie"
PRINT "       Ricky: Nice Chewy..."
PRINT "       Wookie: WOOAARRHHH!!!!"
PRINT "       "
PRINT "       A) Laser beam him"
PRINT "       B) Bring out miniature Han Solo(tm)"
PRINT "       C) Call StarWars(tm) BattleFront hint line"
PRINT ""
INPUT "       Time's a wastin'> ", chewy$
IF godmode% = 1 THEN GOTO me
SELECT CASE chewy$
       CASE "a"
mainloop86: CLS
game6
       CASE "b"
cainloop: CLS
end9
       CASE "c"
bainloop: CLS
end10
END SELECT
me:
mainloop85: CLS
game6
END SUB

SUB game6
ON KEY(3) GOSUB c
LET save$ = "save2"
mainloop673: CLS
savegame
RANDOMIZE TIMER
c = INT(RND * 10)
COLOR c
PRINT "     "
PRINT ""
PRINT "     With one fluid movement Ricky pulled out his"
PRINT "     laser gun, LucasBrand(tm)"
PRINT "     Wookie: Wdon'tWshootW!!!"
PRINT "     Ricky: This the END, you gutter-crawling cur!"
PRINT "     Wookie: <running away sounds?>"
PRINT "     Ricky: BANG!! Gee, just sayin' that makes me feel good!"
PRINT ""
PRINT "             pull the trigger"
DO WHILE INKEY$ = ""
LOOP
CLS
PRINT ""
PRINT ""
COLOR 15
PRINT "        END OF DEMO!!! "
COLOR 8
PRINT "       Well, I hope you at least kinda had fun..."
DO WHILE INKEY$ = ""
LOOP
menu
END SUB

SUB gmdct
CLS
PRINT ""
PRINT ""
godmode% = 1
PRINT "       *GodMode Activated*"
PRINT "       In other words, Ricky can't die"
PRINT "       no matter what choice you choose"
COLOR 8
PRINT "          press a key....."
DO WHILE INKEY$ = ""
LOOP
goman: CLS
menu
END SUB

SUB loadgame
OPEN progfile$ FOR APPEND AS #1
CLOSE
PRINT ""
PRINT ""
PRINT "     This game autosaves every 3 levels. Press a key to load the last game."
DO WHILE INKEY$ = ""
LOOP
OPEN progfile$ FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, f$
LOOP
CLOSE
SELECT CASE f$
       CASE "save1"
mainloop676: CLS
game3
       CASE "save2"
mainloop455: CLS
game6
       CASE "cheatmode"
        cmenu
       CASE ELSE
       PRINT "     Sorry, there is no saved game"
       DO WHILE INKEY$ = ""
       LOOP
menu: CLS
menu
END SELECT
END SUB

SUB lvlslt

END SUB

SUB menu
CLOSE
OPEN prog2file$ FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, progfile$
LOOP
CLOSE
SELECT CASE progfile$
       CASE ""
mainloop90: CLS
config
       CASE ELSE
       GOTO 80
END SELECT
80 LET save$ = "none"
CLS
DO
  CLS
  COLOR 9
  PRINT ""
  PRINT ""
  PRINT "          Welcome to Everest 0.3!"
  PRINT "           What do you want to do?"
  PRINT ""
  PRINT "                   1. Start New Game"
  PRINT "                   2. Load the autosaved game"
  PRINT "                   3. Everest Game Options "
  PRINT "                   4. Exit"
  DO
    Choice$ = INPUT$(1)
  LOOP WHILE INSTR("1234", Choice$) = 0 'Check for valid choice
  SELECT CASE Choice$
  CASE "1"
    newgame
  CASE "2"
    loadgame
  CASE "3"
  options
  CASE "4"
    'endgame
    'KillFiles version must have 'endgame' on
    END
END SELECT
LOOP
END SUB

SUB newgame
mainlopp: CLS
story1
game1
END SUB

SUB options
DO
  CLS
  PRINT ""
  PRINT ""
  PRINT "             OPTIONS MENU"
  PRINT "     1. Change config files"
  PRINT "     2. Music "
  PRINT "     3. Quit to menu"
  DO
    Choice$ = INPUT$(1)
  LOOP WHILE INSTR("123", Choice$) = 0 'Check for valid choice
  SELECT CASE Choice$
  CASE "1"
   config
  CASE "2"
    PRINT "     Just kidding. There is no music."
    DO UNTIL INKEY$ <> ""
    LOOP
  CASE "3"
    menu
  END SELECT
LOOP

END SUB

SUB savegame
OPEN progfile$ FOR OUTPUT AS #1
PRINT #1, save$
CLOSE
END SUB

SUB Softwear
COLOR 15
PRINT ""
PRINT ""
PRINT ""
PRINT "   ."
PRINT "   .."
PRINT "   ..."
PRINT "   ....               Blak Soft-Wear Presents..."
PRINT "   ..."
PRINT "   .."
PRINT "   ."
DO WHILE INKEY$ = ""
LOOP
CLS
DO WHILE INKEY$ = ""
COLOR 12
PRINT ""
PRINT ""
PRINT ""
PRINT "   ...                   Blak Soft-Wear Presents..."
PRINT ""
COLOR 13
PRINT ""
PRINT ""
PRINT ""
PRINT "   ...                   Blak Soft-Wear Presents..."
PRINT ""
COLOR 14
PRINT ""
PRINT ""
PRINT ""
PRINT "   ...                   Blak Soft-Wear Presents..."
PRINT ""
LOOP
END SUB

SUB story1
ON KEY(3) GOSUB c
CLS
COLOR 15
PRINT ""
PRINT ""
PRINT ""
PRINT "        Ricky was an average guy. Wife, three children, quite nice, too."
PRINT "     He had just come home from an exausting day at work. He worked at"
PRINT "     NaxToxed, a brilliant agency that worked for the government like the"
PRINT "     CIA. He just got home and his wife burst out of a corner and hugged"
PRINT "     him."
PRINT "        Ricky: AAIIEEE!!!HONEY! What's UP?"
PRINT "     Wife: Rikee, dear, what's your lifelong goal?"
PRINT "     Ricky: Raise successful children?"
PRINT "     Wife: Your other goal, dear."
PRINT "     Ricky: To climb Mt. Everest?"
PRINT "     Wife: YESS!! Guess what?"
PRINT "     Ricky: Tell me."
PRINT ""
PRINT "          Any key now..."
DO WHILE INKEY$ = ""
LOOP
CLS
PRINT ""
PRINT "     Wife: I got you and me plane tickets, climbing gear, and everything!"
PRINT "     Ricky: For what?"
PRINT "     Wife: WE'RE GOIN' TO MT. EVEREST!!"
PRINT "     Ricky: But it's Superbowl Sunday..."
PRINT "     Wife: To bad. Pack up, the plane leaves in an hour!"
PRINT "     Ricky: Man..."
PRINT ""
PRINT "     Well, they got on the plane, and it almost hit a mountain, but"
PRINT "                   let's get to the exciting part."
DO WHILE INKEY$ = ""
LOOP
END SUB



--------------
Long, I know but I've been working on it for like a month or 3. Any suggestions please respond.


    
This message has been edited by iorr5t on Aug 13, 2006 7:05 PM


 
 Respond to this message   
Response TitleAuthorDate
 That's a lot of SUBsKristopher WindsorApr 22, 2006
 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement