--- oup/current/Helper/LevelDB.pas	2007/03/28 02:23:44	133
+++ oup/current/Helper/LevelDB.pas	2007/03/30 00:00:10	137
@@ -302,7 +302,8 @@ begin
       DatFileStream := TMemoryStream.Create;
       Connection.LoadDatFile(FileID, TStream(DatFileStream));
       DatFileStream.Seek(0, soFromBeginning);
-      DatFileStream.Write(FileID, 4);
+      tempi := FileID * 256 + 1;
+      DatFileStream.Write(tempi, 4);
       DatFileStream.Write(LevelID, 4);
 
       QueryPerformanceCounter(tempticks2);
@@ -356,17 +357,17 @@ begin
       rawsum := rawsum + (tempticks2 - tempticks1);
     end
     else
-      FilesHeader[i].DataAddr := 0;
+      FilesHeader[FileID].DataAddr := 0;
     if Length(fileinfo.Name) > 0 then
     begin
-      FilesHeader[i].NameAddr := Stream_Names.Size;
+      FilesHeader[FileID].NameAddr := Stream_Names.Size;
       temps := fileinfo.Extension + fileinfo.Name + Chr(0);
       Stream_Names.Write(temps[1], Length(temps));
     end
     else
-      FilesHeader[i].NameAddr := 0;
-    FilesHeader[i].FileSize := fileinfo.Size;
-    FilesHeader[i].FileType := fileinfo.FileType;
+      FilesHeader[FileID].NameAddr := 0;
+    FilesHeader[FileID].FileSize := fileinfo.Size;
+    FilesHeader[FileID].FileType := fileinfo.FileType;
 
     if ((FileID mod 10) = 0) and (FileID >= 100) then
       lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
@@ -448,6 +449,8 @@ begin
 
 
 procedure TForm_LevelDB.CreateDatabase(Source, target: String);
+var
+  DataBase:  TABSDatabase;
 {
 var
   DataBase:    TABSDatabase;
@@ -509,6 +512,11 @@ begin
   absolutebegintime := Time;
 
   DataBase := TABSDatabase.Create(Self);
+}
+  DataBase.MaxConnections := 1;
+  DataBase.PageSize := 8112;
+  DataBase.PageCountInExtent := 8;
+{
   DataBase.DatabaseName := 'OLDB';
   DataBase.DatabaseFileName := target;
   DataBase.CreateDatabase;
@@ -522,22 +530,30 @@ begin
   Query := TABSQuery.Create(Self);
   Query.DatabaseName := 'OLDB';
   Query.SQL.Text :=
-    'CREATE TABLE globals  ( id AUTOINC PRIMARY KEY, name STRING(128), value STRING(128) );';
+    'CREATE TABLE globals  ( id AUTOINC PRIMARY KEY, name STRING(128), ' +
+    'value STRING(128) );';
   Query.ExecSQL;
   Query.SQL.Text :=
-    'CREATE TABLE linkmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, target_id INTEGER );';
+    'CREATE TABLE linkmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, ' +
+    'src_link_offset INTEGER, target_id INTEGER,  INDEX idsrcid src_id, ' +
+    'INDEX iddestid target_id);';
   Query.ExecSQL;
   Query.SQL.Text :=
-    'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, sep BOOLEAN, size INTEGER, data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );';
+    'CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, ' +
+    'src_link_offset INTEGER, sep BOOLEAN, size INTEGER, ' +
+    'data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib, ' +
+    'INDEX idsrcid src_id);';
   //    Query.SQL.Text:='CREATE TABLE rawmap  ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );';
   Query.ExecSQL;
   Query.SQL.Text :=
-    'CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), name STRING(128), contenttype INTEGER, size INTEGER, data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );';
+    'CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), ' +
+    'name STRING(128), contenttype INTEGER, size INTEGER, ' +
+    'data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );';
   //    Query.SQL.Text:='CREATE TABLE datfiles  ( id INTEGER PRIMARY KEY, extension CHAR(4), name STRING(128), contenttype INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );';
   Query.ExecSQL;
-  Query.SQL.Text :=
-    'CREATE TABLE extlist  ( id AUTOINC PRIMARY KEY, ext CHAR(4), ident CHAR(16) );';
-  Query.ExecSQL;
+//  Query.SQL.Text :=
+//    'CREATE TABLE extlist  ( id AUTOINC PRIMARY KEY, ext CHAR(4), ident CHAR(16) );';
+//  Query.ExecSQL;
 
   Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("dbversion","' +
     dbversion + '");';
@@ -546,8 +562,8 @@ begin
   for i := 0 to High(OniDataConnection.LevelInfo.Ident) do
     Data[i] := OniDataConnection.LevelInfo.Ident[i];
   temps := CreateHexString(Data, True);
-  Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("ident","' + temps + '");';
-  Query.ExecSQL;
+//  Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("ident","' + temps + '");';
+//  Query.ExecSQL;
   Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("lvl","' +
     IntToStr(OniDataConnection.LevelInfo.LevelNumber) + '");';
   Query.ExecSQL;