Кружок нубов(Вопрос-Ответ) - Страница 35

Enchanter · 12.04.2009, 14:17

Иди те вы в жопу все1

PanAm · 16.04.2009, 14:19

buf:=#$14;
.....
SendToServerEx(AssistantName);;
Значит это пакет от клиента, и до Т1 это всегда было
14=UseItem:d(ObjectID)d(d)
Аналог в Т1 это
19=UseItem:d(ObjectID)d(Unknown)

NLObP · 16.04.2009, 14:53

Объясняю как изменять скрипт при переходе на другие хроники. Например с Интерлюдии на Грацию.

Берем packetsT0.ini - здесь описан формат пакетов интерлюдии. Лежит в папке .\SETTINGS пакетхака версий больше 100.
Берем packetsT1.ini - здесь описан формат пакетов грации. Лежит также в папке .\SETTINGS.

Берем скрипт, который хотим изменить, например бот локомотив для Интерлюдии (выдержки)

delphi Код:

Const ProgramName =
'Бот - локомотив от Alexus '+
'версия : 0.4 (бета) '+
'дата: 03.01.09';
begin
 if pck = '' then exit;
 if (ConnectName = NickName) and FromServer then  // разбор пакетов от сервера
   case pck[1] of
    #$01: MoveToLocation01;
//  #$03: ;                             //   CharInfo:d(X)d(Y)d(Z)-(4)h(ObjectID)s(Name)d(Race)d(Sex)d(ClassID)
           begin
            UserInfo;
            btnInit.enabled:= false;
            if MyHP = 0 then             // Проверка не убили ли нас...
             begin
              SendMsg_to_CL('Нас убили...');
              log.Lines.Add('Нас убили...');
              StopGame;
             end;
           end;
    #$05: if (ReadD(6) = MyID) and (not InitMode) then Attack05;  //   05= Attack:d(AttackerID)d(TargetID)d(Damage)b(Flags)d(X)d(Y)d(Z)h(Hits)
 {  #$48: ; }   //   48= MagicSkillUse:h(CharID)h(targetID)d(skillID)d(skillLvl)d(hitTime)d(reuseDelay)d(X)d(Y)d(Z)w(count)d(d)d(d)d(d)
    #$06: Die06;                             //   Die:d(ChaID)
    #$0C: if LastKilledMobObjID = ReadD(2) then         //   DropItem:h(PlayerID)h(ObjectID)i(ItemID)d(X)d(Y)d(Z)d(Stackable)d(Count)
           begin
            AddDroppedItem(ReadD(6), ReadD(10), ReadD(14), ReadD(18), ReadD(22));
           end;
    #$0D: if TargetID = ReadD(6) then                                              //   GetItem:d(PlayerID)h(ObjectID)d(X)d(Y)d(Z)
           begin
            TargetID:= 0;
           end;
    #$0E: if MyID=ReadD(2) then     //   StatusUpdate:h(ObjectID)d(Attributes)
           begin
            StatusUpdate;
            if (MyHP > 0) and (MyHP < HPlevelProcent) then if Wait(time1,DrinkDelay) then DrinkBottle;     // пьем бутылки
            if MyHP > HPlevelProcent then time1:=1;
            if MyHP = 0 then                                  // Проверка не убили ли нас...
             begin
              SendMsg_to_CL('Нас убили...');
              log.Lines.Add('Нас убили...');
              StopGame;
             end;
           end;
    #$12: DeleteObject12;                             //   DeleteObject:h(ObjectID)
    #$16: if (ReadD(10)=1) and (pck[121]=#$00) then  NpcInfo16; //   NpcInfo:h(ObjectID)d(NpcTypeID)d(IsAttackable)d(X)d(Y)d(Z)d(Heading)d(Unknown)d(MAtkSpd)d(PAtkSpd)d(RunSpd)d(WalkSpd)d(SwimRunSpd)d(SwimWalkSpd)d(FlRunSpd)d(FlWalkSpd)d(FlyRunSpd)d(FlyWalkSpd)f(ProperMultiplier)f(PAtkSpd)f(CollisionRadius)f(CollisionHeight)d(RHand)d(Unknown)d(LHand)b(Unknown)b(IsRunning)b(IsInCombat)b(IsALikeDead)b(IsSummoned)s(Name)s(Title)
    #$1B: begin
           InventoryCreate;  // Инвентарь
           if HPBottleID <> 0 then
            begin
             HPBottleObjID:= getinv(HPBottleID, 2,1);
             HPBottleCount:= getinv(HPBottleID, 2,3);
            end;
           if Bottle_1_ID <> 0 then
            begin
             Bottle_1_ObjID:=getinv(Bottle_1_ID, 2,1);
             Bottle_1_Count:=getinv(Bottle_1_ID, 2,3);
            end;
           if Bottle_2_ID <> 0 then
            begin
             Bottle_2_ObjID:=getinv(Bottle_2_ID, 2,1);
             Bottle_2_Count:=getinv(Bottle_2_ID, 2,3);
            end;
          end;
    #$27: begin
           InventoryUpdate;
           HPBottleCount:= getinv(HPBottleID, 2,3);
           Bottle_1_Count:=getinv(Bottle_1_ID, 2,3);
           Bottle_2_Count:=getinv(Bottle_2_ID, 2,3);
          end;
    #$13: if RestartMode then              // CharacterSelectionInfo
           begin
            buf:=#$0D;                     //   CharacterSelected
            WriteD(CharNumber);
            buf:= buf + hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00');
            SendToServerEx(NickName);
            RestartMode:= false;
           end;
   end;

 if (ConnectName = NickName) and FromClient then   // разбор пакетов от клиента
   case pck[1] of
   #$04: if InitMode then TargetID:= ReadD(2);       //  Action:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ)b(ActionID)
   #$38: UserCommands;              //  Say2:s(Text)d(Type)s(Target)
   #$48: begin                           //  ValidatePosition:d(X)d(Y)d(Z)d(Heading)d(Data)
          MyX:= ReadD(2);
          MyY:= ReadD(6);
          MyZ:= ReadD(10);
          if (not CenterFixed) and InitMode then
           begin
            CenterX:= MyX;
            CenterY:= MyY;
            CenterZ:= MyZ;
           end;
         end;
   end;

end.

Смотрим, что в основном теле begin ... end. отлавливается, первое что видим

Код:

 if (ConnectName = NickName) and FromServer then  // разбор пакетов от сервера
   case pck[1] of
    #$01: MoveToLocation01;

смотрим в packetst0.ini пакет с ID=01 от сервера (FromServer) это MoveToLocation
ищем соответствие пакету MoveToLocationв packetst1.ini и находим пакет 2F=MoveToLocation от сервера (FromServer). Меняем ID=01 на ID=2F в скрипте получаем

Код:

 if (ConnectName = NickName) and FromServer then  // разбор пакетов от сервера
   case pck[1] of
    #$2F: MoveToLocation01;

Далее по аналогии...

lamer · 16.04.2009, 21:54

Вот счас поработал над 3мя скриптами, не уверен что всё верно зделал, так как не всегда знаю где пакет от сервера, а где от клиента. Но надеюсь что работать будет. Есчё раз спс за подробное разьяснение для нуба.

Добавлено через 7 часов 0 минут
В посте выше отредоктированный скрипт, но почемуто не работает, видимо здесь нужно есчё поменять формат пакета, но как это определить и поменять незнаю. Если ктонить натолкнёт на правильный путь, буду благодарен.

VORON · 26.04.2009, 03:50

Цитата:

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

Вот счас поработал над 3мя скриптами, не уверен что всё верно зделал, так как не всегда знаю где пакет от сервера, а где от клиента. Но надеюсь что работать будет. Есчё раз спс за подробное разьяснение для нуба.

Добавлено через 7 часов 0 минут
В посте выше отредоктированный скрипт, но почемуто не работает, видимо здесь нужно есчё поменять формат пакета, но как это определить и поменять незнаю. Если ктонить натолкнёт на правильный путь, буду благодарен.

глядя на код ты всегда можеш точно сказть откуда пакет.. программа пакетхак сидит посредине между сервером и клиентом и прослушивает всё что передют они друг другу.. а также может вмешаться в процесс передачи пакетов..
глянь на пару примеров из скрипта локомотив от Alexus..

//Записываем текущие координаты
if FromClient and (ConnectName=Name) and (pck[1]=#$48) then begin
X:= ReadD(2);
Y:= ReadD(6);
Z:= ReadD(10);
end;

тут всё понятно.. мы слушаем трафик.. и запоминаем какуюто информацию из потока данных.. причем нас интерисует только то что FromClient и ConnectName=Name и pck[1]=#$48
что такое pck[1]=#$48 думаю из коментария всё понятно.. ето пакет в котором клиент передает серверу координаты.. ну может быть пакет и длинный там идет но координаты в нем записаны в начале пакета..
что делать если нет комментария? глянуть файл Packets.ini в папке с пакетхаком.. и в нем найти нужный пакет в нашем случае #$48 из етого файла ты прочтеш то что:
48=ValidatePosition:d(X)d(Y)d(Z)d(Heading)d(Data)
пакет называется валидейт позишн (название пакета имеет обычно простой и интуитивно понятный перевод с английсково в нашем случае - УТВЕРЖДАЮ КООРДИНАТЫ) в нем после идешника(заголовок пакета) (заголовок пакета ето его название типа- игра понимает как воспринимать ету кучу данных исходя из ИДешника) идут данные.. эти данные строго определенной длинны.. ты заранее можеш сказать сколько байт в етом пакете будет.. (для справки байт = число в диапазоне от 0-255 в десятичной и 0-ff в шестнадцатиричной системах) мы смотрим что после заголовка идет : d(X). делаем вывод что после заголовка 4 байта несут в себе координату по икс.. почему 4? потомучто d(X).. D буква говорит об размерности 4 байта.. аналогично делаем вывод что с 6-го по 9-й байты будет координата по игрик потомучто в описании написано: 48=ValidatePosition:d(X)d(Y)
ну с Z все и так понятно.. дальше мы видим что после координат передается d(Heading) .. что такое Heading я незнаю.. но мы точно можем судить об том что оно хранится в етом пакете в 4-х байтах в каких именно? с 1+4+4+4+ХХ ХХ ХХ ХХ+4 в етих иксах оно хранится..
ну и так далее по пакету.. с 14 по 17 байты значит..
да там всё просто ты ток всмотрись повнимательней.. а если не понятно то глянь хорошо-прокомментированные скрипты из первого поста в топе ДА БУДЕТ БОТ.. там они очень примитивны.. восновном без использования самописных функций и процедур..

PanAm · 27.04.2009, 15:14

ADD Heading - угол, направление куда смотрит чар, обычно контролировыать не надо и игнорируется.

MaRLiN · 27.04.2009, 19:16

народ, у меня вот такая вот проблема, ставлю пакетхак на кач, точнее на набивание колов, около часика всё работает бот качается, потом провисает и вылезает куча ошибок каскадом, вот тут видно http://www.photoshare.ru/photo3132638.html ктонить помагите, скажите в чём трабла? я все версии пакетхака поперепробывал везде одно и тоже!

Stasrus · 27.04.2009, 23:27

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

Начальный вариант без моих замутов:
const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';
begin
buf:=hstr(b1);
SendToServer;
buf:=hstr(b2);
SendToServer;
buf:=hstr(b3);
SendToServer;
end.

NLObP · 27.04.2009, 23:34

Stasrus, можно delay() вставить между посылками с временем не более 500, еще лучше через таймер.

Stasrus · 27.04.2009, 23:47

NLObP,
Все равно с таймером путается порядок отправки и\или отправляется по нескольку раз один и тотже пакет
Вот вариант с таймером

Цитата:

//(c)dmitry501
const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';

var
tick: Integer;

procedure Init;
begin

end;
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
var
t : integer;
begin
result := false;
t := Round(Time*86400);
if t > (tick + Timewait) then
begin
tick := t;
result := true;
end;
end;

begin
if pause(5) then
begin
buf:=hstr(b1);
SendToServer;
end;
if pause(10) then
begin
buf:=hstr(b2);
SendToServer;
end;
if pause(15) then
begin
buf:=hstr(b3);
SendToServer;
end;

end.

хотелось бы получить что то типа такого:

Цитата:

const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';
var
x: integer;
begin
x:=1;
end;
if x=1 then
begin
buf:=hstr(b1);
SendToServer;
x:=x+1;
end;
if x=2 then
buf:=hstr(b2);
SendToServer;
x:=x+1;
end;
if x=3 then
buf:=hstr(b3);
SendToServer;
x:=1;
end;
end.