How to make an interactive chessboard with movable pieces?

Question

I want to make a chessboard with pieces and move those pieces with drag and drop using the mouse, is that possible?

Answer 1

It's the winner of 2021 one-liner competition, isn't it?

Graphics@{Raster@Array[.9^+## &, {8, 8}], 
  MapIndexed[
    Locator[#2 - .5, #] &, {b = {\[WhiteRook], \[WhiteKnight], \[WhiteBishop], \
\[WhiteQueen], \[WhiteKing], \[WhiteBishop], \[WhiteKnight], \[WhiteRook]}, 
     y = Table[\[WhitePawn], 8], 3, , , , y, b}, {2}] /. 3 -> Red}