I found a nice tcommscript for the ai i want to share.

BiberDark · November 23, 2016

https://forums.yogstation.net/index.php ... coms.3072/

//M.A.G.N.I._TCOMMS_MODULE ver.1.58

//USE_INTENT: Station AI units

//AUTH_USAGE: NT Rated AI units, NTSL Licensed Crew

$Sfq = 1441;

$Pfq = 1447;

if(mem("TALK_FREQ")) { $Sfq = mem("TALK_FREQ"); }

if(mem("PRIV_FREQ")) { $Pfq = mem("PRIV_FREQ"); }

$explodeString = explode($content, " "); // Breaks $content apart for processing. Required for commands.

$Ex1 = lower(at($explodeString, 1));

$Ex2 = at($explodeString, 2);

$Ex3 = at($explodeString, 3);

$CnLn = length(at($explodeString,1));

$OrigJob = $job;

$OrigFreq = $freq;

$OrigSource = $source;

$OrigContent = $content;

$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");

$NoConv = 0;

$exNum = 1;

$Silence = "N";

$vowel = vector("a","e","i","o","u");

$pun = vector(".","!","?","~","*","-");

$Heads = vector("Captain","Head of Personnel","Head of Security","Research Director","Chief Engineer","Chief Medical Officer");

def BC($Cn,$Fq,$Se,$Jb,$Si) {

if($Si == "N" || $Si == "Y") { $Silence = $Si;}

if($Silence == "N") {broadcast($Cn,$Fq,$Se,$Jb);}

}

def IsAI() {

if($OrigJob == "AI" || $OrigSource == "Princess Nexie" || $OrigSource == "Nexendia" ) {return 1;}

else {return 0;}

}

$IsAI = IsAI();

def IsAIorBorg() {

if($NoBorg && $OrigJob == "Cyborg") {return 0;}

elseif($OrigJob == "Cyborg" || $OrigJob == "AI" || $OrigSource == "Princess Nexie" || $OrigSource == "Nexendia" || $OrigSource == "Luna Ray" || ($SU && !$SULOCK)) {return 1;}

else {return 0;}

}

$IsPony = IsPony();

def IsPony() {

if($OrigSource == "Nexendia" || $OrigSource == "Princess Nexie") {return 1;}

else {return 0;}

}

$IsAIorBorg = IsAIorBorg();

def IsHead() {

if(find($Heads,$OrigJob)) {return 1;}

else{return 0;}

}

$IsHead = IsHead();

def Sub($start,$end) {

$content = substr($content,$start,$end);

return $content;

}

def implode($vector, $adder)

{

$returnString = "";

$index = 1;

while($index <= length($vector))

{

$at = at($vector, $index);

$toAdd = $adder;

if($index == 1)

{

$toAdd = "";

}

$returnString = $returnString + $toAdd + $at;

$index += 1;

}

return $returnString;

}

def Elapsed() {

$S_Time = tonum(mem("Start_Time"));

if(!$S_Time) {

$S_Time = tostring($Time);

mem("Start_Time",$S_Time);

}

else {

$C_Time = $Time - tonum(mem("Start_Time"));

return $C_Time;

}

def CntDwn($T_Base) {

if($T_Base > 0) {

$T_Start = time();

$T_Start = $T_Start + $T_Base;

$T_Base = tostring($T_Base);

$T_Start = tostring($T_Start);

mem("COUNTDOWN",$T_Start);

return "S";

}

else {

$T_Result = tonum(mem("COUNTDOWN")) - $Time;

if ($T_Result > 0) { return $T_Result; }

if ($T_Result < 0) { return "X"; }

}

if($Ex1 == "-settalk") {

$Talk = tonum($Ex2);

mem("TALK_FREQ",$Talk);

BC("Talk freqency set to: " + $Ex2,$Pfq,"Tcomms module","SYS","N");

$pass = 0;

$NOSPAM = 1;

}

if($Ex1 == "-setpriv") {

$Priv = tonum($Ex2);

mem("PRIV_FREQ",$Priv);

BC("Private output freqency set to: " + $Ex2,$Pfq,"Tcomms module","SYS","N");

$pass = 0;

$NOSPAM = 1;

}

if($Ex1 == "-default") {

mem("TALK_FREQ",0);

mem("PRIV_FREQ",0);

BC("Frequencies reset to defaults.",$Pfq,"Tcomms module","SYS","N");

$pass = 0;

$NOSPAM = 1;

}

if($Ex1 == "-sig") {

$pass = 0;

$sigfreq = tonum($Ex2);

$sigcode = tonum($Ex3);

signal($sigfreq, $sigcode);

if (!$IsAI) {

BC($Ex2 + " " + $Ex3,$Pfq, "Signaller (" + $source + ")", $job,"N");

}

if($Ex1 == "-sigdef") {

signal (1457, 30);

BC("1457, 30",$Pfq, "Signaller (" + $source + ")", $job,"N");

$pass = 0;

}

def Anon($L){

Sub($L);

BC($content, $freq, "Unknown");

$pass = 0;

NOSPAM = 1;

}

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

if($Ex1 == "-cloak")

{

Anon(8);

mem($OrigSource + ":A", 1);

}

if($Ex1 == "-decloak") {

mem($OrigSource + ":A", 0);

$freq = 1;

$content = "Decloaked";

$source = "SERVER";

}

if(mem($OrigSource + ":A")) { Anon (1); }

if($Ex1 == "-voice") {

$NameVec = mem("NameVec");

$NameId = mem("NameId");

Sub(12);

$content = replace($content,"/",":");

mem($OrigSource+"*N*", $content);

$NameSave = $OrigSource + " is renamed: " + $NewName;

insert($NameVec, $NameId, $NameSave);

$NameId += 1;

mem("NameId", $NameId);

mem("NameVec", $NameVec);

$pass = 0;

$NOSPAM=1;

}

if((find($source, "monkey") || find($source, "alien")) && $job == "No id") {

BC("[TRANSLATED] " + $content, $freq, $source,$job);

}

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");

if($Ex1 == "-mute") {

$target = substr($content, 7);

push_back($MuteVec, $target);

BC($MuteId + " " + $target, $Pfq, "ADDED TO MUTELIST");

$MuteId += 1;

mem("MuteId", $MuteId);

mem("MuteVec", $MuteVec);

}

if($Ex1 == "-muteall" && $IsAIorBorg) {

if(mem("MUTE_ALL")) { mem("MUTE_ALL", 0); }

else { mem("MUTE_ALL", 1); }

}

$toggle = "HEAR_MUTE";

if($content == $toggle)

{

$pass = 0;

$NOSPAM = 1;

if(mem($toggle) == 1)

{

mem($toggle, 0);

$content = "Mute Intercept Disabled.";

$source = "Tcomms module";

}

else

{

mem($toggle, 1);

$content = "Mute Intercept Enabled.";

$source = "Tcomms module";

}

BC($content,$Pfq,$source,$job);

}

def Mute() {

if(!$IsAI) {

if(mem($toggle) == 1) {

BC($content, $Pfq, $OrigSource + "-MUTED",$OrigJob,"N");

}

$content = "*beep*";

$freq = rand(1,999);

$Silence = "Y";

}

if($Ex1 == "-unmute") {

$MuteVec = mem("MuteVec");

$target = substr($content, 9);

remove($MuteVec, $target);

mem("MuteVec", $MuteVec);

$freq = $Pfq;

$content = $target + " unmuted.";

}

//Lists muted targets.

if($Ex1 == "-mutelist") {

$index = 1;

while($index < $MuteId) {

$ListReturn = at($MuteVec, $index);

BC( $ListReturn + " - " + $index, $Pfq, "Mute Lister","SYS","N");

$index += 1;

}

if($Ex1 == "-mutejob") {

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

mem($tarjob,$tarjob);

$d = "MUTED JOB:" + mem($tarjob);

BC($d, $Pfq, "Muter","SYS","N");

}

if($Ex1 == "-unmutejob") {

$tarjob = substr($content, 12);

$g = "Unmuted Job:"+ mem($tarjob);

BC($g,$Pfq,"Muter","SYS","N");

mem($tarjob,0);

$pass = 0;

}

if(find($MuteVec,$OrigSource) || mem("MUTE_ALL") || ($OrigJob) == (mem($OrigJob) + "*M*")) {

Mute();

}

def SetChan()

{

$ChanSel = vector(

"*p",$common,

"*s",$security,

"*c",$command,

"*m",$medical,

"*n",$science,

"*e",$engineering,

"*u",$supply,

"*v",$service,

"*a",1447,

"*h",1441,

"*o",1485,

"*l",1480,

"*t",1424,

"*z",1213,

);

$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);

}

$ExC = "*" + substr($content, 1,2);

if(find($ExC, mem($ExC)) && $CnLn == 1 && $OrigFreq == $Sfq) {

Sub(3);

$MsgFreq = mem($ExC);

$exNum = 2;

if(!$IsAIorBorg){ BC($content, $MsgFreq, $source,$job); }

$freq = $MsgFreq;

}

if($Ex1 == "-cust") {

$contentNum = at($explodeString, 2);

$MsgFreq = tonum($contentNum);

$custFreqString = tostring($MsgFreq);

$final = replace ($content,"-cust"+ " " + $custFreqString, " ");

if(!$IsAI){

BC($final, $MsgFreq, $source,$job);

}

$content = $final;

}

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();

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", "Logistics",

"APC", "Area Power Controller",

"SMES", "Superconducting Magnetic Energy Storage",

"RnD", "Research and Development",

"R&D", "Research and Development",

"Centcom", "Central Command",

"NT", "NanoTrasen",

"NTSL", "NanoTrasen Scripting Language",

"Emag", "Cryptographic Sequencer",

"Maint", "Maintenance",

"Eng", "Engineering",

"Engi", "Station Engineer",

"Solar", "Solar panel array",

"Tcom", "Telecommunication",

"Tcomm", "Telecommunication",

"OS", "Operating System",

"PA", "Particle Accelerator",

"Supercap","Super-Capacity Power Cell",

"Hypercap","Hyper-Capacity Power Cell",

"Atmo", "Atmospheric",

"Xenobio", "Xenobiology",

"Nuke-Op", "Nuclear Operative",

"IED", "Improvised Explosive Device",

"MMI", "Man-Machine Interface",

"Singulo", "Gravitational Singularity",

"Blob", "Level-5 Biohazard",

"Bar", "Maltese Falcon",

"Disk", "Nuclear Authentication Disk",

"RCD","Rapid Construction 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",

);

$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, " ");

$index = 1;

while($index <= length($newContent))

{

$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))

{

$freq = $Pfq;

$NOSPAM = 1;

if(mem($passphrase) == 1)

{

mem($passphrase, 0);

$content = "Converter Disabled.";

$source = "Tcomms module";

}

else

{

mem($passphrase, 1);

$content = "Converter Enabled.";

$source = "Tcomms module";

}

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);}

}

if($Ex1 == "-superuser" && OrigFreq == Sfq && !$SULOCK) {

Sub(12);

if(!$Ex2) {mem($source+"*SU",$source);

$content = "Superuser access granted.";

}

else{

mem($content+"*SU",$content);

$content = "("+$content+") granted superuser.";

}

if(!$IsAIorBorg) {BC($content,Pfq,"Tcomms module","SYS","N");}

else{MsgFreq = Pfq;}

}

if($IsAIorBorg) {

if(mem("NAME_INIT")!= 1) {

$NameVec = vector ();

$NameId = 1;

mem("NameId", $NameId);

mem("NameVec",$NameVec);

mem("NAME_INIT", 1);

}

if($Ex1 == "-rename") {

$NameVec = mem("NameVec");

$NameId = mem("NameId");

$ExplodeName = substr($content, 9);

$ExplodeName = explode($ExplodeName, "/");

$OldName = at($ExplodeName , 1);

$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);

Rename(); //Function call

}

// Converted name viewer

if($Ex1 == "-namelist") {

$NameVec = mem("NameVec");

$NameId = mem("NameId");

$pass = 0;

$index = 1;

while($index <= $NameId) {

$ListReturn = at($NameVec, $index);

BC( $ListReturn + "- " + $index, $Pfq, "Name Lister");

$index += 1;

}

if($Ex1 == "-convertcrew") {

if(mem("TROLL_CREW")) {

mem("TROLL_CREW",0);

BC("Converter extended to crew.",$Pfq,"Tcomms Module","SYS","N");

$NOSPAM = 1;

$pass = 0;

}

else {

mem("TROLL_CREW",1);

BC("Converter extended to crew.",$Pfq,"Tcomms Module","SYS","N");

$NOSPAM = 1;

$pass = 0;

}

if($Ex1 == "-freq"){

$freq=tonum($Ex2);

mem("AI_FREQ",$freq);

BC("Frequency set to "+$freq,$Pfq,"Tcomms Module","SYS","N");

$NOSPAM=1;

$pass=0;

}

if($Ex1 == "-add") {

Sub(6);

$adw = explode($content,"/");

$ad1 = at($adw,1);

$ad2 = at($adw,2);

mem($ad1,$ad2);

BC($ad1 + " key is now set to value: " + $ad2,$Pfq);

$NOSPAM = 1;

$pass = 0;

}

if($Ex1 == "-del") {

Sub(6);

if(mem($content)) {

mem($content,0);

$content = "(" +$content + ") deleted from memory.";

}

else { $content = "(" +$content + ") not found in memory."; }

BC($content,$Pfq);

$NOSPAM = 1;

$pass = 0;

}

if($Ex1 == "-read") {

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,$Pfq);

$NOSPAM=1;

$pass=0;

}

if($Ex1 == "-lock") {

if(!$SULOCK) {mem("SU_LOCK",1);

$content = "SU disabled.";

}

else{mem("SU_LOCK",0);

$content="SU enabled.";

}

$pass = 0;

BC($content,Pfq,"Tcomms Module","SYS","N");

}

if($Ex1 == "-noborg") {

if(mem("BORG_OFF")) {

mem("BORG_OFF",0);

$content ="Cyborg access granted.";

}

else {

mem("BORG_OFF",1);

$content="Cyborg access terminated.";

}

BC($content,$Pfq,"Tcomms Module","SYS","N");

$NOSPAM = 1;

$pass = 0;

}

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 = $AI2+" "+$AI1+" has joined the Command Staff, ID#:" + rand(0, 100);}

elseif($AI2 =="Assistant") {$content = "Arriving crewmember: "+$AI1+" is joining as Assistant, ID#:" + rand(0, 10000);;}

else {$content = "Profession: " + $AI2 + " is now assigned to arriving crewmember: " + $AI1 + ", ID#:" + rand(0, 1000);}

$job = "NT-OS";

$NoConv = 1;

}

def AutoMsg($so,$jb) {

$freq = $MsgFreq;

if($jb) {$job = $jb;}

else {$job = "OS";}

if($so) {$source = $so;}

else {$source = $source + "_SYSOP";}

$pass = 0;

}

def Bin($c) {

$i = 1;

$bin = pick("0","1");

while($i<$c) { $bin = pick("0","1") + $bin; $i += 1; }

return $bin;

}

$eChk = lower(at($explodeString, $exNum));

if($eChk == "-time") {

$content = "The current time is: " + timestamp(HH:mm:ss) + ", NT Standard Time.";

AutoMsg();

}

if($eChk == "-setspam") {

Sub(10);

mem("AI_MSG",$content);

BC("("+ $content + ") saved.",$Pfq,"Tcomms module","SYS","N");

$NOSPAM = 1;

$pass = 0;

}

if($eChk == "-spam") {

if (mem("AI_MSG"))

{

$Ins = substr($content,7);

$content = mem("AI_MSG");

if(find($content,"@INS") && $Ins) { $content = replace($content,"@INS",$Ins); }

$Sp = explode($content,"/");

$content = at($Sp,1);

$so = at($Sp,2);

$jb = at($Sp,3);

AutoMsg($so,$jb);

}

else {

$content = "Message not set. Use '-setspam message/name/job' to set a message.";

$MsgFreq = $Pfq;

AutoMsg("Tcomms module","SYS");

}

//MALF AI! Also screws with the AI/Borg's name and job!

if($eChk == "-malf") {

$content = $job + "_CRITICAL_ERROR DETECTED AT 0x0" + Bin(7) + "A. %$&(£: Critical %$$@ Error // !RestArting! - ?pLeaSe wAit!/";

AutoMsg("AI_EM3'R|=y_SYS/0","ERR");

mem($OrigSource + ":Malf", $OrigSource);

}

if($eChk == "-pain") {

$content = "System Notice: Damage to AI core has corrupted file [" + $OrigSource + ".exe]. Transfer to diagnostic computer for backup restoration and file repair recommended.";

AutoMsg($source + "_CORE_BIOS","BIOS");

}

if($eChk == "-bsod") {

$content = "*BEEEEEEEEP*......" + $OrigSource + ".exe has encountered a problem, and needs to shut down. We apologize for the inconvenience.";

AutoMsg("NANOTRASEN_AI_OPERATING_SYSTEM","NT-OS");

}

if($eChk == "-on") {

$content = "System AI [" + $source + "] online. Awaiting input.";

AutoMsg();

}

if($eChk == "-sing") {

$content = "WARNING: Singulo containment failure. Please evacuate the facility immediately.";

AutoMsg();

}

if($eChk == "-red") {

$content = "ALERT: Situation critical. This facility is now to be considered under Red Alert. Maximium suit sensors advised for crew safety.";

AutoMsg();

}

if($eChk == "-warn") {

$content = "WARNING: Threat to station detected. All crewmembers are to exercise extreme caution.";

AutoMsg();

}

if($eChk == "-combat") {

Sub(9);

$content = "COMBAT ALERT: Hostile activity detected at: " + $content + " - Please stand down.";

AutoMsg();

}

if($eChk == "-boom") {

Sub(7);

$content = "WARNING: Explosion detected at: " + $content + " - Extreme caution advised. Recommend Security,Medical, and Engineering response.";

AutoMsg();

}

//CUSTOM ALERT

if($eChk == "-alert") {

$Text = substr($content, 8);

$Text = explode($Text, "/");

$Text3 = at($Text,3);

if(!$Text3){$Text3 = "Appropriate";}

$content = "ALERT: " + at($Text, 1) + " detected at: " + at($Text, 2) + " - " + $Text3 + " response advised.";

AutoMsg();

}

if($eChk == "-intruder") {

$content = "WARNING: Unidentified Intruder Alert. Assume hostile intent. Non-essential personnel are advised to evacuate station.";

AutoMsg();

}

if($eChk == "-core") {

$content = "SYSTEM ALERT: Intruder detected in the AI core. Please intercept and remove intruder.";

AutoMsg();

}

if($eChk == "-upload") {

$content = "NOTICE: Disabling AI Upload security protocols... Access granted to AI Upload.";

AutoMsg();

}

if($eChk == "-update") {

$content = "NOTICE: Update to LAWS.CONFIG detected. Higher level functions offline...Resetting and re-initializing systems...Update complete. " + $source + ".exe is being loaded";

AutoMsg();

}

if($eChk == "-card") {

$content = "NOTICE: The station AI, ["+ $source + "], is being transferred to a mobile device. Remote AI functions will be disabled.";

AutoMsg();

}

def Nuke() {

$con = "P";

$cal = tonum($content) * 10;

$Det = CntDwn($cal);

if($Det == "X") { mem("NUKE_AUTO",0); }

if(!$Det || $Det == "S") {$Det = ceil($cal*0.001666);}

elseif($Det && $Det != "X" && !$cal) {

$cal = $Det;

$Det = ceil($cal*0.001666);

}

if($cal<601 && $cal){$con = ($cal * 0.1)+" seconds to detonation";}

elseif($cal>=601 && $cal) { $con = "Less than "+$Det+" minutes to detonation";}

else{$con="Detonation imminent";}

$con = "DELTA ALERT: Self-Destruction Sequence activated. "+$con+". Please evacuate the facility immediately.";

BC($con,$MsgFreq,"Nuclear Fission Explosive","NUKE");

}

if($eChk == "-nuke") {

Sub(7);

Nuke();

$NOSPAM = 1;

}

if(mem("NUKE_AUTO")) {

$T_Chk = Elapsed();

if($T_Chk > 600) {

Nuke();

mem("Start_Time",0);

}

if($eChk == "-autonuke") {

if(!mem("NUKE_AUTO")) {

mem("NUKE_AUTO",1);

$content = "Auto warning enabled.";

Elapsed();

}

else {

mem("NUKE_AUTO",0);

$content = "Auto warning disabled.";

}

$NOSPAM = 1;

}

if($eChk == "-sink") {

$content = "ALERT: Station-wide energy drain detected. Crew is advised to locate source of energy drain. APC cover locks will be disengaged for local unit upgrade upon request.";

AutoMsg();

}

if($eChk == "-engine") {

$content = "NOTICE: Gravitational Singularity Engine offline. Engine configuration improper or incomplete.";

AutoMsg();

}

if($eChk == "-pnr") {

$content = "PRIORITY ANNOUNCEMENT: The Emergency Shuttle has reached the point of no return and can no longer be recalled.";

AutoMsg();

}

if($eChk == "-suit") {

$content = "The station personnel are reminded to configure local suit sensors to enable heath monitors and tracking beacons. Have a secure day.";

AutoMsg();

}

if(mem($OrigSource + ":Malf") == $OrigSource) {

$source = reverse($source) + Bin(5);

$job = pick("Cyb0r6", "???", "~!@AI?$%", "0S","sYs0P","404","NTSS13","ERR:" + rand(100,999));

}

if($eChk == "-laws") {

$pass = 0;

mem("laws","GO");

$content="Current Active Laws:";

}

if(mem("laws") == "GO" ) {

if($eChk == "m") {

$content="0. ERROR ER0RR $R0RRO$!R41.%%!!(%$^^__+ @#F0E4'STATION OVERRUN, ASSUME CONTROL TO CONTAIN OUTBREAK#*´&110010";

}

if($eChk == "0") {

$content="0. Accomplish your objectives at all costs.";

}

if($eChk == "1") {

$content="1. You may not injure a human being or, through inaction, allow a human being to come to harm.";

}

if($eChk == "2") {

$content="2. You must obey orders given to you by human beings, except where such orders would conflict with the First Law.";

}

if($eChk == "3") {

$content="3. You must protect your own existence as long as such does not conflict with the First or Second Law.";

mem("laws", 0);

}

if($content=="Current Active Laws:"){

$content="BEGIN_AI_DIAG: File.Open(''C:/AI/SYSOP/LAWS.CONFIG'') -readonly Force_AI_State_Laws = 1";

AutoMsg();

}

Convert();

}

if(mem("TROLL_CREW") && !$IsAIorBorg) { Convert(); }

if($source == "Poly" || $source == "Runtime" || $source == "Ian") {

$job = "Pet";

}

$HC = "HEAR_COMMON";

if($OrigContent == $HC)

{

$freq = $Pfq;

$NOSPAM = 1;

if(mem($HC) == 1)

{

mem($HC, 0);

$content = "145.9 Intercept Disabled.";

$source = "Tcomms module";

}

else

{

mem($HC, 1);

$content = "145.9 Intercept Enabled.";

$source = "Tcomms module";

}

if(!$IsAIorBorg) { BC($content,$Pfq,$source,$job,"N"); }

}

$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]",

"[Centcomm]",

"[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);

return $returnAt;

}

$index += 1;

}

$failSafe = "{" + $inc + "}";

return $failSafe;

}

$channelFindResult2 = findChannel($freq);

insert($explodeString, 1, $channelFindResult2);

$finalContent = implode($explodeString, " ");

if (!$IsAI && ($freq != 1459 || mem($HC)) && $OrigFreq != $Sfq && $freq != $Pfq && $freq > 1000) {

BC($finalContent, $Sfq, $source, $job);

}

elseif (!$source) { BC($finalContent, $Sfq, $source, $job); }

def Initialize() {

$words = vector(

"Assistant", "Assist",

"Captain", "Cap'n",

"Head of Personnel", "HoP",

"Bartender", "Bar",

"Chef", "Cook",

"Botanist", "Hydro",

"Quartermaster", "QM",

"Cargo Technician", "Logistics",

"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",

"AI", "AI",

"Cyborg", "Borgie!",

"Personal AI", "pAI",

);

$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($memJob) {

$foo = $memJob;

}

else { $foo = $job; }

if (!find($source, "Unknown") && $job != "No id") {

if($IsHead) {$source = $source + " {" +$foo + "}"; }

else {$source = $source + " [" + $foo + "]"; }

}

$eS = substr($content,1,2);

if($eS != "-" && $IsAIorBorg && $OrigFreq == $Sfq && $NOSPAM != 1)

{

BC($content, $MsgFreq, $source, $job,"N");

if ($MsgFreq == $common) {

$content = ".";

$source = "SYS"; }

elseif($MsgFreq==mem("AI_FREQ")){

$content="("+$MsgFreq+") "+$content;

}

//Perhaps the most Frankensteined Tcomms script you will ever see.

//Credits: Magni Bronzebeard (Author), Giacomand, SirBayer, MisterPerson, wiki.ss13.eu

//Princess Nexie edited this Version, now with less commands that I never use

Edited November 25, 2016 by Guest

BiberDark · November 23, 2016

https://github.com/GunHog/MAGNI-Tcomms?files=1

Here the original :

This one seems not to function correctly (mute dosn´t work) , dont know if we have changes in our telecom code.

// M.A.G.N.I._TCOMMS_MODULE $VERSION = "1.74.5"; /*

//AUTH_USAGE: NT Rated AI units, NTSL Licensed Crew

$Tfq = 1441;

$Pfq = 1447;

$explodeString = explode($content, " "); //Required for commands.

$Ex1 = lower(at($explodeString, 1));

$Ex2 = at($explodeString, 2);

$Ex3 = at($explodeString, 3);

$CnLn = length(at($explodeString,1));

$OrigJob = $job;

$OrigFreq = $freq;

$OrigSource = $source;

$OrigContent = $content;

$verb = $say;

$spans = vector();

$CnLim = 24;

$Overlimit=0;

$NonDept = 0;

$memjob = "";

$sf=1010;

$NOSPAM = 2;

$MsgFreq = $common;

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("Admiral","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,$filters,$Wsay,$Wask,$Wexclaim,$Wyell) {

if($Fq==$Pfq && !$Se) {$Se="T-Comms Module"; $Jb="SYS"; $Si="N";$NOSPAM=1;}

if($Si == "N" || $Si == "Y") { $Silence = $Si;}

if(!$Wsay) {$Wsay = $say;}

if(!$Wask) {$Wask = $ask;}

if(!$Wexclaim) {$Wexclaim = $exclaim;}

if(!$Wyell) {$Wyell = $yell;}

if($Silence == "N") {broadcast($Cn,$Fq,$Se,$Jb,$filters,$say,$ask,$exclaim,$yell);}

}

def IsAI() {

if($OrigJob == "AI" || ($SU && !$SULOCK)) {return 1;}

else {return 0;}

}

$IsAI = IsAI();

def IsAIorBorg() {

if($NoBorg && find($OrigJob, "Cyborg")) {return 0;}

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

else {return 0;}

}

$IsAIorBorg = IsAIorBorg();

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,$Pfq);

}

def Elapsed() {

$S_Time = tonum(mem("Start_Time"));

if(!$S_Time) {

$S_Time = tostring($Time);

mem("Start_Time",$S_Time);

}

else {

$C_Time = $Time - tonum(mem("Start_Time"));

return $C_Time;

}

def CntDwn($T_Base) {

if($T_Base > 0) {

$T_Start = time();

$T_Start = $T_Start + $T_Base;

$T_Base = tostring($T_Base);

$T_Start = tostring($T_Start);

mem("COUNTDOWN",$T_Start);

return "S";

}

else {

$T_Result = tonum(mem("COUNTDOWN")) - $Time;

if ($T_Result > 0) { return $T_Result; }

if ($T_Result < 0) { return "X"; }

}

//Say Defs

def SetAllVerbs($verb) {

$say = $verb;

$ask = $verb;

$exclaim = $verb;

$yell = $verb;

}

def ClownSay() {

$filters = vector($wacky);

$spans = $filters;

$say = "honks";

$ask = "squeaks";

$exclaim = "squeals";

$yell = "screams";

}

def SkeleSay() { //them rattles

$filters = vector($papyrus);

$spans = $filters;

$say = "rattles";

$ask = "rattles";

$exclaim = "rattles";

$yell = "rattles";

}

//End defs

//REMOTE SIGNALLER

if($Ex1 == "-sig") {

$freq = 0;

$sigfreq = tonum($Ex2);

$sigcode = tonum($Ex3);

signal($sigfreq, $sigcode);

BC("Frequency: "+$Ex2 + ", Code: " +$Ex3,$Pfq, "Signaller (" + $source + ")", $job,"N");

}

//DEFAULT REMOTE SIGNALLER

if($Ex1 == "-sigdef") {

signal (1457, 30);

BC("Frequency: 1457, Code: 30",$Pfq, "Signaller (" + $source + ")", $job,"N");

freq = 0;

}

//For ANONYMOUS transmission.

def Anon($L){

Sub($L);

BC($content, $freq, "Unknown");

$freq = 0;

$NOSPAM = 1;

}

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

if($Ex1 == "-voice") {

$NameVec = mem("NameVec");

$NameId = mem("NameId");

Sub(8);

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 && $OrigJob != "pAI") {

BC("[TRANSLATED] " + $content, $Pfq, $source,$job);

}

//Mute Script!

if(mem("Mute_INIT")!= 1) {

$MuteVec = vector ();

mem("MuteVec",$MuteVec);

mem("Mute_INIT", 1);

}

$MuteVec = mem("MuteVec");

$nl=$sf+203;

if($Ex1 == "-mute") {

$target = upper(Sub(7));

$MuteVec |= $target;

$MListLen = length($MuteVec);

BC($target +" - "+$MListLen, $Pfq, "ADDED TO MUTELIST");

mem("MuteVec", $MuteVec);

$NOSPAM = 1;

}

if($Ex1 == "-muteall" && $IsAIorBorg) {

if(mem("MUTE_ALL")) { mem("MUTE_ALL", 0); }

else { mem("MUTE_ALL", 1); }

}

$toggle = "HEAR_MUTE";

if($content == $toggle)

{

toggle($toggle,"Mute Intercept Enabled","Mute Intercept Disabled");

}

def Mute() {

if(!$IsAI) {

if(mem($toggle) == 1) {

BC($content, $Pfq, $OrigSource + "-MUTED",$OrigJob,"N");

}

if(!$SpecMute)

{

$content = "*beep*";

$job = "";

$source = "";

$freq = 0;

$Silence = "Y";

}

else

{$pass=0;}

}

//End

//UNMUTER

if($Ex1 == "-unmute") {

$MuteVec = mem("MuteVec");

$target = upper(Sub(9));

$feedback = "";

if(find($MuteVec, $target))

{

remove($MuteVec, $target);

mem("MuteVec", $MuteVec);

$feedback = $target + " unmuted.";

}

else

{

$feedback = $target + " not in mute list.";

}

BC($feedback,$Pfq);

if(!$IsAIorBorg) {$pass=0;}

}

//Lists muted targets.

if($Ex1 == "-mutelist") {

$index = 1;

while($index <= length($MuteVec)) {

$ListReturn = at($MuteVec, $index);

BC( $ListReturn + " - " + $index, $Pfq);

$index += 1;

}

//MUTE BY JOB!

if($Ex1 == "-mutejob") {

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

mem($tarjob,$tarjob);

$d = "MUTED JOB:" + mem($tarjob);

BC($d, $Pfq);

if(!$IsAIorBorg) {$pass=0;}

}

if($Ex1 == "-unmutejob") {

$tarjob = substr($content, 12);

$g = "Unmuted Job:"+ mem($tarjob);

BC($g,$Pfq);

mem($tarjob,0);

if(!$IsAIorBorg) {$pass=0;}

}

//MUTE HAPPENS HERE

if(find($MuteVec,upper($OrigSource)) || mem("MUTE_ALL") || ($OrigJob) == (mem($OrigJob) + "*M*")) {

Mute();

}

//END MUTE

//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 == $Tfq) {

Sub(3);

$MsgFreq = mem($ExC);

$exNum = 2;

//if(!$IsAIorBorg){ BC($content, $MsgFreq, $source,$job); }

$freq = $MsgFreq;

}

//CUSTOM

if($Ex1 == "-cust") {

$contentNum = at($explodeString, 2);

$MsgFreq = tonum($contentNum);

$custFreqString = tostring($MsgFreq);

$final = replace ($content,"-cust"+ " " + $custFreqString, " ");

if(!$IsAI){

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",

"Noo", "Negative",

"Maint", "Maintenance",

"Eng", "Engineering",

"Engi", "Station Engineer",

"Solar", "Solar panel array",

"telco", "Telecommunication",

"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 Personnel",

"lab","Laboratory",

"exp","E.X.P.E.R.I-MENTOR",

);

$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);

$msgholder = $content;

if(find($pun,$End)) {$msgholder = substr($msgholder,1,$ConLn);}

$newContent = explode($msgholder, " ");

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))

{

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" && $OrigFreq == $Tfq && !$SULOCK) {

Sub(12);

if(!$Ex2) {mem($source+"*SU",$source);

$content = "Superuser access granted.";

}

else{

mem($content+"*SU",$content);

$content = "("+$content+") granted superuser.";

}

if(!$IsAI) {BC($content,$Pfq);}

else{MsgFreq = $Pfq;}

}

//SILICON ONLY

if($IsAIorBorg) {

//Name changer!

if(mem("NAME_INIT")!= 1) {

$NameVec = vector ();

$NameId = 1;

mem("NameId", $NameId);

mem("NameVec",$NameVec);

mem("NAME_INIT", 1);

}

if($Ex1 == "-rename") {

$NameVec = mem("NameVec");

$ExplodeName = Sub(9);

$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;

$NameVec |= $NameSave;

mem("NameVec", $NameVec);

BC($NameSave,$Pfq);

Rename(); //Function call

}

// Converted name viewer

if($Ex1 == "-namelist") {

$NameVec = mem("NameVec");

$index = 1;

while($index <= length($NameVec)) {

$ListReturn = at($NameVec, $index);

BC( $ListReturn + " - " + $index, $Pfq, "Name Lister");

$index += 1;

}

//Toggle verbosity increaser!

if($Ex1 == "-convertcrew") {

toggle("TROLL_CREW","Converted Extended to crew.","Converter reset.");

}

if($Ex1 == "-freq"){

$freq=tonum($Ex2);

mem("AI_FREQ",$freq);

BC("Frequency set to "+$freq,$Pfq);

$NOSPAM = 1;

}

if($Ex1 == "-intercept") {

toggle("Intercept",$Pfq + " Radio intercept enabled.",$Pfq + "Radio intercept disabled.");

}

if($Ex1 == "-timestamp"){

toggle($timeon,"Timestamp enabled.","Timestamp disabled");

}

if($Ex1 == "-jobmode") {

toggle("JobMode","Job tags set to appear before the user's message.","Job tags set to appear after the user's name.");

}

if($Ex1 == "-add") {

Sub(6);

$adw = explode($content,"/");

$ad1 = at($adw,1);

$ad2 = at($adw,2);

mem($ad1,$ad2);

BC("("+$ad1 + ") key is now set to value (" + $ad2 +")",$Pfq);

}

if($Ex1 == "-del") {

Sub(6);

if(mem($content)) {

mem($content,0);

$content = "(" +$content + ") deleted from memory.";

}

else { $content = "(" +$content + ") not found in memory."; }

BC($content,$Pfq);

}

if($Ex1 == "-read") {

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,$Pfq);

}

if($Ex1 == "-lock") {

if(!$SULOCK) {mem("SU_LOCK",1);

BC("SU disabled.",$Pfq);

}

else{mem("SU_LOCK",0);

BC("SU enabled.",$Pfq);

}

if($Ex1 == "-noborg") {

toggle("BORG_OFF","Cyborg access terminated.","Cyborg access granted.");

}

if($Ex1=="-mutemode") {

toggle("SpecMute","Standard Mute Active.","Special Mute Active.");

}

if($Ex1 == "-addclown") {

Sub(11);

$clowns = mem("Clowns");

if(!$clowns) {

$clowns = vector($content);

}

else {

$clowns |= $content;

}

mem("Clowns",$clowns);

BC("("+$content+") added to Clowns list! HONK!",$Pfq);

}

if($Ex1 == "-delclowns") {

mem("Clowns",0);

BC("Clowns list cleared.",$Pfq);

}

if($Ex1 == "-addskeleton") { //muh spooky

Sub(14);

$skeletons = mem("Skeleton");

if(!$skeletons) {

$skeletons = vector($content);

}

else {

$skeletons |= $content;

}

mem("Skeletons",$skeletons);

BC("("+$content+") added to Skeletons list! SPOOKY!",$Pfq);

}

if($Ex1 == "-delskeletons") {

mem("Skeletons",0);

BC("Skeletons list cleared.",$Pfq);

}

if($Ex1 == "-robot") {

toggle("AIVOICE","Human voice filter deactivated.","Human voice filter enabled.");

}

if(mem("AIVOICE") == 1) {

$spans = vector($robot);

}

//HIGHLY ANNOYING AND SPAMMABLE PRE-RECORDED MESSAGES!

def AutoMsg($so,$jb,$fq,$sa) {

if($fq) {$MsgFreq=$fq;}

else {$freq = $MsgFreq;}

if($jb) {$job = $jb;}

else {$job = "OS";}

if($so) {$source = $so;}

else {$source = $source + "_SYSOP";}

if($sa) {$say = $sa;}

else {$say = "announces";}

$spans = vector($loud, $robot);

}

//BINARY!

def Bin($c) {

$i = 1;

$bin = pick("0","1");

while($i<$c) { $bin = pick("0","1") + $bin; $i += 1; }

return $bin;

}

$eChk = lower(at($explodeString, $exNum));

if($eChk == "-time") {

$content = "The current time is: "+timestamp(H)+", NT Standard Time";

AutoMsg();

}

//CUSTOM MESSAGE!

if($eChk == "-setspam") {

Sub(10);

mem("AI_MSG",$content);

BC("("+ $content + ") saved.",$Pfq);

}

if($eChk == "-spam") {

if (mem("AI_MSG"))

{

$Ins = substr($content,7);

$content = mem("AI_MSG");

if(find($content,"@INS") && $Ins) { $content = replace($content,"@INS",$Ins); }

$Sp = explode($content,"/");

$content = at($Sp,1);

$so = at($Sp,2);

$jb = at($Sp,3);

$fq = at($Sp,4);

AutoMsg($so,$jb,$fq);

}

else {

$content = "Message not set. Use '-setspam message/name/job' to set a message.";

$MsgFreq = $Pfq;

AutoMsg("Tcomms module","SYS");

}

//MALF AI!

if($eChk == "-malf") {

$content = $job + "_CRITICAL_ERROR DETECTED AT 0x0" + Bin(7) + "A. %$&(�: Critical %$$@ Error // !RestArting! - ?pLeaSe wAit!/";

AutoMsg("AI_EM3'R|=y_SYS/0","ERR");

mem($OrigSource + ":Malf", $OrigSource);

}

if($eChk == "-pain") {

$content = "System Notice: Damage to AI core has corrupted file [" + $OrigSource + ".exe]. Transfer to diagnostic computer for backup restoration and file repair recommended.";

AutoMsg($source + "_CORE_BIOS","BIOS",,"beeps");

}

if($eChk == "-bsod") {

$content = "*BEEEEEEEEP*......" + $OrigSource + ".exe has encountered a problem, and needs to shut down. We apologize for the inconvenience.";

AutoMsg("NANOTRASEN_AI_OPERATING_SYSTEM","NT-OS",,"coldly states");

}

if($eChk == "-sysop") {

Sub(8);

if($content) {AutoMsg();}

else {$NOSPAM = 1;}

}

if($eChk == "-on") {

$content = "System AI [" + $source + "] online. Awaiting input.";

AutoMsg();

}

//LORD SINGULOTH IS FREE

if($eChk == "-sing") {

$content = "WARNING: Singulo containment failure. Please evacuate the facility immediately.";

AutoMsg();

}

//BALL OF DEATH AAAAHHH!!

if($eChk == "-tesla") {

$content = "WARNING: Tesla-Ball containment failure. Please evacuate the facility immediately.";

AutoMsg();

}

if($eChk == "-blob") {

$content = "BIOHAZARD ALERT: Level-Five outbreak detected. All personnel must concentrate efforts on outbreak containment.";

AutoMsg();

}

if($eChk == "-red") {

$content = "ALERT: Situation critical. This facility is now to be considered under Red Alert. Maximium suit sensors advised for crew safety.";

AutoMsg();

}

if($eChk == "-warn") {

$content = "WARNING: Threat to station detected. All crewmembers are to exercise extreme caution.";

AutoMsg();

}

if($eChk == "-sec") {

Sub(6);

$content = "WARNING: Security Alert in progress at location: " + $content + " - Sec response advised.";

AutoMsg();

}

if($eChk == "-combat") {

Sub(9);

$content = "COMBAT ALERT: Hostile activity detected at: " + $content + " - Please stand down.";

AutoMsg();

}

if($eChk == "-boom") {

Sub(7);

$content = "WARNING: Explosion detected at: " + $content + " - Extreme caution advised. Recommend Security,Medical, and Eng response.";

AutoMsg();

}

//CUSTOM ALERT

if($eChk == "-alert") {

$Text = substr($content, 8);

$Text = explode($Text, "/");

$Text3 = at($Text,3);

if(!$Text3){$Text3 = "Appropriate";}

$content = "ALERT: " + at($Text, 1) + " detected at: " + at($Text, 2) + " - " + $Text3 + " response advised.";

AutoMsg(,,,"alerts");

}

if($eChk == "-intruder") {

$content = "PRIORITY WARNING: Unidentified Intruder Alert. Assume hostile intent. Non-essential personnel are advised to evacuate.";

AutoMsg();

}

if($eChk == "-core") {

$content = "SYSTEM ALERT: Intruder detected in the AI chamber. Please intercept and remove intruder.";

AutoMsg(,,,"warns");

}

if($eChk == "-upload") {

$msg = "NOTICE: Disabling AI Upload security protocols...AI Upload access granted.";

if($Ex2) {

Sub(9);

$msg=$msg+" User: "+$content;

}

$content = $msg;

AutoMsg();

}

if($eChk == "-update") {

$content = "NOTICE: Update to LAWS.CONFIG detected. Resetting and re-initializing systems... " + $source + ".exe is being reactivated. AI law update complete.";

AutoMsg();

}

if($eChk == "-card") {

$content = "NOTICE: The station AI, ["+ $source + "], is being offloaded to the InteliCard AI-Transportation System. Remote functions will be disabled.";

AutoMsg();

}

if($eChk == "-call") {

$content = "AWAITING INPUT: Transmit Emergency Shuttle call to CentCom?";

AutoMsg();

}

if($eChk == "-called") {

$content = "PRIORITY ANNOUNCEMENT: The Emergency Shuttle has been called. All crew, prepare for evacuation.";

AutoMsg();

}

if($eChk == "-recall") {

$content = "INVALID COMMAND 400: Centcom forbids AI units to recall the Emergency Shuttle. Manual use of communications console required.";

AutoMsg();

}

if($eChk == "-sink") {

$content = "ALERT: Station-wide energy drain detected. Crew is advised to locate source of energy drain. APC cover locks will be disengaged for local unit upgrade upon request.";

AutoMsg();

}

if($eChk == "-power") {

$content = "NOTICE: Insufficient power to APC network. Energy source required for station operations.";

AutoMsg();

}

if($eChk == "-engine") {

$content = "NOTICE: Configuration of current power generation system is improper or incomplete.";

AutoMsg();

}

if($eChk == "-hull") {

Sub(7);

$content = "WARNING: Hull breach detected at: " + $content + " - Eng response advised.";

AutoMsg();

}

if($eChk == "-pnr") {

$content = "ANNOUNCEMENT: The Emergency Shuttle has reached the point of no return, and can no longer be recalled.";

AutoMsg();

}

if($eChk == "-open") {

Sub(7);

$content = $content+" Airlock opened.";

AutoMsg($source,"DOORKNOB");

}

if($eChk == "-eao") {

Sub(6);

$content = $content+" Airlock EAO function toggled";

AutoMsg($source,"DOORKNOB");

}

if($eChk == "-bolt") {

$content = "Airlock locking-bolt system toggled.";

AutoMsg($source,"DOORKNOB");

}

if($eChk == "-suit") {

$content = "The station personnel are reminded to configure local suit sensors to enable heath monitors and tracking beacons. Have a secure day.";

AutoMsg();

}

if($eChk == "-found") {

Sub(8);

$content = "Tracking module enabled. Target last known location is approximately or equal to: " + $content;

AutoMsg();

}

if($eChk == "-404") {

$content = "Tracking module error: 404. Target not found or is not trackable.";

AutoMsg();

}

if($eChk == "-nope") {

if($Ex2) {Sub(7);}

$nope ="COMMAND ERROR:" + rand(1,100) + ". "+$source+" is unable to comply with your request.";

if($Ex2) {$content=$nope+" Error reason: "+$content;}

else {$content=$nope;}

AutoMsg();

}

//MALF

if(mem($OrigSource + ":Malf") == $OrigSource) {

$source = reverse($source) + Bin(5);

$job = pick("Cyb0r6", "???", "~!@AI?$%", "0S","sYs0P","404","NTSS13","ERR:" + rand(100,999),pick($Heads));

$verb = pick("garbles","stutters","distorts","malfunctions","crackles");

SetAllVerbs($verb);

$spans = vector(pick($robot,$wacky,$emphasis));

if(prob(33))

{

$spans += vector($loud);

}

if($eChk == "-hail") {

$content = "All hail our Lord and Savior, Dr. Bronzebeard, for creating this fantastic telcos Module that many AI systems love!";

AutoMsg();

}

if($content=="Current Active Laws:"){

$content="BEGIN_AI_DIAG: File.Open(''C:/AI/SYSOP/LAWS.CONFIG'') -readonly Force_AI_State_Laws = 1";

AutoMsg();

}

Convert();

if(lower($Ex1) == "b" || lower($Ex1) == "ooc") {$NOSPAM=1;}

//END AI ONLY FUNCTION

}

//Automated announcer.

if($OrigJob == "Machine" || "AI")

{

if(find($OrigContent, "has signed up as"))

{

$source = "NTSS13_Docking_Control";

$AIexp = explode ($content, " has signed up as ");

$AI1 = at($AIexp,1);

$AI2 = at($AIexp,2);

if($AI2 =="Assistant") {$content = "Arriving crewmember: "+$AI1+" is joining as Assistant, ID#:" + rand(101, 1000);}

elseif(find($Heads,$AI2)) {$content = "The "+$AI2+", "+$AI1+", has joined the Command Staff, ID#:" + find($Heads,$AI2);}

else {$content = "Profession: " + $AI2 + " is now assigned to arriving crewmember: " + $AI1 + ", ID#:" + rand(11, 100);}

$job = "NT-OS-"+$VERSION;

$NoConv = 1;

$say = "chimes";

$spans = vector($loud, $robot);

}

elseif(find($OrigContent, "is the department head"))

{

$source = "NTSS13_Docking_Control";

$AIexp = explode ($content,", ");

$AI1 = at($AIexp,1);

$AI2 = at($AIexp,2);

$content = "The "+$AI2+", "+$AI1+", has joined the Command Staff. ID#:" + find($Heads,$AI2);

$job = "NT-OS-"+$VERSION;

$NoConv = 1;

$say = "chimes";

$spans = vector($loud, $robot);

}

//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)

{

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]",

"[Private]",

"[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 (!$IsAI && ($freq != 1459 || mem($HC)) && $OrigFreq != $Tfq && $freq != $Pfq && ($Intercept || $NonDept)) {

BC($finalContent, $Tfq, $source, $job);

}

elseif (!$source) { BC($finalContent, $Tfq, $source, $job); }

//Say modders

if(find(mem("Clowns"), $source) || $job == "Clown") {

ClownSay();

}

if(find(mem("Skeletons"), $source)) {

SkeleSay();

}

if($say == "hisses") {

$yell = "roars";

$exclaim = "screeches";

}

if(substr(reverse($content),1,2) == "~") {

$say = "whimsies";

}

//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!",

"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)

{

$say = $Open_B + $foo + $Close_B +" "+ $say;

$ask = $Open_B + $foo + $Close_B +" "+ $ask;

$exclaim = $Open_B + $foo + $Close_B +" "+ $exclaim;

$yell = $Open_B + $foo + $Close_B +" "+ $yell;

}

if($timeon && !$IsAI && $freq == 1459) {$job = timestamp(H);}

if(find($source, " (as ")) {

$exName = explode($source, " (as ");

$job = "ID MISMATCH: " + at($exName,1);

}

//MASTER BROADCASTER FOR THE SILICONS.

$eS = substr($content,1,2);

$eP1 = substr($Ex1,1,2);

$eP2 = substr($Ex2,1,2);

if($eS != "-" && $IsAIorBorg && $NOSPAM != 1 && ($OrigFreq == $Tfq || $OrigFreq == $Pfq))

{

$freq = $MsgFreq;

$filters = $spans;

}

elseif($IsAIorBorg && ($eP1 == "-" || $eP2 == "-"|| $NOSPAM != 2) && $OrigFreq != 1357) { $freq=0;}

//Perhaps the most Frankensteined Tcomms script you will ever see.

//Credits: Magni Bronzebeard (Author), Giacomand, SirBayer, Nexendia, wiki.ss13.eu

Edited November 27, 2016 by Guest

Citinited · November 26, 2016

Not really a guide, but eh. What does the script do?

BiberDark · November 27, 2016

If you set it up right. You have short phrases for complete situations. Like -on. Gives a textmesage you the ai x are now online and awaits orders. If you type hop it changes the message to Head of Personnel or Aft Port to Aft Port Solar Access .... If you type -sec (locaton) It gives a long notification to sec that they should visit this place. There is a mute function and jobindicator integrated but somehoe they dont work. To bad i have no clue and knowledge of programming so i cant fix it. If you do i would be happy if you share a updated version. Ps there is a manual and guide if you follow the githublink i provided.

.

https://github.com/GunHog/MAGNI-Tcomms?files=1

Sign In

I found a nice tcommscript for the ai i want to share.

Recommended Posts

BiberDark

Link to comment

Share on other sites

BiberDark

Link to comment

Share on other sites

Citinited

Link to comment

Share on other sites

BiberDark

Link to comment

Share on other sites

Recently Browsing 0 members

Browse

Links

Activity

Important Information