--- oup/current/DataAccess/Access_OUP_ADB.pas	2007/04/01 22:49:17	156
+++ oup/current/DataAccess/Access_OUP_ADB.pas	2007/08/10 17:26:03	243
@@ -34,6 +34,7 @@ type
     function GetDatLink(FileID, DatOffset: Integer): TDatLink; override;
     function GetRawList(FileID: Integer): TRawDataList; override;
     function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; override;
+    function GetRawsForType(RawType: String): TRawDataList; override;
 
     procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TStream); overload; override;
     procedure UpdateRawFile(FileID, DatOffset: Integer; Src: TStream); overload; override;
@@ -90,7 +91,7 @@ begin
     end;
     if FQuery.FieldByName('name').AsString = 'lvl' then
       FLevelNumber := StrToInt(FQuery.FieldByName('value').AsString);
-    if FQuery.FieldByName('name').AsString = 'DataOS' then
+    if FQuery.FieldByName('name').AsString = 'os' then
     begin
       if FQuery.FieldByName('value').AsString = 'WIN' then
         FDataOS := DOS_WIN
@@ -112,6 +113,8 @@ begin
   FChangeRights := [CR_EditDat, CR_EditRaw, CR_ResizeDat, CR_ResizeRaw];
 
   UpdateListCache;
+
+  inherited;
 end;
 
 
@@ -215,36 +218,11 @@ end;
 
   function CompareItems(List: TStringList; I1, I2: Integer): Integer;
   var
-    fin: Boolean;
-    pos: Integer;
     s1, s2: String;
   begin
-    fin := False;
     s1 := MidStr(List[I1], 1, PosEx(';', List[I1], 6) - 1);
     s2 := MidStr(List[I2], 1, PosEx(';', List[I2], 6) - 1);
-    pos := 1;
-    Result := 0;
-    repeat
-      if Ord(s1[pos]) < Ord(s2[pos]) then
-      begin
-        Result := -1;
-        fin := True;
-      end
-      else if Ord(s1[pos]) > Ord(s2[pos]) then
-      begin
-        Result := 1;
-        fin := True;
-      end;
-      Inc(pos);
-    until fin or (pos > Length(s1)) or (pos > Length(s2));
-
-    if not fin then
-    begin
-      if pos > Length(s1) then
-        Result := -1
-      else
-        Result := 1;
-    end;
+    Result := CompareStr(s1, s2);
   end;
 
 function TAccess_OUP_ADB.GetFilesList(ext: String; pattern: String;
@@ -290,6 +268,8 @@ begin
     list.Sorted := False
   else
     list.Sorted := True;
+  if ext = '*' then
+    ext := '';
   for i := 0 to GetFileCount - 1 do
   begin
     if ((Length(ext) = 0) or (Pos(Fdat_files[i].Extension, ext) > 0)) and
@@ -512,7 +492,7 @@ var
   i: Integer;
 begin
   SetLength(Result, 0);
-  FQuery.SQL.Text := 'SELECT [src_link_offset],[size],[sep] FROM rawmap WHERE [src_id]=' +
+  FQuery.SQL.Text := 'SELECT [src_link_offset],[name],[size],[sep],[type] FROM rawmap WHERE [src_id]=' +
     IntToStr(fileid) + ' ORDER BY src_link_offset ASC;';
   FQuery.Open;
   if FQuery.RecordCount > 0 then
@@ -521,11 +501,13 @@ begin
     SetLength(Result, FQuery.RecordCount);
     i := 0;
     repeat
+      Result[i].Name      := FQuery.FieldByName('name').AsString;
       Result[i].SrcID     := fileid;
       Result[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
       Result[i].RawAddr   := 0;
       Result[i].RawSize   := FQuery.FieldByName('size').AsInteger;
       Result[i].LocSep    := FQuery.FieldByName('sep').AsBoolean;
+      Result[i].RawType   := FQuery.FieldByName('type').AsString;
       Inc(i);
       FQuery.Next;
     until FQuery.EOF;
@@ -548,15 +530,48 @@ begin
     if i < Length(rawlist) then
       Result := rawlist[i]
     else begin
+      Result.Name      := '';
       Result.SrcID     := -1;
       Result.SrcOffset := -1;
       Result.RawAddr   := -1;
       Result.RawSize   := -1;
+      Result.RawType   := '';
     end;
   end;
 end;
 
 
+function TAccess_OUP_ADB.GetRawsForType(RawType: String): TRawDataList;
+var
+  i: Integer;
+  rawlist: TRawDataList;
+begin
+  SetLength(Result, 0);
+  FQuery.SQL.Text := 'SELECT [src_id],[src_link_offset],[name],[size],[sep] FROM rawmap ' +
+    'WHERE [type]="' + RawType + '" and [size]>0 ORDER BY src_id ASC, src_link_offset ASC;';
+  FQuery.Open;
+  if FQuery.RecordCount > 0 then
+  begin
+    FQuery.First;
+    SetLength(Result, FQuery.RecordCount);
+    i := 0;
+    repeat
+      Result[i].Name      := FQuery.FieldByName('name').AsString;
+      Result[i].SrcID     := FQuery.FieldByName('src_id').AsInteger;
+      Result[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
+      Result[i].RawAddr   := 0;
+      Result[i].RawSize   := FQuery.FieldByName('size').AsInteger;
+      Result[i].LocSep    := FQuery.FieldByName('sep').AsBoolean;
+      Result[i].RawType   := RawType;
+      Inc(i);
+      FQuery.Next;
+    until FQuery.EOF;
+  end;
+  FQuery.Close;
+end;
+
+
+
 
 procedure TAccess_OUP_ADB.LoadRawFile(FileID, DatOffset: Integer; var Target: TStream);
 var