93 lines
2.3 KiB
Plaintext
93 lines
2.3 KiB
Plaintext
(*
|
|
* CDDL HEADER START
|
|
*
|
|
* The contents of this file are subject to the terms of the
|
|
* Common Development and Distribution License, Version 1.0 only
|
|
* (the "License"). You may not use this file except in compliance
|
|
* with the License.
|
|
*
|
|
* You can obtain a copy of the license at
|
|
* http://www.opensource.org/licenses/cddl1.php.
|
|
* See the License for the specific language governing permissions
|
|
* and limitations under the License.
|
|
*
|
|
* When distributing Covered Code, include this CDDL HEADER in each
|
|
* file and include the License file at
|
|
* http://www.opensource.org/licenses/cddl1.php. If applicable,
|
|
* add the following below this CDDL HEADER, with the fields enclosed
|
|
* by brackets "[]" replaced with your own identifying * information:
|
|
* Portions Copyright [yyyy] [name of copyright owner]
|
|
*
|
|
* CDDL HEADER END
|
|
*
|
|
*
|
|
* Portions Copyright 2007 Andreas Schneider
|
|
*)
|
|
unit UVerdata;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, UGenericIndex;
|
|
|
|
type
|
|
TFileType = (map0 = $00, staidx0, statics0, artidx, art, animidx, anim,
|
|
soundidx, sound, texidx, texmaps, gumpidx, gumpart, multiidx, multi,
|
|
skillsidx, skills, tiledata = $1E, animdata);
|
|
TVerdataIndex = class(TGenericIndex)
|
|
constructor Create(Data: TStream);
|
|
function Clone: TVerdataIndex; override;
|
|
procedure Write(Data: TStream); override;
|
|
function GetSize: Integer; override;
|
|
protected
|
|
FFileID: TFileType;
|
|
FBlock: LongInt;
|
|
published
|
|
property FileID: TFileType read FFileID write FFileID;
|
|
property Block: LongInt read FBlock write FBlock;
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TVerdataIndex.Create;
|
|
var
|
|
fileID: LongInt;
|
|
|
|
begin
|
|
if assigned(Data) then
|
|
begin
|
|
Data.Read(fileID, SizeOf(LongInt));
|
|
Data.Read(FBlock, SizeOf(LongInt));
|
|
FFileID := TFileType(fileID);
|
|
end;
|
|
inherited;
|
|
end;
|
|
|
|
function TVerdataIndex.Clone: TVerdataIndex;
|
|
begin
|
|
Result := TVerdataIndex.Create(nil);
|
|
Result.FFileID := FFileID;
|
|
Result.FBlock := FBlock;
|
|
Result.FLookup := FLookup;
|
|
Result.FSize := FSize;
|
|
Result.FVarious := FVarious;
|
|
end;
|
|
|
|
procedure TVerdataIndex.Write;
|
|
var
|
|
fileID: LongInt;
|
|
begin
|
|
fileID := LongInt(FFileID);
|
|
Data.Write(fileID, SizeOf(LongInt));
|
|
Data.Write(FBlock, SizeOf(LongInt));
|
|
inherited;
|
|
end;
|
|
|
|
function TVerdataIndex.GetSize: Integer;
|
|
begin
|
|
Result := inherited GetSize + 8;
|
|
end;
|
|
|
|
end.
|
|
|