IOS map rip - Printable Version

Code:
{

  vTilesBmp and vMapBmp are TBitmap objects, vPng is a TPNGObject (from the pngimage library). mOut is a TMemo.

}

procedure TfMain.handleFile(filename : string);

var hExt, hFileName, hTilesFile, hDir, hOutDir : String;

    instream : TFileStream;

    head, unknown,  tile, w, h : Word;

    dataSize, hX, hY, hTileX, hTileY, hTilesPerRow : Integer;

const

  cTileWidth = 32;

  cTileHeight = 32;

begin

  hExt := ExtractFileExt(filename);

  if hExt = '.map' then

  begin

    hDir := ExtractFileDir(filename);

    hOutDir := hDir + '\assembled_maps\';

    hFileName := ChangeFileExt(ExtractFileName(filename), '');

    hTilesFile := ChangeFileExt(filename, '.png');

    if FileExists(hTilesFile) then

    begin

      vPng.LoadFromFile(hTilesFile);

      vTilesBmp.Assign(vPng);

      hTilesPerRow := vTilesBmp.Width div cTileWidth;

      instream := TFileStream.Create(filename, fmOpenRead);

      try

        mOut.Lines.Add('-- Processing File: ' + filename);

        instream.Read(head, 2);

        if head = $000E then

        begin

          instream.Read(unknown, 2);

          dataSize := instream.Size - instream.Position;

          w := 14;

          h := dataSize div (2 * w);

          vMapBmp.Width := w * cTileWidth;

          vMapBmp.Height := h * cTileHeight;

          hX := 0;

          hY := 0;

          while instream.Position < instream.Size do

          begin

            instream.Read(tile, 2);

            hTileX := (tile mod hTilesPerRow) * cTileWidth;

            hTileY := (tile div hTilesPerRow) * cTileHeight;

            vMapBmp.Canvas.CopyRect(Rect(hX, hY, hX + cTileWidth, hY + cTileHeight), vTilesBmp.Canvas, Rect(hTileX, hTileY, hTileX + cTileWidth, hTileY + cTileHeight));

            hX := hX + cTileWidth;

            if hX >= vMapBmp.Width then

            begin

              hX := 0;

              hY := hY + cTileHeight;

            end;

          end;

          vPng.Assign(vMapBmp);

          if not DirectoryExists(hOutDir) then CreateDir(hOutDir);

          vPng.SaveToFile(hOutDir + hFileName + '_map.png');

        end else mOut.Lines.Add('ERR: .MAP header mismatch (' + IntToHex(head, 4) + ')');

        mOut.Lines.Add('   Done.');

      finally

        instream.Free;

      end;

    end else mOut.Lines.Add('ERR: Tiles PNG not found (' + hTilesFile + ')');

  end; // else: not a .MAP file (yes I check extensions here, haha)

end;