Управление диалогами с НПЦ по чату

[skypro]

Скрипт дает возможность отправить в пати чат команду вида "$-2-1" или "ник_персонажа-2-2", без кавычек и выбранный персонаж, либо все ($) у кого запущен скрипт выполнят диалоги по заданному далее алгоритму, где через дефис указываются номера строк диалога.

uses
Classes, SysUtils;

var
 targetname, chattext:string;
 v,i:integer;
 command:  Tstringlist;
 
begin

while true do
begin
    v :=  charlist(0).target.id;
    targetname :=  charlist(0).target.name;
    chattext:= ChatMessage.text;
    command:= Tstringlist.create();
    command.delimiter := '-';
if (ChatMessage.sender = Party.Leader.name) and (ChatMessage.unread = true) then
    begin
      try
        command.DelimitedText := chattext;
        if v = 0 then engine.settarget(Party.Leader.target.name); 
        if v <> 0 then engine.settarget(Party.Leader.target.id);
        Engine.DlgOpen;       
          for i:= 1 to command.count -1 do
            begin
            delay(300);            
            try
            if (command(0) = user.name) or (command(0) ='$') then begin
              Engine.DlgSel(strtoint(command(i)));
              chattext := '';
            end;
            finally
            end;
            end;
      finally
      end;      
    end;
delay(500);
end;
end.