Немного о конфигах и скриптах.

//-------------------------------------Тестим JavaScript---------------------------------------
var fso = new ActiveXObject('Scripting.FileSystemObject');
//Объект FileSystemObject обеспечивает доступ к файловой системе Windows.
var pkl_fname = 'Settings/pkl.txt';   //Путь к файлу с пклистом
var pkl_names = new Array();          //Массив с имена чаров из пклиста
var pkl_comms = new Array();          //Массив с комментариями
var pkl_count = 0;                    //Кол-во Человек в пклисте
var pkl_group = 'pkl';                //Группа для алиасов пклиста
var pkl_col = "light red,b white";    //Цвет которым подсвечивать чаров из пклиста
//-----------------------------Справка по пклисту----------------------------------------------
function pkl_help() {
  jmc.Showme('Справка по ПКлисту версии 1.3\n');
  jmc.Showme('\x1B[0;32mпкл_пом\x1B[0;0m                 - Вывод этой справки по пклисту');
  jmc.Showme('\x1B[0;32mпкл_адд\x1B[0;0m [имя] [коммент] - добавить чара [имя] в ПКлист');
  jmc.Showme('\x1B[0;32mпкл_рем\x1B[0;0m [имя]           - удалить чара [имя] из ПКлиста');
  jmc.Showme('\x1B[0;32mпкл\x1B[0;0m [первые буквы имен] - вывод чаров которые в ПКлисте');
  jmc.Showme('\x1B[0;32mпкл_загр\x1B[0;0m                - загрузка ПКлиста из файла');
  jmc.Showme('\x1B[0;32mпкл_сохр\x1B[0;0m                - сохранение ПКлиста в файл');
}
//-----------------------------Добавить в ПКлист-----------------------------------------------
function pkl_add(pk) {
  nam=pk.split(' ')[0];
  res=pk.substr(nam.length+1);
  var rx=/^\s*$/;
  if(rx.test(nam)==true) {
    jmc.Showme('Имя врага не может быть пустым!!!',pkl_col);
    return;
  }
  nam=nam.charAt(0).toUpperCase()+nam.substr(1).toLowerCase();
  if(pkl_count>0) {
    var t;
    for(t=0;t<pkl_count;t++) {
      if(nam.toLowerCase()==pkl_names[t].toLowerCase()) {
        jmc.Showme('ПКлист: персонаж '+pkl_names[t]+' уже в пклисте.',pkl_col);
        if(rx.test(res)==false) {
          pkl_comms[t]=res;
          jmc.Showme('Изменена причина.',pkl_col);
        }
        return jmc.Showme(pkl_comms[t],pkl_col);
      }
    }
  }
  pkl_names[pkl_count]=nam;
  pkl_comms[pkl_count]=res;
  jmc.Parse('враг '+pkl_names[pkl_count]);
  jmc.Showme('ПКлист: персонаж '+pkl_names[pkl_count]+' добавлен в пклист.',pkl_col);
  pkl_count++;
  pkl_save();
}
//------------------------------------Удалить из ПКлиста---------------------------------------
function pkl_remove(pk) {
  pk=pk.charAt(0).toUpperCase()+pk.substr(1).toLowerCase();
  if(pkl_count>0) {
    var t;
    for(t=0;t<pkl_count;t++) {
      if(pk.toLowerCase()==pkl_names[t].toLowerCase()) {
        for(var x=t;x<pkl_count-1;x++) {
          pkl_names[x]=pkl_names[x+1];
          pkl_comms[x]=pkl_comms[x+1];
        }
        pkl_count--;
        jmc.Parse('#unhi '+pk);
        jmc.Showme('ПКлист: персонаж '+pk+' удален из пклиста.',pkl_col);
        pkl_save();
        return
      }
    }
    jmc.Showme('ПКлист: персонаж '+pk+' не найден в пклисте.',pkl_col);
  }
}
//---------------------------------Вывести ПКлист----------------------------------------------
function pkl_show(nam) {
  var rx=/^\s*$/;
  if(nam!='' && rx.test(nam)==true) {
    jmc.Showme('Имя врага не может быть пустым!!!',pkl_col);
    return;
  }
  var c=0;
  nam=nam.toLowerCase();
  if(pkl_count>0) {
    var t;
    for(t=0;t<pkl_count;t++) {
      if(nam=='') {
        jmc.Showme(pkl_names[t]+'\x1B[0;0m '+pkl_comms[t],pkl_col);
      } else {
        if(pkl_names[t].substr(0,nam.length).toLowerCase()==nam) {
          jmc.Showme(pkl_names[t]+'\x1B[0;0m '+pkl_comms[t],pkl_col);
          c++;
        }
      }
    }
  }
  if(nam=='') {
    jmc.Showme("ПКлист: всего "+pkl_count+" человек в листе.",pkl_col);
  } else {
    jmc.Showme("ПКлист: всего "+c+" человек найдено по запросу листе.",pkl_col);
  }
}
//-------------------------------Загрузить ПКлист----------------------------------------------
function pkl_load() {
  jmc.Parse("#alias {враг} {#high {"+pkl_col+"}{\%\%0}} {"+pkl_group+"}");
  jmc.Parse("#alias {пкл_адд} {#s pkl_add('%0')} {"+pkl_group+"}");
  jmc.Parse("#alias {пкл_рем} {#s pkl_remove('%0')} {"+pkl_group+"}");
  jmc.Parse("#alias {пкл} {#s {pkl_show('%%0')}} {"+pkl_group+"}");
  jmc.Parse("#alias {пкл_сохр} {#s {pkl_save()}} {"+pkl_group+"}");
  jmc.Parse("#alias {пкл_загр} {#s {pkl_load()}} {"+pkl_group+"}");
  jmc.Parse("#alias {пкл_пом} {#s {pkl_help()}} {"+pkl_group+"}");
  jmc.Parse("#tabadd {пкл_загр}");
  jmc.Parse("#tabadd {пкл_сохр}");
  jmc.Parse("#tabadd {пкл_пом}");
  jmc.Parse("#tabadd {пкл_рем}");
  jmc.Parse("#tabadd {пкл_адд}");
  jmc.Parse("#tabadd {пкл}");
  jmc.Parse("#group global "+pkl_group);
  if(!fso.fileExists(pkl_fname)) {
    var p=fso.CreateTextFile(pkl_fname,true);
    p.Close();
  }
  var p=fso.OpenTextFile(pkl_fname);
  var s;
  pkl_count=0;
  while(!p.AtEndOfStream) {
    s=p.ReadLine();
    if(s.length>2) {
      pkl_names[pkl_count]=s.split(' ')[0];
      pkl_comms[pkl_count]=s.substr(s.split(' ')[0].length+1);
      jmc.Parse("враг "+pkl_names[pkl_count]);
      pkl_count++;
    }
  }
  jmc.Showme("ПКлист: загрузка окончена всего "+pkl_count+" человек в листе.",pkl_col);
  p.Close();
}
//-------------------------------Сортировка ПКлиста--------------------------------------------
function pkl_sort() {
  var a,b,c=0;
  for(a=0; a<pkl_count-1; a++) {
    for(b=a+1; b<=pkl_count-1; b++) {
      if(pkl_names[a].toLowerCase()>pkl_names[b].toLowerCase()) {
        tmp_name=pkl_names[b];
        tmp_comm=pkl_comms[b];

        pkl_names[b]=pkl_names[a];
        pkl_comms[b]=pkl_comms[a];

        pkl_names[a]=tmp_name
        pkl_comms[a]=tmp_comm;
      }
    }
  }
}
//-------------------------------Сохранить ПКлист----------------------------------------------
function pkl_save() {
  pkl_sort();
  var p=fso.CreateTextFile(pkl_fname,true);
  var t;
  for(t=0;t<pkl_count;t++) {
    p.WriteLine(pkl_names[t]+' '+pkl_comms[t]);
  }
  jmc.Showme("ПКлист: сохранение окончено всего "+pkl_count+" человек в листе.",pkl_col);
  p.Close();
}
jmc.RegisterHandler('Load','pkl_load()');
jmc.RegisterHandler('UnLoad','pkl_save()');