Редактирование: NTSL Scripts (раздел)

=== Less Annoying Job Indicator ===
Only shows abbreviations of job titles instead of full titles.

<pre>def Initialize() {
$words = vector(
   "assistant", "Assnt",
   "captain", "Capt",
   "head of personnel", "HoP",
   "bartender", "Bar",
   "chef", "Chef",
   "botanist", "Hydro",
   "quartermaster", "QM",
   "cargo technician", "Cargo",
   "shaft miner", "Miner",
   "clown", "Clown",
   "mime", "Mime",
   "janitor", "Jan-r",
   "librarian", "Lib-n",
   "lawyer", "Law",
   "chaplain", "Chapl",
   "chief engineer", "CE",
   "station engineer", "Engi",
   "atmospheric technician", "Atmos",
   "chief medical officer", "CMO",
   "medical doctor", "MD",
   "chemist", "Chem",
   "geneticist", "G-tic",
   "virologist", "Viro",
   "research director", "RD",
   "scientist", "Sci",
   "roboticist", "Robo",
   "head of security", "HoS",
   "warden", "Ward",
   "detective", "D-tiv",
   "security officer", "Sec",
   "ai", "AI",
   "cyborg", "Borg",
   "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 = "";
$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 + "]"; }</pre>