--- a/src/newgrf_house.cpp	Tue Jun 17 10:32:49 2008 +0000
+++ b/src/newgrf_house.cpp	Tue Jun 17 13:22:13 2008 +0000
@@ -254,6 +254,12 @@
 		/* Land info for nearby tiles. */
 		case 0x62: return GetNearbyTileInformation(parameter, tile);
 
+		/* Current animation frame of nearby house tiles */
+		case 0x63: {
+			TileIndex testtile = GetNearbyTile(parameter, tile);
+			return IsTileType(testtile, MP_HOUSE) ? GetHouseAnimationFrame(testtile) : 0;
+		}
+
 		/* Read GRF parameter */
 		case 0x7F: return GetGRFParameter(object->u.house.house_id, parameter);
 	}