anchor.diff:        //If tile is surrounded with other stone tiles no need to change it
         if bits <> 15 then
         begin
  -        Land^[Y,X].BaseLayer.Terrain  := TranTiles[transition, TileIDIndex[bits]];
  -        Land^[Y,X].BaseLayer.Rotation := RotID[bits];
  +        Land^[Y,X].BaseLayer.Terrain  := TRAN_TILES[transition, TILE_ID_INDEX[bits]];
  +        Land^[Y,X].BaseLayer.Rotation := ROT_ID[bits];
         end;
       end;
       UpdatePassability(KMPoint(X,Y));
  
positive.code: 
    function UpdateTransition(X,Y: Integer; aStep: Byte): Boolean;
  
      function GetBits(aX,aY: Integer; aTransition: TStoneTransitionType; aDir: TKMDirection = dirNA): Byte;
      var
        dir: TKMDirection;
      begin
  
negative.code:     275, 276,
      283, 284,
      291, 292: begin
                  Land^[aLoc.Y,aLoc.X].BaseLayer.Terrain  := TRAN_TILES[transition, 0]; //Remove stone tile (so tile will have no stone)
                  Land^[aLoc.Y,aLoc.X].BaseLayer.Rotation := KaMRandom(4, 'TKMTerrain.DecStoneDeposit 9');
  
                  InitVisited;
  