bin/game/compat_1.10.nut

   1 /*
   2  * This file is part of OpenTTD.
   3  * 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.
   4  * 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.
   5  * 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/>.
   6  */
   7
   8 GSLog.Info("1.10 API compatibility in effect.");
   9
  10 /* 1.11 adds a tile parameter. */
  11 GSCompany._ChangeBankBalance <- GSCompany.ChangeBankBalance;
  12 GSCompany.ChangeBankBalance <- function(company, delta, expenses_type)
  13 {
  14         return GSCompany._ChangeBankBalance(company, delta, expenses_type, GSMap.TILE_INVALID);
  15 }
  16
  17 /* 13 really checks RoadType against RoadType */
  18 GSRoad._HasRoadType <- GSRoad.HasRoadType;
  19 GSRoad.HasRoadType <- function(tile, road_type)
  20 {
  21         local list = GSRoadTypeList(GSRoad.GetRoadTramType(road_type));
  22         foreach (rt, _ in list) {
  23                 if (GSRoad._HasRoadType(tile, rt)) {
  24                         return true;
  25                 }
  26         }
  27         return false;
  28 }