массив с пакетами

[supernewbie]

хм, с мелкими работает, но с большими нет(

[alexteam]

большими нет

разве что у тебя строка > 2гб.

[supernewbie]

эм) это врятли, делаю все как и ты в своем скрипте, чуть-чуть изменив. Но когда завтсавляю его выдавать пакет с панелькой, пх читает этот пакет как Die а при наведеии на него вообще содержимое не показывает.

[alexteam]

код в студию. весь.

[supernewbie]

procedure scanpaneli;
begin
  for i:=1 to 20 do //после выполнения этого цикла i будет равен 20
    if ConnectName=NamesArray[i] then
    begin
      paneli[i]:=pck; 
      break; //<-fix. вот этого тут явно нехватало.
    end;
end;

begin
  if FromServer and (pck[1]=#$45) then scanpaneli;

  if [условие]  then
  begin
    buf:=paneli[i]; //ты уверен что при I = 20 ты обратишься к нужной ячейке ? не.. скорей всего ты обратишся в ячейке по которой лежит пустая строка. символом окончания строки - #0 вот откуда у тебя пакет die (id=#0) береццо
    SendToClientEx(Name);
  end;
end.

[alexteam]

ну. если окромя секции var ты ничо не утаил - то все понятно.
подправил твой пост..

[supernewbie]

break там явно бы не помог, т.к. потом снова идет перегон
PS опять все полетело

for i:=1 to 20 do
if IDNamesArray[i]=target then
begin
targetName:=NamesArray[i];
idtargetName:=IDNamesArray[i];
say2('У вас таргет на вот этом чухе > ' + targetName+ '.');
buf:=HStr('14'); 
SendToServerEx(targetName);  
buf:=paneli[i];
SendToClientEx(Name); 
buf:=HStr('50'); 
SendToServerEx(targetName); 
targetNamenashel:=true;

Добавлено через 5 минут
О_о кажись заработало

[alexteam]

......

Function GetArrayIndexByName(name:string):integer;
begin
  result := 1;
  while (result <= 20) and (name <> NamesArray[result]) do inc(result);
  if result > 20 then result := 0;
end;

Function GetArrayIndexByOBjId(ObjId:integer):integer;
begin
  result := 1;
  while (result <= 20) and (ObjId <> IDNamesArray[result]) do inc(result);
  if result > 20 then result := 0;
end;


var
  Index : integer;
begin
  if FromServer and (pck[1]=#$45) then scanpaneli;

  if [условие]  then
  begin
    index := GetArrayIndexByName('имя когото'); //получаем индекс элемента с указаным именем юзаем ее или  GetArrayIndexByOBjId я хз как там у тя по коду
    if index > 0 then //индекс равен нулю если имя не найдено
      begin
        buf:=paneli[index]; 
        SendToClientEx(Name);
      end;
  end;
end.

Оффтоп

на будущее:
уместность использования GetArrayIndexByName в том или ином месте определяеццо кодом в целом.
т.к. кода я не вижу - вариант использования оставлю таким.
делай поменьше циклов в коде скрипта. лучше в самом начале получить и запихнуть результат функции в переменную потратив аж целых 4 байта в памяти чем каждый раз теребить одну и туже функцию с циклом внутри тратя уйму времени процессора и создавая лишние задержки при обработке пакета.

[supernewbie]

черт, опять критует, но 1 раз работало!) =\

Добавлено через 18 минут
чем не нравится проверка IDNamesArray[i]=target ?

Добавлено через 7 минут
GetArrayIndexByOBjId(i);
if i > 0 then
begin
buf:=paneli[i];
SendToClientEx(Name);
end;

все равно он критует что б его...

[alexteam]

полный код выложи. от корки до корки, врядли там аццкая секретная разработка.