Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Up here...this is called your AES (auto execute section).
- ; When your script runs, it starts at the first line and runs until it hits a return/exit.
- ; Put your data up here so it loads when the script starts
- ; Also, this is a good place to put commands you only have to run once. Like #NoEnv, #SingleInstance, and SetBatchLines
- #SingleInstance Force
- #NoEnv
- SetBatchLines, -1
- ; Next, lets load your data up
- ; Make sure you name your variables intelligently. Word1 is NOT descriptive.
- ; For a small script it won't matter. For a big one, you'll be struggling to keep stuff straight.
- ; Here's a list of all your words. I've used the pipe | as a sperator
- clist := "A Fridge Too Far Used Appliances|A1A Car Wash|Abstergo|Accurate Calendars|ACE Chemicals|ACME Rocket Co.|Albuquerque Isotypes|Aperture Science|Apollo Candy Company|Assan Motor Company|A Site for Sore Thighs - Massage Therapy|Auntie Cleo's|Aviato|Bada Bing!|Baby Got Back Problems Physical Therapy|Bachmanity Capital|Bath Sheet Crazy|Betty's Machetes|Bidets and Confused|BiffCo Enterprises|Big Kahuna Burger|Binford Tools|Blood Bath and Beyond|Blue Sun|Bluth Company|Bob Loblaw, Attorney At Law|Body by Trey|Bowl-a-rama|Brawndo|Bream Hall|Bubba Gump Shrimp Co.|Bushwood Country Club|Buy and Large Corporation|Cardiff Electric|Castlerock City Council|Cat-Like Refluxes, Feline Gastoenterologist|Central Perk|Ceres Mining and Tech University|Chalmskinn Productions|Chatswin City Council|Cheers|Chester's Mill Tourism|CHOAM|Cluckin Chicken""A Fridge Too Far Used Appliances|A1A Car Wash|Abstergo|Accurate Calendars|ACE Chemicals|ACME Rocket Co.|Albuquerque Isotypes|Aperture Science|Apollo Candy Company|Assan Motor Company|A Site for Sore Thighs - Massage Therapy|Auntie Cleo's|Aviato|Bada Bing!|Baby Got Back Problems Physical Therapy|Bachmanity Capital|Bath Sheet Crazy|Betty's Machetes|Bidets and Confused|BiffCo Enterprises|Big Kahuna Burger|Binford Tools|Blood Bath and Beyond|Blue Sun|Bluth Company|Bob Loblaw, Attorney At Law|Body by Trey|Bowl-a-rama|Brawndo|Bream Hall|Bubba Gump Shrimp Co.|Bushwood Country Club|Buy and Large Corporation|Cardiff Electric|Castlerock City Council|Cat-Like Refluxes, Feline Gastoenterologist|Central Perk|Ceres Mining and Tech University|Chalmskinn Productions|Chatswin City Council|Cheers|Chester's Mill Tourism|CHOAM|Cluckin Chicken|City of Smallville|Clampett Oil|Committee to Re-Elect Frank Underwood|ConHugeCo|CPM Security Corporation|Crimson Permanent Assurance|Cyberdyne Systems Corporation|Cut Me Some Slacks|Daily Grind|Daily Planet|d'Anconia Copper|Dewey, Cheatum, & Howe, LLP|Don't Go There: Cautionary Sign Store|Dr. Gordon FreemanW|Dr. Lawrence Gordon|Dr. Van Nostrom|Dr. Zoidberg|Duff Beer|Dunder Mifflin Paper Company, Inc.|Emerson Cod P.I.|Ewing Oil|Fake It Till Your Makeup|Fiber Now!|Fisher and Diaz Funeral Home|Flip Your Wig - Reversible Hairpieces|Fromage-inary Friends Cheese Shop|Fudge 'N Stuff|Galaxy News Radio|Globex Corporation|Golden Moth Chemical|Goliath National Bank|Good Burger|Goodsprings General Store|Greendale Community College|Gringotts|Gryzzl|Hairy Shearers|Halcyon Holdings Corporation|Hephaestus Mining Company|Hammocks Are Us|Hanso Foundation|H&H Tool Company|Hooli|Hubris Comics|Hudsucker Industries|InGen|Initech|I Can't Believe It's Not Brother: DNA Testing|Jean on Me|Junk & Disorderly Storage|Jurassic Park|Kiki's Delivery Service|King Toots|Kingdom Hospital|Krusty Burger|Krusty Krab|Krusty-O|Kwik-E-Mart|Lackluster Video|Lacuna, Inc.|Lamborgotti|Leftorium|LexCorp|Liberty Diner|Little Shop of Hulas|Los Pollos Hermanos|Low-Cal Calzone Zone|MacLaren's Pub|Macmillan Toys|Madrigal Electromotive GmbH|Magnum G.I. Colonoscopies|Mann Co.|Maisel and Roth Garment Company|Mao-Kwikowski Mercantile|Manger Danger Babyproofing|Massive Dynamics|Mayberry Police Department|McMann & Tate Advertising|McNamara/Troy|Mega Lo mart|Megadodo Publications|Meet the Patents - Patent Attorney|Mitch and Murray|Monarch Steller Industries|Mr. Plow|Mrs. Cookielady|Multi National United|Nakatomi Trading Co.|North Central Positronics|Nozz-a-la Cola|Nuka-Cola|Oceanic Airlines|Omni Consumer Products|Oscorp|Overly Complex Incorporated|Pair of Dice City|Pear Noël Holiday Fruit|Paper St. Soap Co.|Pasty Ray's Tanning Salon|Pawnee City Council|Pawtucket Patt|Phil Dunphy Real Estate|Pierce and Pierce|Planet Express|Penny for Your Tots Daycare|Pied Piper|Prestige Worldwide|Primatech Paper|Protogen|Pokey Piercings|Quahog Community Center|Quilty as Charged|Quick Stop|Radiator King|Raviga Capital Management|Red Blazer Realty|Regret Me Not Tattoo|Resisting A Rest Sleep Therapy|Reynholm Industries|Rizzo's|RobCo Industries|Ronco|Royal Charter Energy|Rude A-Bake-Ening|Sacred Heart Hospital|Sandpiper Airlines|Saul Goodman Law|Savage Industries|Shall We Pants?|Sheinhardt Wig Company|Shulman's Women's Health Associates|Sirius Cybernetic|Silver Shamrock Novelties|Simply the Asbestos|Slate Rock and Gravel Company|Slusho!|Smoothie Operator|Snake Pit Bar and Saloon|Snakejuice|Soylent Corporation|Spacely's Space Sprockets|Spacer's Choice|Spooners|Springfield Nuclear Plant|SS Minnow Charter Tours|Stark Industries|Star Helix Security|Stevens & Lido|Sterling Cooper and Partners|Stickers for Men|Strickland Propane|Takes All Rinds - Composting Center|Takuro Auto|Tasty Freeze|Tet Corporation|That's A-Door-A-Bell Doorbells|The Bannered Mare|The Bluth Company|The Cherry Pit|The Codfather Fish & Chips|The El Dente Dentist|The Daily Planet|The DHARMA Initiative|The Flannel Islands|The Frying Dutchman|The Fudge-itive|The Gaslight Café|The Hanso Foundation|The Lanford Lunch Box|The Lids Are All Tight: Storage Containers|The Live Corp Company|The Merchant of Tennis|The Outlet Outlet|The Peach Pit|The Pie Hole|The Pie Palace|The Snugly Duckling|The Thesaurus Shop - Store - Market - Boutique|The Very Big Corporation of America|There Yacht-A Be A Law: Maritime Lawyers|Town of Woodbury|Tri-Borough Plastics|Tru Blood|Try-N-Save|Tycho Manufacturying and Engineering Concern|Tyrell Corp.|Umbrella Corporation|Unnecessaries|Vamanos Pest Control|Vandelay Industries|Vault-Tec Corporation|Veidt Industries|Very Good Building|Vermont Highway Patrol|Visor Advisor|Walley World|Warbucks Industries|Ward Electric|Wattz Electronics|Wayne Enterprises|WESAYSO Corporation|Weight For It Gym Equipment|We'll Always Have Ferrets|Weyland Industries|Weyland-Yutani|Whacky Khaki|Whine Country Marriage Counseling|Whole Lotta Shaker Furniture Going On|Wonka Industries|Youngstown State Football|You're Missing the Poinsettia|Yoyodyne Propulsion Systems|You Can't Handle the Ruth Baseball Cards|Zombieland"
- adv := "Accidentally|Angrily|Anxiously|Awkwardly|Badly|Beautifully|Blindly|Boldly|Bravely|Brightly|Busily|Calmly|Carefully|Carelessly|Cautiously|Cheerfully|Clearly|Closely|Correctly|Courageously|Cruelly|Daringly|Deliberately|Doubtfully|Eagerly|Easily|Elegantly|Enormously|Enthusiastically|Equally|Eventually|Exactly|Faithfully|Fast|Fatally|Fiercely|Fondly|Foolishly|Fortunately|Frankly|Frantically|Generously|Gently|Gladly|Gracefully|Greedily|Happily|Hard|Hastily|Healthily|Honestly|Hungrily|Hurriedly|Inadequately|Ingeniously|Innocently|Inquisitively|Irritably|Joyously|Justly|Kindly|Lazily|Loosely|Loudly|Madly|Mortally|Mysteriously|Neatly|Nervously|Noisily|Obediently|Openly|Painfully|Patiently|Perfectly|Politely|Poorly|Powerfully|Promptly|Punctually|Quickly|Quietly|Rapidly|Rarely|Really|Recklessly|Regularly|Reluctantly|Repeatedly|Rightfully|Roughly|Rudely|Sadly|Safely|Selfishly|Sensibly|Seriously|Sharply|Shyly|Silently|Sleepily|Slowly|Smoothly|So|Softly|Solemnly|Speedily|Stealthily|Sternly|Straight|Stupidly|Successfully|Suddenly|Suspiciously|Swiftly|Tenderly|Tensely|Thoughtfully|Tightly|Truthfully|Unexpectedly|Victoriously|Violently|Vivaciously|Warmly|Weakly|Wearily|Well|Wildly|Wisely"
- adj := "Able|Adamant|Adaptive|Adroit|Adventurous|Affable|Agreeable|Amatory|Ambitious|Amiable|Amusing|Animistic|Antic|Arcadian|Balanced|Baleful|Bellicose|Bilious|Boorish|Brave|Bright|Calamitous|Calm|Capable|Caustic|Cerulean|Charming|Clever|Comely|Compassionate|Concomitant|Considerate|Contumacious|Corpulent|Courageous|Crapulous|Creative|Decisive|Defamatory|Determined|Didactic|Dilatory|Discreet|Dowdy|Dynamic|Easy-Going|Efficacious|Effulgent|Egregious|Endemic|Enthusiastic|Equanimous|Execrable|Exuberant|Faithful|Fastidious|Fearless|Feckless|Fecund|Friable|Friendly|Fulsome|Funny|Garrulous|Generous|Gentle|Good|Guileless|Gustatory|Hard-Working|Heuristic|Histrionic|Honest|Hubristic|Humorous|Incendiary|Independent|Insidious|Insolent|Intelligent|Intransigent|Intuitive|Inveterate|Invidious|Irksome|Jejune|Jocular|Judicious|Kind|Lachrymose|Limpid|Loquacious|Loving|Loyal|Luminous|Mannered|Mendacious|Meretricious|Minatory|Modest|Mordant|Munificent|Nefarious|Nice|Noxious|Obtuse|Optimistic|Parsimonious|Patient|Pendulous|Pernicious|Pervasive|Petulant|Pioneering|Platitudinous|Polite|Powerful|Precipitate|Propitious|Puckish|Querulous|Quiescent|Rebarbative|Recalcitrant|Redolent|Reliable|Resourceful|Rhadamanthine|Risible|Ruminative|Sagacious|Salubrious|Sartorial|Sclerotic|Self-Confident|Sensible|Serpentine|Sincere|Spasmodic|Strident|Taciturn|Tenacious|Thoughtful|Tough|Tremulous|Trenchant|Turbulent|Turgid|Ubiquitous|Uxorious|Verdant|Versatile|Voluble|Voracious|Wheedling|Willing|Withering|Zealous"
- noun := "Addenda|Addendums|Aircraft|Alumnae|Alumni|Analyses|Antennae|Antennas|Antitheses|Apexes|Apices|Appendices|Appendixes|Axes|Bacilli|Bacteria|Bases|Beaus|Beaux|Bison|Bureaus|Bureaux|Cacti|Cactus|Cactuses|Châteaus|Châteaux|Children|Codices|Concerti|Concertos|Corpora|Crises|Criteria|Criterions|Curricula|Curriculums|Data|Deer|Deers|Diagnoses|Dice|Dies|Dwarfs|Dwarves|Ellipses|Errata|Faux|Feet|Fezes|Fezzes|Fish|Fishes|Foci|Focuses|Foot|Formulae|Formulas|Fungi|Funguses|Geese|Genera|Genuses|Graffiti|Grouse|Grouses|Halves|Hoofs|Hooves|Hypotheses|Indexes|Indices|Larvae|Larvas|Libretti|Librettos|Lice|Loaves|Loci|Matrices|Matrixes|Media|Mediums|Memoranda|Memorandums|Men|Mice|Minutiae|Moose|Nebulae|Nebulas|Nuclei|Nucleuses|Oases|Offspring|Offsprings|Opera|Opuses|Ova|Ox|Oxen|Parentheses|Phenomena|Phenomenons|Phyla|Quizzes|Radii|Radiuses|Referenda|Referendums|Salmon|Salmons|Scarfs|Scarves|Selves|Series|Sheep|Shrimp|Shrimps|Species|Stimuli|Strata|Swine|Syllabi|Syllabuses|Symposia|Symposiums|Synopses|Tableaus|Tableaux|Teeth|Theses|Thieves|Trout|Trouts|Tuna|Tunas|Vertebrae|Vertebras|Vertexes|Vertices|Vitae|Vortexes|Vortices|Wharfs|Wharves|Wives|Wolves|Women"
- ; Parse through the 4 lists
- Loop, Parse, % "clist adv adj noun", % " "
- ; Created a varaible based on the current parse name
- ; For the first one, it's clist. So this makes a clistArr variable
- ; Then it splits the clist string by pipe character
- %A_LoopField%Arr := StrSplit(%A_LoopField%, "|")
- ; At this point, you now have 4 arrays. clistArr, advArr, adjArr, and nounArr
- ; Make sure you end your AES
- ; You can use return or exit
- Exit
- ; No need for all that clipboard stuff here. The clients and titles are so small that SendInput is fine for this.
- ; Also, USE FUNCTIONS!!! They're wonderful. Don't make more work by retyping stuff where only one thing changes.
- ; If you're typing something similar over and over, it's time for a function or a loop!
- ; And note that these don't need returns because they're inline hotkeys (hotkey and a single command on the same line)
- ; Hotkey to generate a client
- !^r::SendInput, % PickAWord(clistArr)
- ; Hotkey to generate a title
- !^s::SendInput, % PickAWord(advArr) " " PickAWord(adjArr) " " PickAWord(nounArr)
- ; Function to pick a word from an array
- PickAWord(arr){
- ; Get a word between the first and last index
- Random, rand, % arr.MinIndex(), % arr.MaxIndex()
- ; Returns the selected element to the caller
- ; The rand number is used as an index to pick one of the elements from the supplied array
- Return arr[rand]
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement