Created
February 14, 2014 00:28
-
-
Save samm81/8986955 to your computer and use it in GitHub Desktop.
Surviving 8th Grade
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
| !Sam Maynard | |
| !Comp Sci Final Project | |
| !Period 1 | |
| !Wu | |
| RANDOMIZE | |
| !###################INTRODUCTION AND SETUP######################### | |
| PRINT "Welcome to Surviving 8th Grade" | |
| PAUSE 1 | |
| PRINT "Try to survive the entire school year, while getting the highest stats possible!" | |
| PRINT "If you don't die or fail, than you will be presented with an ending based on your stats." | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| CLEAR | |
| INPUT prompt "Please enter your player's name : " : name$ | |
| LET name$[1:1] = ucase$(name$[1:1]) | |
| PRINT "Hello " ; name$ | |
| PAUSE 1 | |
| PRINT "You have 3 classes to choose from." | |
| PRINT "The Nerd: Smart, but not strong or social." | |
| PRINT "The Social: Talkative and funny, but neither strong nor smart." | |
| PRINT "The Jock: Strong, but rather dumb and soft-spoken." | |
| DO | |
| LET loop = 0 | |
| INPUT Prompt "Which class would you like to be (N/S/J) ? " : class$ | |
| LET class$ = lcase$(class$) | |
| IF class$ = "ninja" then | |
| LET class$ = "ninja" | |
| LET smarts = 100 | |
| LET talks = 100 | |
| LET phys = 100 | |
| ELSEIF class$[1:1] = "n" then | |
| LET class$ = "nerd" | |
| LET smarts = 85 | |
| LET talks = 70 | |
| LET phys = 70 | |
| ELSEIF class$[1:1] = "s" then | |
| LET class$ = "social" | |
| LET smarts = 70 | |
| LET talks = 85 | |
| LET phys = 70 | |
| ELSEIF class$[1:1] = "j" then | |
| LET class$ = "jock" | |
| LET smarts = 70 | |
| LET talks = 70 | |
| LET phys = 85 | |
| ELSEIF class$ = "dinosaur" then | |
| LET class$ = "dinosaur" | |
| LET smarts = 55 | |
| LET talks = 55 | |
| LET phys = 200 | |
| ELSEIF class$ = "stephen hawking" then | |
| LET class$ = "stephen hawking" | |
| LET smarts = 200 | |
| LET talks = 55 | |
| LET phys = 55 | |
| ELSE | |
| PRINT "Please enter one of the selections" | |
| LET loop = 1 | |
| END IF | |
| LOOP until loop <> 1 | |
| PRINT "Hello " ; name$ ; " the " ; class$ ; "." | |
| PRINT "Ready?" | |
| PAUSE .7 | |
| PRINT "Let's begin." | |
| PAUSE 1 | |
| LET dayN$ = "Monday, " | |
| LET month$ = "September " | |
| LET day = 1 | |
| LET suffix$ = "st" | |
| LET lucks = int (rnd * 100) | |
| LET grade = 0 | |
| LET rep = 0 | |
| LET pop = 0 | |
| !############################GAME########################## | |
| DO | |
| CLEAR | |
| IF name$ = "Sam" then | |
| LET talks = talks + 2 | |
| LET smarts = smarts + 2 | |
| LET phys = phys + 2 | |
| LET lucks = lucks + 2 | |
| END IF | |
| LET dat$ = dayN$ & month$ & str$(day) & suffix$ | |
| SET TEXT justify "right","base" | |
| PLOT TEXT, AT .93,.97 : ucase$(name$) & " THE " & ucase$(class$) | |
| PLOT TEXT, AT .96,.93 : dat$ | |
| PLOT TEXT, AT .97,.90 : "Intelligence: " & str$(smarts) | |
| PLOT TEXT, AT .97,.87 : "Social: " & str$(talks) | |
| PLOT TEXT, AT .97,.84 : "Strength: " & str$(phys) | |
| PLOT TEXT, AT .97,.81 : "Luck: " & str$(lucks) | |
| IF grade <> 0 then | |
| PLOT TEXT, AT .96,.75 : "GRADE: " & str$(grade) | |
| ELSE | |
| PLOT TEXT, AT .96,.75 : "GRADE: " & "-" | |
| END IF | |
| IF rep <> 0 then | |
| PLOT TEXT, AT .96,.70 : "REPUTATION: " & str$(rep) | |
| ELSE | |
| PLOT TEXT, AT .96,.70 : "REPUTATION: " & "-" | |
| END IF | |
| IF pop <> 0 then | |
| PLOT TEXT, AT .96,.65 : "POPULARITY: " & str$(pop) | |
| ELSE | |
| PLOT TEXT, AT .96,.65 : "POPULARITY: " & "-" | |
| END IF | |
| IF dayN$ = "Saturday, " or dayN$ = "Sunday, " then | |
| LET weekend = 1 | |
| ELSE | |
| LET weekend = 0 | |
| END IF | |
| IF class$ = "nerd" then | |
| IF talks > smarts then | |
| PRINT "Because your social is greater than your intelligence, you have" | |
| PRINT "become a Social, and your other stats will decrese by 5." | |
| LET smarts = smarts - 5 | |
| LET phys = phys - 5 | |
| LET class$ = "social" | |
| GET KEY k | |
| ELSEIF phys > smarts then | |
| PRINT "Because your physical is greater than your intelligence, you have" | |
| PRINT "become a Jock, and your other stats will decrese by 5." | |
| LET smarts = smarts - 5 | |
| LET talks = talks - 5 | |
| GET KEY k | |
| LET class$ = "jock" | |
| END IF | |
| ELSEIF class$ = "social" then | |
| IF smarts > talks then | |
| PRINT "Because your intelligence is greater than your social, you have" | |
| PRINT "become a Nerd, and your other stats will decrese by 5." | |
| LET talks = talks - 5 | |
| LET phys = phys - 5 | |
| GET KEY k | |
| LET class$ = "nerd" | |
| ELSEIF phys > talks then | |
| PRINT "Because your physical is greater than your social, you have" | |
| PRINT "become a Jock, and your other stats will decrese by 5." | |
| LET smarts = smarts - 5 | |
| LET talks = talks - 5 | |
| GET KEY k | |
| LET class$ = "jock" | |
| END IF | |
| ELSEIF class$ = "jock" then | |
| IF smarts > phys then | |
| PRINT "Because your intelligence is greater than your strength, you have" | |
| PRINT "become a Nerd, and your other stats will decrese by 5." | |
| LET talks = talks - 5 | |
| LET phys = phys - 5 | |
| GET KEY k | |
| LET class$ = "nerd" | |
| ELSEIF talks > phys then | |
| PRINT "Because your social is greater than your strength, you have" | |
| PRINT "become a Social, and your other stats will decrese by 5." | |
| LET smarts = smarts - 5 | |
| LET phys = phys - 5 | |
| GET KEY k | |
| LET class$ = "social" | |
| END IF | |
| END IF | |
| IF month$ = "September " and day = 1 then | |
| PRINT "In the upper right hand corner is your name and class." | |
| PRINT "Below that, is the in-game date, which is currently the first day of school." | |
| PRINT "When it reaches June 15th, the game ends." | |
| PRINT "Your stats affect everything that happens in the game, including your" | |
| PRINT "Grade, Popularity, and Reputation scores." | |
| PRINT "These three things will affect the outcome at the end of the game. The higher your stats," | |
| PRINT "the better you will do during events, and the higher your scores will go!" | |
| PRINT "During the game, you will be presented with information about what is going on," | |
| PRINT "as well as situations and options for the situation. Good Luck!" | |
| PRINT "To continue press any key..." | |
| GET KEY k | |
| ELSEIF month$ = "June " and day = 15 then | |
| IF grade > 59 then | |
| PRINT "You have survived 8th grade!" | |
| CALL End | |
| PRINT "To continue press any key..." | |
| LET end = 1 | |
| GET KEY k | |
| ELSE | |
| CLEAR | |
| PRINT "Because your grade was an E average, you were held back." | |
| PRINT "I am sorry, but you have not survived 8th grade." | |
| PRINT "GAME OVER" | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| LET end = 1 | |
| END IF | |
| ELSEIF smarts < 50 then | |
| CLEAR | |
| PRINT "Because your intelligence sunk so low, you have brain damage." | |
| PRINT "You were pulled out of 8th grade, and put in the Special Education department." | |
| PRINT "I am sorry, but you have not survived 8th grade." | |
| PRINT "GAME OVER" | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| LET end = 1 | |
| ELSEIF talks < 50 then | |
| CLEAR | |
| PRINT "Because your social sunk so low, you became an outcast of society and grew depressed." | |
| PRINT "You committed suicide." | |
| PRINT "I am sorry, but you have not survived 8th grade." | |
| PRINT "GAME OVER" | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| LET end = 1 | |
| ELSEIF phys < 50 then | |
| CLEAR | |
| PRINT "Because your strength sunk so low, you injured yourself and went to the hospital." | |
| PRINT "You died at the hospital." | |
| PRINT "I am sorry, but you have not survived 8th grade." | |
| PRINT "GAME OVER" | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| LET end = 1 | |
| ELSEIF lucks < 0 then | |
| CLEAR | |
| PRINT "Because your luck sunk so low, you got hit by a bus." | |
| PRINT "I am sorry, but you have not survived 8th grade." | |
| PRINT "GAME OVER" | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| LET end = 1 | |
| ELSE | |
| CALL rndEvent | |
| END IF | |
| IF suffix$ = "st" then | |
| LET suffix$ = "nd" | |
| ELSEIF suffix$ = "nd" then | |
| LET suffix$ = "rd" | |
| ELSEIF suffix$ = "rd" then | |
| LET suffix$ = "th" | |
| ELSEIF day = 20 then | |
| LET suffix$ = "st" | |
| ELSEIF day = 31 then | |
| LET day = 0 | |
| LET suffix$ = "st" | |
| IF month$ = "September " then | |
| LET month$ = "October " | |
| ELSEIF month$ = "October " then | |
| LET month$ = "November " | |
| ELSEIF month$ = "November " then | |
| LET month$ = "December " | |
| ELSEIF month$ = "December " then | |
| LET month$ = "January " | |
| ELSEIF month$ = "January " then | |
| LET month$ = "February " | |
| ELSEIF month$ = "February " then | |
| LET month$ = "March " | |
| ELSEIF month$ = "March " then | |
| LET month$ = "April " | |
| ELSEIF month$ = "April " then | |
| LET month$ = "May " | |
| ELSEIF month$ = "May " then | |
| LET month$ = "June " | |
| END IF | |
| END IF | |
| LET day = day + 1 | |
| IF dayN$ = "Monday, " then | |
| LET dayN$ = "Tuesday, " | |
| ELSEIF dayN$ = "Tuesday, " then | |
| LET dayN$ = "Wednesday, " | |
| ELSEIF dayN$ = "Wednesday, " then | |
| LET dayN$ = "Thursday, " | |
| ELSEIF dayN$ = "Thursday, " then | |
| LET dayN$ = "Friday, " | |
| ELSEIF dayN$ = "Friday, " then | |
| LET dayN$ = "Saturday, " | |
| ELSEIF dayN$ = "Saturday, " then | |
| LET dayN$ = "Sunday, " | |
| ELSEIF dayN$ = "Sunday, " then | |
| LET dayN$ = "Monday, " | |
| END IF | |
| PAUSE .15 | |
| LOOP until end = 1 | |
| CLEAR | |
| PRINT "Thank you for playing Surviving 8th Grade" | |
| PRINT "Created by: Samuel Maynard" | |
| GET KEY k | |
| !#########################RANDOM EVENT SUB############################ | |
| SUB rndEvent | |
| LET event = int(rnd * 100) + 1 | |
| IF event = 1 or event = 7 or event = 14 and weekend = 0 then | |
| PRINT "Pop Quiz!" | |
| LET quiz = smarts + int(rnd * 20 - 10) + int(lucks / (rnd * 5 + 7)) | |
| IF quiz > 100 then | |
| LET quiz = 100 | |
| END IF | |
| LET numQuizes = numQuizes + 1 | |
| LET grade = grade + round((quiz - grade) / numQuizes) | |
| LET inc = int(quiz / 20 + (rnd * 3 - 2)) | |
| LET goodBad = int(rnd * 4) + 1 | |
| IF goodBad <> 3 then | |
| PRINT "You got a " ; quiz ; "% on the quiz." | |
| PRINT "Your Intelligence has changed by " ; inc | |
| PRINT "Your Grade is now " ; grade | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSE | |
| LET inc = int(rnd * 5) - 5 | |
| LET grade = grade - int(rnd * 3) - 4 | |
| PRINT "You botched a question really badly on a the quiz!" | |
| PRINT "Your Intelligence has changed by " ; inc | |
| PRINT "Your Grade is now " ; grade | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| LET smarts = smarts + inc | |
| ELSEIF event = 2 or event = 8 or event = 16 or event = 17 then | |
| PRINT "Fistfight!" | |
| LET fight = phys + int(rnd * 20 - 10) + int(lucks / (rnd * 5 + 7)) | |
| IF fight > 100 then | |
| LET fight = 100 | |
| END IF | |
| LET numFights = numFights + 1 | |
| LET rep = rep + round((fight - rep) / numFights) | |
| LET inc = int(fight / 20 + (rnd * 3 - 2)) | |
| LET goodBad = int(rnd * 4) + 1 | |
| IF goodBad <> 3 then | |
| IF fight > 80 then | |
| PRINT "You won the fight!" | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Reputation is now " ; rep | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSE | |
| PRINT "You lost the fight." | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Reputation is now " ; rep | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSE | |
| LET inc = int(rnd * 5) - 5 | |
| LET rep = rep - int(rnd * 3) - 4 | |
| PRINT "You hurt yourself in the fight!" | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Reputation is now " ; rep | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| LET phys = phys + inc | |
| ELSEIF event = 3 or event = 9 or event = 18 or event = 19 then | |
| PRINT "Party!" | |
| LET gath = talks + int(rnd * 20 - 10) + int(lucks / (rnd * 5 + 7)) | |
| IF gath > 100 then | |
| LET gath = 100 | |
| END IF | |
| LET numGaths = numGaths + 1 | |
| LET pop = pop + round((gath - pop) / numGaths) | |
| LET inc = int(gath / 20 + (rnd * 3 - 2)) | |
| LET goodBad = int(rnd * 4) + 1 | |
| IF goodBad <> 3 then | |
| IF gath > 90 then | |
| PRINT "You WERE the conversation!" | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Your Popularity is now " ; pop | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF gath > 80 then | |
| PRINT "You were a part of the conversation." | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Your Popularity is now " ; pop | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSE | |
| PRINT "You were ignored." | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Your Popularity is now " ; pop | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSE | |
| LET inc = int(rnd * 5) - 5 | |
| LET pop = pop - int(rnd * 3) - 4 | |
| PRINT "You made a fool of yourself at the party!" | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Your Popularity is now " ; pop | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| LET talks = talks + inc | |
| ELSEIF event = 4 or event = 5 or event = 6 or event = 10 or event = 20 or event = 21 or event = 22 or event = 23 or event = 28 or event = 29 then | |
| PRINT "You have some free time on your hands! What would you like to do?" | |
| PRINT "1. Study" | |
| PRINT "2. Call friends" | |
| PRINT "3. Go to the gym" | |
| PRINT "4. Be Lazy" | |
| INPUT Prompt "(1/2/3/4) ? " : choice | |
| DO until choice = 1 or choice = 2 or choice = 3 or choice = 4 or choice = 42 | |
| PRINT "Please choose one of the options" | |
| INPUT Prompt "(1/2/3/4) ? " : choice | |
| LOOP | |
| LET inc = int(rnd * 4 + 1) | |
| IF choice = 2 then | |
| LET goodBad = int(rnd * 8 + 1) | |
| IF goodBad <> 3 then | |
| PRINT "You spend your free time chatting with friends" | |
| PRINT "Your Social has increased by " ; inc | |
| PRINT "Press any key to continue..." | |
| LET talks = talks + inc | |
| GET KEY k | |
| ELSE | |
| LET inc = int(rnd * 5) - 10 | |
| PRINT "You spend your free time talking with friends" | |
| PRINT "However, you accidentally blurt out a hurtful comment!" | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Press any key to continue..." | |
| LET talks = talks + inc | |
| GET KEY k | |
| END IF | |
| ELSEIF choice = 3 then | |
| LET goodBad = int(rnd * 8 + 1) | |
| IF goodBad <> 3 then | |
| PRINT "You spend your free time working out at the gym" | |
| PRINT "Your Strength has increased by " ; inc | |
| PRINT "Press any key to continue..." | |
| LET phys = phys + inc | |
| GET KEY k | |
| ELSE | |
| LET inc = int(rnd * 5) - 10 | |
| PRINT "You spend your free time working out at the gym" | |
| PRINT "However, you accidentally hurt yourself!" | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Press any key to continue..." | |
| LET phys = phys + inc | |
| GET KEY k | |
| END IF | |
| ELSEIF choice = 1 then | |
| LET goodBad = int(rnd * 8 + 1) | |
| IF goodBad <> 3 then | |
| PRINT "You spend your free time studying" | |
| PRINT "Your Intelligence has increased by " ; inc | |
| PRINT "Press any key to continue..." | |
| LET smarts = smarts + inc | |
| GET KEY k | |
| ELSE | |
| LET inc = int(rnd * 5) - 10 | |
| PRINT "You spend your free time studying" | |
| PRINT "However, you accidentally study incorrect notes!" | |
| PRINT "Your Intelligence has changed by " ; inc | |
| PRINT "Press any key to continue..." | |
| LET smarts = smarts + inc | |
| GET KEY k | |
| END IF | |
| ELSEIF choice = 4 then | |
| PRINT "You spend your free time lounging around and being lazy." | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF choice = 42 then | |
| LET lucks = lucks + 50 | |
| PRINT "You spend your free time practicing rituals to make yourself luckier." | |
| PRINT "Your luck has increased by 50" | |
| PRINT "Your luck is now " ; lucks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSEIF event = 11 then | |
| LET inc = int(rnd * 5) - 5 | |
| LET smarts = smarts + inc | |
| PRINT "While walking home, you smack into a pole" | |
| PRINT "Your Intelligence has changed by " ; inc | |
| PRINT "Your Intelligence is now: " ; smarts | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 15 then | |
| LET inc = int(rnd * 5) - 5 | |
| LET phys = phys + inc | |
| PRINT "While running in gym class, you tore a muscle." | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Strength is now: " ; phys | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 24 then | |
| LET inc = int(rnd * 5) - 5 | |
| LET talks = talks + inc | |
| PRINT "While joking around with friends, you made a pun." | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Your Social is now: " ; talks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 25 then | |
| LET inc = int(rnd * 5) + 1 | |
| LET smarts = smarts + inc | |
| PRINT "During class, one of your friends explains a complicated idea to you." | |
| PRINT "Your Intelligence has increased by " ; inc | |
| PRINT "Your Intelligence is now: " ; smarts | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 26 then | |
| LET inc = int(rnd * 5) + 1 | |
| LET phys = phys + inc | |
| PRINT "You feel buffer after lifting weights in gym class." | |
| PRINT "Your Strength has increased by " ; inc | |
| PRINT "Your Strength is now: " ; phys | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 27 then | |
| LET inc = int(rnd * 5) + 1 | |
| LET talks = talks + inc | |
| PRINT "While joking around with friends, you made a very good joke." | |
| PRINT "Your Social has increased by " ; inc | |
| PRINT "Your Social is now: " ; talks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 12 then | |
| LET inc = int(rnd * 21) + 1 | |
| LET lucks = lucks + inc | |
| PRINT "While changing classes, you find a 20$ bill on the ground." | |
| PRINT "Your luck has increased by " ; inc | |
| PRINT "Your luck is now: " ; lucks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 13 then | |
| LET inc = int(rnd * 20) - 20 | |
| LET lucks = lucks + inc | |
| PRINT "After school, you realize that the 20$ bill in your pocket has fallen out!" | |
| PRINT "Your luck has changed by " ; inc | |
| PRINT "Your luck is now: " ; lucks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSEIF event = 30 then | |
| LET catch = int(rnd * 3) | |
| LET inc = int(rnd * 5) + 1 | |
| PRINT "Someone asks you to pass a note during class. What do you do?" | |
| PRINT "1. Pass Note" | |
| PRINT "2. Don't Pass Note" | |
| INPUT Prompt "(1/2) ? " : choice | |
| DO until choice = 1 or choice = 2 | |
| PRINT "Please choose one of the options" | |
| INPUT Prompt "(1/2) ? " : choice | |
| LOOP | |
| IF choice = 1 then | |
| IF catch = 1 then | |
| LET inc = inc * (-1) | |
| LET talks = talks - inc | |
| LET grade = grade - int(rnd * 3) | |
| PRINT "You attempt to pass the note, but the teacher catches you and you have to read the note aloud!" | |
| PRINT "Your Social has changed by " ; inc | |
| PRINT "Your Social is now: " ; talks | |
| PRINT "Your Grade is now " ; grade | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSE | |
| LET talks = talks + inc | |
| PRINT "You pass the note successfully." | |
| PRINT "Your Social has increased by " ; inc | |
| PRINT "Your Social is now: " ; talks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSE | |
| LET talks = talks -1 | |
| PRINT "You decide not to pass the note." | |
| PRINT "Your Social has changed by -1" | |
| PRINT "Your Social is now: " ; talks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSEIF event = 31 then | |
| LET inc = int(rnd * 5) + 1 | |
| PRINT "Someone is bullying your friend around! What do you do?" | |
| PRINT "1. Confront the Bully" | |
| PRINT "2. Ignore it" | |
| INPUT Prompt "(1/2) ? " : choice | |
| DO until choice = 1 or choice = 2 | |
| PRINT "Please choose one of the options" | |
| INPUT Prompt "(1/2) ? " : choice | |
| LOOP | |
| IF choice = 1 then | |
| PRINT "You get into a fight with the bully!" | |
| LET fight = phys + int(rnd * 20 - 10) + int(lucks / (rnd * 5 + 7)) | |
| IF fight > 100 then | |
| LET fight = 100 | |
| END IF | |
| LET numFights = numFights + 1 | |
| LET rep = rep + round((fight - rep) / numFights) | |
| LET pop = pop + 5 | |
| LET inc = int(fight / 20 + (rnd * 3 - 2)) | |
| LET SocInc = int(rnd * 5) | |
| LET goodBad = int(rnd * 4) + 1 | |
| IF goodBad <> 3 then | |
| IF fight > 80 then | |
| PRINT "You won the fight!" | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Social has changed by " ; SocInc | |
| PRINT "Your Reputation is now " ; rep | |
| PRINT "Your Popularity is now " ; pop | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSE | |
| PRINT "You lost the fight." | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Social has increased by " ; inc | |
| PRINT "Your Reputation is now " ; rep | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSE | |
| LET inc = int(rnd * 5) - 5 | |
| LET rep = rep - int(rnd * 3) - 4 | |
| PRINT "You hurt yourself in the fight!" | |
| PRINT "Your Strength has changed by " ; inc | |
| PRINT "Your Reputation is now " ; rep | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| LET phys = phys + inc | |
| ELSE | |
| LET talks = talks - 3 | |
| PRINT "You ignore the bully." | |
| PRINT "Your Social has changed by -3" | |
| PRINT "Your Social is now: " ; talks | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSEIF event = 33 then | |
| LET catch = int(rnd * 2) | |
| LET inc = int(rnd * 5) + 1 | |
| PRINT "You find a cheat sheet for the quiz you are taking today on the ground. What do you do?" | |
| PRINT "1. Use the Cheat Sheet" | |
| PRINT "2. Don't use the Cheat Sheet" | |
| INPUT Prompt "(1/2) ? " : choice | |
| DO until choice = 1 or choice = 2 | |
| PRINT "Please choose one of the options" | |
| INPUT Prompt "(1/2) ? " : choice | |
| LOOP | |
| IF choice = 1 then | |
| IF catch = 1 then | |
| LET numQuizes = numQuizes + 1 | |
| LET grade = grade + round((0 - grade) / numQuizes) | |
| PRINT "You attempt to use the cheat sheet, but the teacher catches you and you fail the quiz!" | |
| PRINT "Your Grade is now " ; grade | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| ELSE | |
| LET numQuizes = numQuizes + 1 | |
| LET grade = grade + round((100 - grade) / numQuizes) | |
| PRINT "You use the cheat sheet and ace the quiz!" | |
| PRINT "Your Grade is now " ; grade | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| ELSE | |
| LET quiz = smarts + int(rnd * 20 - 10) + int(lucks / (rnd * 5 + 7)) | |
| IF quiz > 100 then | |
| LET quiz = 100 | |
| END IF | |
| LET numQuizes = numQuizes + 1 | |
| LET grade = grade + round((quiz - grade) / numQuizes) | |
| LET inc = int(quiz / 100 + (rnd * 3 - 2)) | |
| LET smarts = smarts + inc | |
| PRINT "You decide not to use the cheat sheet." | |
| PRINT "You get a " ; quiz ; " on the quiz." | |
| PRINT "Your Intelligence has changed by " ; inc | |
| PRINT "Your Grade is now: " ; grade | |
| PRINT "Press any key to continue..." | |
| GET KEY k | |
| END IF | |
| END IF | |
| !=>33 | |
| END SUB | |
| !#################################END GAME############################################################################# | |
| SUB End | |
| PRINT "Your Intellignece was: " ;smarts | |
| PRINT "Your Social was: " ; talks | |
| PRINT "Your Strength was: " ; phys | |
| PRINT "Your Grade was: " ; grade | |
| PRINT "Your Popularity was: " ; pop | |
| PRINT "Your Reputation was: " ; rep | |
| IF pop >= 85 then | |
| IF rep >= 85 then | |
| IF grade >= 90 then | |
| PRINT "You ended the school year with an A average." | |
| PRINT "You were accepted into the best High School in the district." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade with flying colors!" | |
| PRINT "Therefore, you get special access to the cheat codes:" | |
| PRINT "- If you enter 'ninja' for class, than you get all 100 stats to start with. (Besides Luck.)" | |
| PRINT "- If you enter 'dinosaur' for class, than you get all 200 strength, 55 social, and 55 intelligence." | |
| PRINT "- If you enter 'stephen hawking' for class, than you get all 200 intelligence, 55 social, and 55 strength." | |
| PRINT "- If you enter '42' on free time, you perform rituals that increase your luck." | |
| PRINT "- If you enter 'Sam' for name, than every day 2 is added to each of your stats." | |
| END IF | |
| IF grade >= 80 and grade < 90 then | |
| PRINT "You ended the school year with an B average." | |
| PRINT "You were accepted into the 2nd best High School in the district." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade with great stats!" | |
| END IF | |
| IF grade >= 70 and grade < 80 then | |
| PRINT "You ended the school year with an C average." | |
| PRINT "You were accepted into the 3rd best High School in the district." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade with good stats!" | |
| END IF | |
| IF grade >= 60 and grade < 70 then | |
| PRINT "You ended the school year with an D average." | |
| PRINT "You went to your home high school." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade!" | |
| END IF | |
| END IF | |
| IF rep < 85 then | |
| IF grade > 90 then | |
| PRINT "You ended the school year with an A average." | |
| PRINT "You were accepted into the best High School in the district." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "You, however, were often picked on by bullies." | |
| PRINT "You have passed 8th grade with great stats!" | |
| END IF | |
| IF grade >= 80 and grade < 90 then | |
| PRINT "You ended the school year with an B average." | |
| PRINT "You were accepted into the 2nd best High School in the district." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "You, however, were often picked on by bullies." | |
| PRINT "You have passed 8th grade with somewhat great stats!" | |
| END IF | |
| IF grade >= 70 and grade < 80 then | |
| PRINT "You ended the school year with an C average." | |
| PRINT "You were accepted into the 3rd best High School in the district." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "You, however, were often picked on by bullies." | |
| PRINT "You have passed 8th grade with good stats!" | |
| END IF | |
| IF grade >= 60 and grade < 70 then | |
| PRINT "You ended the school year with an D average." | |
| PRINT "You went to your home high school." | |
| PRINT "You were very friendly and popular, and you had many friends." | |
| PRINT "You, however, were often picked on by bullies." | |
| PRINT "You have passed 8th grade!" | |
| END IF | |
| END IF | |
| ELSE | |
| IF rep >= 85 then | |
| IF grade >= 90 then | |
| PRINT "You ended the school year with an A average." | |
| PRINT "You were accepted into the best High School in the district." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade with great stats!" | |
| END IF | |
| IF grade >= 80 and grade < 90 then | |
| PRINT "You ended the school year with an B average." | |
| PRINT "You were accepted into the 2nd best High School in the district." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade with somewhat great stats!" | |
| END IF | |
| IF grade >= 70 and grade < 80 then | |
| PRINT "You ended the school year with an C average." | |
| PRINT "You were accepted into the 3rd best High School in the district." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade with good stats!" | |
| END IF | |
| IF grade >= 60 and grade < 70 then | |
| PRINT "You ended the school year with an D average." | |
| PRINT "You went to your home high school." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "No one picked on you or your friends." | |
| PRINT "You have passed 8th grade!" | |
| END IF | |
| END IF | |
| IF rep < 85 then | |
| IF grade > 90 then | |
| PRINT "You ended the school year with an A average." | |
| PRINT "You were accepted into the best High School in the district." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "You were often picked on by bullies." | |
| PRINT "You have passed 8th grade with great stats!" | |
| END IF | |
| IF grade >= 80 and grade < 90 then | |
| PRINT "You ended the school year with an B average." | |
| PRINT "You were accepted into the 2nd best High School in the district." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "You were often picked on by bullies." | |
| PRINT "You have passed 8th grade with somewhat great stats!" | |
| END IF | |
| IF grade >= 70 and grade < 80 then | |
| PRINT "You ended the school year with an C average." | |
| PRINT "You were accepted into the 3rd best High School in the district." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "You were often picked on by bullies." | |
| PRINT "You have passed 8th grade with good stats!" | |
| END IF | |
| IF grade >= 60 and grade < 70 then | |
| PRINT "You ended the school year with an D average." | |
| PRINT "You went to your home high school." | |
| PRINT "You were not very friendly or popular, and had a few friends." | |
| PRINT "You were often picked on by bullies." | |
| PRINT "You have barely passed 8th grade." | |
| END IF | |
| END IF | |
| END IF | |
| END SUB | |
| END |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment