/tg/Station 13

Code: Select all

def Initialize() {
$words = vector(
   "assistant", "Goofy Goober",
   "captain", "King Neptune",
   "head of personnel", "Princess Mindy",
   "bartender", "Squidward",
   "chef", "Bubble Bass",
   "botanist", "Sandy Cheeks",
   "quartermaster", "Salty Spitoon",
   "cargo technician", "Bouncer",
   "shaft miner", "Jellyfish",
   "clown", "Mermaid Man",
   "mime", "Barnacle Boy",
   "janitor", "Gary the Snail",
   "librarian", "Squilliam Fancyson",
   "lawyer", "Sunny Shores Salesman",
   "chaplain", "Sandals",
   "chief engineer", "Patchy the Pirate",
   "station engineer", "Potty the Parrot",
   "atmospheric technician", "Johnny Elaine",
   "chief medical officer", "Mrs. Puff",
   "medical doctor", "Purple Doctorfish",
   "chemist", "Old man Jenkins",
   "geneticist", "Larry the Lobster",
   "virologist", "Viro",
   "research director", "Lord Reginald",
   "scientist", "Professor Percy",
   "roboticist", "Dr. Marmalade",
   "head of security", "Man-Ray",
   "warden", "Flying Dutchman",
   "detective", "Jack M. Crazyfish",
   "security officer", "Health Inspector",
   "ai", "Mr. Krabs",
   "cyborg", "Spongeborg",
   "personal ai", "patrickAI",
    );
    
    $index = 1;
  while($index <= length($words))
 {
   $key = at($words, $index);
   $value = at($words, $index+1);
  mem($key,$value);
  $index += 2;
 }
}

if(mem("initialized") != 1)
{
 Initialize();
 mem("initialized", 1);
}

$foo = "";
$joblow = lower($job);

if(mem($joblow)) { $foo = mem($joblow); }
else { $foo = substr($job, 1, 6); }

if (!find($source, "Unknown") && $job != "No id" && !find($source, " (as ")) {
$source = $source + " (" + $foo + ")"; }