Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[MrAak]

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

begin
buf:=HStr('12F 20 05 00 67 0B 00 48 00 00');
SendToServer;
if FromServer and (pck=HStr('FE 16 00 18 55 1B 48 57 00 00 00 54 01 00 00 00 00 00 00 00 67 0B')) then begin
buf:=Hstr('2F 21 05 00 67 0B 00 48 00 00');
SendToServer;
end;
if FromServer and (pck=HStr('FE 16 00 18 55 1B 48 6A 00 00 00 56 01 00 00 01 00 00 00 00 67 0B')) then begin
buf:=Hstr('2F 22 05 00 67 0B 00 48 00 00');
SendToServer;
end;
end.

вот пакеты которые я отловил

2F 20 05 00 67 0B 00 48 00 00	//юз фишинг
FE 16 00 18 55 1B 48 6A 00 00 00 56 01 00 00 01 00 00 00 00 67 0B 	//рыба дергается
FE 16 00 18 55 1B 48 57 00 00 00 54 01 00 00 00 00 00 00 00 67 0B 	//не дергается
2F 21 05 00 67 0B 00 48 00 00 // скилл не дергается
2F 22 05 00 67 0B 00 48 00 00 //скилл дергается
FE 14 00 18 55 1B 48 49 //конец рыбалки

[QaK]

MrAak, почитай раздел "жесткий скриптинг". топ про рыбалку. там описан алгориитм и написан скрипт.

[MrAak]

я попробовал, не серве защита палит. Больно сложный там он...

[alexteam]

я попробовал, не серве защита палит. Больно сложный там он...

реакция:

[NLObP]

MrAak, вот этот кусок тебе нужен

const
                   //имя чара для которого включаем скрипт
  Name='NLObP';   //<------------------------------

  fish=1312;   //ID fishing
  pump=1313;  //ID pumping
  reel=1314; //ID reeling

var
  myoid  : integer;

procedure Init;
begin
  myoid:=0;
end;

procedure free;
begin
end;
//2F=RequestMagicSkillUse:dMagicID)d(CtrlPressed)b(ShiftPressed)
procedure MagicSkillUse(MagicID:integer);
begin
  buf:=#$2F;
  WriteD(MagicID);
  WriteD(00);
  WriteC(00);
  SendToServerEx(Name);
end;
procedure Pumping;
begin
  MagicSkillUse(pump);
end;
procedure Reeling;
begin
  MagicSkillUse(reel);
end;

//***************************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//***************************************************************
begin
  //****************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

  //****************************************************************************
  if (ConnectName=Name) and FromServer then begin
    case pck[1] of
      //***************************************************************
      #$04: begin //пакет с инфой о моём чаре
        MyOID:=ReadD(18);
      end;
      //***************************************************************
      //ловим рыбу
      //FE1300=ExFishingStart:h(charOID)d(fishType)d(X)d(Y)d(Z)b(isNightLure)b(c)
      //FE1400=ExFishingEnd:h(charObjtId)b(isWin)
      //FE1500=ExFishingStartCombat:h(charOID)d(time)d(HP)b(Fighting)b(LureType)b(isFishDeceptive)
      //FE1600=ExFishingHpRegen:h(charOID)d(time)d(fish_HP)b(HPstop/rise)b(GoodUse)b(anim)d(penalty)b(BarColor)
      #$FE: begin
        if (MyOID<>0) then begin
          case pck[2] of
            //FE1400=ExFishingEnd:h(charObjtId)b(isWin)
            #$14: begin
              if MyOID=ReadD(4) then begin
                 //действия после завершения рыбалки
              end;
            end;
            //FE1600=ExFishingHpRegen:h(charOID)d(time)d(fish_HP)b(HPstop/rise)b(GoodUse)b(anim)d(penalty)b(BarColor)
            #$16: begin
              if MyOID=ReadD(4) then begin
                if (pck[16]+pck[18]=#$00#$00) then pumping;
                if (pck[16]+pck[18]=#$01#$00) then reeling;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end.

PS: забрасывать самому
PSS: не тестил

[lamer]

Народ подскажите что я зделал не так?
//QaK:пукнул 7 раз

[MrAak]

тупой вопрос

если я запускаю вот такой скрипт:
begin
buf:=HStr('2F 20 05 00 67 0B 00 48 00 00');
SendToServer;
Delay(25000);
end.

ну если он еше верный, другие пакеты проходить будут?

[QaK]

MrAak, нет, delay тормозит прием/обработку пакетов.

[lamer]

вот вам и кружок нубов - вопрос ответ.))
//QaK:какой вопрос - такой и ответ

[Grinch]

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

Delay(25000);

останавливает прием пакетов и отсылку если поставить подольше то будет дисконект с сервером, вообще пользоваться можно, но чем реже и меньше будут числа типа максимально вообще лучше 500 это полсекунды если ставить больше то уже будут видны рывки перемещения или что то подобное как будто мега лаги. так что ищите тут как сделать таймер сквозной.
такой ответ устраивает? ну это расшифровал совсем для детей из детского сада и младше