Last active
June 24, 2017 01:29
-
-
Save gnilrets/c206986f8a61129e36ba157f300b3a12 to your computer and use it in GitHub Desktop.
Best code ever - ca 1994
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 "sterling.paramore@sharecity.com" | |
| 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!" | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment