From 23bb22c3af57bb8697692245568f55dedf5b4cc8 Mon Sep 17 00:00:00 2001
From: Duncan Frost <duncans_pumpkin@hotmail.co.uk>
Date: Mon, 13 Jul 2015 21:18:55 +0100
Subject: [PATCH] Add check for ghost entrance removal.

Fixes #1601
---
 src/ride/ride.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ride/ride.c b/src/ride/ride.c
index 3407b7e0ba..9c98b5b636 100644
--- a/src/ride/ride.c
+++ b/src/ride/ride.c
@@ -6149,6 +6149,9 @@ money32 remove_ride_entrance_or_exit(sint16 x, sint16 y, uint8 rideIndex, uint8
 			if (mapElement->base_height != ride->station_heights[station_num])
 				continue;
 
+			if (flags & (1 << 5) && !(mapElement->flags & MAP_ELEMENT_FLAG_GHOST))
+				continue;
+
 			found = 1;
 			break;
 		} while (!map_element_is_last_for_tile(mapElement++));