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 /** @file script_viewport.cpp Implementation of ScriptViewport. */
9
10 #include "../../stdafx.h"
11 #include "script_error.hpp"
12 #include "script_viewport.hpp"
13 #include "script_game.hpp"
14 #include "script_map.hpp"
15 #include "../script_instance.hpp"
16 #include "../../viewport_func.h"
17
18 #include "../../safeguards.h"
19
ScrollTo(TileIndex tile)20 /* static */ void ScriptViewport::ScrollTo(TileIndex tile)
21 {
22 if (ScriptGame::IsMultiplayer()) return;
23 if (!ScriptMap::IsValidTile(tile)) return;
24
25 ScrollMainWindowToTile(tile);
26 }
27
ScrollEveryoneTo(TileIndex tile)28 /* static */ bool ScriptViewport::ScrollEveryoneTo(TileIndex tile)
29 {
30 EnforcePrecondition(false, ScriptObject::GetCompany() == OWNER_DEITY);
31 EnforcePrecondition(false, ScriptMap::IsValidTile(tile));
32
33 return ScriptObject::DoCommand(tile, VST_EVERYONE, 0, CMD_SCROLL_VIEWPORT);
34 }
35
ScrollCompanyClientsTo(ScriptCompany::CompanyID company,TileIndex tile)36 /* static */ bool ScriptViewport::ScrollCompanyClientsTo(ScriptCompany::CompanyID company, TileIndex tile)
37 {
38 EnforcePrecondition(false, ScriptObject::GetCompany() == OWNER_DEITY);
39 EnforcePrecondition(false, ScriptMap::IsValidTile(tile));
40
41 company = ScriptCompany::ResolveCompanyID(company);
42 EnforcePrecondition(false, company != ScriptCompany::COMPANY_INVALID);
43
44 return ScriptObject::DoCommand(tile, VST_COMPANY, company, CMD_SCROLL_VIEWPORT);
45 }
46
ScrollClientTo(ScriptClient::ClientID client,TileIndex tile)47 /* static */ bool ScriptViewport::ScrollClientTo(ScriptClient::ClientID client, TileIndex tile)
48 {
49 EnforcePrecondition(false, ScriptGame::IsMultiplayer());
50 EnforcePrecondition(false, ScriptObject::GetCompany() == OWNER_DEITY);
51 EnforcePrecondition(false, ScriptMap::IsValidTile(tile));
52
53 client = ScriptClient::ResolveClientID(client);
54 EnforcePrecondition(false, client != ScriptClient::CLIENT_INVALID);
55
56 return ScriptObject::DoCommand(tile, VST_CLIENT, client, CMD_SCROLL_VIEWPORT);
57 }
58