Best code ever - ca 1994

HACKER.BAS

htrojans = 5
hbackups = 5
megs = 50
cash = 500
computer$ = "Apple Ie"
backup$ = "Paper Strips"
hack$ = "Yourself"
intel$ = "no"
dumbnerdone = 100
start:
COLOR 14
PRINT "          Sterling Paramore Presents....             "
COLOR 1
PRINT "  €€€      €€€           €€€         €€€€€€€€€€€€   €€€   €€€    "
PRINT " €€€      €€€         €€€€€€       €€€             €€€   €€€     "
PRINT "€€€     €€€        €€€  €€€      €€€             €€€   €€€      "
PRINT "€€€     €€€       €€€    €€€    €€€             €€€  €€€       "
PRINT "€€€€€€€€€€€       €€€€€€€€€€   €€€              €€€€€€        "
PRINT "€€€     €€€      €€€      €€€   €€€             €€€ €€€       "
PRINT "€€€     €€€     €€€        €€€  €€€            €€€   €€€      "
PRINT "€€€      €€€   €€€          €€€  €€€            €€€   €€€     "
PRINT "  €€€     €€€  €€€          €€€    €€€€€€€€€€€€  €€€    €€€  er"
COLOR 13
PRINT : PRINT "v1.5·"
FOR w = 1 TO 10000: NEXT
COLOR 10: PRINT "Brought to you by Sterling Paramore of the in someones basement Co."
INPUT "Based somewhere on the planet Earth and you don't know so nah-nah"; mon$
IF mon$ = "money" THEN cash = 1000: megs = 100
2 '
x = 0
COLOR 10
LOCATE 13, 1
PRINT "Now Upgraded to 1,000,000 gigabytes (Kidding Tool, Duh you're such an imp)"
PRINT "If you don't know how to play this game then look at the readme file"
PRINT "or the instructions. "
COLOR 12
PRINT "REMEMBER:"
COLOR 14
INPUT "This game is CASE sensitive!  Everything should be in lowercase!"; pass$
IF pass$ = "ha ha ha ha I found the secret code!" THEN SHELL
CLS
gamestart:
COLOR 12
PRINT "Type dir or menu to look at the menu."
GOTO game
mark:
INPUT ">", mark$
RETURN
game:
COLOR 12
GOSUB mark
IF mark$ = "menu" OR mark$ = "dir" THEN GOTO menu
IF mark$ = "dir/w" THEN GOTO stats
IF mark$ = "$" THEN GOTO cash
IF mark$ = "call" THEN GOTO callhouse
IF mark$ = "hack" THEN GOTO hack
IF mark$ = "megs" THEN GOTO megs
IF mark$ = "buy" THEN GOTO buy
IF mark$ = "stats" THEN GOTO stats
IF mark$ = "restore" THEN GOTO restor
IF mark$ = "instruct" THEN GOTO instruct
IF mark$ = "exit" THEN END
IF mark$ <> "allddaslkj" THEN GOTO game
menu:
CLS
COLOR 4: PRINT "REMEMBER:"; : COLOR 14: PRINT "Everything is case sensitive!"
PRINT : PRINT
COLOR 10: PRINT "menu"; : COLOR 12: PRINT "...brings up this menu"
COLOR 10: PRINT "$"; : COLOR 12: PRINT "...shows how much cash you have"
COLOR 10: PRINT "call"; : COLOR 12: PRINT "...calls my house so you can buy stuff"
COLOR 10: PRINT "hack"; : COLOR 12: PRINT "...sets you in hack mode"
COLOR 10: PRINT "megs"; : COLOR 12: PRINT "...shows how many megs you have"
COLOR 10: PRINT "buy"; : COLOR 12: PRINT "...lets you buy megs"
COLOR 10: PRINT "stats"; : COLOR 12: PRINT "...shows your stats"
COLOR 10: PRINT "restore"; : COLOR 12: PRINT "...allows you to hack"
COLOR 10: PRINT "instruct"; : COLOR 12: PRINT "...instructions"
COLOR 10: PRINT "exit"; : COLOR 12: PRINT "...let's you quit"
GOTO game
instruct:
COLOR 4
CLS
PRINT "                          Thought O' The Yesterday      "
PRINT "                       Don't dilly dally in the past.   "
PRINT "                                     "
PRINT ""
COLOR 14
PRINT "                             Thought O' The day"
PRINT "        To  understand  the meaning of life then I think we should look"
PRINT "        at the word 'Mankind'.  Well this shouldn't be too hard.  It is"
PRINT "        basically two  (2) words  to make  one word.  'Mank'  and 'Ind' ."
PRINT "        I  beleive that  all people  should  understand these words and"
PRINT "        mabee it'll make this world a little bit better."
PRINT ""
COLOR 4
PRINT "                             Thought O' Tomorrow"
PRINT "              Tomorrow never comes so don't worry about it"
PRINT ""
COLOR 10
INPUT "", ans$
PRINT "                         Gir Draxons Instructions"
PRINT "                                   To..."
PRINT "                                  HACKer"
COLOR 9
PRINT "     HACKer  is actually  a simple stupid  game  that  everybody  (almost) can"
PRINT "understand so we won't tell you how to play.  But I guess we have to for those"
PRINT "simple minded people who don't know a  thing.  And  remember...you always have"
PRINT "to be smarter than the average  computer  game.   If your  not then don't even"
PRINT "try to play this game."
PRINT ""
PRINT "        The object of  the game is to hack the grand NASA supreme dictator for"
PRINT "life with a twist's computer.   To do  this you must hack all the other people"
PRINT "below NASA."
PRINT ""
PRINT "        At the begining of  the  game you  have  a  really sucky computer that"
PRINT "probably no one in this insane world  would ever  think of using...an Apple Ie"
PRINT "AHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH.  But"
PRINT "after you  hack  a few  dumb nerds  you'll  have  enough money  to buy a  half"
PRINT "way decent computer."
PRINT "       "
PRINT "        There  is  also a  feature  that alows  you to gamble with your money."
PRINT "You can play 21 with the  computer  and double your  money or lose it all.  In"
PRINT "newer HACKer versions you will also be able to play DICE."
INPUT "       ", ans$
PRINT "        When you are in hack  mode  you  will  be  able to Trash files, Backup"
PRINT "Files,  or  upload  Trojans.   Trashing  is the  normal  way  to  hack but the"
PRINT "disadvantage is that they can hack you back.   Backing  up files  is  when you"
PRINT "are low on megs  you will be able  to  bring  back some megs depending on the"
PRINT "backup device  you have.  Uploading a Trojan Horse is probably the best way to"
PRINT "hack someone.   When doing this you will be able to steal there megs, but they"
PRINT "can't hack back; the only thing they can do is refuse it and you lose one."
PRINT ""
PRINT "Also,  since  this is a beta version,  I haven't put in multi-node  support or"
PRINT "seperate games.  So that means (if your trying to run this off a bbs) that you"
PRINT "only  have as long as the SysOp  gives you time on his board to win this game."
PRINT "Future version will allow this though!"
PRINT ""
PRINT "If you would  like a source copy  and/or you  have any questions then you  can"
PRINT "e -mail me at:"
PRINT ""
COLOR 10
PRINT "[email protected]"
GOTO game
cash:
COLOR 9
PRINT "   You have...$"; cash
GOTO game
callhouse:
CLS
COLOR 13
PRINT "Welcome to here"
PRINT "I hope you have a fun time hear"
FOR x = 1 TO 10000: NEXT
CLS
mymenu:
COLOR 14
beabletohack = 0
CLS
PRINT "1.buy a new computer"
PRINT "2.buy new backup"
PRINT "3.buy a new hacking device"
PRINT "4.gamble"
PRINT "5.Buy Stuff"
PRINT "6.Exit"
INPUT choose$
IF choose$ = "1" THEN GOTO bcomputer
IF choose$ = "2" THEN GOTO bback
IF choose$ = "3" THEN GOTO bhack
IF choose$ = "4" THEN GOTO gamble
IF choose$ = "5" THEN GOTO buystuff
IF choose$ = "6" THEN GOTO game
IF choose$ <> "55" THEN GOTO mymenu
bcomputer:
CLS
COLOR 9
PRINT "Apple Ie............$500  1 extra meg"
PRINT "Apple IIe...........$1000 5 extra megs"
PRINT "Macintosh...........$5000 10 extra megs"
PRINT "Stupid Computer.....$7500 40 extra megs"
PRINT "IBM 286.............$15000 50 extra megs"
PRINT "IBM 386.............$30000 75 extra megs"
PRINT "IBM 486.............$75000 100 extra megs"
PRINT "Pentium.............$100000 200 extra megs"
PRINT "Pentium2000.........$500000 500 extra megs"
PRINT "Super Pentium5000...$1000000 750 extra megs"
PRINT "Mega Pentium9000....$5000000 1000 extra megs"
PRINT "IBM 586.............$10000000 5000 extra megs"
PRINT "Intel Inside.....$300000 (extra) 50 extra megs"
PRINT :  COLOR 12
PRINT : PRINT "You have $"; cash
PRINT "You have "; megs; "megs"
PRINT "You have a "; computer$
PRINT : COLOR 11
INPUT "Input the amount of money your choice is "; comp
IF comp > cash THEN PRINT "You don't have that much!": FOR w = 1 TO 1000: NEXT w: GOTO bcomputer
IF comp = 0 THEN GOTO mymenu
IF comp < 49 THEN GOTO bcomputer
IF comp = 500 THEN computer$ = "Apple Ie": megs = megs + 1
IF comp = 1000 THEN computer$ = "Apple IIe": megs = megs + 5
IF comp = 5000 THEN computer$ = "Macintosh": megs = megs + 10
IF comp = 7500 THEN computer$ = "Stupid Computer": megs = megs + 40
IF comp = 15000 THEN computer$ = "IBM 286": megs = megs + 50
IF comp = 30000 THEN computer$ = "IBM 386": megs = megs + 75
IF comp = 75000 THEN computer$ = "IBM 486": megs = megs + 100
IF comp = 100000 THEN computer$ = "Pentium": megs = megs + 200
IF comp = 500000 THEN computer$ = "Pentium2000": megs = megs + 500
IF comp = 1000000 THEN computer$ = "Super Pentium5000": megs = megs + 750
IF comp = 5000000 THEN computer$ = "Mega Pentium9000": megs = megs + 1000
IF comp = 10000000 THEN computer$ = "IBM 586": megs = megs + 5000
IF comp = 300000 THEN intel$ = "yes": megs = megs + 50
cash = cash - comp
cash = cash + 100
GOTO mymenu
bback:
CLS
COLOR 9
PRINT "Paper Strips......$100"
PRINT "Hole Punches......$5000"
PRINT "Something Cool....$50000"
PRINT "Disks 5.25........$100000"
PRINT "Disks 3.5.........$250000"
PRINT "Hard Drive........$500000"
PRINT "Super Hard Drive..$1000000"
PRINT : COLOR 13
PRINT : PRINT "You have $"; cash
PRINT "You have "; megs; "megs"
PRINT "You have "; backup$
PRINT : COLOR 11
INPUT "Input the amount of money your choice is "; back
IF back > cash THEN PRINT "You don't have that much money!": FOR w = 1 TO 10000: NEXT w: GOTO bback
IF back = 0 THEN GOTO mymenu
IF back = 1000 THEN backup$ = "Paper Strips"
IF back = 5000 THEN backup$ = "Hole Punches"
IF back = 50000 THEN backup$ = "Something Cool"
IF back = 100000 THEN backup$ = "Disks 5.25"
IF back = 250000 THEN backup$ = "Disks 3.5"
IF back = 500000 THEN backup$ = "Hard Drive"
IF back = 1000000 THEN backup$ = "Super Hard Drive"
cash = cash - back
cash = cash + 100
GOTO mymenu
bhack:
COLOR 9
CLS
PRINT "Dumb Terminal...$5000"
PRINT "Smart Terminal..$75000"
PRINT "Viper2000.......$100000"
PRINT "Phantom.........$250000"
PRINT "Phantom5000.....$500000"
PRINT "Super Hack9000..$1000000"
PRINT : COLOR 13
PRINT "You have $"; cash
PRINT "You have "; hack$
PRINT "You have "; megs; "megs"
PRINT : COLOR 11
INPUT "Input the amount of money your choice is "; hack
IF hack > cash THEN PRINT "You don't have that much money!": FOR w = 1 TO 10000: NEXT w: GOTO bhack
IF hack = 0 THEN GOTO mymenu
IF hack = 5000 THEN hack$ = "Dumb Terminal"
IF hack = 75000 THEN hack$ = "Smart Terminal"
IF hack = 100000 THEN hack$ = "Viper2000"
IF hack = 250000 THEN hack$ = "Phantom"
IF hack = 500000 THEN hack$ = "Phantom5000"
IF hack = 1000000 THEN hack$ = "Super Hack9000"
cash = cash - hack
cash = cash + 100
GOTO mymenu
gamble:
CLS
3 ' Twenty-One ( $100 min. $1,000,000 max. )
CLS
COLOR 14
PRINT "                                        21"
COLOR 10
IF cash > 5000000 THEN PRINT "You've got enough money, so you can't play": SLEEP 3: GOTO mymenu
PRINT : PRINT : PRINT : PRINT
RANDOMIZE TIMER
card = INT(RND(1) * 11) + 1
card2 = INT(RND(1) * 11) + 1
card3 = INT(RND(1) * 11) + 1
card4 = INT(RND(1) * 11) + 1
card5 = INT(RND(1) * 11) + 1
dcard1 = INT(RND(1) * 11) + 1
dcard2 = INT(RND(1) * 11) + 1
dcard3 = INT(RND(1) * 11) + 1
dcard4 = INT(RND(1) * 11) + 1
IF card + card2 = 22 THEN GOTO 3
total = card + card2
crds = 2
PRINT "You have : "; card; ","; card2
PRINT "Dealer shows a : "; dcard1
PRINT : PRINT
31 '
dcrds = 2
PRINT "You Have"; : COLOR 14: PRINT " $"; cash: COLOR 10
PRINT "You Have "; megs; " megs"
INPUT "How much do you wish to wager :"; wager
IF wager > 1000000 THEN PRINT "$1,000,000 max.": INPUT ans$: GOTO 31 ELSE
IF wager = 0 THEN GOTO mymenu ELSE
IF wager > cash THEN PRINT "You don't have that much!!": INPUT ans$: GOTO 31
IF wager < 100 THEN INPUT "$100 min."; ans$: GOTO 31
cash = cash - wager
CLS
PRINT "You have : "; card; ","; card2; "="; card + card2
PRINT "Dealer shows a : "; dcard1
PRINT : PRINT
INPUT "Do you want a hit [y,n]"; yes$
IF yes$ = "y" THEN GOTO 311 ELSE
IF yes$ = "n" THEN GOTO 312
311 ' yes hit
CLS
IF crds = 3 THEN GOTO 3114
IF crds = 4 THEN GOTO 3115
IF crds = 5 THEN PRINT "Ya' can'na 'ave another one cap'in she's gon'na bl'ow!": GOTO 312
PRINT "You got a "; card3
crds = 3
total = total + card3
PRINT "Your total is "; total
INPUT "Do you want another hit [y,n]"; yes$
IF yes$ = "y" THEN GOTO 311
IF yes$ = "n" THEN GOTO 312
3114 '
PRINT "You got a "; card4
crds = 4
total = total + card4
PRINT "Your total is "; total
INPUT "Do you want another hit [y,n]"; ye$
IF ye$ = "y" THEN GOTO 311
IF ye$ = "n" THEN GOTO 312
3115 '
PRINT "You got a "; card5
crds = 5
total = total + card5
PRINT "Your total is "; total
INPUT "Do you want another hit [y,n]"; ye$
IF ye$ = "y" THEN GOTO 311
IF ye$ = "n" THEN GOTO 312
312 ' no hit
dtotal = dcard1 + dcard2
IF dcrds = 2 AND dtotal < 16 THEN dtotal = dtotal + dcard3: dcrds = 3
IF dcrds > 21 THEN PRINT "Dealer Broke": GOTO 3121
IF dcrds = 3 AND dtotal < 16 THEN dtotal = dtotal + dcard4
IF dcrds > 21 THEN PRINT "Dealer Broke": GOTO 3121 ELSE
3120 'On With
PRINT "The dealer has : "; dtotal
PRINT : PRINT "You have : "; total
IF total > 21 AND dtotal > 21 THEN PRINT "You both broke!  Tie": cash = cash + wager: GOTO 3
IF total > 21 THEN PRINT "You broke!": GOTO 3122
IF dtotal > 21 THEN PRINT "Dealer Broke!": GOTO 3121
IF total = dtotal THEN PRINT "Tie": money = money + wager: GOTO 3
IF total = 21 AND crds = 2 THEN PRINT "You got a Black Jack!": cash = cash + 500: GOTO 3121
IF dtotal = 21 AND dcrds = 2 THEN PRINT "Dealer got a Black Jack!": GOTO 3122
IF total = 21 THEN PRINT "Twenty-One": cash = cash + 250: GOTO 3121
IF total > dtotal THEN GOTO 3121
IF total < dtotal THEN GOTO 3122
3121 ' win
IF total = 21 THEN wager = wager * 4
IF total < 21 THEN wager = wager * 2
cash = cash + wager
exmegs = INT(RND(1) * 10) + 10
IF total = 21 THEN exmegs = INT(RND(1) * 25) + 10
IF total = 21 AND crds = 2 THEN exmegs = INT(RND(1) * 50) + 10
PRINT "You won : $"; wager
PRINT "Since you won I'll give you "; exmegs; " extra megs"
megs = megs + exmegs
INPUT ans$
GOTO 3
3122 'lose
PRINT "You lose!"
PRINT "Loser!"
INPUT ans$
GOTO 3
buystuff:
PRINT "you have $"; cash
INPUT "Trojan Horses are $10000.  How many "; btro
IF (btro * 10000) > cash THEN GOTO buystuff
cash = cash - (btro * 10000)
htrojans = htrojans + btro
INPUT "Backups are $10000.  How many "; bba
IF (bba * 10000) > cash THEN GOTO buystuff
cash = cash - (bba * 10000)
hbackups = hbackups + bba
GOTO mymenu
megs:
COLOR 9
PRINT "   You have "; megs; " megs"
GOTO game
buy:
COLOR 14
PRINT "   Megs are currently running at $50 ($45 to sell) a meg"
PRINT "      You have $"; cash
INPUT "   How many megs do you wish to buy "; howmany
IF howmany * 50 > cash THEN PRINT "You don't have that much money!": GOTO buy
IF howmany = 0 THEN GOTO sell
megs = megs + howmany
cash = cash - (howmany * 50)
GOTO game
sell:
INPUT "How many to sell "; sellhow
IF sellhow = 0 THEN GOTO game
IF sellhow > megs THEN GOTO sell
megs = megs - sellhow
cash = cash + (sellhow * 45)
GOTO game
stats:
CLS
COLOR 13
PRINT "Computer........."; : COLOR 14: PRINT computer$: COLOR 13
PRINT "Backup..........."; : COLOR 14: PRINT backup$: COLOR 13
PRINT "Hacking Device..."; : COLOR 14: PRINT hack$: COLOR 13
COLOR 14: PRINT intel$; : COLOR 13: PRINT " Intel Inside"
PRINT "Cash.............$"; : COLOR 14: PRINT cash: COLOR 13
PRINT "Megs............."; : COLOR 14: PRINT megs: COLOR 13
PRINT "Trojans.........."; : COLOR 14: PRINT htrojans: COLOR 13
PRINT "Backups.........."; : COLOR 14: PRINT hbackups: COLOR 13
GOTO game
restor:
beabletohack = 1
PRINT "Computing....": FOR w = 1 TO 10000: NEXT
IF computer$ = "Apple Ie" THEN computer = 1
IF computer$ = "Apple IIe" THEN computer = 2
IF computer$ = "Macintosh" THEN computer = 3
IF computer$ = "Stupid Computer" THEN computer = 4
IF computer$ = "IBM 286" THEN computer = 5
IF computer$ = "IBM 386" THEN computer = 6
IF computer$ = "IBM 486" THEN computer = 7
IF computer$ = "Pentium" THEN computer = 8
IF computer$ = "Pentium2000" THEN computer = 9
IF computer$ = "Super Pentium5000" THEN computer = 10
IF computer$ = "Mega Pentium9000" THEN computer = 11
IF computer$ = "IBM 586" THEN computer = 12
IF intel$ = "yes" THEN intel = 1
IF intel$ = "no" THEN intel = 2
IF backup$ = "Paper Strips" THEN backup = 1
IF backup$ = "Hole Punches" THEN backup = 2
IF backup$ = "Something Cool" THEN backup = 3
IF backup$ = "Disks 5.25" THEN backup = 4
IF backup$ = "Disks 3.5" THEN backup = 5
IF backup$ = "Hard Drive" THEN backup = 6
IF backup$ = "Super Hard Drive" THEN backup = 7
IF hack$ = "Yourself" THEN hack = 0
IF hack$ = "Dumb Terminal" THEN hack = 1
IF hack$ = "Smart Terminal" THEN hack = 2
IF hack$ = "Viper2000" THEN hack = 3
IF hack$ = "Phantom" THEN hack = 4
IF hack$ = "Phantom5000" THEN hack = 5
IF hack$ = "Super Hack9000" THEN hack = 6
PRINT "Restored"
GOTO game
hack:
IF megs = 0 THEN PRINT "You  have no megs to hack with": SLEEP 3: GOTO game
IF beabletohack = 1 THEN GOTO starthack
IF beabletohack = 0 THEN PRINT "You need to restore first": FOR w = 1 TO 1000: NEXT w: GOTO game
starthack:
CLS : COLOR 13
PRINT "Type 0 for the list of people to hack"
COLOR 4
PRINT "type a negative number to exit"
GOTO hacker
colon:
COLOR 12
INPUT "*>", colon
RETURN
hacker:
GOSUB colon
COLOR 5
IF colon = 0 THEN GOTO hackmenu ELSE GOTO starthacking
GOTO hacker
hackmenu:
CLS
COLOR 12: PRINT "1-49"; : COLOR 13: PRINT "...................Dumb Nerds"        'Apple Ie=1
COLOR 12: PRINT "50-199"; : COLOR 13: PRINT ".................Drop outs"          'Apple IIe=2
COLOR 12: PRINT "200-499"; : COLOR 13: PRINT "................Average People"     'Macintosh=3
COLOR 12: PRINT "500-699"; : COLOR 13: PRINT "................Small Business"     'Stupid Computer=4
COLOR 12: PRINT "700-899"; : COLOR 13: PRINT "................Large Business"     'IBM 286=5
COLOR 12: PRINT "900-999"; : COLOR 13: PRINT "................Smart Nerds"        'IBM 386=6
COLOR 12: PRINT "1000-1199"; : COLOR 13: PRINT "..............Hackers"            'IBM 486=7
COLOR 12: PRINT "1200-1499"; : COLOR 13: PRINT "..............Rocket Scientists"  'Pentium=8
COLOR 12: PRINT "1500-1699"; : COLOR 13: PRINT "..............Super Hackers"      'Pentium2000=9
COLOR 12: PRINT "1700-2000"; : COLOR 13: PRINT "..............NASA"               'Super Pentium5000=10
GOTO hacker
GOTO starthacking
border:
CLS
COLOR 12
PRINT "ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕ"
PRINT "                                                                      "
PRINT "   "; : COLOR 14: PRINT "Your Megs:"; : COLOR 13: PRINT megs; "             "; : COLOR 14: PRINT "Opponents Megs:"; : COLOR 13: PRINT cmegs; "         "
PRINT "   "; : COLOR 14: PRINT "Your Computer:"; : COLOR 13: PRINT computer$; "     "; : COLOR 14: PRINT "Opponents Computer:"; : COLOR 13: PRINT ccomputer$; "                "
PRINT "   "; : COLOR 14: PRINT "Intel?:"; : COLOR 13: PRINT intel$; "                      "; : COLOR 14: PRINT "Intel?:"; : COLOR 13: PRINT cintel$
PRINT "                                                                      "
PRINT "   "; : COLOR 14: PRINT "Backups Left:"; : COLOR 13: PRINT hbackups; ""
PRINT "   "; : COLOR 14: PRINT "Trojans Left:"; : COLOR 13: PRINT htrojans; ""
PRINT "                                                                      "
PRINT "                                                                      "
PRINT "                                                                      "
COLOR 12
PRINT "ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕ"
PRINT : PRINT
COLOR 4
PRINT "("; : COLOR 12: PRINT "U"; : COLOR 4: PRINT ")pload Trojan Horse      ("; : COLOR 12: PRINT "B"; : COLOR 4: PRINT ")ackup Files             ("; : COLOR 12: PRINT "T"; : COLOR 4: PRINT ")rash Files"
PRINT "("; : COLOR 12: PRINT "E"; : COLOR 4: PRINT ")xit": COLOR 9: INPUT "", upload$
IF upload$ = "b" THEN GOSUB hackersback
IF upload$ = "e" THEN GOTO hesexiting
RETURN
starthacking:
RANDOMIZE TIMER
IF colon < 0 THEN GOTO game
IF colon > .5 AND colon < 49.5 THEN GOTO dumbnerds
IF colon > 49.5 AND colon < 199.5 THEN GOTO dropouts
IF colon > 199.5 AND colon < 499.5 THEN GOTO averagepeople
IF colon > 499.5 AND colon < 699.5 THEN GOTO smallbusiness
IF colon > 699.5 AND colon < 899.5 THEN GOTO largebusiness
IF colon > 899.5 AND colon < 999.5 THEN GOTO smartnerds
IF colon > 999.5 AND colon < 1199.5 THEN GOTO hackers
IF colon > 1199.5 AND colon < 1499.5 THEN GOTO rocketscientists
IF colon > 1499.5 AND colon < 1699.5 THEN GOTO superhackers
IF colon > 1699.5 AND colon < 2000.5 THEN GOTO nasa
IF colon > 2000.5 THEN GOTO colon
hacking:
dropout:
GOSUB border
IF upload$ = "u" THEN GOTO updropout
IF upload$ = "t" THEN GOTO trashdropout
IF upload$ <> "UT" THEN GOTO dropout
updropout:
IF htrojans < 0 OR htrojans = 0 THEN PRINT "You don't got any": SLEEP 1: GOTO dropout
htrojans = htrojans - 1
chances = INT(RND(1) * (2003 - colon))
IF chances = 2 THEN GOSUB didntfall
IF chances = 2 THEN GOTO dropout
IF hack = 0 THEN boots = 10
IF hack = 1 THEN boots = 25
IF hack = 2 THEN boots = 50
IF hack = 3 THEN boots = 100
IF hack = 4 THEN boots = 200
IF hack = 5 THEN boots = 500
IF hack = 6 THEN boots = 1000
celery = INT(RND(1) * boots)
IF celery > cmegs THEN celery = cmegs
PRINT "He fell for it and you stole "; celery; " megs!"
megs = megs + celery
cmegs = cmegs - celery
IF cmegs = 0 OR cmegs < 0 THEN GOTO hesdead
SLEEP 1
GOTO dropout
trashdropout:
IF intel$ = "yes" THEN chant = 4
IF intel$ = "no" THEN chant = 1
IF computer = 1 THEN xchances = INT(RND(1) * chant * 25) + 1
IF computer = 2 THEN xchances = INT(RND(1) * chant * 50) + 1
IF computer = 3 THEN xchances = INT(RND(1) * chant * 75) + 1
IF computer = 4 THEN xchances = INT(RND(1) * chant * 125) + 1
IF computer = 5 THEN xchances = INT(RND(1) * chant * 200) + 1
IF computer = 6 THEN xchances = INT(RND(1) * chant * 300) + 1
IF computer = 7 THEN xchances = INT(RND(1) * chant * 400) + 1
IF computer = 8 THEN xchances = INT(RND(1) * chant * 500) + 1
IF computer = 9 THEN xchances = INT(RND(1) * chant * 750) + 1
IF computer = 10 THEN xchances = INT(RND(1) * chant * 1000) + 1
IF computer = 11 THEN xchances = INT(RND(1) * chant * 2500) + 1
IF computer = 12 THEN xchances = INT(RND(1) * chant * 5000) + 1
IF cmegs <= 10 AND computer > 4 THEN xchances = cmegs
IF cmegs <= 50 AND computer > 9 THEN xchances = cmegs
zork = computer - ccomputer

IF zork < -8 THEN xchances = 0
IF zork < -6 THEN xchances = INT(xchances / 3)
IF zork < -4 THEN xchances = INT(xchances / 2)
IF zork < -2 THEN xchances = INT(xchances / 1.5)
IF zork <= -1 THEN xchances = INT(xchances / 1.1)
IF zork = 0 THEN xchances = xchances
IF zork >= 1 THEN xchances = INT(xchances * 1.1): IF xchances > cmegs THEN xchances = cmegs
IF zork > 2 THEN xchances = INT(xchances * 1.5): IF xchances > cmegs THEN xchances = cmegs
IF zork > 4 THEN xchances = xchances * 2: IF xchances > cmegs THEN xchances = cmegs
IF zork > 6 THEN xchances = xchances * 3: IF xchances > cmegs THEN xchances = cmegs
IF zork > 8 THEN xchances = cmegs
IF xchances > cmegs THEN GOTO trashdropout
PRINT "You Trashed "; xchances; " megs": megs = megs + xchances: cmegs = cmegs - xchances: SLEEP 1:
IF xchances = 0 THEN PRINT "They've got too good of a computer for you!"
IF cmegs < 0 OR cmegs = 0 THEN GOTO hesdead
ctrash = INT(RND(1) * 5)
IF ctrash = 0 THEN GOTO dropout
heydude:
chalk = INT(RND(1) * cmegs + 5)
IF colon > 49.5 THEN chalk = INT(RND(1) * cmegs + 40) + 10
IF colon > 499.5 THEN chalk = INT(RND(1) * cmegs + 55) + 20
IF colon > 699.5 THEN chalk = INT(RND(1) * cmegs + 70) + 30
IF colon > 899.5 THEN chalk = INT(RND(1) * cmegs + 110) + 40
IF colon > 999.5 THEN chalk = INT(RND(1) * cmegs + 150) + 50
IF colon > 1199.5 THEN chalk = INT(RND(1) * cmegs + 200) + 100
IF colon > 1499.5 THEN chalk = INT(RND(1) * cmegs + 225) + 125
IF colon > 1699.5 THEN chalk = INT(RND(1) * cmegs + 300) + 200
IF chalk > megs THEN GOTO heydude
PRINT "He stole "; chalk; " megs": SLEEP 2
megs = megs - chalk
cmegs = cmegs + chalk
IF megs < 0 OR megs = 0 THEN PRINT "You don't have anymore megs": SLEEP 3: GOTO imdead
GOTO dropout

dumbnerds:
ccomputer$ = "Apple Ie"
ccomputer = 1
cmegs = colon * 5
IF colon < 29.5 THEN cintel$ = "no"
IF colon > 29.5 THEN cintel$ = "yes"
GOTO hacking

dropouts:
ccomputer$ = "Apple IIe"
ccomputer = 2
cmegs = colon * 5
IF colon < 99.5 THEN cintel$ = "no"
IF colon > 99.5 THEN cintel$ = "yes"
GOTO hacking

averagepeople:
ccomputer$ = "Macintosh"
ccomputer = 3
cmegs = colon * 5
IF colon < 399.5 THEN cintel$ = "no"
IF colon > 399.5 THEN cintel$ = "yes"
GOTO hacking

smallbusiness:
ccomputer$ = "Stupid Computer"
ccomputer = 4
cmegs = colon * 5
IF colon < 599.5 THEN cintel$ = "no"
IF colon > 599.5 THEN cintel$ = "yes"
GOTO hacking

largebusiness:
ccomputer$ = "IBM 286"
ccomputer = 5
cmegs = colon * 5
IF colon < 799.5 THEN cintel$ = "no"
IF colon > 799.5 THEN cintel$ = "yes"
GOTO hacking

smartnerds:
ccomputer$ = "IBM 386"
ccomputer = 6
cmegs = colon * 5
IF colon < 959.5 THEN cintel$ = "no"
IF colon > 959.5 THEN cintel$ = "yes"
GOTO hacking

hackers:
ccomputer$ = "IBM 486"
ccomputer = 7
cmegs = colon * 5
IF colon < 1099.5 THEN cintel$ = "no"
IF colon > 1099.5 THEN cintel$ = "yes"
GOTO hacking

rocketscientists:
ccomputer$ = "Pentium"
ccomputer = 8
cmegs = colon * 5
cintel$ = "yes"
GOTO hacking

superhackers:
ccomputer$ = "Pentium2000"
ccomputer = 9
cmegs = colon * 5
cintel$ = "yes"
GOTO hacking

nasa:
ccomputer$ = "Super Pentuim5000"
ccomputer = 10
cmegs = colon * 5
cintel$ = "yes"
GOTO hacking

hackersback:
IF hbackups = 0 THEN PRINT "You don't have any left": SLEEP 1:  GOTO border
IF backup = 1 THEN hackback = 5
IF backup = 2 THEN hackback = 7
IF backup = 3 THEN hackback = 10
IF backup = 4 THEN hackback = 20
IF backup = 5 THEN hackback = 30
IF backup = 6 THEN hackback = 40
IF backup = 7 THEN hackback = 70
backmegsup = INT(RND(1) * 11) * hackback
megs = megs + backmegsup
hbackups = hbackups - 1
PRINT "You got "; backmegsup; " more megs!": SLEEP 2
RETURN
didntfall:
PRINT "He didnt fall for it!": SLEEP 2:
htrojan = htrojan - 1
RETURN
hesdead:
carrots = colon * 500
IF cmegs < 0 OR cmegs = 0 THEN PRINT "He's dead and he had $"; carrots; " in his account!": cash = cash + carrots
IF colon = 2000 THEN GOTO finishedit
GOTO hack
imdead:
CLS
COLOR 13
PRINT "You don't got no more megs loser...so I guess you lose!   "
PRINT "Hah-Hah-Hah.  I'm smarter then you, you, you, STUPID HUMAN!!!!!!!"
PRINT "Now thy game hast been lost."
INPUT "Try again later", ans$
END
hesexiting:
chalk = INT(RND(1) * cmegs + 5)
IF colon > 49.5 THEN chalk = INT(RND(1) * cmegs + 40) + 10
IF colon > 499.5 THEN chalk = INT(RND(1) * cmegs + 55) + 20
IF colon > 699.5 THEN chalk = INT(RND(1) * cmegs + 70) + 30
IF colon > 899.5 THEN chalk = INT(RND(1) * cmegs + 110) + 40
IF colon > 999.5 THEN chalk = INT(RND(1) * cmegs + 150) + 50
IF colon > 1199.5 THEN chalk = INT(RND(1) * cmegs + 200) + 100
IF colon > 1499.5 THEN chalk = INT(RND(1) * cmegs + 225) + 125
IF colon > 1699.5 THEN chalk = INT(RND(1) * cmegs + 300) + 200
PRINT "He stole "; chalk; " megs": SLEEP 1:
megs = megs - chalk
cmegs = cmegs + chalk
IF megs < 0 OR megs = 0 THEN PRINT "You don't have anymore megs": SLEEP 3: GOTO imdead
GOTO hack
finishedit:
CLS
PRINT "You have actually finished HACKer"
PRINT "I don't know of anyone who has finished except me!"
SLEEP 1
PRINT "GOOD JOB!"
SLEEP 1
PRINT "Hey, I'll tell you something really fun to do at anywhere that has computers"
PRINT "on sale!  Ok, simply find an IBM (or compatible) and enter QBASIC."
PRINT "Usually they'll be in windows, so just exit that (unless they have an"
PRINT "icon called QBASIC) and type QBASIC (if it has the icon, just double-click."
PRINT "on the icon) and type this."
PRINT : PRINT
PRINT "         sleep 180"
PRINT "         1'"
PRINT "         sound 2500,28500"
PRINT "         goto 1"
PRINT : PRINT
PRINT "This will give you 3 minutes to get the hell out of there before a "
PRINT "really iritating noise goes off."
PRINT "HAVE FUN!  HAPPY ANARCHING!"