ExtendendPacket = $FE;
внутри этого пакета по второму ID
ExSetCompassZoneCode = $33;
по умолчанию зона - General field
если другая то приходит пакет в обязательном порядке
Думаю разберешься
ZoneType : string;
CompassZoneCode : integer;
Код:
ExSetCompassZoneCode :
begin
ReadD(CompassZoneCode);
case CompassZoneCode of
-1: ZoneType := 'Unknown zone';
9: ZoneType := 'Mother Tree'; // shadow mother tree (noob location)
11: ZoneType := 'Siege zone';
12: ZoneType := 'Peaceful zone';
14: ZoneType := 'PvP zone';
15: ZoneType := 'General field';
else ZoneType := 'Zone: ' + IntToStr(CompassZoneCode);
end;