Сундуки в ХБ.Ваши Идеи?

[TAMBIK]

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

*Тихо, шепотом, чтобы никто не услышал*: 'Советую попробовать сравнить что у них находится в правой руке'
Расшифровку смотрел в 3.4.1.83

а как и где смотрел

[APXAHGEJI]

Кароч надоело, нате, пробуйте.
Первое длинющее число в титуле сундука это ИД, а вот второе...
если 0 - сундук хороший
-1 - сундук плохой
Если у вас всегде 0, ну или всегда -1, значит не судьба.
Возможны и иные варианты.

//Палилка сундуков by APXAHGEJI
Const
  Name='Name';
Var
  s: string;
  i: integer;

//******************************************************************************
//     Вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
Begin
  if (ConnectName=Name) then begin
    If pck='' then exit;
    If FromServer then
      case pck[1] of
        #$0C: if ((ReadD(6)>=1018257) and (ReadD(6)<=1018286) or
                  (ReadD(6)>=1021801) and (ReadD(6)<=1021822) or
                  (ReadD(6)>=1035593) and (ReadD(6)<=1035595))then begin
          i:= 125;
          buf:= copy(pck,1,i-1);
          S:=ReadS(i) + ' ' +IntToStr(ReadD(6))+' '+IntToStr(ReadD(106));
          WriteS(S);
          buf := buf+copy(pck,i,length(pck)-1);
          pck:= buf;
        end;
      end;
  end;
End.
//****************************************************************************** 
 

[TAMBIK]

ЩА попробуем

не нейдет на шоге

[Yegor]

Да не судьба. Последняя цифра всегда 0. Может ещё админы исправяться и сделают нормально в будущем.

[ПолуГость2]

Я бы на их месте не стал.
Тот факт, что в предыдущих версиях сервера у сундуков был признак "хороший/плохой" есть дибилизм, как раз совершенно "не нормально". Кивать на оф не нужно, это был ИХ дебилизм.

[TAMBIK]

Раньше в бандитах такие пвп были народ бегал целые кланы на разборки приходили весело а ща ТИШИНА

Добавлено через 2 часа 56 минут

ar
Heading,i, j, k: integer;
Message,Title :string;
begin
If FromServer then
      case pck[1] of
      #$0C: if ((ReadD(6)>=1018257) and (ReadD(6)<=1018286))then begin
      i:=26;
     
      Heading:=ReadD(i);
      i:=i+95;
      j:=i;           
      Title:=readS(i);
      k:=i;         
      buf:=copy(pck,1,j-1);
      Message:=''+Title+''+'='+ ''+inttostr(Heading)+'';
       WriteS(Message);
      j:=length(buf);
      buf:=buf+copy(pck,k,length(pck)-k+1);
      pck:='';
      SendToClient;
      end;
   end;
end.

так разные цифры
могет можно попроще сделать я прост неумею

[Alta1r]

а говорят что у боксов и честов ХП разное при одинаковом лвле!
Это можно использовать в боте когда видиш хп цели!

[Govneco]

Alta1r, могут только говорить.
Всё у них одинаковое и не только хп и мп и т.д.

[Alta1r]

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

Alta1r, могут только говорить.
Всё у них одинаковое и не только хп и мп и т.д.

не одинаковое, хочешь проверь зайди!

[TAMBIK]

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

не одинаковое, хочешь проверь зайди!

от сервера зависит.ша на шоге одинак.пост 5 посмртри