support GMS v230

Elem8100 · Feb 15, 2022 · 8de6761 · 8de6761
1 parent ad6eba0
commit 8de6761
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/WZlib/WZArchive.pas b/WZlib/WZArchive.pas
@@ -40,6 +40,9 @@   TWZArchive = class
 
 implementation
 
+uses
+  MainUnit;
+
 function TWZArchive.ResolveFullPath(P: string): TWZIMGEntry;
 var
   Split: TArray<string>;
@@ -129,7 +132,9 @@ procedure TWZArchive.Load;
   FHeaderSize := FReader.ReadInt;
   FCopyright := FReader.ReadNullTerminatedString;
  // if not Is64Bit then
-  FVersion := DecodeVersion(FReader.ReadShort);
+
+  if (MainForm.ComboKey.ItemIndex = 0) or (MainForm.ComboKey.ItemIndex = 2) or (MainForm.ComboKey.ItemIndex = 3) then
+    FVersion := DecodeVersion(FReader.ReadShort);
 
   ParseDirectory(FRoot);
   Off := FReader.Position;