[brat]

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;