--- oup/current/Global/DatLinks.pas 2007/03/23 01:41:15 122 +++ oup/current/Global/DatLinks.pas 2007/06/12 20:31:54 215 @@ -55,7 +55,6 @@ begin end; - function AKEV(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..16] of String[4] = @@ -74,7 +73,6 @@ begin end; - function AKOT(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..4] of String[4] = @@ -92,7 +90,6 @@ begin end; - function CBPI(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -107,7 +104,6 @@ begin end; - function CBPM(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -122,7 +118,6 @@ begin end; - function CONS(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..1] of String[4] = @@ -140,7 +135,6 @@ begin end; - function CRSA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -161,7 +155,6 @@ begin end; - function DOOR(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..2] of String[4] = @@ -179,7 +172,6 @@ begin end; - function DPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = @@ -197,7 +189,6 @@ begin end; - function FILM(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..1] of String[4] = @@ -215,7 +206,6 @@ begin end; - function FXLR(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..1] of String[4] = @@ -233,7 +223,6 @@ begin end; - function GMAN(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -254,7 +243,6 @@ begin end; - function HPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = @@ -272,7 +260,6 @@ begin end; - function IGHH(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..1] of String[4] = @@ -290,7 +277,6 @@ begin end; - function IGPA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -311,7 +297,6 @@ begin end; - function IGPG(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..3] of String[4] = @@ -333,7 +318,6 @@ begin end; - function IGSA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -354,7 +338,6 @@ begin end; - function IGSt(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = @@ -372,7 +355,6 @@ begin end; - function Impt(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = @@ -390,7 +372,6 @@ begin end; - function IPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = @@ -408,7 +389,6 @@ begin end; - function KeyI(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -423,7 +403,6 @@ begin end; - function M3GA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -444,7 +423,6 @@ begin end; - function M3GM(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..7] of String[4] = @@ -462,7 +440,6 @@ begin end; - function Mtrl(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..0] of String[4] = @@ -480,7 +457,6 @@ begin end; - function OBDC(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -501,7 +477,6 @@ begin end; - function OBOA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -518,19 +493,18 @@ 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; end; - function OFGA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -559,7 +533,6 @@ begin end; - function ONCC(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -608,7 +581,6 @@ begin end; - function ONCV(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 1); @@ -618,7 +590,6 @@ begin end; - function ONLV(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..12] of String[4] = @@ -646,7 +617,6 @@ begin end; - function ONOA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -667,7 +637,6 @@ begin end; - function ONSK(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -682,7 +651,6 @@ begin end; - function ONVL(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -703,7 +671,6 @@ begin end; - function ONWC(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -748,7 +715,6 @@ begin end; - function OPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 1); @@ -758,7 +724,6 @@ begin end; - function PSpc(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 1); @@ -768,7 +733,6 @@ begin end; - function PSpL(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -789,7 +753,6 @@ begin end; - function PSUI(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -804,7 +767,6 @@ begin end; - function StNA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -825,7 +787,6 @@ begin end; - function TMRA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -846,7 +807,6 @@ begin end; - function TRAC(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -870,7 +830,6 @@ begin end; - function TRAM(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -885,7 +844,6 @@ begin end; - function TRAS(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 1); @@ -895,7 +853,6 @@ begin end; - function TRBS(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -910,7 +867,6 @@ begin end; - function TRCM(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..2] of String[4] = @@ -928,7 +884,6 @@ begin end; - function TRGA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -949,7 +904,6 @@ begin end; - function TRGE(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 1); @@ -959,7 +913,6 @@ begin end; - function TRIG(Connection: TDataAccess; FileID: Integer): TDatLinkList; const types: array[0..3] of String[4] = @@ -983,7 +936,6 @@ begin end; - function TRMA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1004,7 +956,6 @@ begin end; - function TRSC(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1025,7 +976,6 @@ begin end; - function TSFF(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1050,7 +1000,6 @@ begin end; - function TSFT(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -1065,7 +1014,6 @@ begin end; - function TURR(Connection: TDataAccess; FileID: Integer): TDatLinkList; var i: Integer; @@ -1090,7 +1038,6 @@ begin end; - function TXAN(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1111,7 +1058,6 @@ begin end; - function TXMA(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1132,7 +1078,6 @@ begin end; - function TXMB(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1153,7 +1098,6 @@ begin end; - function TXMP(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 2); @@ -1166,7 +1110,6 @@ begin end; - function TxtC(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 1); @@ -1176,7 +1119,6 @@ begin end; - function WMCL(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1197,7 +1139,6 @@ begin end; - function WMDD(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1210,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; @@ -1218,7 +1159,6 @@ begin end; - function WMMB(Connection: TDataAccess; FileID: Integer): TDatLinkList; var packages: Integer; @@ -1239,7 +1179,6 @@ begin end; - function WPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; begin SetLength(Result, 2); @@ -1312,16 +1251,63 @@ initialization DatLinksManager.InsertDatLinkHandler('AISA', AISA); DatLinksManager.InsertDatLinkHandler('AKEV', AKEV); DatLinksManager.InsertDatLinkHandler('AKOT', AKOT); - DatLinksManager.InsertDatLinkHandler('CBPI', AISA); - DatLinksManager.InsertDatLinkHandler('CBPM', AKEV); - DatLinksManager.InsertDatLinkHandler('CONS', AKOT); - DatLinksManager.InsertDatLinkHandler('CRSA', AISA); - DatLinksManager.InsertDatLinkHandler('DOOR', AKEV); - DatLinksManager.InsertDatLinkHandler('DPge', AKOT); - DatLinksManager.InsertDatLinkHandler('FILM', AISA); - DatLinksManager.InsertDatLinkHandler('FXLR', AKEV); - DatLinksManager.InsertDatLinkHandler('GMAN', AKOT); - DatLinksManager.InsertDatLinkHandler('HPge', AISA); - DatLinksManager.InsertDatLinkHandler('IGHH', AKEV); - DatLinksManager.InsertDatLinkHandler('IGPA', AKOT); -end. + DatLinksManager.InsertDatLinkHandler('CBPI', CBPI); + DatLinksManager.InsertDatLinkHandler('CBPM', CBPM); + DatLinksManager.InsertDatLinkHandler('CONS', CONS); + DatLinksManager.InsertDatLinkHandler('CRSA', CRSA); + DatLinksManager.InsertDatLinkHandler('DOOR', DOOR); + DatLinksManager.InsertDatLinkHandler('DPge', DPge); + DatLinksManager.InsertDatLinkHandler('FILM', FILM); + DatLinksManager.InsertDatLinkHandler('FXLR', FXLR); + DatLinksManager.InsertDatLinkHandler('GMAN', GMAN); + DatLinksManager.InsertDatLinkHandler('HPge', HPge); + DatLinksManager.InsertDatLinkHandler('IGHH', IGHH); + DatLinksManager.InsertDatLinkHandler('IGPA', IGPA); + DatLinksManager.InsertDatLinkHandler('IGPG', IGPG); + DatLinksManager.InsertDatLinkHandler('IGSA', IGSA); + DatLinksManager.InsertDatLinkHandler('IGSt', IGSt); + DatLinksManager.InsertDatLinkHandler('Impt', Impt); + DatLinksManager.InsertDatLinkHandler('IPge', IPge); + DatLinksManager.InsertDatLinkHandler('KeyI', KeyI); + DatLinksManager.InsertDatLinkHandler('M3GA', M3GA); + DatLinksManager.InsertDatLinkHandler('M3GM', M3GM); + DatLinksManager.InsertDatLinkHandler('Mtrl', Mtrl); + DatLinksManager.InsertDatLinkHandler('OBDC', OBDC); + DatLinksManager.InsertDatLinkHandler('OBOA', OBOA); + DatLinksManager.InsertDatLinkHandler('OFGA', OFGA); + DatLinksManager.InsertDatLinkHandler('ONCC', ONCC); + DatLinksManager.InsertDatLinkHandler('ONCV', ONCV); + DatLinksManager.InsertDatLinkHandler('ONLV', ONLV); + DatLinksManager.InsertDatLinkHandler('ONOA', ONOA); + DatLinksManager.InsertDatLinkHandler('ONSK', ONSK); + DatLinksManager.InsertDatLinkHandler('ONVL', ONVL); + DatLinksManager.InsertDatLinkHandler('ONWC', ONWC); + DatLinksManager.InsertDatLinkHandler('OPge', OPge); + DatLinksManager.InsertDatLinkHandler('PSpc', PSpc); + DatLinksManager.InsertDatLinkHandler('PSpL', PSpL); + DatLinksManager.InsertDatLinkHandler('PSUI', PSUI); + DatLinksManager.InsertDatLinkHandler('StNA', StNA); + DatLinksManager.InsertDatLinkHandler('TMRA', TMRA); + DatLinksManager.InsertDatLinkHandler('TRAC', TRAC); + DatLinksManager.InsertDatLinkHandler('TRAM', TRAM); + DatLinksManager.InsertDatLinkHandler('TRAS', TRAS); + DatLinksManager.InsertDatLinkHandler('TRBS', TRBS); + DatLinksManager.InsertDatLinkHandler('TRCM', TRCM); + DatLinksManager.InsertDatLinkHandler('TRGA', TRGA); + DatLinksManager.InsertDatLinkHandler('TRGE', TRGE); + DatLinksManager.InsertDatLinkHandler('TRIG', TRIG); + DatLinksManager.InsertDatLinkHandler('TRMA', TRMA); + DatLinksManager.InsertDatLinkHandler('TRSC', TRSC); + DatLinksManager.InsertDatLinkHandler('TSFF', TSFF); + DatLinksManager.InsertDatLinkHandler('TSFT', TSFT); + DatLinksManager.InsertDatLinkHandler('TURR', TURR); + DatLinksManager.InsertDatLinkHandler('TXAN', TXAN); + DatLinksManager.InsertDatLinkHandler('TXMA', TXMA); + DatLinksManager.InsertDatLinkHandler('TXMB', TXMB); + DatLinksManager.InsertDatLinkHandler('TXMP', TXMP); + DatLinksManager.InsertDatLinkHandler('TxtC', TxtC); + DatLinksManager.InsertDatLinkHandler('WMCL', WMCL); + DatLinksManager.InsertDatLinkHandler('WMDD', WMDD); + DatLinksManager.InsertDatLinkHandler('WMMB', WMMB); + DatLinksManager.InsertDatLinkHandler('WPge', WPge); +end. \ No newline at end of file