Reload Item To Spot Omg

[Erra]

This is what I've got so far:

18 0 F 0 78 FF FF 40 0 4 ED B 4 FF FF 2 0 0 1 ----- Time ring from spot 4 (?) to amu spot

18 - unknown
0 - unknown
F - unknown
0 - unknown
78 - unknown
FF - unknown
FF - unknown
40 - unknown
0 - unknown
4 - spot?
ED B - ID? (ED 0B)
4 - spot again?
FF - unknown
FF - unknown
2 - unknown / amulet spot?
0 - unknown
0 - unknown
1 - unknown

I need help in finding out how it really is and I've just started doing such things as finding packets, so I'm not sure which ones to remove... >.<

Thanks, in advance!

[kusiak]

this is what I do use (delphi)

procedure tcontainers.MoveToBody(FromCont,FromSlot,BodyPart, Amount: integer);
var
PacketBuffer:array [0..16] of byte;
id:integer;
begin
id:=self.itemID(FromCont,FromSlot); //get id of item by the slot, container
packetBuffer[0] := $0F;
packetBuffer[1] := $00;
packetBuffer[2] := $78;
packetBuffer[3] := $FF;
packetBuffer[4] := $FF;
packetBuffer[5] := byte(FromCont + 63);
packetBuffer[6] := $00;
packetBuffer[7] := byte(FromSlot- 1);
CopyMemory(@PacketBuffer[8],@ID,4);
packetBuffer[10] := byte(FromSlot- 1);
packetBuffer[11] := $FF;
packetBuffer[12] := $FF;
packetBuffer[13] := byte(BodyPart);
packetBuffer[14] := $00;
packetBuffer[15] := $00;
packetBuffer[16] := Byte(Amount);

Send(@PacketBuffer, TRUE, FALSE);
end;

[Erra]

Thanks a lot, will try that
Though I'm not sure what CopyMemory does o,O

Would need some VB help with that :P

[kusiak]

uhm copy memory? well.. just take same function in vb that writes long ints to packet buffer (like in attack creature - writing id of creature)

[Erra]

Oh, so CopyMemory is like LongToByte in VB?

I guess it is O.o

I'll try that, thanks :P

[Erra]

So this is what I've got so far:

Public Function LongToByte(Number As Long, NByte As Long) As Byte
    Dim ByteArray(0 To 2) As Byte
    
    CopyMemory ByteArray(0), ByVal VarPtr(Number), Len(Number)
    LongToByte = ByteArray(NByte - 1)
End Function

LongToByte function /\

Public Function ReloadAmu(AmuID As Long, FromCont As Long, FromSlot As Long, Amount As Long)
Dim packetBuffer(16) As Byte
Dim BodyPart As Integer
BodyPart = 7
packetBuffer(0) = &HF
packetBuffer(1) = &H0
packetBuffer(2) = &H78
packetBuffer(3) = &HFF
packetBuffer(4) = &HFF
packetBuffer(5) = CByte(FromCont + 63)
packetBuffer(6) = &H0
packetBuffer(7) = CByte(FromSlot - 1)
packetBuffer(8) = LongToByte(AmuID, 4)
packetBuffer(10) = CByte(FromSlot - 1)
packetBuffer(11) = &HFF
packetBuffer(12) = &HFF
packetBuffer(13) = CByte(BodyPart)
packetBuffer(14) = &H0
packetBuffer(15) = &H0
packetBuffer(16) = CByte(Amount)
End Function

Reload Amu /\

Using

ReloadAmu 3081, 1, 1, 1

To reload it...

Not working xD

Getting an error at:

    LongToByte = ByteArray(NByte - 1)

Thanks again!

[ExpertMace]

Public Function ReloadAmu(AmuID As Long, FromCont As Long, FromSlot As Long, Amount As Long)
Dim packetBuffer(16) As Byte
Dim BodyPart As Integer
BodyPart = 7
packetBuffer(0) = &HF
packetBuffer(1) = &H0
packetBuffer(2) = &H78
packetBuffer(3) = &HFF
packetBuffer(4) = &HFF
packetBuffer(5) = CByte(FromCont + 63)
packetBuffer(6) = &H0
packetBuffer(7) = CByte(FromSlot - 1)
packetBuffer(8) = LongToByte(AmuID, 1)
packetBuffer(9) = LongToByte(AmuID, 2)
packetBuffer(10) = CByte(FromSlot - 1)
packetBuffer(11) = &HFF
packetBuffer(12) = &HFF
packetBuffer(13) = CByte(BodyPart)
packetBuffer(14) = &H0
packetBuffer(15) = &H0
packetBuffer(16) = CByte(Amount)
End Function

Thats better, should work now.

Mace.

[Erra]

<3 <3 <3!
Thanks a lot!