1 /* $Id: goal.cpp 26382 2014-02-27 21:53:14Z frosch $ */
4 * This file is part of OpenTTD.
5 * 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.
6 * 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.
7 * 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/>.
10 /** @file goal.cpp Handling of goals. */
13 #include "company_func.h"
16 #include "window_func.h"
17 #include "goal_base.h"
18 #include "core/pool_func.hpp"
19 #include "game/game.hpp"
20 #include "command_func.h"
21 #include "company_base.h"
22 #include "story_base.h"
23 #include "string_func.h"
25 #include "network/network.h"
27 #include "safeguards.h"
32 GoalPool
_goal_pool("Goal");
33 INSTANTIATE_POOL_METHODS(Goal
)
38 * @param flags type of operation
39 * @param p1 various bitstuffed elements
40 * - p1 = (bit 0 - 7) - GoalType of destination.
41 * - p1 = (bit 8 - 15) - Company for which this goal is.
42 * @param p2 GoalTypeID of destination.
43 * @param text Text of the goal.
44 * @return the cost of this operation or an error
46 CommandCost
CmdCreateGoal(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
48 if (!Goal::CanAllocateItem()) return CommandError();
50 GoalType type
= (GoalType
)GB(p1
, 0, 8);
51 CompanyID company
= (CompanyID
)GB(p1
, 8, 8);
53 if (_current_company
!= OWNER_DEITY
) return CommandError();
54 if (StrEmpty(text
)) return CommandError();
55 if (company
!= INVALID_COMPANY
&& !Company::IsValidID(company
)) return CommandError();
59 if (p2
!= 0) return CommandError();
63 if (!IsValidTile(p2
)) return CommandError();
67 if (!Industry::IsValidID(p2
)) return CommandError();
71 if (!Town::IsValidID(p2
)) return CommandError();
75 if (!Company::IsValidID(p2
)) return CommandError();
79 if (!StoryPage::IsValidID(p2
)) return CommandError();
80 CompanyByte story_company
= StoryPage::Get(p2
)->company
;
81 if (company
== INVALID_COMPANY
? story_company
!= INVALID_COMPANY
: story_company
!= INVALID_COMPANY
&& story_company
!= company
) return CommandError();
85 default: return CommandError();
88 if (flags
& DC_EXEC
) {
93 g
->text
= stredup(text
);
94 g
->progress
= nullptr;
97 if (g
->company
== INVALID_COMPANY
) {
98 InvalidateWindowClassesData(WC_GOALS_LIST
);
100 InvalidateWindowData(WC_GOALS_LIST
, g
->company
);
102 if (Goal::GetNumItems() == 1) InvalidateWindowData(WC_MAIN_TOOLBAR
, 0);
104 _new_goal_id
= g
->index
;
107 return CommandCost();
112 * @param tile unused.
113 * @param flags type of operation
114 * @param p1 GoalID to remove.
116 * @param text unused.
117 * @return the cost of this operation or an error
119 CommandCost
CmdRemoveGoal(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
121 if (_current_company
!= OWNER_DEITY
) return CommandError();
122 if (!Goal::IsValidID(p1
)) return CommandError();
124 if (flags
& DC_EXEC
) {
125 Goal
*g
= Goal::Get(p1
);
126 CompanyID c
= g
->company
;
129 if (c
== INVALID_COMPANY
) {
130 InvalidateWindowClassesData(WC_GOALS_LIST
);
132 InvalidateWindowData(WC_GOALS_LIST
, c
);
134 if (Goal::GetNumItems() == 0) InvalidateWindowData(WC_MAIN_TOOLBAR
, 0);
137 return CommandCost();
141 * Update goal text of a goal.
142 * @param tile unused.
143 * @param flags type of operation
144 * @param p1 GoalID to update.
146 * @param text Text of the goal.
147 * @return the cost of this operation or an error
149 CommandCost
CmdSetGoalText(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
151 if (_current_company
!= OWNER_DEITY
) return CommandError();
152 if (!Goal::IsValidID(p1
)) return CommandError();
153 if (StrEmpty(text
)) return CommandError();
155 if (flags
& DC_EXEC
) {
156 Goal
*g
= Goal::Get(p1
);
158 g
->text
= stredup(text
);
160 if (g
->company
== INVALID_COMPANY
) {
161 InvalidateWindowClassesData(WC_GOALS_LIST
);
163 InvalidateWindowData(WC_GOALS_LIST
, g
->company
);
167 return CommandCost();
171 * Update progress text of a goal.
172 * @param tile unused.
173 * @param flags type of operation
174 * @param p1 GoalID to update.
176 * @param text Progress text of the goal.
177 * @return the cost of this operation or an error
179 CommandCost
CmdSetGoalProgress(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
181 if (_current_company
!= OWNER_DEITY
) return CommandError();
182 if (!Goal::IsValidID(p1
)) return CommandError();
184 if (flags
& DC_EXEC
) {
185 Goal
*g
= Goal::Get(p1
);
187 if (StrEmpty(text
)) {
188 g
->progress
= nullptr;
190 g
->progress
= stredup(text
);
193 if (g
->company
== INVALID_COMPANY
) {
194 InvalidateWindowClassesData(WC_GOALS_LIST
);
196 InvalidateWindowData(WC_GOALS_LIST
, g
->company
);
200 return CommandCost();
204 * Update completed state of a goal.
205 * @param tile unused.
206 * @param flags type of operation
207 * @param p1 GoalID to update.
208 * @param p2 completed state. If goal is completed, set to 1, otherwise 0.
210 * @return the cost of this operation or an error
212 CommandCost
CmdSetGoalCompleted(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
214 if (_current_company
!= OWNER_DEITY
) return CommandError();
215 if (!Goal::IsValidID(p1
)) return CommandError();
217 if (flags
& DC_EXEC
) {
218 Goal
*g
= Goal::Get(p1
);
219 g
->completed
= p2
== 1;
221 if (g
->company
== INVALID_COMPANY
) {
222 InvalidateWindowClassesData(WC_GOALS_LIST
);
224 InvalidateWindowData(WC_GOALS_LIST
, g
->company
);
228 return CommandCost();
232 * Ask a goal related question
233 * @param tile unused.
234 * @param flags type of operation
235 * @param p1 various bitstuffed elements
236 * - p1 = (bit 0 - 15) - Unique ID to use for this question.
237 * - p1 = (bit 16 - 23) - Company for which this question is.
238 * @param p2 Buttons of the question.
239 * @param text Text of the question.
240 * @return the cost of this operation or an error
242 CommandCost
CmdGoalQuestion(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
244 uint16 uniqueid
= (GoalType
)GB(p1
, 0, 16);
245 CompanyID company
= (CompanyID
)GB(p1
, 16, 8);
246 byte type
= GB(p1
, 24, 8);
248 if (_current_company
!= OWNER_DEITY
) return CommandError();
249 if (StrEmpty(text
)) return CommandError();
250 if (company
!= INVALID_COMPANY
&& !Company::IsValidID(company
)) return CommandError();
251 if (CountBits(p2
) < 1 || CountBits(p2
) > 3) return CommandError();
252 if (p2
>= (1 << GOAL_QUESTION_BUTTON_COUNT
)) return CommandError();
253 if (type
>= GOAL_QUESTION_TYPE_COUNT
) return CommandError();
255 if (flags
& DC_EXEC
) {
256 if ((company
!= INVALID_COMPANY
&& company
== _local_company
) || (company
== INVALID_COMPANY
&& Company::IsValidID(_local_company
))) ShowGoalQuestion(uniqueid
, type
, p2
, text
);
259 return CommandCost();
263 * Reply to a goal question.
264 * @param tile unused.
265 * @param flags type of operation
266 * @param p1 Unique ID to use for this question.
267 * @param p2 Button the company pressed
268 * @param text Text of the question.
269 * @return the cost of this operation or an error
271 CommandCost
CmdGoalQuestionAnswer(TileIndex tile
, DoCommandFlag flags
, uint32 p1
, uint32 p2
, const char *text
)
273 if (p1
> UINT16_MAX
) return CommandError();
274 if (p2
>= GOAL_QUESTION_BUTTON_COUNT
) return CommandError();
276 if (_current_company
== OWNER_DEITY
) {
277 /* It has been requested to close this specific question on all clients */
278 if (flags
& DC_EXEC
) DeleteWindowById(WC_GOAL_QUESTION
, p1
);
279 return CommandCost();
282 if (_networking
&& _local_company
== _current_company
) {
283 /* Somebody in the same company answered the question. Close the window */
284 if (flags
& DC_EXEC
) DeleteWindowById(WC_GOAL_QUESTION
, p1
);
285 if (!_network_server
) return CommandCost();
288 if (flags
& DC_EXEC
) {
289 Game::NewEvent(new ScriptEventGoalQuestionAnswer(p1
, (ScriptCompany::CompanyID
)(byte
)_current_company
, (ScriptGoal::QuestionButton
)(1 << p2
)));
292 return CommandCost();