ДА БУДЕТ БOT!

[APXAHGEJI]

ReadH(i) аналогично (pck[i]+pck[i+1]), но это не одно и тоже.
ReadH() возвращает число в десятиричной системе,
а pck[] в шестнадцетиричной.

[Undeada]

а есть встроенная функция перевода из шестнадцатиричной в десятичную?
или может быть скрипт

[APXAHGEJI]

ХМ, так я про что говорю, pck это тупо кусок (1 байт пакета, условно, две циферки подряд в пакете) в 16 системе,
а вот ReadC это тот же кусок (1 байт пакета) тока в 10 системе.
ReadH - 2 байта,
ReadD - 4 байта, и тд.

Добавлено спустя 35 минут 53 секунды:
Уж извините за флуд :oops: , но вдруг кому сгодится :)
Скриптик, отправляет торг сообщения по времени и записывает все приват сообщения,
соответственно на которые можно будет ответить позже.
Еще я там в конце заблочил, ответ на собщения в пм, что типа меня нет, приду отвечу))
У на серве торг боты разрешены)) , а у вас?

//Скрипт торг сообщений by APXAHrEJI
//Всё активируется соц действиями
//Yes - выводит одно торг сообщение
//No - автоматически повторяет сообщение чере некоторый интервал врмени (по умолчанию 30 сек.)
//Unaware - если вам во время вашего отсутствия что-то написали в ПМ 
//то, по нажатию клавиши выводится те самые сообщения , одно нажатие одно сообщение.
//Applaud - удаляет все сообщения
Const
  Name = 'Ник Перса';
  Yahoo= ' Сюда торг сообщение                                        '+
             ' если не поместилось туда мона и сюда              ';
Var
  TimerToSay: TTimer;
  Flag: boolean;
  N, M: Integer;
  SaveMsg: array of String;
  SaveNick: array of String;

Procedure Init;
begin
  TimerToSay:=TTimer.Create(nil);
  TimerToSay.OnTimer:=@SayByTime;
  TimerToSay.Enabled:= False;
  TimerToSay.Interval:= 30000;//интервал повторения сообщения
  Flag:= False;
  N:= 0;
  M:= 0;
end;

procedure Free;
begin
  TimerToSay.Free;
  SetLength (SaveMsg, 0);
  SetLength (SaveNick, 0);
end;

procedure PrivatSay;
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(SaveNick[M]);
  WriteS(SaveMsg[M]);
  SendToClientEx(Name);
end;

Procedure Say;
begin
  buf:= #$38;
  WriteS(Yahoo);
  WriteD(8);
  SendToServerEx (Name);
end;

Procedure Palevo;
begin
  buf:= #$38;
  WriteS('Меня нет. Отвечу позже.');
  WriteD(2);
  WriteS(SaveNick[N-1]);
  SendToServerEx(Name);
end;

Procedure SayByTime(Sender: TObject);
begin
  Say;
end;

Begin
  If pck='' then exit;

  if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    case ReadD(2) of
      6: Say;
      5: If Flag then begin
           Flag:= False;
           TimerToSay.enabled:=false;
         end
         else begin
           Say;
           Flag:= True;
           TimerToSay.enabled:=True;
         end;
      8: If (N <> 0) then begin
           PrivatSay;
           If (M<(N-1))then Inc(M) else M:=0;
         end;
      11: begin
            M:=0;
            N:=0;
            SetLength (SaveMsg, N);
            SetLength (SaveNick, N);
          end;
    end;
    pck:= '';
  end;

  If FromServer and (ConnectName=Name) then
    if (pck[1]= #$4A) and (pck[6]=#$02) then begin
      Inc(N);
      SetLength (SaveMsg, N);
      SetLength (SaveNick, N);
      SaveNick[N-1]:= ReadS(10);
      SaveMsg[N-1]:= ReadS(2*Length(SaveNick[N-1])+2 +10);
      //Palevo; //раскоментарив, бот будет отвечать на сообщения в ПМ  
    end;
End.

[Undeada]

понял, ReadH(i) = ReadC(i)+ReadC(i+1)

[APXAHGEJI]

Угумс :ROFL:

Добавлено спустя 4 минуты 52 секунды:
Хотя нет, сдесь же перевод идет :) из ситемы в систему

Добавлено спустя 6 минут 40 секунд:
тоесть допусти пакет 2F 22 05 00 00, в нем
Pck[1]=2F
pck[2]=22
Pck[1]+pck[2]= 2F 22
ReadH= 8751, но
ReadC(1)= 47
ReadC(2)= 22
RaedC(1)+Read(2)=69

Сдесь же перевод идет из системы в систему, а переводишь число получаетсся по частям.

Добавлено спустя 2 минуты 42 секунды:
Ошибочка таам у меня ReadC(2)= 34
и соответственно
ReadC(1)+Read(2)= 81
но сути это не меняет

[Undeada]

млин. получается без нее никак.
и почему ГГ с 3.1.8 не грузит, а с 3.1.6 все норм?

[APXAHGEJI]

У меня например иногда тоже персы не грузятся, если пнх работает,
но обычно достаточно перезапустить клиент или сам пнх и все норм.

А может ты где-то галочку лишнюю поставил, или наоборот не поставил, в разделе основное.

[NLObP]

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

ReadH(i) аналогично (pck[i]+pck[i+1]), но это не одно и тоже.
ReadH() возвращает число в десятиричной системе,
а pck[] в шестнадцетиричной.

ИМХО одинаково, что десятичные сложить, что шестнадцатеричные сложить в итоге одно и тоже число должно быть, только в своей системе исчисления.

HEX -> #$0A+#$10=#$1A (=26) или DECimal -> 10+16=26

[Rubec]

Кароче я нифига не понял шо вы там считаете но что то мне подсказывает что NLObP прав )

[APXAHGEJI]

NLObP, ага правильно, а вот если принять pck[1]=#$0A, а pck[2]=#$10, то pck[1]+pck[2]=#$0A#$10