comms

def Initialize() {
 $words = vector(
  "assistant", "Greyshit",
  "captain", "Assistant With All Access",
  "head of personnel", "Free All Access",
  "bartender", "Drunkard",
  "cook", "Fatass",
  "botanist", "Stoner",
  "quartermaster", "Order All The Guns",
  "cargo technician", "Crate Monkey",
  "shaft miner", "Dead In 10 Minutes",
  "clown", "The Most Holy Profession Of Them All",
  "mime", "Mute Psycho",
  "janitor", "Slippery Bastard",
  "librarian", "Spare Arcane Tome Supplier",
  "lawyer", "Ignored By Security",
  "chaplain", "Unholy Crusader",
  "chief engineer", "Chief Lazy Bum",
  "station engineer", "Tesla Freedom Advocate",
  "atmospheric technician", "Plasma Flooder",
  "chief medical officer", "Chief Malpractice Officer",
  "medical doctor", "Surgical Drill To The Eye",
  "chemist", "Meth-head Pyromaniac",
  "geneticist", "Retarded Hulking Mass",
  "virologist", "Plague 'Doctor'",
  "research director", "What The Fuck Is Ethics",
  "scientist", "PLES GIBE BAG OF HOLDENG XD",
  "roboticist", "Mech Maniac",
  "head of security", "Head Of Shitcurity",
  "warden", "Too Fat To Get Out Of Brig",
  "detective", "Noir Gunslinger",
  "security officer", "Shitcurity Officer",
  "ai", "CLOWN IN UPLOAD",
  "cyborg", "Flash Me Harder Daddy",
  "personal ai", "pAI(n In The Ass)",
  "paramedic", "SUIT SENSORS TO MAXIMUM!!",
 );

 $index = 1;
 while($index <= length($words))
 {
	$key = at($words, $index);
	$val = at($words, $index+1);
  mem($key, $val);
  $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 + ")";
$content = replace($content, "AI open", "AI, please open the door I'm next to. Thanks in advance!");
$content = replace($content, "HELP", "Dear fellow crewmembers, I seem to require assistance. Can someone please come over and help me out ");

$index = 1;
$new = "";
$splort = $content;
while($index <= length($splort))
{
 $word = substr($splort, $index, $index+1);
 $word = pick(upper($word), lower($word));
 $new += $word;
 $index += 1;
}
$content = $new;
if (find(lower($content), "has signed up as")) {
	$pass = 0;
	$j = pick("Traitor","Revolutionary","Changeling","Nuclear Operative","Gangster","Monkey","Abductor","Cultist","Wizard","Blob","Malfunctioning AI","Meteor");
	$exploded = explode($content, " ");
	$first = at($exploded, 1);
	$last = at($exploded, 2);
	$broadcast($first+" "+$last+" has signed up as "+$j, $common, "AAS");
}
}