[HolyDel]

уууу!!!

if abs(sx-sx1)<2 and abs(sy-sy1)<2
  c=map(sx,sy)
  map(sx,sy)=map(sx1,sy1)
  map(sx1,sy1) = c
endif

причем ячейки по диагонали тож являются соседними.