I initially created it in Java. Then I made a similar copy in JavaScript (I haven't gotten it working yet). Then I made a similar copy in JustBASIC. Today, I made a copy in Visual Basic.
It is a VERY simple program, but I find the outputs really cool to read - I have a passion for exploration.
Below is the JustBASIC code version of this software. Let me know what you think. I'd like to create a simple GUI form, with a large textarea, one button to run the program and one button to exit the program (with a 'Confirm' feature on each button). Maybe someone in this community would be willing and able to help me to create my first GUI form in BASIC.
Enjoy!
- Machiavvelli3060
Code: Select all
REALITYSECTIONINTRO$ = "REALITY"
REALITYINTRO$ = "Location: "
REALITY = INT(RND(0)*12)
if REALITY = 0 then REALITY$ = "In a little girl's imagination"
if REALITY = 1 then REALITY$ = "In a little boy's imagination"
if REALITY = 2 then REALITY$ = "In an old man's dream"
if REALITY = 3 then REALITY$ = "In an old woman's dream"
if REALITY = 4 then REALITY$ = "In a shared group imagination"
if REALITY = 5 then REALITY$ = "In a shared group dream"
if REALITY = 6 then REALITY$ = "On a film reel in the storage room of an old theater"
if REALITY = 7 then REALITY$ = "In real life as we know it"
if REALITY = 8 then REALITY$ = "In an acrylic painting in a museum"
if REALITY = 9 then REALITY$ = "In a child's watercolor painting in an atttic"
if REALITY = 10 then REALITY$ = "In the steam-covered reflection of a medicine cabinet mirror"
if REALITY = 11 then REALITY$ = "In an oil painting on someone's wall"
GENREINTRO$ = "Genre: "
GENRE = INT(RND(0)*16)
YEAR = INT(RND(0)*40)
IF GENRE = 0 AND YEAR > 27 then GENRE$ = "Science fiction, with hovercars and robots"
IF GENRE = 0 AND YEAR <= 27 then GENRE$ = "Murder Mystery, with suspense and danger lurking around every corner"
IF GENRE = 1 AND YEAR > 26 THEN GENRE$ = "Wild, Wild West, with cowboys and Indians"
IF GENRE = 1 AND YEAR <= 26 THEN GENRE$ = "Teslapunk, a post-Apocalyptic world where electricity dominates"
IF GENRE = 2 AND YEAR > 26 THEN GENRE$ = "Victorian, with mansions, govenesses, romance and dark stormy nights"
IF GENRE = 2 AND YEAR <= 26 THEN GENRE$ = "Fantasy, with warriors, wizards, elves, dwarves and dragons"
IF GENRE = 3 then GENRE$ = "Military, with armed battle heard in the background"
IF GENRE = 4 then GENRE$ = "Manga, or Japanese cartoon drawings"
IF GENRE = 5 AND AGE > 10 then GENRE$ = "Romance Novel, with love scenes and midnight rendezvous"
IF GENRE = 5 AND AGE <= 10 then GENRE$ = "Cartoon World, where no one stays dead & the laws of physics are subjective"
IF GENRE = 6 AND YEAR > 28 THEN GENRE$ = "Space Piracy, swashbuckling spaceship captains"
IF GENRE = 6 AND YEAR <= 28 AND YEAR > 24 THEN GENRE$ = "Caribbean Piracy, with swashbuckling rouges and seafaring sailing ships"
IF GENRE = 6 AND YEAR <= 28 AND YEAR <= 24 THEN GENRE$ = "Biblical, with robed desert-walkers and religious undertones"
IF GENRE = 7 then GENRE$ = "Zombie Apocalypse, with hordes of undead and no government"
IF GENRE = 8 AND YEAR > 26 then GENRE$ = "Comic Book, with flying superheros and super-smart villains"
IF GENRE = 8 AND YEAR <= 26 then GENRE$ = "Children's fable, with witches, dwarves, ogres, trolls & deep forests"
IF GENRE = 9 AND YEAR > 16 THEN GENRE$ = "Arthurian Age, with damsels, knights, jousts and holy quests"
IF GENRE = 9 AND YEAR <= 16 THEN GENRE$ = "Bikini Bottom, with squid, starfish, sponges and crabs as your friends"
IF GENRE = 10 AND YEAR > 27 THEN GENRE$ = "Shadow Run, with hovercars, elves, cybernetics, magic and mega-corporations"
IF GENRE = 10 AND YEAR <= 27 THEN GENRE$ = "Horror, with demons, suspense and possessions"
IF GENRE = 11 then GENRE$ = "Steampunk, a Victorian/Wild West/Post-Apocalyptic world where steam power dominates"
IF GENRE = 12 then GENRE$ = "Imperial Rome, with senatorial politicking and all citizens wear togas"
IF GENRE = 13 AND YEAR > 26 THEN GENRE$ = "Pulp Fiction Detective, with fedoras, trenchcoats, skirts and gams"
IF GENRE = 13 AND TEAR <= 26 THEN GENRE$ = "Gothic, with dark old castles, ghosts and gargoyles"
IF GENRE = 14 THEN GENRE$ = "Action/Adventure, with chases, fight scenes and explosions"
IF GENRE = 15 AND REALITY <= 1 THEN GENRE$ = "World of Magic, with witches and sorcerors everywhere"
IF GENRE = 15 AND REALITY > 1 THEN GENRE$ = "Erotica, with steamy, sweaty love scenes"
DATEINTRO$ = "Date: "
MONTH = INT(RND(0)*12)
IF MONTH = 0 THEN MONTH$ = "February"
IF MONTH = 1 THEN MONTH$ = "April"
IF MONTH = 2 THEN MONTH$ = "June"
IF MONTH = 3 THEN MONTH$ = "September"
IF MONTH = 4 THEN MONTH$ = "November"
IF MONTH = 5 THEN MONTH$ = "January"
IF MONTH = 6 THEN MONTH$ = "March"
IF MONTH = 7 THEN MONTH$ = "May"
IF MONTH = 8 THEN MONTH$ = "July"
IF MONTH = 9 THEN MONTH$ = "August"
IF MONTH = 10 THEN MONTH$ = "October"
IF MONTH = 11 THEN MONTH$ = "December"
DAY = INT(RND(0)*31)
IF DAY = 0 THEN DAY$ = "1"
IF DAY = 1 THEN DAY$ = "2"
IF DAY = 2 THEN DAY$ = "3"
IF DAY = 3 THEN DAY$ = "4"
IF DAY = 4 THEN DAY$ = "5"
IF DAY = 5 THEN DAY$ = "6"
IF DAY = 6 THEN DAY$ = "7"
IF DAY = 7 THEN DAY$ = "8"
IF DAY = 8 THEN DAY$ = "9"
IF DAY = 9 THEN DAY$ = "10"
IF DAY = 10 THEN DAY$ = "11"
IF DAY = 11 THEN DAY$ = "12"
IF DAY = 12 THEN DAY$ = "13"
IF DAY = 13 THEN DAY$ = "14"
IF DAY = 14 THEN DAY$ = "15"
IF DAY = 15 THEN DAY$ = "16"
IF DAY = 16 THEN DAY$ = "17"
IF DAY = 17 THEN DAY$ = "18"
IF DAY = 18 THEN DAY$ = "19"
IF DAY = 19 THEN DAY$ = "20"
IF DAY = 20 THEN DAY$ = "21"
IF DAY = 21 THEN DAY$ = "22"
IF DAY = 22 THEN DAY$ = "23"
IF DAY = 23 THEN DAY$ = "24"
IF DAY = 24 THEN DAY$ = "25"
IF DAY = 25 THEN DAY$ = "26"
IF DAY = 26 THEN DAY$ = "27"
IF DAY = 27 THEN DAY$ = "28"
IF DAY = 28 AND MONTH < 1 THEN DAY$ = "28"
IF DAY = 28 AND MONTH >= 1 THEN DAY$ = "29"
IF DAY = 29 AND MONTH < 1 THEN DAY$ = "28"
IF DAY = 29 AND MONTH >= 1 THEN DAY$ = "30"
IF DAY = 30 AND MONTH < 1 THEN DAY$ = "28"
IF DAY = 30 AND MONTH >= 1 THEN DAY$ = "31"
IF MONTH = 5 AND DAY = 0 THEN HOLIDAY$ = "New Year's Day, "
IF MONTH = 0 AND DAY = 13 THEN HOLIDAY$ = "Valentine's Day, "
IF MONTH = 8 AND DAY = 3 THEN HOLIDAY$ = "U.S. Independence Day, "
IF MONTH = 10 AND DAY = 30 THEN HOLIDAY$ = "Halloween, "
IF MONTH = 11 AND DAY = 24 AND YEAR > 18 THEN HOLIDAY$ = "Christmas, "
IF MONTH = 11 AND DAY = 30 THEN HOLIDAY$ = "New Year's Eve, "
IF YEAR = 0 THEN YEAR$ = "5,000 B.C."
IF YEAR = 1 THEN YEAR$ = "4,500 B.C."
IF YEAR = 2 THEN YEAR$ = "4,250 B.C."
IF YEAR = 3 THEN YEAR$ = "4,000 B.C."
IF YEAR = 4 THEN YEAR$ = "3,750 B.C."
IF YEAR = 5 THEN YEAR$ = "3,500 B.C."
IF YEAR = 6 THEN YEAR$ = "3,250 B.C."
IF YEAR = 7 THEN YEAR$ = "3,000 B.C."
IF YEAR = 8 THEN YEAR$ = "2,750 B.C."
IF YEAR = 9 THEN YEAR$ = "2,500 B.C."
IF YEAR = 10 THEN YEAR$ = "2,250 B.C."
IF YEAR = 11 THEN YEAR$ = "2,000 B.C."
IF YEAR = 12 THEN YEAR$ = "1,750 B.C."
IF YEAR = 13 THEN YEAR$ = "1,500 B.C."
IF YEAR = 14 THEN YEAR$ = "1,250 B.C."
IF YEAR = 15 THEN YEAR$ = "1,000 B.C."
IF YEAR = 16 THEN YEAR$ = "750 B.C."
IF YEAR = 17 THEN YEAR$ = "500 B.C."
IF YEAR = 18 THEN YEAR$ = "250 B.C."
IF YEAR = 19 THEN YEAR$ = "1 A.D."
IF YEAR = 20 THEN YEAR$ = "250 A.D."
IF YEAR = 21 THEN YEAR$ = "500 A.D."
IF YEAR = 22 THEN YEAR$ = "750 A.D."
IF YEAR = 23 THEN YEAR$ = "1,000 A.D."
IF YEAR = 24 THEN YEAR$ = "1,250 A.D."
IF YEAR = 25 THEN YEAR$ = "1,500 A.D."
IF YEAR = 26 THEN YEAR$ = "1,750 A.D."
IF YEAR = 27 THEN YEAR$ = "2,000 A.D."
IF YEAR = 28 THEN YEAR$ = "2,250 A.D."
IF YEAR = 29 THEN YEAR$ = "2,500 A.D."
IF YEAR = 30 THEN YEAR$ = "2,750 A.D."
IF YEAR = 31 THEN YEAR$ = "3,000 A.D."
IF YEAR = 32 THEN YEAR$ = "3,250 A.D."
IF YEAR = 33 THEN YEAR$ = "3,500 A.D."
IF YEAR = 34 THEN YEAR$ = "4,000 A.D."
IF YEAR = 35 THEN YEAR$ = "4,250 A.D."
IF YEAR = 36 THEN YEAR$ = "4,500 A.D."
IF YEAR = 37 THEN YEAR$ = "4,750 A.D."
IF YEAR = 38 THEN YEAR$ = "5,000 A.D."
IF YEAR = 39 THEN YEAR$ = "8,234 A.D."
TIMEINTRO$ = "Time: "
TIME = INT(RND(0)*100)
IF TIME = 0 THEN TIME$ = "Midnight"
IF TIME = 1 THEN TIME$ = "12:15 a.m."
IF TIME = 2 THEN TIME$ = "12:30 a.m."
IF TIME = 3 THEN TIME$ = "12:45 a.m."
IF TIME = 4 THEN TIME$ = "1:00 a.m."
IF TIME = 5 THEN TIME$ = "1:15 a.m."
IF TIME = 6 THEN TIME$ = "1:30 a.m."
IF TIME = 7 THEN TIME$ = "1:45 a.m."
IF TIME = 8 THEN TIME$ = "2:00 a.m."
IF TIME = 9 THEN TIME$ = "2:15 a.m."
IF TIME = 10 THEN TIME$ = "2:30 a.m."
IF TIME = 11 THEN TIME$ = "2:45 a.m."
IF TIME = 12 THEN TIME$ = "3:00 a.m."
IF TIME = 13 THEN TIME$ = "3:15 a.m."
IF TIME = 14 THEN TIME$ = "3:30 a.m."
IF TIME = 15 THEN TIME$ = "3:45 a.m."
IF TIME = 16 THEN TIME$ = "4:00 a.m."
IF TIME = 17 THEN TIME$ = "4:15 a.m."
IF TIME = 18 THEN TIME$ = "4:30 a.m."
IF TIME = 19 THEN TIME$ = "4:45 a.m."
IF TIME = 20 THEN TIME$ = "5:00 a.m."
IF TIME = 21 THEN TIME$ = "5:15 a.m."
IF TIME = 22 THEN TIME$ = "5:30 a.m."
IF TIME = 23 THEN TIME$ = "5:45 a.m."
IF TIME = 24 THEN TIME$ = "6:00 a.m."
IF TIME = 25 THEN TIME$ = "6:15 a.m."
IF TIME = 26 THEN TIME$ = "6:30 a.m."
IF TIME = 27 THEN TIME$ = "6:45 a.m."
IF TIME = 28 THEN TIME$ = "7:00 a.m."
IF TIME = 29 THEN TIME$ = "7:15 a.m."
IF TIME = 30 THEN TIME$ = "7:30 a.m."
IF TIME = 31 THEN TIME$ = "7:45 a.m."
IF TIME = 32 THEN TIME$ = "8:00 a.m."
IF TIME = 33 THEN TIME$ = "8:15 a.m."
IF TIME = 34 THEN TIME$ = "8:30 a.m."
IF TIME = 35 THEN TIME$ = "8:45 a.m."
IF TIME = 36 THEN TIME$ = "9:00 a.m."
IF TIME = 37 THEN TIME$ = "10:00 a.m."
IF TIME = 38 THEN TIME$ = "10:15 a.m."
IF TIME = 39 THEN TIME$ = "10:30 a.m."
IF TIME = 40 THEN TIME$ = "10:45 a.m."
IF TIME = 41 THEN TIME$ = "11:00 a.m."
IF TIME = 42 THEN TIME$ = "11:15 a.m."
IF TIME = 43 THEN TIME$ = "11:30 a.m."
IF TIME = 44 THEN TIME$ = "11:45 a.m."
IF TIME = 45 THEN TIME$ = "Noon"
IF TIME = 46 THEN TIME$ = "12:15 p.m."
IF TIME = 47 THEN TIME$ = "12:30 p.m."
IF TIME = 48 THEN TIME$ = "12:45 p.m."
IF TIME = 49 THEN TIME$ = "1:00 p.m."
IF TIME = 50 THEN TIME$ = "1:15 p.m."
IF TIME = 51 THEN TIME$ = "1:30 p.m."
IF TIME = 52 THEN TIME$ = "1:45 p.m."
IF TIME = 53 THEN TIME$ = "2:00 p.m."
IF TIME = 54 THEN TIME$ = "2:15 p.m."
IF TIME = 55 THEN TIME$ = "2:30 p.m."
IF TIME = 56 THEN TIME$ = "2:45 p.m."
IF TIME = 57 THEN TIME$ = "3:00 p.m."
IF TIME = 58 THEN TIME$ = "3:15 p.m."
IF TIME = 59 THEN TIME$ = "3:30 p.m."
IF TIME = 60 THEN TIME$ = "3:45 p.m."
IF TIME = 61 THEN TIME$ = "4:00 p.m."
IF TIME = 62 THEN TIME$ = "4:15 p.m."
IF TIME = 63 THEN TIME$ = "4:30 p.m."
IF TIME = 64 THEN TIME$ = "4:45 p.m."
IF TIME = 65 THEN TIME$ = "5:00 p.m."
IF TIME = 66 THEN TIME$ = "5:15 p.m."
IF TIME = 67 THEN TIME$ = "5:30 p.m."
IF TIME = 68 THEN TIME$ = "5:45 p.m."
IF TIME = 69 THEN TIME$ = "6:00 p.m."
IF TIME = 70 THEN TIME$ = "6:15 p.m."
IF TIME = 71 THEN TIME$ = "6:30 p.m."
IF TIME = 72 THEN TIME$ = "6:45 p.m."
IF TIME = 73 THEN TIME$ = "7:00 p.m."
IF TIME = 74 THEN TIME$ = "7:15 p.m."
IF TIME = 75 THEN TIME$ = "7:30 p.m."
IF TIME = 76 THEN TIME$ = "7:45 p.m."
IF TIME = 77 THEN TIME$ = "8:00 p.m."
IF TIME = 78 THEN TIME$ = "8:15 p.m."
IF TIME = 79 THEN TIME$ = "8:30 p.m."
IF TIME = 80 THEN TIME$ = "8:45 p.m."
IF TIME = 81 THEN TIME$ = "9:00 p.m."
IF TIME = 82 THEN TIME$ = "9:15 p.m."
IF TIME = 83 THEN TIME$ = "9:30 p.m."
IF TIME = 84 THEN TIME$ = "9:45 p.m."
IF TIME = 85 THEN TIME$ = "10:00 p.m."
IF TIME = 86 THEN TIME$ = "10:15 p.m."
IF TIME = 87 THEN TIME$ = "10:30 p.m."
IF TIME = 88 THEN TIME$ = "10:45 p.m."
IF TIME = 89 THEN TIME$ = "11:00 p.m."
IF TIME = 90 THEN TIME$ = "11:15 p.m."
IF TIME = 91 THEN TIME$ = "11:30 p.m."
IF TIME = 92 THEN TIME$ = "11:45 p.m."
IF TIME = 93 THEN TIME$ = "Midnight"
IF TIME = 94 THEN TIME$ = "Noon"
IF TIME = 95 THEN TIME$ = "10:00 a.m."
IF TIME = 96 THEN TIME$ = "12:15 p.m."
IF TIME = 97 THEN TIME$ = "2:00 p.m."
IF TIME = 98 THEN TIME$ = "4:00 p.m."
IF TIME = 99 THEN TIME$ = "5:00 p.m."
PHYSICALLOCATION = INT(RND(0)*23)
IF PHYSICALLOCATION = 0 AND NATION < 86 THEN PHYSICALLOCATION$ = " in a barn"
IF PHYSICALLOCATION = 0 AND NATION = 86 THEN PHYSICALLOCATION$ = " in a barn on a mountain"
IF PHYSICALLOCATION = 0 AND NATION > 86 THEN PHYSICALLOCATION$ = " in a barn"
IF PHYSICALLOCATION = 1 THEN PHYSICALLOCATION$ = " in a cottage"
IF PHYSICALLOCATION = 2 THEN PHYSICALLOCATION$ = " in a small house"
IF PHYSICALLOCATION = 3 THEN PHYSICALLOCATION$ = " in a mansion"
IF PHYSICALLOCATION = 4 THEN PHYSICALLOCATION$ = " in a field"
IF PHYSICALLOCATION = 5 THEN PHYSICALLOCATION$ = " in an aboveground cave"
IF PHYSICALLOCATION = 6 THEN PHYSICALLOCATION$ = " in a refugee camp"
IF PHYSICALLOCATION = 7 THEN PHYSICALLOCATION$ = " in a mining colony"
IF PHYSICALLOCATION = 8 THEN PHYSICALLOCATION$ = " at a race track"
IF PHYSICALLOCATION = 9 THEN PHYSICALLOCATION$ = " in an open-air market"
IF PHYSICALLOCATION = 10 THEN PHYSICALLOCATION$ = " deep inside a mine"
IF PHYSICALLOCATION = 11 THEN PHYSICALLOCATION$ = " inside an abandoned mine"
IF PHYSICALLOCATION = 12 THEN PHYSICALLOCATION$ = " inside a shopping mall"
IF PHYSICALLOCATION = 13 AND YEAR > 26 THEN PHYSICALLOCATION$ = " inside a factory"
IF PHYSICALLOCATION = 13 AND YEAR <= 26 THEN PHYSICALLOCATION$ = " inside a merchant's shop"
IF PHYSICALLOCATION = 14 THEN PHYSICALLOCATION$ = " in a belowground cave"
IF PHYSICALLOCATION = 15 THEN PHYSICALLOCATION$ = " deep in the woods"
IF PHYSICALLOCATION = 16 AND AGE > 16 THEN PHYSICALLOCATION$ = " in a tavern"
IF PHYSICALLOCATION = 16 AND AGE <= 16 THEN PHYSICALLOCATION$ = " just inside the entrance of a mine"
IF PHYSICALLOCATION = 17 THEN PHYSICALLOCATION$ = " in a church"
IF PHYSICALLOCATION = 18 THEN PHYSICALLOCATION$ = " in a mosque"
IF PHYSICALLOCATION = 19 THEN PHYSICALLOCATION$ = " in a temple"
IF PHYSICALLOCATION = 20 THEN PHYSICALLOCATION$ = " at a sporting arena"
IF PHYSICALLOCATION = 21 THEN PHYSICALLOCATION$ = " in an ashram"
IF PHYSICALLOCATION = 22 THEN PHYSICALLOCATION$ = " in a museum"
NATION = INT(RND(0)*103)
IF NATION = 0 THEN NATION$ = "Rome"
IF NATION = 1 THEN NATION$ = "Afghanistan"
IF NATION = 2 THEN NATION$ = "Albania"
IF NATION = 3 THEN NATION$ = "Algeria"
IF NATION = 4 THEN NATION$ = "Angola"
IF NATION = 5 THEN NATION$ = "Angorra"
IF NATION = 6 THEN NATION$ = "Argentina"
IF NATION = 7 THEN NATION$ = "Australia"
IF NATION = 8 THEN NATION$ = "Austria"
IF NATION = 9 THEN NATION$ = "Bangladesh"
IF NATION = 10 THEN NATION$ = "Belgium"
IF NATION = 11 THEN NATION$ = "Brazil"
IF NATION = 12 THEN NATION$ = "Canada"
IF NATION = 13 THEN NATION$ = "Chad"
IF NATION = 14 THEN NATION$ = "Chile"
IF NATION = 15 THEN NATION$ = "China"
IF NATION = 16 THEN NATION$ = "Columbia"
IF NATION = 17 THEN NATION$ = "Costa Rica"
IF NATION = 18 THEN NATION$ = "Croatia"
IF NATION = 19 THEN NATION$ = "Cuba"
IF NATION = 20 THEN NATION$ = "Denmark"
IF NATION = 21 THEN NATION$ = "the Dominican Republic"
IF NATION = 22 THEN NATION$ = "Ecuador"
IF NATION = 23 THEN NATION$ = "Egypt"
IF NATION = 24 THEN NATION$ = "El Salvador"
IF NATION = 25 THEN NATION$ = "Ethiopia"
IF NATION = 26 THEN NATION$ = "Fiji"
IF NATION = 27 THEN NATION$ = "Finland"
IF NATION = 28 THEN NATION$ = "France"
IF NATION = 29 THEN NATION$ = "Germany"
IF NATION = 30 THEN NATION$ = "Ghana"
IF NATION = 31 THEN NATION$ = "Greece"
IF NATION = 32 THEN NATION$ = "Greenland"
IF NATION = 33 THEN NATION$ = "Guam"
IF NATION = 34 THEN NATION$ = "Guatemala"
IF NATION = 35 THEN NATION$ = "Haiti"
IF NATION = 36 THEN NATION$ = "Honduras"
IF NATION = 37 THEN NATION$ = "Hungary"
IF NATION = 38 THEN NATION$ = "Iceland"
IF NATION = 39 THEN NATION$ = "India"
IF NATION = 40 THEN NATION$ = "Indonesia"
IF NATION = 41 THEN NATION$ = "Iran"
IF NATION = 42 THEN NATION$ = "Iraq"
IF NATION = 43 THEN NATION$ = "Ireland"
IF NATION = 44 THEN NATION$ = "Italy"
IF NATION = 45 THEN NATION$ = "Jamaica"
IF NATION = 46 THEN NATION$ = "Japan"
IF NATION = 47 THEN NATION$ = "Jordan"
IF NATION = 48 THEN NATION$ = "Kenya"
IF NATION = 49 THEN NATION$ = "Korea"
IF NATION = 50 THEN NATION$ = "Laos"
IF NATION = 51 THEN NATION$ = "Latvia"
IF NATION = 52 THEN NATION$ = "Lebanon"
IF NATION = 53 THEN NATION$ = "Libya"
IF NATION = 54 THEN NATION$ = "Lithuania"
IF NATION = 55 THEN NATION$ = "Madagascar"
IF NATION = 56 THEN NATION$ = "Malaysia"
IF NATION = 57 THEN NATION$ = "Mali"
IF NATION = 58 THEN NATION$ = "Mexico"
IF NATION = 59 THEN NATION$ = "Moldova"
IF NATION = 60 THEN NATION$ = "Monaco"
IF NATION = 61 THEN NATION$ = "Mongolia"
IF NATION = 62 THEN NATION$ = "Morocco"
IF NATION = 63 THEN NATION$ = "Nepal"
IF NATION = 64 THEN NATION$ = "the Netherlands"
IF NATION = 65 THEN NATION$ = "New Zealand"
IF NATION = 66 THEN NATION$ = "Nicaragua"
IF NATION = 67 THEN NATION$ = "Nigeria"
IF NATION = 68 THEN NATION$ = "Norway"
IF NATION = 69 THEN NATION$ = "Oman"
IF NATION = 70 THEN NATION$ = "Pakistan"
IF NATION = 71 THEN NATION$ = "Panama"
IF NATION = 72 THEN NATION$ = "Peru"
IF NATION = 73 THEN NATION$ = "the Phillippines"
IF NATION = 74 THEN NATION$ = "Poland"
IF NATION = 75 THEN NATION$ = "Puerto Rico"
IF NATION = 76 THEN NATION$ = "Romania"
IF NATION = 77 THEN NATION$ = "Russia"
IF NATION = 78 THEN NATION$ = "Saudi Arabia"
IF NATION = 79 THEN NATION$ = "Senegal"
IF NATION = 80 THEN NATION$ = "Singapore"
IF NATION = 81 THEN NATION$ = "South Africa"
IF NATION = 82 THEN NATION$ = "Spain"
IF NATION = 83 THEN NATION$ = "Sri Lanka"
IF NATION = 84 THEN NATION$ = "the Sudan"
IF NATION = 85 THEN NATION$ = "Sweden"
IF NATION = 86 THEN NATION$ = "Switzerland"
IF NATION = 87 THEN NATION$ = "Taiwan"
IF NATION = 88 THEN NATION$ = "Thailand"
IF NATION = 89 THEN NATION$ = "Turkey"
IF NATION = 90 THEN NATION$ = "Turkmenistan"
IF NATION = 91 THEN NATION$ = "Uganda"
IF NATION = 92 THEN NATION$ = "Ukraine"
IF NATION = 93 THEN NATION$ = "Uzbekistan"
IF NATION = 94 THEN NATION$ = "Vanuatu"
IF NATION = 95 THEN NATION$ = "Venezuela"
IF NATION = 96 THEN NATION$ = "Vietnam"
IF NATION = 97 THEN NATION$ = "Yemen"
IF NATION = 98 THEN NATION$ = "Zambia"
IF NATION = 99 THEN NATION$ = "Zimbabwe"
IF NATION = 100 THEN NATION$ = "Siberia"
IF NATION = 101 THEN NATION$ = "Okinawa"
IF NATION = 102 THEN NATION$ = "Sicily"
TEMPERATUREINTRO$ = "Temperature: "
TEMPERATURE = INT(RND(0)*25)
IF TEMPERATURE = 0 THEN TEMPERATURE$ = "32 degrees Fahrenheit"
IF TEMPERATURE = 1 THEN TEMPERATURE$ = "34 degrees Fahrenheit"
IF TEMPERATURE = 2 THEN TEMPERATURE$ = "36 degrees Fahrenheit"
IF TEMPERATURE = 3 THEN TEMPERATURE$ = "38 degrees Fahrenheit"
IF TEMPERATURE = 4 THEN TEMPERATURE$ = "40 degrees Fahrenheit"
IF TEMPERATURE = 5 THEN TEMPERATURE$ = "42 degrees Fahrenheit"
IF TEMPERATURE = 6 THEN TEMPERATURE$ = "44 degrees Fahrenheit"
IF TEMPERATURE = 7 THEN TEMPERATURE$ = "46 degrees Fahrenheit"
IF TEMPERATURE = 8 THEN TEMPERATURE$ = "48 degrees Fahrenheit"
IF TEMPERATURE = 9 THEN TEMPERATURE$ = "50 degrees Fahrenheit"
IF TEMPERATURE = 10 THEN TEMPERATURE$ = "52 degrees Fahrenheit"
IF TEMPERATURE = 11 THEN TEMPERATURE$ = "54 degrees Fahrenheit"
IF TEMPERATURE = 12 THEN TEMPERATURE$ = "56 degrees Fahrenheit"
IF TEMPERATURE = 13 THEN TEMPERATURE$ = "58 degrees Fahrenheit"
IF TEMPERATURE = 14 THEN TEMPERATURE$ = "60 degrees Fahrenheit"
IF TEMPERATURE = 15 THEN TEMPERATURE$ = "62 degrees Fahrenheit"
IF TEMPERATURE = 16 THEN TEMPERATURE$ = "64 degrees Fahrenheit"
IF TEMPERATURE = 17 THEN TEMPERATURE$ = "66 degrees Fahrenheit"
IF TEMPERATURE = 18 THEN TEMPERATURE$ = "68 degrees Fahrenheit"
IF TEMPERATURE = 19 THEN TEMPERATURE$ = "70 degrees Fahrenheit"
IF TEMPERATURE = 20 THEN TEMPERATURE$ = "72 degrees Fahrenheit"
IF TEMPERATURE = 21 THEN TEMPERATURE$ = "74 degrees Fahrenheit"
IF TEMPERATURE = 22 THEN TEMPERATURE$ = "76 degrees Fahrenheit"
IF TEMPERATURE = 23 THEN TEMPERATURE$ = "78 degrees Fahrenheit"
IF TEMPERATURE = 24 THEN TEMPERATURE$ = "80 degrees Fahrenheit"
WEATHERINTRO$ = "Weather: "
WEATHER = INT(RND(0)*7)
IF WEATHER = 0 THEN WEATHER$ = "Some drizzle"
IF WEATHER = 1 THEN WEATHER$ = "Light rain"
IF WEATHER = 2 THEN WEATHER$ = "Thunder and lightning"
IF WEATHER = 3 THEN WEATHER$ = "Fog"
IF WEATHER = 4 THEN WEATHER$ = "Clear and calm"
IF WEATHER = 5 THEN WEATHER$ = "Gusty winds and clear skies"
IF WEATHER = 6 THEN WEATHER$ = "Pouring rain"
MOONPHASEINTRO$ = "Moon Phase: "
MOONPHASE = INT(RND(0)*8)
IF MOONPHASE = 0 THEN MOONPHASE$ = "New moon"
IF MOONPHASE = 1 THEN MOONPHASE$ = "Waxing crescent moon"
IF MOONPHASE = 2 THEN MOONPHASE$ = "Waxing half moon"
IF MOONPHASE = 3 THEN MOONPHASE$ = "Waxing gibbous moon"
IF MOONPHASE = 4 THEN MOONPHASE$ = "Full moon"
IF MOONPHASE = 5 THEN MOONPHASE$ = "Waning gibbous moon"
IF MOONPHASE = 6 THEN MOONPHASE$ = "Waning half moon"
IF MOONPHASE = 7 THEN MOONPHASE$ = "Waning crescent moon"
PROTAGONISTSECTIONINTRO$ = "PROTAGONIST/PLOT"
AGE = INT(RND(0)*71)
IF AGE = 0 THEN AGE$ = "5"
IF AGE = 1 THEN AGE$ = "6"
IF AGE = 2 THEN AGE$ = "7"
IF AGE = 3 THEN AGE$ = "8"
IF AGE = 4 THEN AGE$ = "9"
IF AGE = 5 THEN AGE$ = "10"
IF AGE = 6 THEN AGE$ = "11"
IF AGE = 7 THEN AGE$ = "12"
IF AGE = 8 THEN AGE$ = "13"
IF AGE = 9 THEN AGE$ = "14"
IF AGE = 10 THEN AGE$ = "15"
IF AGE = 11 THEN AGE$ = "16"
IF AGE = 12 THEN AGE$ = "17"
IF AGE = 13 THEN AGE$ = "18"
IF AGE = 14 THEN AGE$ = "19"
IF AGE = 15 THEN AGE$ = "20"
IF AGE = 16 THEN AGE$ = "21"
IF AGE = 17 THEN AGE$ = "22"
IF AGE = 18 THEN AGE$ = "23"
IF AGE = 19 THEN AGE$ = "24"
IF AGE = 20 THEN AGE$ = "25"
IF AGE = 21 THEN AGE$ = "26"
IF AGE = 22 THEN AGE$ = "27"
IF AGE = 23 THEN AGE$ = "28"
IF AGE = 24 THEN AGE$ = "29"
IF AGE = 25 THEN AGE$ = "30"
IF AGE = 26 THEN AGE$ = "31"
IF AGE = 27 THEN AGE$ = "32"
IF AGE = 28 THEN AGE$ = "33"
IF AGE = 29 THEN AGE$ = "34"
IF AGE = 30 THEN AGE$ = "35"
IF AGE = 31 THEN AGE$ = "36"
IF AGE = 32 THEN AGE$ = "37"
IF AGE = 33 THEN AGE$ = "38"
IF AGE = 34 THEN AGE$ = "39"
IF AGE = 35 THEN AGE$ = "40"
IF AGE = 36 THEN AGE$ = "41"
IF AGE = 37 THEN AGE$ = "42"
IF AGE = 38 THEN AGE$ = "43"
IF AGE = 39 THEN AGE$ = "44"
IF AGE = 40 THEN AGE$ = "45"
IF AGE = 41 THEN AGE$ = "46"
IF AGE = 42 THEN AGE$ = "47"
IF AGE = 43 THEN AGE$ = "48"
IF AGE = 44 THEN AGE$ = "49"
IF AGE = 45 THEN AGE$ = "50"
IF AGE = 46 THEN AGE$ = "51"
IF AGE = 47 THEN AGE$ = "52"
IF AGE = 48 THEN AGE$ = "53"
IF AGE = 49 THEN AGE$ = "54"
IF AGE = 50 THEN AGE$ = "55"
IF AGE = 51 THEN AGE$ = "56"
IF AGE = 52 THEN AGE$ = "57"
IF AGE = 53 THEN AGE$ = "58"
IF AGE = 54 THEN AGE$ = "59"
IF AGE = 55 THEN AGE$ = "60"
IF AGE = 56 THEN AGE$ = "61"
IF AGE = 57 THEN AGE$ = "62"
IF AGE = 58 THEN AGE$ = "63"
IF AGE = 59 THEN AGE$ = "64"
IF AGE = 60 THEN AGE$ = "65"
IF AGE = 61 THEN AGE$ = "66"
IF AGE = 62 THEN AGE$ = "67"
IF AGE = 63 THEN AGE$ = "68"
IF AGE = 64 THEN AGE$ = "69"
IF AGE = 65 THEN AGE$ = "70"
IF AGE = 66 THEN AGE$ = "71"
IF AGE = 67 THEN AGE$ = "72"
IF AGE = 68 THEN AGE$ = "73"
IF AGE = 69 THEN AGE$ = "74"
IF AGE = 70 THEN AGE$ = "75"
ORIENTATION = INT(RND(0)*100)
PARTICIPANTS = INT(RND(0)*2)
IF ORIENTATION > 95 AND AGE > 9 AND PARTICIPANTS = 0 THEN ORIENTATION$ = "gay "
IF ORIENTATION > 95 AND AGE > 9 AND PARTICIPANTS = 1 THEN ORIENTATION$ = ""
IF ORIENTATION < 95 AND AGE <= 9 THEN ORIENTATION$ = ""
IF ORIENTATION <= 95 AND AGE > 9 AND PARTICIPANTS = 0 THEN ORIENTATION$ = ""
IF ORIENTATION <= 95 AND AGE > 9 AND PARTICIPANTS = 1 THEN ORIENTATION$ = ""
ETHNICITY = INT(RND(0)*103)
IF ETHNICITY = 0 THEN ETHNICITY$ = "Roman"
IF ETHNICITY = 1 THEN ETHNICITY$ = "Afghan"
IF ETHNICITY = 2 THEN ETHNICITY$ = "Albanian"
IF ETHNICITY = 3 THEN ETHNICITY$ = "Algerian"
IF ETHNICITY = 4 THEN ETHNICITY$ = "Angolan"
IF ETHNICITY = 5 THEN ETHNICITY$ = "Angorran"
IF ETHNICITY = 6 THEN ETHNICITY$ = "Argentinan"
IF ETHNICITY = 7 THEN ETHNICITY$ = "Australian"
IF ETHNICITY = 8 THEN ETHNICITY$ = "Austrian"
IF ETHNICITY = 9 THEN ETHNICITY$ = "Bangladeshian"
IF ETHNICITY = 10 THEN ETHNICITY$ = "Belgian"
IF ETHNICITY = 11 THEN ETHNICITY$ = "Brazilian"
IF ETHNICITY = 12 THEN ETHNICITY$ = "Canadian"
IF ETHNICITY = 13 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 14 THEN ETHNICITY$ = "Chilean"
IF ETHNICITY = 15 THEN ETHNICITY$ = "Chinese"
IF ETHNICITY = 16 THEN ETHNICITY$ = "Columbian"
IF ETHNICITY = 17 THEN ETHNICITY$ = "Costa Rican"
IF ETHNICITY = 18 THEN ETHNICITY$ = "Croatian"
IF ETHNICITY = 19 THEN ETHNICITY$ = "Cuban"
IF ETHNICITY = 20 THEN ETHNICITY$ = "Danish"
IF ETHNICITY = 21 THEN ETHNICITY$ = "Dominican"
IF ETHNICITY = 22 THEN ETHNICITY$ = "Ecuadorian"
IF ETHNICITY = 23 THEN ETHNICITY$ = "Egyptian"
IF ETHNICITY = 24 THEN ETHNICITY$ = "Salvadorian"
IF ETHNICITY = 25 THEN ETHNICITY$ = "Ethiopian"
IF ETHNICITY = 26 THEN ETHNICITY$ = "Fijian"
IF ETHNICITY = 27 THEN ETHNICITY$ = "Finlandic"
IF ETHNICITY = 28 THEN ETHNICITY$ = "French"
IF ETHNICITY = 29 THEN ETHNICITY$ = "German"
IF ETHNICITY = 30 THEN ETHNICITY$ = "Ghanan"
IF ETHNICITY = 31 THEN ETHNICITY$ = "Greek"
IF ETHNICITY = 32 THEN ETHNICITY$ = "Greenlandic"
IF ETHNICITY = 33 THEN ETHNICITY$ = "Guamese"
IF ETHNICITY = 34 THEN ETHNICITY$ = "Guatemalan"
IF ETHNICITY = 35 THEN ETHNICITY$ = "Haitian"
IF ETHNICITY = 36 THEN ETHNICITY$ = "Honduran"
IF ETHNICITY = 37 THEN ETHNICITY$ = "Hungarian"
IF ETHNICITY = 38 THEN ETHNICITY$ = "Icelandic"
IF ETHNICITY = 39 THEN ETHNICITY$ = "Indian"
IF ETHNICITY = 40 THEN ETHNICITY$ = "Indonesian"
IF ETHNICITY = 41 THEN ETHNICITY$ = "Irani"
IF ETHNICITY = 42 THEN ETHNICITY$ = "Iraqi"
IF ETHNICITY = 43 THEN ETHNICITY$ = "Irish"
IF ETHNICITY = 44 THEN ETHNICITY$ = "Italian"
IF ETHNICITY = 45 THEN ETHNICITY$ = "Jamaican"
IF ETHNICITY = 46 THEN ETHNICITY$ = "Japanese"
IF ETHNICITY = 47 THEN ETHNICITY$ = "Jordanian"
IF ETHNICITY = 48 THEN ETHNICITY$ = "Kenyan"
IF ETHNICITY = 49 THEN ETHNICITY$ = "Korean"
IF ETHNICITY = 50 THEN ETHNICITY$ = "Laotian"
IF ETHNICITY = 51 THEN ETHNICITY$ = "Latvian"
IF ETHNICITY = 52 THEN ETHNICITY$ = "Lebanese"
IF ETHNICITY = 53 THEN ETHNICITY$ = "Libyan"
IF ETHNICITY = 54 THEN ETHNICITY$ = "Lithuanian"
IF ETHNICITY = 55 THEN ETHNICITY$ = "Madagascarian"
IF ETHNICITY = 56 THEN ETHNICITY$ = "Malaysian"
IF ETHNICITY = 57 THEN ETHNICITY$ = "Malian"
IF ETHNICITY = 58 THEN ETHNICITY$ = "Mexican"
IF ETHNICITY = 59 THEN ETHNICITY$ = "Moldovan"
IF ETHNICITY = 60 THEN ETHNICITY$ = "Monacan"
IF ETHNICITY = 61 THEN ETHNICITY$ = "Mongolian"
IF ETHNICITY = 62 THEN ETHNICITY$ = "Moroccan"
IF ETHNICITY = 63 THEN ETHNICITY$ = "Nepalese"
IF ETHNICITY = 64 THEN ETHNICITY$ = "Dutch"
IF ETHNICITY = 65 THEN ETHNICITY$ = "New Zealandic"
IF ETHNICITY = 66 THEN ETHNICITY$ = "Nicaraguan"
IF ETHNICITY = 67 THEN ETHNICITY$ = "Nigerian"
IF ETHNICITY = 68 THEN ETHNICITY$ = "Nordic"
IF ETHNICITY = 69 THEN ETHNICITY$ = "Omanese"
IF ETHNICITY = 70 THEN ETHNICITY$ = "Pakistani"
IF ETHNICITY = 71 THEN ETHNICITY$ = "Panamanian"
IF ETHNICITY = 72 THEN ETHNICITY$ = "Peruvian"
IF ETHNICITY = 73 THEN ETHNICITY$ = "Phillippino"
IF ETHNICITY = 74 THEN ETHNICITY$ = "Polish"
IF ETHNICITY = 75 THEN ETHNICITY$ = "Puerto Rican"
IF ETHNICITY = 76 THEN ETHNICITY$ = "Romanian"
IF ETHNICITY = 77 THEN ETHNICITY$ = "Russian"
IF ETHNICITY = 78 THEN ETHNICITY$ = "Saudi Arabian"
IF ETHNICITY = 79 THEN ETHNICITY$ = "Senegalese"
IF ETHNICITY = 80 THEN ETHNICITY$ = "Singaporese"
IF ETHNICITY = 81 THEN ETHNICITY$ = "South African"
IF ETHNICITY = 82 THEN ETHNICITY$ = "Spanish"
IF ETHNICITY = 83 THEN ETHNICITY$ = "Sri Lankan"
IF ETHNICITY = 84 THEN ETHNICITY$ = "Sudanese"
IF ETHNICITY = 85 THEN ETHNICITY$ = "Swedish"
IF ETHNICITY = 86 THEN ETHNICITY$ = "Swiss"
IF ETHNICITY = 87 THEN ETHNICITY$ = "Taiwanese"
IF ETHNICITY = 88 THEN ETHNICITY$ = "Thai"
IF ETHNICITY = 89 THEN ETHNICITY$ = "Turkish"
IF ETHNICITY = 90 THEN ETHNICITY$ = "Turkmenistani"
IF ETHNICITY = 91 THEN ETHNICITY$ = "Ugandan"
IF ETHNICITY = 92 THEN ETHNICITY$ = "Ukrainian"
IF ETHNICITY = 93 THEN ETHNICITY$ = "Uzbekistani"
IF ETHNICITY = 94 THEN ETHNICITY$ = "Vanuatuan"
IF ETHNICITY = 95 THEN ETHNICITY$ = "Venezuelan"
IF ETHNICITY = 96 THEN ETHNICITY$ = "Vietnamese"
IF ETHNICITY = 97 THEN ETHNICITY$ = "Yemeni"
IF ETHNICITY = 98 AND GENRE < 3 AND YEAR <= 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 98 AND GENRE < 3 AND YEAR > 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 98 AND GENRE = 3 AND YEAR <= 26 THEN ETHNICITY$ = "Dwarvish"
IF ETHNICITY = 98 AND GENRE = 3 AND YEAR > 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 98 AND GENRE > 3 AND YEAR <= 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 98 AND GENRE > 3 AND YEAR > 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 99 AND GENRE < 3 AND YEAR <= 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 99 AND GENRE < 3 AND YEAR > 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 99 AND GENRE = 3 AND YEAR <= 26 THEN ETHNICITY$ = "Elvish"
IF ETHNICITY = 99 AND GENRE = 3 AND YEAR > 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 99 AND GENRE > 3 AND YEAR <= 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 99 AND GENRE > 3 AND YEAR > 26 THEN ETHNICITY$ = "Scottish"
IF ETHNICITY = 100 THEN ETHNICITY$ = "Okinawan"
IF ETHNICITY = 101 THEN ETHNICITY$ = "Sicilian"
IF ETHNICITY = 102 THEN ETHNICITY$ = "Aborigone"
IF ETHNICITY = 103 THEN ETHNICITY$ = "Israeli"
IF PARTICIPANTS = 0 AND AGE < 5 THEN PARTICIPANTS$ = "boy"
IF PARTICIPANTS = 0 AND AGE >= 5 AND AGE <= 14 THEN PARTICIPANTS2$ = "young "
IF PARTICIPANTS = 0 AND AGE >= 5 AND AGE <= 14 THEN PARTICIPANTS$ = "man"
IF PARTICIPANTS = 0 AND AGE > 14 THEN PARTICIPANTS$ = "man"
IF PARTICIPANTS = 1 AND AGE < 14 THEN PARTICIPANTS$ = "girl"
IF PARTICIPANTS = 1 AND AGE >= 5 AND AGE <= 14 THEN PARTICIPANTS2$ = "young "
IF PARTICIPANTS = 1 AND AGE >= 5 AND AGE <= 14 THEN PARTICIPANTS$ = "woman"
IF PARTICIPANTS = 1 AND AGE > 14 THEN PARTICIPANTS$ = "woman"
IF ORIENTATION > 95 AND AGE > 9 AND PARTICIPANTS = 1 THEN PARTICIPANTS$ = "lesbian"
NAKED = INT(RND(0)*100)
CLOTHINGINTRO$ = "wearing"
CLOTHING = INT(RND(0)*6)
IF CLOTHING = 0 AND PARTICIPANTS = 0 AND GENRE < 12 THEN CLOTHING$ = "a shirt and pants"
IF CLOTHING = 0 AND PARTICIPANTS = 0 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 0 AND PARTICIPANTS = 0 AND GENRE > 12 THEN CLOTHING$ = "a shirt and pants"
IF CLOTHING = 0 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "a dress"
IF CLOTHING = 0 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 0 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "a dress"
IF CLOTHING = 1 AND PARTICIPANTS = 0 AND GENRE < 12 THEN CLOTHING$ = "a cloak"
IF CLOTHING = 1 AND PARTICIPANTS = 0 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 1 AND PARTICIPANTS = 0 AND GENRE > 12 THEN CLOTHING$ = "a cloak"
IF CLOTHING = 1 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "a cloak"
IF CLOTHING = 1 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 1 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "a cloak"
IF CLOTHING = 2 AND PARTICIPANTS = 0 AND GENRE < 12 THEN CLOTHING$ = "a vest and boots"
IF CLOTHING = 2 AND PARTICIPANTS = 0 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 2 AND PARTICIPANTS = 0 AND GENRE > 12 THEN CLOTHING$ = "a vest and boots"
IF CLOTHING = 2 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "a tunic and leggings"
IF CLOTHING = 2 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 2 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "a tunic and leggings"
IF CLOTHING = 3 AND PARTICIPANTS = 0 AND GENRE < 12 THEN CLOTHING$ = "peasant clothes"
IF CLOTHING = 3 AND PARTICIPANTS = 0 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 3 AND PARTICIPANTS = 0 AND GENRE > 12 THEN CLOTHING$ = "peasant clothes"
IF CLOTHING = 3 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "peasant clothes"
IF CLOTHING = 3 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 3 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "peasant clothes"
IF CLOTHING = 4 AND PARTICIPANTS = 0 AND GENRE < 12 THEN CLOTHING$ = "a sarape"
IF CLOTHING = 4 AND PARTICIPANTS = 0 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 4 AND PARTICIPANTS = 0 AND GENRE > 12 THEN CLOTHING$ = "a sarape"
IF CLOTHING = 4 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "a sarape"
IF CLOTHING = 4 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 4 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "a sarape"
IF CLOTHING = 5 AND PARTICIPANTS = 0 AND GENRE < 12 THEN CLOTHING$ = "a tunic & thigh-high boots"
IF CLOTHING = 5 AND PARTICIPANTS = 0 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 5 AND PARTICIPANTS = 0 AND GENRE > 12 THEN CLOTHING$ = "a tunic & thigh-high boots"
IF CLOTHING = 5 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "a tunic & thigh-high boots"
IF CLOTHING = 5 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 5 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "a tunic & thigh-high boots"
IF CLOTHING = 6 AND PARTICIPANTS = 1 AND GENRE < 12 THEN CLOTHING$ = "nothing but a loin cloth"
IF CLOTHING = 6 AND PARTICIPANTS = 1 AND GENRE = 12 THEN CLOTHING$ = "a toga and sandals"
IF CLOTHING = 6 AND PARTICIPANTS = 1 AND GENRE > 12 THEN CLOTHING$ = "nothing but a loin cloth"
IF CLOTHING = 6 THEN CLOTHING$ = "nothing"
IF ETHNICITY = 98 AND PARTICIPANTS = 0 THEN CLOTHING$ = "a kilt"
IF ETHNICITY = 99 AND PARTICIPANTS = 0 THEN CLOTHING$ = "a kilt"
ADJECTIVE = INT(RND(0)*31)
IF ADJECTIVE = 0 AND AGE > 14 AND PARTICIPANTS = 0 THEN ADJECTIVE$ = " muscular"
IF ADJECTIVE = 0 AND AGE > 14 AND PARTICIPANTS = 1 THEN ADJECTIVE$ = " tall"
IF ADJECTIVE = 0 AND AGE <= 14 AND PARTICIPANTS = 0 THEN ADJECTIVE$ = "n athletic"
IF ADJECTIVE = 0 AND AGE <= 14 AND PARTICIPANTS = 1 THEN ADJECTIVE$ = "n athletic"
IF ADJECTIVE = 1 THEN ADJECTIVE$ = " short"
IF ADJECTIVE = 2 THEN ADJECTIVE$ = " bald"
IF ADJECTIVE = 3 THEN ADJECTIVE$ = "n obese"
IF ADJECTIVE = 4 THEN ADJECTIVE$ = " skinny"
IF ADJECTIVE = 5 THEN ADJECTIVE$ = " serious"
IF ADJECTIVE = 6 THEN ADJECTIVE$ = " tattooed"
IF ADJECTIVE = 7 THEN ADJECTIVE$ = "n attractive"
IF ADJECTIVE = 8 THEN ADJECTIVE$ = " short tattooed"
IF ADJECTIVE = 9 THEN ADJECTIVE$ = " very intelligent"
IF ADJECTIVE = 10 THEN ADJECTIVE$ = " freckled"
IF ADJECTIVE = 11 THEN ADJECTIVE$ = " beautiful"
IF ADJECTIVE = 12 THEN ADJECTIVE$ = " tall bald"
IF ADJECTIVE = 13 THEN ADJECTIVE$ = " tall obese"
IF ADJECTIVE = 14 THEN ADJECTIVE$ = " tall skinny"
IF ADJECTIVE = 15 THEN ADJECTIVE$ = " tall serious"
IF ADJECTIVE = 16 THEN ADJECTIVE$ = " tall tattooed"
IF ADJECTIVE = 17 THEN ADJECTIVE$ = " tall slim"
IF ADJECTIVE = 18 THEN ADJECTIVE$ = " tall attractive"
IF ADJECTIVE = 19 THEN ADJECTIVE$ = " tall freckled"
IF ADJECTIVE = 20 THEN ADJECTIVE$ = " tall beautiful"
IF ADJECTIVE = 21 THEN ADJECTIVE$ = " short bald"
IF ADJECTIVE = 22 THEN ADJECTIVE$ = " short obese"
IF ADJECTIVE = 23 THEN ADJECTIVE$ = " short skinny"
IF ADJECTIVE = 24 THEN ADJECTIVE$ = " short serious"
IF ADJECTIVE = 25 THEN ADJECTIVE$ = " short tattooed"
IF ADJECTIVE = 26 THEN ADJECTIVE$ = " short slim"
IF ADJECTIVE = 27 THEN ADJECTIVE$ = " short attractive"
IF ADJECTIVE = 28 THEN ADJECTIVE$ = " short freckled"
IF ADJECTIVE = 29 THEN ADJECTIVE$ = " short beautiful"
IF ADJECTIVE = 30 THEN ADJECTIVE$ = " sarcastic"
EVENT = INT(RND(0)*35)
IF EVENT = 0 THEN EVENT$ = "drinking wine"
IF EVENT = 1 THEN EVENT$ = "talking with a group of people"
IF EVENT = 2 THEN EVENT$ = "having a discussion with someone"
IF EVENT = 3 THEN EVENT$ = "searching for something"
IF EVENT = 4 THEN EVENT$ = "searching for someone"
IF EVENT = 5 THEN EVENT$ = "pacing back and forth"
IF EVENT = 6 THEN EVENT$ = "being chased by a ghost"
IF EVENT = 7 THEN EVENT$ = "sleeping and dreaming"
IF EVENT = 8 THEN EVENT$ = "eating"
IF EVENT = 9 THEN EVENT$ = "drinking rum"
IF EVENT = 10 THEN EVENT$ = "eating bread and cheese"
IF EVENT = 11 THEN EVENT$ = "drinking tea"
IF EVENT = 12 THEN EVENT$ = "staring off into the distance"
IF EVENT = 13 THEN EVENT$ = "sleepwalking"
IF EVENT = 14 THEN EVENT$ = "running"
IF EVENT = 15 THEN EVENT$ = "smoking a marijuana cigarette"
IF EVENT = 16 THEN EVENT$ = "meditating"
IF EVENT = 17 AND AGE <= 9 THEN EVENT$ = "hiding from someone"
IF EVENT = 17 AND AGE > 9 THEN EVENT$ = "smoking"
IF EVENT = 18 AND GENRE < 2 AND YEAR <= 26 THEN EVENT$ = "reading"
IF EVENT = 18 AND GENRE = 2 AND YEAR <= 26 THEN EVENT$ = "fighting a dragon"
IF EVENT = 18 AND GENRE > 2 AND YEAR <= 26 THEN EVENT$ = "reading"
IF EVENT = 18 AND GENRE < 2 AND YEAR > 26 THEN EVENT$ = "reading"
IF EVENT = 18 AND GENRE = 2 AND YEAR > 26 THEN EVENT$ = "reading"
IF EVENT = 18 AND GENRE > 2 AND YEAR > 26 THEN EVENT$ = "reading"
IF EVENT = 19 AND PHYSICALLOCATION < 12 THEN EVENT$ = "waiting to meet someone"
IF EVENT = 19 AND PHYSICALLOCATION = 12 THEN EVENT$ = "window shopping"
IF EVENT = 19 AND PHYSICALLOCATION > 12 THEN EVENT$ = "waiting to see something"
IF EVENT = 20 THEN EVENT$ = "stealing something"
IF EVENT = 21 AND GENRE < 7 THEN EVENT$ = "hiding something"
IF EVENT = 21 AND GENRE = 7 THEN EVENT$ = "running from a couple of zombies"
IF EVENT = 21 AND GENRE > 7 THEN EVENT$ = "searching for anything useful"
IF EVENT = 22 THEN EVENT$ = "crying"
IF EVENT = 23 THEN EVENT$ = "smiling"
IF EVENT = 24 THEN EVENT$ = "laughing"
IF EVENT = 25 THEN EVENT$ = "praying"
IF EVENT = 26 THEN EVENT$ = "laughing insanely"
IF EVENT = 27 THEN EVENT$ = "thinking"
IF EVENT = 28 THEN EVENT$ = "planning something"
IF EVENT = 29 THEN EVENT$ = "being kidnapped by aliens"
IF EVENT = 30 THEN EVENT$ = "playing a flute"
IF EVENT = 31 THEN EVENT$ = "playing a drum"
IF EVENT = 32 THEN EVENT$ = "playing a lute"
IF EVENT = 33 THEN EVENT$ = "singing"
IF EVENT = 34 THEN EVENT$ = "humming"
PRINT "KANNA - THE AUTOMATIC RANDOM STORY AND GAME IDEA INSPIRATION GENERATOR"
PRINT ""
PRINT REALITYSECTIONINTRO$
PRINT REALITYINTRO$ + REALITY$
PRINT GENREINTRO$ + GENRE$
PRINT DATEINTRO$ + HOLIDAY$ + MONTH$ + " " + DAY$ + ", " + YEAR$
PRINT TIMEINTRO$ + TIME$
PRINT TEMPERATUREINTRO$ + TEMPERATURE$
PRINT WEATHERINTRO$ + WEATHER$
PRINT MOONPHASEINTRO$ + MOONPHASE$
PRINT ""
PRINT PROTAGONISTSECTIONINTRO$
PRINT "A" + ADJECTIVE$ + " " + AGE$ + "-year-old " + ETHNICITY$ + " " + PARTICIPANTS2$ + ORIENTATION$ + PARTICIPANTS$ + " " + CLOTHINGINTRO$ + " " + CLOTHING$
PRINT "is" + PHYSICALLOCATION$ + " in " + NATION$ + ", " + EVENT$ + "."
PRINT " "
PRINT " "
PRINT " "
PRINT "PRESS THE 'ENTER' KEY TO CLOSE THIS WINDOW"
INPUT "";dummy$
