imgs={}
for id = 1,32 do
imgs[id]=0
end

tilepenghilang = {114,85}

addhook("movetile","_movetile")
function _movetile(id,tx,ty)
     for _, tiles in pairs(tilepenghilang) do
          if tile(tx,ty,"frame")~=tiles then
               if imgs[id]==0 then
                    imgs[id]=image("imagepath",1,0,132+id)
               end
          elseif tile(tx,ty,"frame")==tiles then
               if imgs[id]>0 then
                    freeimage(imgs[id])
                    imgs[id]=0
               end
          end
     end
end