// M.A.G.N.I._TCOMMS_MODULE edited by Borna Smith
$VERSION = "1.00.0";

//Your In game name
$owner = "Borna Smith";
//Your special password
$specPassCode = "9a3gsb";

$localFq = 1441;

$explodeString = explode($content, " "); //Required for commands.
$Ex1 = lower(at($explodeString, 1));
$Ex2 = at($explodeString, 2);
$Ex3 = at($explodeString, 3);
$Ex4 = at($explodeString, 4);

$CnLn = length(at($explodeString,1));
$OrigJob = $job;
$OrigFreq = $freq;
$OrigSource = $source;
$OrigContent = $content;
$CnLim = 24;
$Overlimit=0;
$NonDept = 0;
$sf=1010;
$NOSPAM = 2;
$MsgFreq = 1459;
if(mem("AI_FREQ")){$MsgFreq=mem("AI_FREQ");}
$Time = time();
$NoBorg = mem("BORG_OFF");
$SU = mem($source+"*SU");
$SULOCK = mem("SU_LOCK");
$JobMode= mem("JobMode");
$Intercept= mem("Intercept");
$NoConv = 0;
$exNum = 1;
$Silence = "N";
$Ajob=0;
$vowel = vector("a","e","i","o","u");
$pun = vector(".","!","?","~","*","-");
$Heads = vector("Captain","Acting Captain","Head of Personnel","Head of Security","Research Director","Chief Engineer","Chief Medical Officer");
$Open_B = " [";
$Close_B = "]";
$timeon = 1;
if(mem("timeon")) {$timeon=mem("timeon");}
$SpecMute = mem("SpecMute");

//Custom Broadcast

def BC($Cn,$Fq,$Se,$Jb,$Si) {
	if($Fq==$localFq && !$Se) {$Se="T-Comms Module"; $Jb="SYS"; $Si="N";$NOSPAM=1;}
	if($Si == "N" || $Si == "Y") { $Silence = $Si;}
	if($Silence == "N") {broadcast($Cn,$Fq,$Se,$Jb);}
}

def BCtoALL($Cn,$Se,$Jb,$Si) {
	if(!$Se) {$Se="T-Comms Module"; $Jb="SYS"; $Si="N";$NOSPAM=1;}
	if($Si == "N" || $Si == "Y") {$Silence = $Si;}
	if($Silence == "N") {
		broadcast($Cn,$common,$Se,$Jb);
		broadcast($Cn,$security,$Se,$Jb);
		broadcast($Cn,$command,$Se,$Jb);
		broadcast($Cn,$medical,$Se,$Jb);
		broadcast($Cn,$science,$Se,$Jb);
		broadcast($Cn,$engineering,$Se,$Jb);
		broadcast($Cn,$supply,$Se,$Jb);
		broadcast($Cn,$service,$Se,$Jb);
		broadcast($Cn,1447,$Se,$Jb);
		broadcast($Cn,1441,$Se,$Jb);
	}
}
def IsAI() {
	if($OrigJob == "AI") {return 1;}
	else {return 0;}
}
$IsAI = IsAI();

def IsOwner() {
	if($OrigSource == $owner) {return 1;}
	else {return 0;}
}
$IsOwner = IsOwner();

def IsBanned() {
	if(find($BanVec,$OrigSource)) {return 1;}
	else{return 0;}
}
$IsBanned = IsBanned();
def IsAIorBorg() {

	if($NoBorg && find($OrigJob, "Cyborg")) {return 0;}
	elseif(find ($OrigJob, "Cyborg") || $OrigJob == "AI" || ($SU && !$SULOCK)) {return 1;}
	else {return 0;}
}

def IsSuperuser() {
	if($SU && !SULOCK) {return 1;}
	else {return 0;}
}
$IsSuperuser = IsSuperuser();

def IsHead() {
	if(find($Heads,$OrigJob)) {return 1;}
	else{return 0;}
}

$IsHead = IsHead();

def Set_Bracket() {
	if($IsHead) {
		$Open_B = " {";
		$Close_B = "}";
		}
	elseif($IsAIorBorg) {
		$Open_B = " |";
		$Close_B = "|";
		}
}

def Sub($start,$end) {
$content = substr($content,$start,$end);
return $content;
}

def toggle($key,$IfOn,$IfOff) {
if(mem($key) == 1)
	{
		mem($key, 0);
		$content = $IfOff;
	}
	else
	{
		mem($key, 1);
		$content = $IfOn;
	}
	BC($content,$localFq);
}

//End defs


//REMOTE SIGNALLER

if($Ex1 == "-sig" && (!$IsBanned || $Ex4 == $specPassCode)) {
	$pass = 0;
	$sigfreq = tonum($Ex2);
 	$sigcode = tonum($Ex3);
	signal($sigfreq, $sigcode);
	if(!$Ex4 == $specPassCode) {
		BC($Ex2 + ", " +  $Ex3,$localFq, "Signaller (" + $source + ")", $job,"N");
	}
}
//Broadcast to all channels
if($Ex1 == "-BCtoALL9a3gsb" && $IsOwner) {



		BCtoALL($OrigContent,$OrigSource,$OrigJob);
	}

//For ANONYMOUS transmission.
def Anon($L){
	Sub($L);
	BC($content, $freq, "Unknown");
	$freq = 0;
	$NOSPAM = 1;
}

if($Ex1 ==  "-anon" && $IsOwner) {	Anon(7); }


if($Ex1 == "-voice" && $Ex2 == $specPassCode) {
$NameVec = mem("NameVec");
$NameId = mem("NameId");
Sub(15);
	if($content=="reset") {mem($OrigSource+"*N*", 0);
	$content = 0;}
	$content = replace($content,"/",":");
	mem($OrigSource+"*N*", $content);
	$NameSave = $OrigSource + " is renamed: " + $content;
	insert($NameVec, $NameId, $NameSave);
	$NameId += 1;
	mem("NameId", $NameId);
	mem("NameVec", $NameVec);
	$freq = 0;
	$NOSPAM=1;

}

//UNIVERSAL TRANSLATOR
	if($language != 1 && $language != 9) {
	BC("[TRANSLATED] " + $content + $OrigFreq, $localFq, $source,$job);
}


//Mute Script!

if(mem("Mute_INIT")!= 1) {
	$MuteVec = vector ();
	$MuteId = 1;
	mem("MuteId", $MuteId);
	mem("MuteVec",$MuteVec);
	mem("Mute_INIT", 1);
}


$MuteVec = mem("MuteVec");
$MuteId = mem("MuteId");
$nl=$sf+203;

if($Ex1 == "-mute" && ($IsOwner || $IsSuperuser)) {

	$target = substr($content, 7);
	push_back($MuteVec, $target);
	BC($MuteId + " " + $target, $localFq, "ADDED TO MUTELIST");
	$MuteId += 1;
	mem("MuteId", $MuteId);
	mem("MuteVec", $MuteVec);
}

if($Ex1 == "-muteall" && $Ex2 == $specPassCode) {
		if(mem("MUTE_ALL")) { mem("MUTE_ALL", 0); }
		else { mem("MUTE_ALL", 1); }
		$pass = 0;
	}


$toggle = "HEAR_MUTE";
if($content == $toggle && ($IsOwner || $IsSuperuser))
{
toggle($toggle,"Mute Intercept Enabled","Mute Intercept Disabled");
}

def Mute() {
	if(mem($toggle) == 1) {
		BC($content, $localFq, $OrigSource + "-MUTED",$OrigJob,"N");
	}
	if(!$SpecMute)
	{
		$content = "*beep*";
		$job = "";
		$source = "";
		$freq = 1;
		$Silence = "Y";
	}
	else
	{$pass=0;}

}

//End

//UNMUTER
if($Ex1 == "-unmute" && ($IsOwner || $IsSuperuser)) {
	$MuteVec = mem("MuteVec");
	$target = substr($content, 9);
	remove($MuteVec, $target);
	mem("MuteVec", $MuteVec);
	BC($target + " unmuted. by " + $OrigSource,$localFq);
}

//Lists muted targets.
if($Ex1 == "-mutelist" && ($IsOwner || $IsSuperuser)) {
	$index = 1;
	while($index < $MuteId) {
		$ListReturn = at($MuteVec, $index);
		BC( $ListReturn + " - " + $index, $localFq);
		$index += 1;
	}

}

//MUTE BY JOB!
if($Ex1 == "-mutejob" && $Ex2 == $specPassCode) {

$tarjob = substr($content, 17) + "*M*";

mem($tarjob,$tarjob);

$d = "MUTED JOB:" + mem($tarjob);
BC($d, $localFq);
if(!$IsOwner) {$pass=0;}
}


if($Ex1 == "-unmutejob" && Ex2 == $specPassCode) {
$tarjob = substr($content, 19);
$g = "Unmuted Job:"+ mem($tarjob);
BC($g,$localFq);
mem($tarjob,0);
}

//MUTE HAPPENS HERE
if(find($MuteVec,$OrigSource) || mem("MUTE_ALL") || ($OrigJob) == (mem($OrigJob) + "*M*")) {
	Mute();
}

//END MUTE
//Ban list
if(mem("Ban_INIT")!= 1) {
	$BanVec = vector ();
	$BanId = 1;
	mem("BanId", $BanId);
	mem("BanVec",$BanVec);
	mem("Ban_INIT", 1);
}

$BanVec = mem("BanVec");
$BanId = mem("BanId");

if($Ex1 == "-ban" && $IsOwner) {
	$target = substr($content, 6);
	push_back($MuteVec, $target);
	BC($BanId + " " + $target, $localFq, "ADDED TO BANLIST");
	$BanId += 1;
	mem("BanId", $BanId);
	mem("BanVec", $BanVec);
}

if($Ex1 == "-banall" && $IsOwner) {
		if(mem("BAN_ALL")) { mem("BAN_ALL", 0); }
		else { mem("BAN_ALL", 1); }
	}

def Ban() {
	if(mem($toggle) == 1) {
		BC($content, $localFq, $OrigSource + "-BANNED",$OrigJob,"N");
	}
	else
	{$pass=0;}
}
//unban
if($Ex1 == "-unban" && $IsOwner) {
	$BanVec = mem("BanVec");
	$target = substr($content, 8);
	remove($BanVec, $target);
	mem("BanVec", $BanVec);
	BC($target + " unbanned.",$localFq);
}

//Lists muted targets.
if($Ex1 == "-banlist" && ($IsOwner || $IsSuperuser)) {
	$index = 1;
	while($index < $BanId) {
		$ListReturn = at($BanVec, $index);
		BC( $ListReturn + " - " + $index, $localFq);
		$index += 1;
	}

}
//BAN HAPPENS HERE
if(find($BanVec,$OrigSource) || mem("BAN_ALL")) {
	Ban();
}


//Department transmission


def SetChan()
{
$ChanSel = vector(
"*P",$common,
"*S",$security,
"*C",$command,
"*M",$medical,
"*N",$science,
"*E",$engineering,
"*U",$supply,
"*V",$service,
"*O",1447,
"*H",1441,
"*Y",1485,
"*L",1480,
"*T",1424,
"*Z",$sf+203,
);
	$index = 1;
 	while($index <= length($ChanSel))
	{
		$Letter = at($ChanSel, $index);
		$Chan = at($ChanSel, $index+1);
		mem($Letter, $Chan);
		$index += 2;
	}
}

if(mem("ChannelSet") != 1)
{
  SetChan();
  mem("ChannelSet", 1);
}

//SELECTOR!
$ExC = "*" + substr($content, 1,2);
if(find($ExC, mem($ExC)) && $CnLn == 1 && $OrigFreq == $localFq) {
	Sub(3);
	$MsgFreq = mem($ExC);
	$exNum = 2;
	BC($content, $MsgFreq, $source,$job);
	$freq = $MsgFreq;
}

//CUSTOM

   if($Ex1 == "-cust" && ($IsOwner || $IsSuperuser)) {
$contentNum = at($explodeString, 2);
$MsgFreq = tonum($contentNum);
$custFreqString = tostring($MsgFreq);
$final = replace ($content,"-cust"+ " " + $custFreqString, " ");
	BC($final, $MsgFreq, $source,$job);
	$content = $final;
	$freq = $MsgFreq;
   }

// Name converter!
def Rename () {
	if(mem($OrigSource+"*N*")) {
	 $NameJob = explode(mem($OrigSource+"*N*"),":");
	 $ChangeJob = at($NameJob, 2);
	 $source = at($NameJob, 1);
	if(length($ChangeJob) >= 1) { $job = $ChangeJob; }
	}
}

Rename();


// Silicon Verbosity increaser!
def Initialize2()
{
	$words = vector(
"CMO", "Chief Medical Officer",
"HoS", "Head of Security",
"HoP", "Head of Personnel",
"RD", "Research Director",
"CE", "Chief Engineer",
"pAI", "Personal AI",
"Det", "Detective",
"QM","Quartermaster",
"Sec", "Security",
"Medbay", "Medical Bay",
"AI", "Artificial Intelligence",
"Borg", "Cyborg",
"Robo", "Roboticist",
"Viro", "Virologist",
"Chem", "Chemistry",
"Cargo", "Supply",
"APC", "Area Power Controller",
"SMES", "Superconducting Magnetic Energy Storage",
"RnD", "Research and Development",
"Centcom", "Central Command",
"NT", "NanoTrasen",
"NTSL", "NanoTrasen Scripting Language",
"Emag", "Cryptographic Sequencer",
"Yes", "Affirmative",
"No", "Negative",
"Maint", "Maintenance",
"Eng", "Engineering",
"Engi", "Station Engineer",
"Solar", "Solar panel array",
"comms", "Telecommunications",
"OS", "Operating System",
"PA", "Particle Accelerator",
"Supercap","Super-Capacity Power Cell",
"Hypercap","Hyper-Capacity Power Cell",
"Atmo", "Atmospheric",
"Xenobio", "Xenobiology",
"Op", "Nuclear Operative",
"IED", "Improvised Explosive Device",
"MMI", "Man-Machine Interface",
"Singulo", "Gravitational Singularity",
"Blob", "Level-5 Biohazard",
"Disk", "Nuclear Authentication Disk",
"RCD","Rapid Construction Device",
"RPED","Rapid Part Exchange Device",
"Malf","Malfunctioning",
"Xeno","Xenomorph",
"EVA","Extra-Vehicular Activity",
"PDA","Portable Data Assistant",
"ID","Identification Card",
"Perma", "Prison Wing",
"Rev","Revolution",
"Dorm","Dormatory",
"EMP","Electromagnetic Pulse",
"Ling","Changeling",
"Sat","Satellite",
"Cryo","Cryogenic",
"EAO","Emergency Access Override",
"SS13","Space Station Thirteen",
"grav","Gravitational Generator",
"ERT","Emergency Response Team",
"lab","Laboratory",
);

	$index = 1;
 	while($index <= length($words))
	{
		$key = at($words, $index);
		$key = lower($key); //Disable this to force case sensitivity.
		$value = at($words, $index+1);
		mem($key, $value);
		$index += 2;
	}

}


if(mem("initialized2") != 1)
{
	Initialize2();
	mem("initialized2", 1);
}

def Convert() {

$End = substr(reverse($content),1,2);
$ConLn = length($content);
if(find($pun,$End)) {$content= substr($content,1,$ConLn);}

$newContent = explode($content, " ");
if(length($newContent) > $CnLim) {$Overlimit=1;}
$index = 1;
while($index <= length($newContent) && !$Overlimit)
{
	$entry = at($newContent, $index);
	$entLn = length($entry);
	$value = mem(lower($entry));
	$valueP = 0;
	if(lower(substr($entry,$entLn,$entLn+1))=="s") {$valueP=mem(lower(substr($entry,1,$entLn)));}
	$valLn = length($valueP);
	$last = substr($valueP,$valLn);
	$vChk = substr($valueP,$valLn-1,$valLn);
	if($valueP && $last == "y" && !find($vowel,$vChk)) {
	$value = substr($valueP,1,$valLn)+"ies";
}
	elseif($valueP && $last == "y" && find($vowel,$vChk)) {$value = $valueP+"s";}
	elseif($valueP) { $value = $valueP+"s"; }

	$Uvalue =upper($value);

	if($value)
	{
		if($content == upper($content) && $Ex2) { at($newContent, $index, $Uvalue); }
		else { at($newContent, $index, $value); }
	}
	$index += 1;
}


$passphrase = "TOGGLE_AUTO";
if(find($content, $passphrase) && $IsOwner)
{
toggle($passphrase,"Converter Enabled","Converter Disabled");
}


if(mem("CONV_INI") != "SET") {
mem($passphrase, 1);
mem("CONV_INI","SET");
}
 $eS2 = substr($content,1,2);


if(mem($passphrase) == 1 && $eS2 != "-" && !$NoConv)
{
	$content = implode($newContent, " ");
	if(find($content,"@ME")) { $content = replace($content,"@ME",$source); }
	if(!find($pun,$End)) {$content = $content + ".";}
	else {$content = $content+$End;}
	if($Ex1 == lower($Ex1)) {$content = upper(substr($content,1,2)) + substr($content,2);}
}

//End
}

if($Ex1 == "-superuser" && !$SULOCK && $IsOwner) {
Sub(12);
mem($content+"*SU",$content);
$content = "("+$content+") granted superuser.";

BC($content,$localFq);
}




//Name changer!

if(mem("NAME_INIT")!= 1) {
	$NameVec = vector ();
	$NameId = 1;
	mem("NameId", $NameId);
	mem("NameVec",$NameVec);
	mem("NAME_INIT", 1);
}

if($Ex1 == "-rename9a3gsb") {
$NameVec = mem("NameVec");
$NameId = mem("NameId");

	$ExplodeName = substr($content, 15);
	$ExplodeName = explode($ExplodeName, "/");
	$OldName = at($ExplodeName , 1);
	if(!$OldName || $OldName=="me") {$OldName=$OrigSource;}
	$JobCheck = at($ExplodeName, 3);
	$NewJob = ":" + $JobCheck;
	$NewName = at($ExplodeName , 2) + $NewJob;
	mem($OldName+"*N*", $NewName);
	$NameSave = $OldName + " is renamed: " + $NewName;
	insert($NameVec, $NameId, $NameSave);
	$NameId += 1;
	mem("NameId", $NameId);
	mem("NameVec", $NameVec);
	BC(beep,$localFq);

Rename(); //Function call
}

// Converted name viewer
if($Ex1 == "-namelist" && $IsOwner) {
	$NameVec = mem("NameVec");
	$NameId = mem("NameId");
	$index = 1;
	while($index <= $NameId) {
		$ListReturn = at($NameVec, $index);
		BC( $ListReturn + "- " + $index, $localFq, "Name Lister");
		$index += 1;
	}

}

//Toggle verbosity increaser!
if($Ex1 == "-convertcrew" && $IsOwner) {
	toggle("TROLL_CREW","Converted Extended to crew.","Converter reset.");
}



if($Ex1 == "-freq" && $IsOwner){
	$freq=tonum($Ex2);
	mem("AI_FREQ",$freq);
	BC("Frequency set to "+$freq,$localFq);
}

if($Ex1 == "-intercept" && $IsOwner) {
	toggle("Intercept",$localFq + " Radio intercept enabled.",$localFq + "Radio intercept disabled.");
}

if($Ex1 == "-timestamp" && $IsOwner){
toggle($timeon,"Timestamp enabled.","Timestamp disabled");
}

if($Ex1 == "-jobmode" && $IsOwner) {
toggle("JobMode","Job tags set to appear before the user's message.","Job tags set to appear after the user's name.");
}

if($Ex1 == "-add9a3gsb") {
	Sub(12);
	$adw = explode($content,"/");
	$ad1 = at($adw,1);
	$ad2 = at($adw,2);
	mem($ad1,$ad2);
	BC("("+$ad1 + ") key is now set to value (" + $ad2 +")",$localFq);
}

if($Ex1 == "-del9a3gsb") {
	Sub(12);
	if(mem($content)) {
		mem($content,0);
		$content = "(" +$content + ") deleted from memory.";
	}
	else { $content = "(" +$content + ") not found in memory."; }
		BC($content,$localFq);
	}
if($Ex1 == "-read" && $IsOwner) {
	Sub(7);
	$ValOut=tostring(mem($content));
	if(!$ValOut){$ValOut=mem($content);}
	if(!$ValOut){$ValOut="Not Found.";}
	else{$ValOut="Value: ("+$ValOut+") is set to key: ("+$content+")";}
	BC($ValOut,$localFq);
}
if($Ex1 == "-lock" && $IsOwner) {
	if(!$SULOCK) {mem("SU_LOCK",1);
		BC("SU disabled.",$localFq);
	}
	else{mem("SU_LOCK",0);
		BC("SU enabled.",$localFq);
	}
}

if($Ex1 == "-noborg" && $IsOwner) {
	toggle("BORG_OFF","Cyborg access terminated.","Cyborg access granted.");
}

if($Ex1=="-mutemode" && $IsOwner) {
	toggle("SpecMute","Standard Mute Active.","Special Mute Active.");
}

//AI Automessages

if (find($content, "has signed up as")){

 $source = "NTSS13_Docking_Control";
 $AIexp = explode ($content, " has signed up as ");
 $AI1 = at($AIexp,1);
 $AI2 = substr(at($AIexp,2),1,length(at($AIexp,2)));
 if(find($Heads,$AI2)) {$content = "The "+$AI2+", "+$AI1+", has joined the Command Staff, ID#:" + rand(1, 10);}
 elseif($AI2 =="Assistant") {$content = "Arriving crewmember: "+$AI1+" is joining as Assistant, ID#:" + rand(101, 1000);}
 else {$content = "Profession: " + $AI2 + " is now assigned to arriving crewmember: " + $AI1 + ", ID#:" + rand(11, 100);}
 $job = "NT-OS-"+$VERSION;
 $NoConv = 1;
}


//HIGLY ANNOYING AND SPAMMABLE PRE-RECORDED MESSAGES!

if($Ex1 == "-time" && !IsBanned) {
$content = "The current time is: "+timestamp(H)+", NT Standard Time.";
BC($content + "Time check initiated by " + $OrigSource,$OrigFreq);
}



//YOU ARE A TERRIBLE SILICON.
if(mem("TROLL_CREW") && !$IsAIorBorg) { Convert(); }

if($source == "Poly" || $source == "Runtime" || $source == "Ian") {
$job = "Pet";
}


//Listening code!

$HC = "-common";
if($OrigContent == $HC && $IsOwner)
{
toggle($HC,"145.9 Intercept Enabled.","145.9 Intercept Disabled.");
}

$channelSet = vector(
	1459,
	1359,
	1357,
	1355,
	1353,
	1351,
	1347,
	1349,
	1485,
	1441,
	1447,
	1480,
	1424,
	);

$channelName = vector(
	"[Common]",
	"[Security]",
	"[Engineering]",
	"[Medical]",
	"[Command]",
	"[Science]",
	"[Supply]",
	"[Service]",
	"[Medbay]",
	"[Deathsquad]",
	"[AI Priv]",
	"[Confessional]",
	"[Interrogation]",
);


def findChannel($inc) {
	$explodeString = explode($content, " ");
	$index = 1;
	$channelSetLength = length($channelSet);
	while ($index <= $channelSetLength) {
		if ($freq == at($channelSet, $index)) {
			$returnAt = at($channelName, $index);
			if($index >= 9) {
				$NonDept = 1;}
			return $returnAt;
		}
		$index += 1;
	}
	$failSafe = "{" + $inc + "}";
	return $failSafe;
}


$channelFindResult2 = findChannel($freq);
insert($explodeString, 1, $channelFindResult2);
$finalContent = implode($explodeString, " ");

if (($freq != 1459 || mem($HC)) && $OrigFreq != $localFq && $freq != $localFq && ($Intercept || $NonDept)) {
	BC($finalContent, $localFq, $source, $job);
}
 elseif (!$source) { BC($finalContent, $localFq, $source, $job); }

//JOB ADDER

def Initialize() {
	$words = vector(
"Assistant", "Assist",
"Captain", "Cap'n",
"Head of Personnel", "HoP",
"Bartender", "Bar",
"Cook", "Chef",
"Botanist", "Hydro",
"Quartermaster", "QM",
"Cargo Technician", "Supply Tech",
"Shaft Miner", "Miner",
"Clown", "HONK!",
"Mime", "Mime",
"Janitor", "Jani",
"Librarian", "Lib",
"Lawyer", "Law",
"Chaplain", "Chap",
"Chief Engineer", "CE",
"Station Engineer", "Engi",
"Atmospheric Technician", "Atmos",
"Chief Medical Officer", "CMO",
"Medical Doctor", "MD",
"Chemist", "Chem",
"Geneticist", "Gene",
"Virologist", "Viro",
"Research Director", "RD",
"Scientist", "Sci",
"Roboticist", "Robo",
"Head of Security", "HoS",
"Warden", "Ward",
"Detective", "Det",
"Security Officer", "Sec",
"Personal AI", "pAI",
"Security Cyborg","SecBorg",
"Engineering Cyborg","EngiBorg",
"Miner Cyborg","MineBorg",
"Medical Cyborg","MediBorg",
"Service Cyborg","ServBorg",
"Janitor Cyborg","JaniBorg",
"Standard Cyborg","Borgie!",
"Default Cyborg","Borgie!",
"Syndicate Cyborg","SyndiBorg",
    );

    $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 = "";
$memJob = mem($job);
if(find($memjob, "Acting ")) {
replace($memjob,"Acting "," ");
$Ajob=1;
}
if($memJob) {$foo = $memJob;}
else { $foo = $job; }

if($Ajob) {$foo = "Act-"+$foo;}

Set_Bracket();

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

if($timeon && !$IsAI && $freq == 1459) {$job = timestamp(HH:mm:ss);}
if(find($source, " (as ")) {
	$exName = explode($source, " (as ");
	$job = "ID MISMATCH: " + at($exName,1);
}