Temat: [Poradnik] Jak napisać własne macro do Tibii

    PacketBuffer(0) = &HF
    PacketBuffer(1) = &H0
    PacketBuffer(2) = &H78
    PacketBuffer(3) = LongToByte(FromX, 1)
    PacketBuffer(4) = LongToByte(FromX, 2)
    PacketBuffer(5) = LongToByte(FromY, 1)
    PacketBuffer(6) = LongToByte(FromY, 2)
    PacketBuffer(7) = FromZ
    PacketBuffer(8) = LongToByte(ItemID, 1)
    PacketBuffer(9) = LongToByte(ItemID, 2)
    PacketBuffer(10) = &H3
    PacketBuffer(11) = LongToByte(ToX, 1)
    PacketBuffer(12) = LongToByte(ToX, 2)
    PacketBuffer(13) = LongToByte(ToY, 1)
    PacketBuffer(14) = LongToByte(ToY, 2)
    PacketBuffer(15) = ToZ
    PacketBuffer(16) = &H0
    PacketBuffer(17) = &H1

PacketBuffer[0] := $0F;
PacketBuffer[1] := $00;
PacketBuffer[2] := $78;
CopyMemory(@PacketBuffer[3],@fromx, 2);
CopyMemory(@PacketBuffer[5],@fromy, 2);
PacketBuffer[7] := fromz;
CopyMemory(@PacketBuffer[8],@id, 2);
PacketBuffer[10] := $03;
CopyMemory(@PacketBuffer[11],@tox, 2);
CopyMemory(@PacketBuffer[13],@toy, 2);
PacketBuffer[15] := toz;
PacketBuffer[16] := $00;
PacketBuffer[17] := $01;

 PacketBuffer(3) = LongToByte(FromX, 1)
 PacketBuffer(4) = LongToByte(FromX, 2)

CopyMemory(@PacketBuffer[3],@fromx, 2);

var
  Form1: TForm1;

var
  Form1: TForm1;

const
  stała1=coś;
  stała2=coś;
  (...)

GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), #ProcId);

GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), małpaProcId);