(svn r23625) -Add: ScriptViewport::ScrollTo, for SinglePlayer only (GameScript only)

5 files changed, 108 insertions, 0 deletions

diff --git a/src/game/game_instance.cpp b/src/game/game_instance.cpp
index 872c4829c..998788b61 100644
--- a/src/game/game_instance.cpp
+++ b/src/game/game_instance.cpp
@@ -70,6 +70,7 @@
 #include "../script/api/game/game_tunnel.hpp.sq"
 #include "../script/api/game/game_vehicle.hpp.sq"
 #include "../script/api/game/game_vehiclelist.hpp.sq"
+#include "../script/api/game/game_viewport.hpp.sq"
 #include "../script/api/game/game_waypoint.hpp.sq"
 #include "../script/api/game/game_waypointlist.hpp.sq"
 
@@ -165,6 +166,7 @@ void GameInstance::RegisterAPI()
 	SQGSVehicleList_Depot_Register(this->engine);
 	SQGSVehicleList_SharedOrders_Register(this->engine);
 	SQGSVehicleList_Station_Register(this->engine);
+	SQGSViewport_Register(this->engine);
 	SQGSWaypoint_Register(this->engine);
 	SQGSWaypointList_Register(this->engine);
 	SQGSWaypointList_Vehicle_Register(this->engine);
diff --git a/src/script/api/game/game_viewport.hpp.sq b/src/script/api/game/game_viewport.hpp.sq
new file mode 100644
index 000000000..d313f0d75
--- /dev/null
+++ b/src/script/api/game/game_viewport.hpp.sq
@@ -0,0 +1,27 @@
+/* $Id$ */
+
+/*
+ * 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/>.
+ */
+
+/* THIS FILE IS AUTO-GENERATED; PLEASE DO NOT ALTER MANUALLY */
+
+#include "../script_viewport.hpp"
+#include "../template/template_viewport.hpp.sq"
+
+
+template <> const char *GetClassName<ScriptViewport, ST_GS>() { return "GSViewport"; }
+
+void SQGSViewport_Register(Squirrel *engine)
+{
+	DefSQClass<ScriptViewport, ST_GS> SQGSViewport("GSViewport");
+	SQGSViewport.PreRegister(engine);
+	SQGSViewport.AddConstructor<void (ScriptViewport::*)(), 1>(engine, "x");
+
+	SQGSViewport.DefSQStaticMethod(engine, &ScriptViewport::ScrollTo, "ScrollTo", 2, ".i");
+
+	SQGSViewport.PostRegister(engine);
+}
diff --git a/src/script/api/script_viewport.cpp b/src/script/api/script_viewport.cpp
new file mode 100644
index 000000000..139edb029
--- /dev/null
+++ b/src/script/api/script_viewport.cpp
@@ -0,0 +1,24 @@
+/* $Id$ */
+
+/*
+ * 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/>.
+ */
+
+/** @file script_viewport.cpp Implementation of ScriptViewport. */
+
+#include "../../stdafx.h"
+#include "script_viewport.hpp"
+#include "script_game.hpp"
+#include "script_map.hpp"
+#include "../../viewport_func.h"
+
+/* static */ void ScriptViewport::ScrollTo(TileIndex tile)
+{
+	if (ScriptGame::IsMultiplayer()) return;
+	if (!ScriptMap::IsValidTile(tile)) return;
+
+	ScrollMainWindowToTile(tile);
+}
diff --git a/src/script/api/script_viewport.hpp b/src/script/api/script_viewport.hpp
new file mode 100644
index 000000000..1d66c09b3
--- /dev/null
+++ b/src/script/api/script_viewport.hpp
@@ -0,0 +1,34 @@
+/* $Id$ */
+
+/*
+ * 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/>.
+ */
+
+/** @file script_viewport.hpp Everything to manipulate the users viewport. */
+
+#ifndef SCRIPT_VIEWPORT_HPP
+#define SCRIPT_VIEWPORT_HPP
+
+#include <string>
+#include "script_object.hpp"
+
+/**
+ * Class that manipultes the users viewport.
+ * @api game
+ */
+class ScriptViewport : public ScriptObject {
+public:
+	/**
+	 * Scroll the viewport to the given tile, where the tile will be in the
+	 *  center of the screen.
+	 * @param tile The tile to put in the center of the screen.
+	 * @pre !ScriptGame::IsMultiplayer().
+	 * @pre ScriptMap::IsValidTile(tile).
+	 */
+	static void ScrollTo(TileIndex tile);
+};
+
+#endif /* SCRIPT_ADMIN_HPP */
diff --git a/src/script/api/template/template_viewport.hpp.sq b/src/script/api/template/template_viewport.hpp.sq
new file mode 100644
index 000000000..8a187ae81
--- /dev/null
+++ b/src/script/api/template/template_viewport.hpp.sq
@@ -0,0 +1,21 @@
+/* $Id$ */
+
+/*
+ * 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/>.
+ */
+
+/* THIS FILE IS AUTO-GENERATED; PLEASE DO NOT ALTER MANUALLY */
+
+#include "../script_viewport.hpp"
+
+namespace SQConvert {
+	/* Allow ScriptViewport to be used as Squirrel parameter */
+	template <> inline ScriptViewport *GetParam(ForceType<ScriptViewport *>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return  (ScriptViewport *)instance; }
+	template <> inline ScriptViewport &GetParam(ForceType<ScriptViewport &>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return *(ScriptViewport *)instance; }
+	template <> inline const ScriptViewport *GetParam(ForceType<const ScriptViewport *>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return  (ScriptViewport *)instance; }
+	template <> inline const ScriptViewport &GetParam(ForceType<const ScriptViewport &>, HSQUIRRELVM vm, int index, SQAutoFreePointers *ptr) { SQUserPointer instance; sq_getinstanceup(vm, index, &instance, 0); return *(ScriptViewport *)instance; }
+	template <> inline int Return<ScriptViewport *>(HSQUIRRELVM vm, ScriptViewport *res) { if (res == NULL) { sq_pushnull(vm); return 1; } res->AddRef(); Squirrel::CreateClassInstanceVM(vm, "Viewport", res, NULL, DefSQDestructorCallback<ScriptViewport>, true); return 1; }
+} // namespace SQConvert