--- oup/current/Global/DatLinks.pas 2007/03/23 01:53:44 123 +++ oup/current/Global/DatLinks.pas 2007/07/17 22:27:16 241 @@ -358,7 +358,7 @@ end; function Impt(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = - ('*'); + ('Impt'); var i: Integer; begin @@ -425,13 +425,13 @@ end; function M3GM(Connection: TDataAccess; FileID: Integer): TDatLinkList; const - types: array[0..7] of String[4] = - ('PNTA', 'VCRA', 'VCRA', 'TXCA', 'IDXA', 'IDXA', 'TXMP', '*'); + types: array[0..6] of String[4] = + ('PNTA', 'VCRA', 'VCRA', 'TXCA', 'IDXA', 'IDXA', 'TXMP'); var i: Integer; begin SetLength(Result, 8); - for i := 0 to 7 do + for i := 0 to 6 do begin Result[i].SrcOffset := $0C + i*4; Result[i].DestID := -1; @@ -443,7 +443,7 @@ end; function Mtrl(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = - ('*'); + ('Mtrl'); var i: Integer; begin @@ -493,12 +493,12 @@ begin Result[i*3 + 0].DestID := -1; Result[i*3 + 0].PosDestExts := 'M3GA'; - Result[i*3 + 0].SrcOffset := $20 + i*240 + 4; - Result[i*3 + 0].DestID := -1; + Result[i*3 + 1].SrcOffset := $20 + i*240 + 4; + Result[i*3 + 1].DestID := -1; Result[i*3 + 1].PosDestExts := 'OBAN'; - Result[i*3 + 0].SrcOffset := $20 + i*240 + 8; - Result[i*3 + 0].DestID := -1; + Result[i*3 + 2].SrcOffset := $20 + i*240 + 8; + Result[i*3 + 2].DestID := -1; Result[i*3 + 2].PosDestExts := 'ENVP'; end; end; @@ -586,7 +586,7 @@ begin SetLength(Result, 1); Result[0].SrcOffset := $8; Result[0].DestID := -1; - Result[0].PosDestExts := '*'; + Result[0].PosDestExts := 'ONCV'; end; @@ -729,7 +729,7 @@ begin SetLength(Result, 1); Result[0].SrcOffset := $50; Result[0].DestID := -1; - Result[0].PosDestExts := '*'; + Result[0].PosDestExts := 'TXMP'; end; @@ -747,7 +747,7 @@ begin begin Result[i].SrcOffset := $20 + i*8 + 4; Result[i].DestID := -1; - Result[i].PosDestExts := '*'; + Result[i].PosDestExts := 'PSpc'; end; end; end; @@ -1103,7 +1103,7 @@ begin SetLength(Result, 2); Result[0].SrcOffset := $94; Result[0].DestID := -1; - Result[0].PosDestExts := '*'; + Result[0].PosDestExts := 'TXAN'; Result[1].SrcOffset := $98; Result[1].DestID := -1; Result[1].PosDestExts := 'TXMP'; @@ -1133,7 +1133,7 @@ begin begin Result[i].SrcOffset := $20 + i*8 + 4; Result[i].DestID := -1; - Result[i].PosDestExts := '*'; + Result[i].PosDestExts := 'PSpc'; end; end; end; @@ -1151,7 +1151,7 @@ begin begin for i := 0 to packages - 1 do begin - Result[i].SrcOffset := $120 + i*292 + $134; + Result[i].SrcOffset := $120 + i*292 + $114; Result[i].DestID := -1; Result[i].PosDestExts := 'TSFF'; end;