[Request] Convert GUID to packed GUID [LUA]

[R4zyel]

Hello, i'm seeking for a working function to convert 128bit string GUID into packed GUID as it sends client to server in movement packets

Let's see this example:
Raw GUID = 94 F3 57 07 00 00 00 00 00 00 00 00 00 88 15 08
PackGUID = 0F E0 94 F3 57 07 88 15 08

I need it in LUA, but still if you have it in other language i might try to understand it.


Thanks a lot, i think this is the proper section. <3

[culino3]

0F = low guid bitmask
E0 = high guid bitmask

so compress the low guid and then the high guid, it's the same as for 64 bit guids.

procedure TPacket.PutCompressed(const Value: TWoWGuid);
var
  MaskPos: Integer;
  i: Byte;
begin
  MaskPos := WritePos;
  Inc(FWritePos, 2); // add space for 2 masks

  for i := 0 to SizeOf(Value.Low) - 1 do
  begin
    if (Int64Rec(Value.Low).Bytes[i] > 0) then
    begin
      FBuffer[MaskPos] := FBuffer[MaskPos] or 1 shl i; // low mask
      PutUInt8(Int64Rec(Value.Low).Bytes[i]);
    end;
  end;

  for i := 0 to SizeOf(Value.High) - 1 do
  begin
    if (Int64Rec(Value.High).Bytes[i] > 0) then
    begin
      FBuffer[MaskPos+1] := FBuffer[MaskPos+1] or 1 shl i; // high mask
      PutUInt8(Int64Rec(Value.High).Bytes[i]);
    end;
  end;
end;

[R4zyel]

Oh in Delphi
I love you Cencil.

THanks.