3dda8c9bad
Script::HasRoadType was only checking if the tile had the same RoadTramType as that of the RoadType provided. Now it really checks RoadType against RoadType.
22 lines
945 B
Plaintext
22 lines
945 B
Plaintext
/*
|
|
* This file is part of OpenTTD.
|
|
* OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
|
|
* OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
* See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
GSLog.Info("1.11 API compatibility in effect.");
|
|
|
|
/* 13 really checks RoadType against RoadType */
|
|
GSRoad._HasRoadType <- GSRoad.HasRoadType;
|
|
GSRoad.HasRoadType <- function(tile, road_type)
|
|
{
|
|
local list = GSRoadTypeList(GSRoad.GetRoadTramType(road_type));
|
|
foreach (rt, _ in list) {
|
|
if (GSRoad._HasRoadType(tile, rt)) {
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|