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

[Grinch]

жесть если не нашёл в подписи квака то посмотри ещё в моей
//alexteam: и у обоих одни и теже синтаксические ошибки...
//QaK: ну и что, подумаешь чуток очепятка, слово фак, по крайней мере, грамотно написано =)

[Jeneok]

Как мне купить привязку то?

[QaK]

Jeneok, http://coderx.ru/showthread.php?t=16

[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]

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

[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: не тестил

[alexteam]

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

реакция:

[lamer]

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

[MrAak]

тупой вопрос

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

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