Работа с ResType CASP

 

[ Стабильный билд • ResType: CASP (eng) • CAS Part Flags (eng) ]

 

Програмный модуль и версия

DBPF2CASP.pas, rev.130314

 

Основные типы данных

 

class TDBPF2CASP

Выполняет частичное декодирование и кодирование данных типа CAS Part Data ResType:0x034AEECB (чтение и запись флагов)

type
  TDBPF2CASP = class(TDBPF2ItemDecoder)
  // see http://www.modthesims.info/wiki.php?title=Sims_3:0x034AEECB
    private
      procedure SkipXMLPreset; // пропускает XML Preset, устанавливает FCASFShift
    protected
      FVer: DWORD;
      FResOffset: DWORD;  // to resource reference table from end of header (ie offset + 8)
      FPartName: string;
      FSortPriority: single;  // CAS sorts on this value, from largest to smallest
      FPartType: DWORD; 
      FTypeFlags: DWORD; 
      FAgeGenderFlags: DWORD; 
      FCategoryFlags: DWORD; 

      FShCASFlags: integer;
    public
      constructor Create(AStream: TStream = nil); // декодирует данные записи

      procedure Decode(AStream: TStream); override; // декодирует данные записи
      procedure Commit; // кодирует данные записи

      property PartType: DWORD read FPartType write FPartType;
      property TypeFlags: DWORD read FTypeFlags write FTypeFlags;
      property AgeGenderFlags: DWORD read FAgeGenderFlags write FAgeGenderFlags;
      property CategoryFlags: DWORD read FCategoryFlags write FCategoryFlags;
      property PartName: string read FPartName;
      property Version: cardinal read FVer;
  end; // TDBPF2CASP class

Функции

function IsCASP(AResourceType: DWORD): boolean; // возвращает true если AResourceType CASP