написал скрипт, а он как всегда

[Breadfan]

Часть первая:Оффтоп

const
    MyFileName = 'c:\myfile.txt';
Var
    name, CharNick, CharTitle, idx:string;
    CharName, ProfName, ProfList: TStringList;
    tmp, CharOID, CharClassID, CharClan, MyOID:integer;
    charX, charY,charZ:integer;
function GetValue(ValName: string): string;
begin
  result:=CharName.Values[ValName];
end;
function GetProf(ValName:string): string;
begin
  result:=ProfName.Values[ValName];
end;
procedure SetValue(ValName: string; Value: string);
begin
  CharName.Values[ValName]:=Value;
end;
procedure Init; //Вызывается при включении скрипта
var
    i:integer;
begin
        CharName:=TStringList.Create;
    try
        CharName.LoadFromFile(MyFileName);
    except
    end;
    ProfList:=TStringList.Create;
    ProfName:=TStringList.Create;
    try
        ProfName.LoadFromFile('classid.ini');
    except
        SendMsg('classid.ini не найден!');
    exit;
    end;
    MyOID:=0;
end;
procedure Free;
begin
CharName.Clear;
CharName.Free;
CharName.SaveToFile(MyFileName);
end;

begin
   if fromserver and (pck[1]=#$31) then begin
       idx:=StrtoHex(pck[18])+StrtoHex(pck[19])+StrtoHex(pck[20])+StrtoHex(pck[21]);
       name:='OID: '+idx;
       tmp:=18;
       CharOID:=ReadD(tmp);
       if ((GetValue(Name))='') then begin
                   CharX:=ReadD(2);
                   CharY:=ReadD(6);
                   CharZ:=ReadD(10);
                   CharNick:=ReadS(tmp);
                   ReadD(tmp);
                   ReadD(tmp);
                   CharClassId:=ReadD(tmp);
                   tmp:=tmp+276;
                   CharTitle:=ReadS(tmp);
                   CharClan:=ReadD(tmp);
                   name:='OID: '+idx;
                   SetValue(name,((CharNick)));
                   name:='Профессия основы: '+idx;
                   SetValue(name,(GetProf(inttostr(CharClassId))));
                   name:='Клан: '+idx;
                   SetValue(name,(inttostr(CharClan))); //тут значение вар\не вар прикрутить стоит
                   name:='Титул: '+idx;
                   SetValue(name,(CharTitle));
                   name:='CoordX: '+idx;
                   SetValue(name,(inttostr(CharX)));
                   name:='CoordY: '+idx;
                   SetValue(name,(inttostr(CharY)));
                   name:='CoordZ: '+idx;
                   SetValue(name,(inttostr(CharZ)));
                   CharName.SaveToFile(MyFileName);
       end else begin 
                    idx:=StrtoHex(pck[18])+StrtoHex(pck[19])+StrtoHex(pck[20])+StrtoHex(pck[21]);
                    name:='OID: '+idx;
                    If (GetValue(name)<>'') then begin
                        SendMsg('Ник: '+GetValue(name));
                        name:='Профессия основы: '+idx;
                        SendMsg('Профа: '+GetValue(name));
                        name:='Клан: '+idx;
                        SendMsg('Клан ИД: '+GetValue(name));
                        name:='Титул: '+idx;
                        if ((GetValue(name))<>'') then SendMsg('Титул: '+GetValue(name));
                    end;
       end;
   end;
    if fromserver and (pck[1]=#$2F) then begin // and ((ReadD(2))<>MyOID) 
       idx:=StrtoHex(pck[2])+StrtoHex(pck[3])+StrtoHex(pck[4])+StrtoHex(pck[5]);
       CharOID:=ReadD(2);
       CharX:=ReadD(6);
       CharY:=ReadD(10);
       CharZ:=ReadD(14);
       if ((GetValue('OID: '+idx))<>'') and (CharOID<>MyOID) and (MyOID<>0) then begin
            try
                name:='CoordX: '+idx;
                SetValue(name,(inttostr(CharX)));
                name:='CoordY: '+idx;
                SetValue(name,(inttostr(CharY)));
                name:='CoordZ: '+idx;
                SetValue(name,(inttostr(CharZ)));
                CharName.SaveToFile(MyFileName); 
            except
            end;
        end;
       If (CharOID<>MyOID) and ((GetValue('OID: '+idx))<>'')then begin
                SendMsg('Перс '+GetValue('OID: '+idx)+' бежит в X:'+GetValue('CoordX: '+idx)+' Y:'+GetValue('CoordY: '+idx)+' Z:'+GetValue('CoordZ: '+idx)+);
       end else begin
                If (CharOID=MyOID) then begin
                    SendMsg('Вы бежите в X:'+inttostr(CharX)+' Y:'+inttostr(CharY)+' Z:'+inttostr(CharZ));
                end;
       end;
    end;
//  end of part I 
 

(продолжение ниже)
После отключения скрипта - файл-лог очищается.

[QaK]

supernewbie, тебя чем одномерные динамические массивы неустраивают?

[Breadfan]

Часть вторая (продолжение, т.к. в один пост - не влез):Оффтоп

//Start Part II
          if fromserver and (pck[1]=#$08) then begin
        idx:=StrtoHex(pck[2])+StrtoHex(pck[3])+StrtoHex(pck[4])+StrtoHex(pck[5]);
            try
                name:='OID: '+idx;
                SendMsg('Удаляем '+GetValue(name));
                CharName.Delete(CharName.IndexOfName(name));
                name:='Профессия основы: '+idx;
                CharName.Delete(CharName.IndexOfName(name));
                name:='Клан: '+idx;
                CharName.Delete(CharName.IndexOfName(name));
                name:='Титул: '+idx;
                CharName.Delete(CharName.IndexOfName(name));                
                name:='CoordX: '+idx;
                CharName.Delete(CharName.IndexOfName(name));
                name:='CoordY: '+idx;
                CharName.Delete(CharName.IndexOfName(name));
                name:='CoordZ: '+idx;
                CharName.Delete(CharName.IndexOfName(name));
                CharName.SaveToFile(MyFileName); 
            except
            end;
        //end;
    end;
    if fromserver and (pck[1]=#$32) and (MyOID<>ReadD(18)) then MyOID:=ReadD(18);
    if fromserver and (pck[1]=#$22) and (MyOID=ReadD(2)) then begin  //При приходе пакета
        SendMsg('Очистка лога'); // TeleportToLocation - полная очистка лога
        CharName.Clear;    //для избавления от "хвостов"
        CharName.SaveToFile(MyFileName);    
    end;
end.

Вдогонку:

Такого рода лог ведется: Оффтоп

OID: C87D2048=Атилла
Профессия основы: C87D2048=Sword Muse
Клан: C87D2048=35
Титул: C87D2048=@
CoordX: C87D2048=146443
CoordY: C87D2048=-56114
CoordZ: C87D2048=-2776
OID: E56D4148=Stoum
Профессия основы: E56D4148=Warlock
Клан: E56D4148=103
Титул: E56D4148=Kamikaze team
CoordX: E56D4148=147838
CoordY: E56D4148=-55370
CoordZ: E56D4148=-2728

Формат лога: <Параметр>: <ОИД перса, которому принадлежит> = <значение параметра>. Онлайн сервера - 1к примерно (с торговыми ботами) - по гирану бег без лагов. Еслиб знать на кой ляд оно вообще надо - ТЗ так сказать, иметь - было бы легче.

[supernewbie]

а как ведется удаление\замена в этом логе?

Добавлено через 14 минут
при прогрузе начинается жуткий пиздец)

[Breadfan]

Удаление как раз в Part II находится, имена строк имеют ОИД перса, к которому они относятся, так что удаление\обновление - не проблема. Проблема то, что в логе после удаления периодически остаются хвосты вида Оффтоп

CoordX: 99FB1048=149103
CoordY: 99FB1048=-55485
CoordZ: 99FB1048=-2760
CoordX: 3E281048=81310
CoordY: 3E281048=148034
CoordZ: 3E281048=-3464
CoordX: 3C281048=81248
CoordY: 3C281048=147949
CoordZ: 3C281048=-3464
CoordX: 1D281048=81676
CoordY: 1D281048=147906
CoordZ: 1D281048=-3464
CoordX: F1271048=81707
CoordY: F1271048=148007
CoordZ: F1271048=-3464
CoordX: 2FDE1048=83405
CoordY: 2FDE1048=148008
CoordZ: 2FDE1048=-3431
CoordX: 88F81048=82441
CoordY: 88F81048=147907
CoordZ: 88F81048=-3464
CoordX: 46E41048=82259
CoordY: 46E41048=147641
CoordZ: 46E41048=-3464
CoordX: 83CA1048=82346
CoordY: 83CA1048=147632

- без понятия чего это оно так (может быть не стоит постоянно вызывать сохранение StringList'а в файл), поставил дополнительную очистку лога при ТП, как временную меру....а там как руки дойдут/
Насчет флага вар\не вар - немного сложнее - в том клане варлист - пустой Наугад не смогу сделать. Вывод в лог сообщний SendMsg - на мой взгляд - лучше будет закомментировать.

[supernewbie]

че-то я не понимаю, как найти ник по иду в этом листе?

if fromserver and (pck[1]=#$B9) then SendMsg('У вас на таргете: '+GetValue(idx)); так не работает\

[Breadfan]

Перед последним end. - вставь

if fromserver and (pck[1]=#$B9) then begin
        idx:=StrtoHex(pck[2])+StrtoHex(pck[3])+StrtoHex(pck[4])+StrtoHex(pck[5]);
        name:='OID: '+idx;
        SendMsg('В таргете '+GetValue(name));
    end;

idx - "индекс" - это ОИД - только записаный наоборот, как в пакете, просто начинал с использования лишь 3ех байт, 4ый появился позже, а переделывать - пока лень, вот и все. Вполне возможно заменить к привычной форме idx:=inttostr(ReadD(j)); - только менять надо сразу по всему скрипту.

[supernewbie]

а) я поняяял)

[mira]

Сообщение от supernewbie

в чем разница между for o:=1 to max do и for o:=1 to 1500 do ?
как вообще реализуются такие массивы

моя реализация :
creatures - массив структур хранящих чаров
pciA-пакет чаринфо (если точнее его кусок)
bnew булево - чар уже имеетса в массиве или нет?
lastfree - индекс последней "дырки" образвовашейся по objectdelete
по возможности будем повторно использовать дырки если их нехватит то увеличим l2_maxcreatures (максимальный индекс используемый в массиве)
и добавим сверх

n:=0;
lastfree:=-1;
index:=-1;
mc:=ClientHeader.l2_maxcreatures;  
 while (n<mc) do begin // перебор масива от 0 до потолкового индекса
  if creatures[n].ID=pciA.ID then begin 
   index:=n; // если такой както уже оказалса в массиве заканчиваем
   bNew:=false;
   break;
  end;
  if creatures[n].ID=0 then lastfree:=n; // опа "дырка"! запоминаем...
  inc(n);
 end;
 if (index= -1)then begin //ничего не нашли? пробуем использовать "дырку"
  index:=lastfree;
 end;
 if (index= -1)then begin { и дырки тоже нет? че делать 
увеличиваем массив... и дописываем новую запись на вершину увеличив потолок}
  index:=mc;
  inc(ClientHeader.l2_maxcreatures);
 end;

тут возможнв процедуры дефрагментации чтобы скинуть потолковое значение и код прилизать поидее.
у меня тормозов никаких нет правдо это выполняет RTL программы а не ФС
скрипт он хоть и фаст но он всеже скрипт )))

[supernewbie]

а вот эти точки и нижние отступы это имя массива или что-то еще?