getmapxy(@map$,@mapx,@mapy,0);
set @X, @mapx;
set @Y, @mapy;
getmapxy(@map$,@mapx,@mapy,0);
if(@X != @mapx || @Y != @mapy){set @blessing,0;}