[Hworang]

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

скрипт тупо спамит 0F в ответ на любой пакет от серва - что явно не есть гуд.....убей эту ветку, а посылку на итемлист в начало скрипта просто вставь один раз

спс

а я то думаю - падение сервера через 10 минут после запуска скрипта связано со мной или нет )))

вот как получилось
пока работает

где почитать - как сделать окошко для скрипта (как у nlobp в скрипте заточки)?
хотябы самое простое - чтобы была кнопка старт/стоп и кол-во адены писалось

var i:integer;
const nik = 'Char';
procedure Init; //зачем это нужно - не пойму
begin

end;

procedure Free; //зачем это нужно - не пойму
begin

end;

begin
buf:=HStr('0F ');
SendToServerEx(nik);

if pck='' then exit; //зачем это нужно - не пойму

if FromServer and (ConnectName=nik) and (pck[1]=#$1B) then //упростил условный оператор
   begin

         if (ReadH(4)<10) then
               begin
                 buf:=HStr('A7 9A 5F 01 00 A0 BB 0D 00 ');
                 WriteD(195);         //купить 195
                 WriteH(0);
                 SendToServerEx(nik);
               end;

            buf:=#$1E;
            WriteD(0);
            WriteD(ReadH(4)-2);

            if (ReadD(12)=2414) then
              for i:=1 to (ReadH(4)-2) do
              begin
                WriteD(ReadD(i*36-28));
                WriteD(2414);
                WriteD(1);
              end
            else
            for i:=1 to (ReadH(4)-2) do
            begin
              WriteD(ReadD(i*36+44));
              WriteD(2414);
              WriteD(1);
            end;
            SendToServerEx(nik);
   end;

   //buf:=HStr('0F ');
   //SendToServerEx(nik);

   if (ReadD(16)>700000000) and (ReadD(12)=57) then
   begin
       buf:=HStr('38 2E 00 64 00 65 00 70 00 6F 00 73 00 69 00 74 00 00 00 00 00 00 00 ');
       SendToServerEx(nik);
   end;
end.