--- oup/current/Helper/LevelDB.pas	2007/03/28 17:53:54	134
+++ oup/current/Helper/LevelDB.pas	2007/03/29 14:20:25	136
@@ -513,6 +513,8 @@ begin
   DataBase := TABSDatabase.Create(Self);
 }
   DataBase.MaxConnections := 1;
+  DataBase.PageSize := 8112;
+  DataBase.PageCountInExtent := 8;
 {
   DataBase.DatabaseName := 'OLDB';
   DataBase.DatabaseFileName := target;
@@ -527,22 +529,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 + '");';
@@ -551,8 +561,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;