--- a/hedgewars/uFLDrawnMap.pas Sun Dec 17 00:09:24 2017 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,58 +0,0 @@
-unit uFLDrawnMap;
-interface
-uses SDLh;
-
-procedure decodeDrawnMap(data: ansistring; dataSize: Longword; var mapData: PByteArray; var size: Longword);
-
-implementation
-uses uUtils, zlib;
-
-procedure decodeDrawnMap(data: ansistring; dataSize: Longword; var mapData: PByteArray; var size: Longword);
-var i, cl: Longword;
- ul: uLong;
- s: shortstring;
- r: LongInt;
- compressedBuf, uncompressedData: PByteArray;
-begin
- if dataSize = 0 then
- begin
- mapData:= nil;
- size:= 0;
- exit;
- end;
-
- compressedBuf:= GetMem(dataSize * 3 div 4);
- cl:= 0;
- i:= 1;
-
- while i < dataSize do
- begin
- if dataSize - i > 240 then
- s:= copy(data, i, 240)
- else
- s:= copy(data, i, dataSize - i + 1);
-
- s:= DecodeBase64(s);
- Move(s[1], compressedBuf^[cl], byte(s[0]));
- inc(i, 240);
- inc(cl, byte(s[0]));
- end;
-
- ul:= SDLNet_Read32(compressedBuf);
- uncompressedData:= GetMem(ul);
- r:= uncompress(pBytef(uncompressedData), @ul, @(compressedBuf^[4]), cl - 4);
- FreeMem(compressedBuf, dataSize * 3 div 4);
-
- if r = Z_OK then
- begin
- mapData:= uncompressedData;
- size:= ul
- end else
- begin
- FreeMem(uncompressedData, ul);
- mapData:= nil;
- size:= 0
- end;
-end;
-
-end.