Freeciv-3.2: /fast/freeciv/nightly/S3_2/server/scripting/api_server_edit.c Source File

Freeciv-3.2

Loading...
Searching...
No Matches
api_server_edit.c
Go to the documentation of this file.
1/*****************************************************************************
2 Freeciv - Copyright (C) 2005 - The Freeciv Project
3 This program is free software; you can redistribute it and/or modify
4 it under the terms of the GNU General Public License as published by
5 the Free Software Foundation; either version 2, or (at your option)
6 any later version.
7
8 This program is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 GNU General Public License for more details.
12*****************************************************************************/
13
14#ifdef HAVE_CONFIG_H
15#include <fc_config.h>
16#endif
17
18/* utility */
19#include "rand.h"
20
21/* common */
22#include "map.h"
23#include "movement.h"
24#include "research.h"
25#include "unittype.h"
26
27/* common/scriptcore */
28#include "api_game_find.h"
29#include "luascript.h"
30
31/* server */
32#include "aiiface.h"
33#include "barbarian.h"
34#include "citytools.h"
35#include "cityturn.h" /* city_refresh() auto_arrange_workers() */
36#include "console.h" /* enum rfc_status */
37#include "gamehand.h"
38#include "maphand.h"
39#include "notify.h"
40#include "plrhand.h"
41#include "srv_main.h" /* game_was_started() */
42#include "stdinhand.h"
43#include "techtools.h"
44#include "unithand.h"
45#include "unittools.h"
46
47/* server/scripting */
48#include "script_server.h"
49
50/* server/generator */
51#include "mapgen_utils.h"
52
53#include "api_server_edit.h"
54
55
56/**********************************************************************/
59 bool api_edit_unleash_barbarians(lua_State *L, Tile *ptile)
60{
61 LUASCRIPT_CHECK_STATE(L, FALSE);
62 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 2, Tile, FALSE);
63
64 return unleash_barbarians(ptile);
65}
66
67/**********************************************************************/
71static bool
72ur_transform_unit(struct unit *punit, const struct unit_type *to_unit,
73 int vet_loss)
74{
75 if (UU_OK == unit_transform_result(&(wld.map), punit, to_unit)) {
76 /* Avoid getting overt veteranship if a user requests increasing it */
77 if (vet_loss < 0) {
78 int vl = utype_veteran_levels(to_unit);
79
80 vl = punit->veteran - vl + 1;
81 if (vl >= 0) {
82 vet_loss = 0;
83 } else {
84 vet_loss = MAX(vet_loss, vl);
85 }
86 }
87 transform_unit(punit, to_unit, vet_loss);
88 return TRUE;
89 } else {
90 return FALSE;
91 }
92}
93
94/**********************************************************************/
97 void api_edit_place_partisans(lua_State *L, Tile *ptile, Player *pplayer,
98 int count, int sq_radius)
99{
100 LUASCRIPT_CHECK_STATE(L);
101 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 2, Tile);
102 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 3, Player);
103 LUASCRIPT_CHECK_ARG(L, 0 <= sq_radius, 5, "radius must be positive");
104 LUASCRIPT_CHECK(L, 0 < num_role_units(L_PARTISAN),
105 "no partisans in ruleset");
106
107 return place_partisans(ptile, pplayer, count, sq_radius);
108}
109
110/**********************************************************************/
113 Unit *api_edit_create_unit(lua_State *L, Player *pplayer, Tile *ptile,
114 Unit_Type *ptype, int veteran_level,
115 City *homecity, int moves_left)
116{
117 return api_edit_create_unit_full(L, pplayer, ptile, ptype, veteran_level,
118 homecity, moves_left, -1, NULL);
119}
120
121/**********************************************************************/
124 Unit *api_edit_create_unit_full(lua_State *L, Player *pplayer,
125 Tile *ptile,
126 Unit_Type *ptype, int veteran_level,
127 City *homecity, int moves_left,
128 int hp_left,
129 Unit *ptransport)
130{
131 struct fc_lua *fcl;
132 struct city *pcity;
133 struct unit *punit;
134#ifndef FREECIV_NDEBUG
135 bool placed;
136#endif
137
138 LUASCRIPT_CHECK_STATE(L, NULL);
139 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player, NULL);
140 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 3, Tile, NULL);
141
142 fcl = luascript_get_fcl(L);
143
144 LUASCRIPT_CHECK(L, fcl != NULL, "Undefined Freeciv lua state!", NULL);
145
146 if (ptype == NULL
147 || ptype < unit_type_array_first() || ptype > unit_type_array_last()) {
148 return NULL;
149 }
150
151 if (is_non_allied_unit_tile(ptile, pplayer)) {
152 luascript_log(fcl, LOG_ERROR, "create_unit_full: tile is occupied by "
153 "enemy unit");
154 return NULL;
155 }
156
157 pcity = tile_city(ptile);
158 if (pcity != NULL && !pplayers_allied(pplayer, city_owner(pcity))) {
159 luascript_log(fcl, LOG_ERROR, "create_unit_full: tile is occupied by "
160 "enemy city");
161 return NULL;
162 }
163
164 if (utype_player_already_has_this_unique(pplayer, ptype)) {
165 luascript_log(fcl, LOG_ERROR,
166 "create_unit_full: player already has unique unit");
167 return NULL;
168 }
169
170 punit = unit_virtual_prepare(pplayer, ptile, ptype, veteran_level,
171 homecity ? homecity->id : 0,
172 moves_left, hp_left);
173 if (ptransport) {
174 /* The unit maybe can't freely load into the transport
175 * but must be able to be in it, see can_unit_load() */
176 int ret = same_pos(ptile, unit_tile(ptransport))
177 && could_unit_be_in_transport(punit, ptransport);
178
179 if (!ret) {
180 unit_virtual_destroy(punit);
181 luascript_log(fcl, LOG_ERROR, "create_unit_full: '%s' cannot transport "
182 "'%s' here",
183 utype_rule_name(unit_type_get(ptransport)),
184 utype_rule_name(ptype));
185 return NULL;
186 }
187 } else if (!can_exist_at_tile(&(wld.map), ptype, ptile)) {
188 unit_virtual_destroy(punit);
189 luascript_log(fcl, LOG_ERROR, "create_unit_full: '%s' cannot exist at "
190 "tile", utype_rule_name(ptype));
191 return NULL;
192 }
193
194#ifndef FREECIV_NDEBUG
195 placed =
196#endif
197 place_unit(punit, pplayer, homecity, ptransport, TRUE);
198 fc_assert_action(placed, unit_virtual_destroy(punit); punit = NULL);
199
200 return punit;
201}
202
203/**********************************************************************/
206 bool api_edit_unit_teleport(lua_State *L, Unit *punit, Tile *dest,
207 Unit *embark_to, bool allow_disembark,
208 bool conquer_city, bool conquer_extra,
209 bool enter_hut, bool frighten_hut)
210{
211 bool alive;
212
213 LUASCRIPT_CHECK_STATE(L, FALSE);
214 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
215 LUASCRIPT_CHECK_ARG_NIL(L, dest, 3, Tile, FALSE);
216
217 LUASCRIPT_CHECK(L, !(enter_hut && frighten_hut),
218 "Can't both enter and frighten a hut at the same time",
219 TRUE);
220
221 if (!allow_disembark && unit_transported(punit)) {
222 /* Can't leave the transport. */
223 return TRUE;
224 }
225
226 if (unit_teleport_to_tile_test(&(wld.map), punit, ACTIVITY_IDLE,
227 unit_tile(punit), dest, FALSE,
228 embark_to, TRUE) != MR_OK) {
229 /* Can't teleport to target. Return that unit is still alive. */
230 return TRUE;
231 }
232
233 /* Teleport first so destination is revealed even if unit dies */
234 alive = unit_move(punit, dest, 0,
235 embark_to, embark_to != NULL,
236 conquer_city, conquer_extra,
237 enter_hut, frighten_hut);
238 if (alive) {
239 struct player *owner = unit_owner(punit);
240 struct city *pcity = tile_city(dest);
241
242 if (!can_unit_exist_at_tile(&(wld.map), punit, dest)
243 && !unit_transported(punit)) {
244 wipe_unit(punit, ULR_NONNATIVE_TERR, NULL);
245 return FALSE;
246 }
247 if (is_non_allied_unit_tile(dest, owner)
248 || (pcity && !pplayers_allied(city_owner(pcity), owner))) {
249 wipe_unit(punit, ULR_STACK_CONFLICT, NULL);
250 return FALSE;
251 }
252 }
253
254 return alive;
255}
256
257/***********************************************************************/
260 bool api_edit_perform_action_unit_vs_city(lua_State *L, Unit *punit,
261 Action *paction, City *tgt)
262{
263 LUASCRIPT_CHECK_STATE(L, FALSE);
264 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
265 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
266 LUASCRIPT_CHECK_ARG_NIL(L, tgt, 4, City, FALSE);
267
268 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
269 fc_assert_ret_val(action_get_target_kind(paction) == ATK_CITY, FALSE);
270 fc_assert_ret_val(!action_has_result(paction, ACTRES_FOUND_CITY), FALSE);
271 if (is_action_enabled_unit_on_city(&(wld.map), paction->id, punit, tgt)) {
272 return unit_perform_action(unit_owner(punit), punit->id,
273 tgt->id, IDENTITY_NUMBER_ZERO, "",
274 paction->id, ACT_REQ_RULES);
275 } else {
276 /* Action not enabled */
277 return FALSE;
278 }
279}
280
281/***********************************************************************/
284 bool api_edit_perform_action_unit_vs_city_impr(lua_State *L, Unit *punit,
285 Action *paction, City *tgt,
286 Building_Type *sub_tgt)
287{
288 LUASCRIPT_CHECK_STATE(L, FALSE);
289 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
290 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
291 LUASCRIPT_CHECK_ARG_NIL(L, tgt, 4, City, FALSE);
292 LUASCRIPT_CHECK_ARG_NIL(L, sub_tgt, 5, Building_Type, FALSE);
293
294 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
295 fc_assert_ret_val(action_get_target_kind(paction) == ATK_CITY, FALSE);
296 fc_assert_ret_val(!action_has_result(paction, ACTRES_FOUND_CITY), FALSE);
297 if (is_action_enabled_unit_on_city(&(wld.map), paction->id, punit, tgt)) {
298 return unit_perform_action(unit_owner(punit), punit->id,
299 tgt->id, sub_tgt->item_number, "",
300 paction->id, ACT_REQ_RULES);
301 } else {
302 /* Action not enabled */
303 return FALSE;
304 }
305}
306
307/***********************************************************************/
310 bool api_edit_perform_action_unit_vs_city_tech(lua_State *L, Unit *punit,
311 Action *paction, City *tgt,
312 Tech_Type *sub_tgt)
313{
314 LUASCRIPT_CHECK_STATE(L, FALSE);
315 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
316 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
317 LUASCRIPT_CHECK_ARG_NIL(L, tgt, 4, City, FALSE);
318 LUASCRIPT_CHECK_ARG_NIL(L, sub_tgt, 5, Tech_Type, FALSE);
319
320 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
321 fc_assert_ret_val(action_get_target_kind(paction) == ATK_CITY, FALSE);
322 fc_assert_ret_val(!action_has_result(paction, ACTRES_FOUND_CITY), FALSE);
323 if (is_action_enabled_unit_on_city(&(wld.map), paction->id, punit, tgt)) {
324 return unit_perform_action(unit_owner(punit), punit->id,
325 tgt->id, sub_tgt->item_number, "",
326 paction->id, ACT_REQ_RULES);
327 } else {
328 /* Action not enabled */
329 return FALSE;
330 }
331}
332
333/***********************************************************************/
336 bool api_edit_perform_action_unit_vs_unit(lua_State *L, Unit *punit,
337 Action *paction, Unit *tgt)
338{
339 const struct civ_map *nmap = &(wld.map);
340
341 LUASCRIPT_CHECK_STATE(L, FALSE);
342 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
343 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
344 LUASCRIPT_CHECK_ARG_NIL(L, tgt, 4, Unit, FALSE);
345
346 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
347 fc_assert_ret_val(action_get_target_kind(paction) == ATK_UNIT, FALSE);
348 fc_assert_ret_val(!action_has_result(paction, ACTRES_FOUND_CITY), FALSE);
349 if (is_action_enabled_unit_on_unit(nmap, paction->id, punit, tgt)) {
350 return unit_perform_action(unit_owner(punit), punit->id,
351 tgt->id, IDENTITY_NUMBER_ZERO, "",
352 paction->id, ACT_REQ_RULES);
353 } else {
354 /* Action not enabled */
355 return FALSE;
356 }
357}
358
359/***********************************************************************/
362 bool api_edit_perform_action_unit_vs_tile(lua_State *L, Unit *punit,
363 Action *paction, Tile *tgt)
364{
365 bool enabled = FALSE;
366 const struct civ_map *nmap = &(wld.map);
367
368 LUASCRIPT_CHECK_STATE(L, FALSE);
369 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
370 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
371 LUASCRIPT_CHECK_ARG_NIL(L, tgt, 4, Tile, FALSE);
372
373 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
374 switch (action_get_target_kind(paction)) {
375 case ATK_UNITS:
376 enabled = is_action_enabled_unit_on_stack(nmap, paction->id, punit, tgt);
377 break;
378 case ATK_TILE:
379 enabled = is_action_enabled_unit_on_tile(nmap, paction->id, punit,
380 tgt, NULL);
381 break;
382 case ATK_EXTRAS:
383 enabled = is_action_enabled_unit_on_extras(paction->id, punit,
384 tgt, NULL);
385 break;
386 case ATK_CITY:
387 /* Not handled here. */
388 fc_assert(action_get_target_kind(paction) != ATK_CITY);
389 break;
390 case ATK_UNIT:
391 /* Not handled here. */
392 fc_assert(action_get_target_kind(paction) != ATK_UNIT);
393 break;
394 case ATK_SELF:
395 /* Not handled here. */
396 fc_assert(action_get_target_kind(paction) != ATK_SELF);
397 break;
398 case ATK_COUNT:
399 /* Should not exist */
400 fc_assert(action_get_target_kind(paction) != ATK_COUNT);
401 break;
402 }
403
404 if (enabled) {
405 return unit_perform_action(unit_owner(punit), punit->id,
406 tile_index(tgt), IDENTITY_NUMBER_ZERO,
407 city_name_suggestion(unit_owner(punit), tgt),
408 paction->id, ACT_REQ_RULES);
409 } else {
410 /* Action not enabled */
411 return FALSE;
412 }
413}
414
415/***********************************************************************/
418 bool api_edit_perform_action_unit_vs_tile_extra(lua_State *L, Unit *punit,
419 Action *paction, Tile *tgt,
420 const char *sub_tgt)
421{
422 struct extra_type *sub_target;
423 bool enabled = FALSE;
424 const struct civ_map *nmap = &(wld.map);
425
426 LUASCRIPT_CHECK_STATE(L, FALSE);
427 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
428 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
429 LUASCRIPT_CHECK_ARG_NIL(L, tgt, 4, Tile, FALSE);
430 LUASCRIPT_CHECK_ARG_NIL(L, sub_tgt, 5, string, FALSE);
431
432 sub_target = extra_type_by_rule_name(sub_tgt);
433 LUASCRIPT_CHECK_ARG(L, sub_target != NULL, 5, "No such extra", FALSE);
434
435 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
436 switch (action_get_target_kind(paction)) {
437 case ATK_UNITS:
438 enabled = is_action_enabled_unit_on_stack(nmap, paction->id, punit, tgt);
439 break;
440 case ATK_TILE:
441 enabled = is_action_enabled_unit_on_tile(nmap, paction->id, punit,
442 tgt, sub_target);
443 break;
444 case ATK_EXTRAS:
445 enabled = is_action_enabled_unit_on_extras(paction->id, punit,
446 tgt, sub_target);
447 break;
448 case ATK_CITY:
449 /* Not handled here. */
450 fc_assert(action_get_target_kind(paction) != ATK_CITY);
451 break;
452 case ATK_UNIT:
453 /* Not handled here. */
454 fc_assert(action_get_target_kind(paction) != ATK_UNIT);
455 break;
456 case ATK_SELF:
457 /* Not handled here. */
458 fc_assert(action_get_target_kind(paction) != ATK_SELF);
459 break;
460 case ATK_COUNT:
461 /* Should not exist */
462 fc_assert(action_get_target_kind(paction) != ATK_COUNT);
463 break;
464 }
465
466 if (enabled) {
467 return unit_perform_action(unit_owner(punit), punit->id,
468 tile_index(tgt), sub_target->id,
469 city_name_suggestion(unit_owner(punit), tgt),
470 paction->id, ACT_REQ_RULES);
471 } else {
472 /* Action not enabled */
473 return FALSE;
474 }
475}
476
477/***********************************************************************/
480 bool api_edit_perform_action_unit_vs_self(lua_State *L, Unit *punit,
481 Action *paction)
482{
483 LUASCRIPT_CHECK_STATE(L, FALSE);
484 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit, FALSE);
485 LUASCRIPT_CHECK_ARG_NIL(L, paction, 3, Action, FALSE);
486
487 fc_assert_ret_val(action_get_actor_kind(paction) == AAK_UNIT, FALSE);
488 fc_assert_ret_val(action_get_target_kind(paction) == ATK_SELF, FALSE);
489 fc_assert_ret_val(!action_has_result(paction, ACTRES_FOUND_CITY), FALSE);
490 if (is_action_enabled_unit_on_self(paction->id, punit)) {
491 return unit_perform_action(unit_owner(punit), punit->id,
492 IDENTITY_NUMBER_ZERO, IDENTITY_NUMBER_ZERO,
493 "",
494 paction->id, ACT_REQ_RULES);
495 } else {
496 /* Action not enabled */
497 return FALSE;
498 }
499}
500
501/**********************************************************************/
504 void api_edit_unit_turn(lua_State *L, Unit *punit, Direction dir)
505{
506 LUASCRIPT_CHECK_STATE(L);
507 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit);
508
509 if (direction8_is_valid(dir)) {
510 punit->facing = dir;
511
512 send_unit_info(NULL, punit);
513 } else {
514 log_error("Illegal direction %d for unit from lua script", dir);
515 }
516}
517
518/**********************************************************************/
522 bool api_edit_unit_upgrade(lua_State *L, Unit *punit, int vet_loss)
523{
524 const struct unit_type *ptype;
525
526 LUASCRIPT_CHECK_STATE(L, FALSE);
527 LUASCRIPT_CHECK_SELF(L, punit, FALSE);
528
529 ptype = can_upgrade_unittype(unit_owner(punit), unit_type_get(punit));
530 if (!ptype) {
531 return FALSE;
532 }
533 return ur_transform_unit(punit, ptype, vet_loss);
534}
535
536/**********************************************************************/
540 bool api_edit_unit_transform(lua_State *L, Unit *punit, Unit_Type *ptype,
541 int vet_loss)
542{
543 LUASCRIPT_CHECK_STATE(L, FALSE);
544 LUASCRIPT_CHECK_SELF(L, punit, FALSE);
545 LUASCRIPT_CHECK_ARG_NIL(L, ptype, 3, Unit_Type, FALSE);
546
547 return ur_transform_unit(punit, ptype, vet_loss);
548}
549
550/**********************************************************************/
553 void api_edit_unit_kill(lua_State *L, Unit *punit, const char *reason,
554 Player *killer)
555{
556 enum unit_loss_reason loss_reason;
557
558 LUASCRIPT_CHECK_STATE(L);
559 LUASCRIPT_CHECK_ARG_NIL(L, punit, 2, Unit);
560 LUASCRIPT_CHECK_ARG_NIL(L, reason, 3, string);
561
562 loss_reason = unit_loss_reason_by_name(reason, fc_strcasecmp);
563
564 LUASCRIPT_CHECK_ARG(L, unit_loss_reason_is_valid(loss_reason), 3,
565 "Invalid unit loss reason");
566
567 wipe_unit(punit, loss_reason, killer);
568}
569
570/**********************************************************************/
573 bool api_edit_change_terrain(lua_State *L, Tile *ptile, Terrain *pterr)
574{
575 struct terrain *old_terrain;
576
577 LUASCRIPT_CHECK_STATE(L, FALSE);
578 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 2, Tile, FALSE);
579 LUASCRIPT_CHECK_ARG_NIL(L, pterr, 3, Terrain, FALSE);
580
581 old_terrain = tile_terrain(ptile);
582
583 if (old_terrain == pterr
584 || (terrain_has_flag(pterr, TER_NO_CITIES)
585 && tile_city(ptile) != NULL)) {
586 return FALSE;
587 }
588
589 tile_change_terrain(ptile, pterr);
590 fix_tile_on_terrain_change(ptile, old_terrain, FALSE);
591 if (need_to_reassign_continents(old_terrain, pterr)) {
592 assign_continent_numbers();
593
594 /* FIXME: adv / ai phase handling like in check_terrain_change() */
595
596 send_all_known_tiles(NULL);
597 }
598
599 update_tile_knowledge(ptile);
600
601 tile_change_side_effects(ptile, TRUE);
602
603 return TRUE;
604}
605
606/**********************************************************************/
609 bool api_edit_create_city(lua_State *L, Player *pplayer, Tile *ptile,
610 const char *name)
611{
612 LUASCRIPT_CHECK_STATE(L, FALSE);
613 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player, FALSE);
614 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 3, Tile, FALSE);
615
616 /* TODO: Allow initial citizen to be of nationality other than owner */
617 return create_city_for_player(pplayer, ptile, name);
618}
619
620/**********************************************************************/
623 void api_edit_remove_city(lua_State *L, City *pcity)
624{
625 LUASCRIPT_CHECK_STATE(L);
626 LUASCRIPT_CHECK_ARG_NIL(L, pcity, 2, City);
627
628 remove_city(pcity);
629}
630
631/**********************************************************************/
634 bool api_edit_transfer_city(lua_State *L, City *pcity, Player *new_owner)
635{
636 LUASCRIPT_CHECK_STATE(L, FALSE);
637 LUASCRIPT_CHECK_ARG_NIL(L, pcity, 2, City, FALSE);
638 LUASCRIPT_CHECK_ARG_NIL(L, new_owner, 3, Player, FALSE);
639
640 return transfer_city(new_owner, pcity, FALSE, FALSE, FALSE, FALSE, FALSE);
641}
642
643/**********************************************************************/
646 void api_edit_create_building(lua_State *L, City *pcity, Building_Type *impr)
647{
648 LUASCRIPT_CHECK_STATE(L);
649 LUASCRIPT_CHECK_ARG_NIL(L, pcity, 2, City);
650 LUASCRIPT_CHECK_ARG_NIL(L, impr, 3, Building_Type);
651 /* FIXME: may "Special" impr be buildable? */
652 LUASCRIPT_CHECK_ARG(L, !is_special_improvement(impr), 3,
653 "It is a special item, not a city building");
654
655 if (!city_has_building(pcity, impr)) {
656 bool need_game_info = FALSE;
657 bool need_plr_info = FALSE;
658 struct player *old_owner = NULL, *pplayer = city_owner(pcity);
659 struct city *oldcity;
660
661 oldcity = build_or_move_building(pcity, impr, &old_owner);
662 if (oldcity) {
663 need_plr_info = TRUE;
664 }
665 if (old_owner && old_owner != pplayer) {
666 /* Great wonders make more changes. */
667 need_game_info = TRUE;
668 }
669
670 if (oldcity) {
671 if (city_refresh(oldcity)) {
672 auto_arrange_workers(oldcity);
673 }
674 send_city_info(NULL, oldcity);
675 }
676
677 if (city_refresh(pcity)) {
678 auto_arrange_workers(pcity);
679 }
680 send_city_info(NULL, pcity);
681 if (need_game_info) {
682 send_game_info(NULL);
683 send_player_info_c(old_owner, NULL);
684 }
685 if (need_plr_info) {
686 send_player_info_c(pplayer, NULL);
687 }
688 }
689}
690
691/**********************************************************************/
694 void api_edit_remove_building(lua_State *L, City *pcity, Building_Type *impr)
695{
696 LUASCRIPT_CHECK_STATE(L);
697 LUASCRIPT_CHECK_ARG_NIL(L, pcity, 2, City);
698 LUASCRIPT_CHECK_ARG_NIL(L, impr, 3, Building_Type);
699
700 if (city_has_building(pcity, impr)) {
701 city_remove_improvement(pcity, impr);
702 send_city_info(NULL, pcity);
703
704 if (is_wonder(impr)) {
705 if (is_great_wonder(impr)) {
706 send_game_info(NULL);
707 }
708 send_player_info_c(city_owner(pcity), NULL);
709 }
710 }
711}
712
713/**********************************************************************/
716 Player *api_edit_create_player(lua_State *L, const char *username,
717 Nation_Type *pnation, const char *ai)
718{
719 struct player *pplayer = NULL;
720 char buf[128] = "";
721 struct fc_lua *fcl;
722
723 LUASCRIPT_CHECK_STATE(L, NULL);
724 LUASCRIPT_CHECK_ARG_NIL(L, username, 2, string, NULL);
725 if (!ai) {
726 ai = default_ai_type_name();
727 }
728
729 fcl = luascript_get_fcl(L);
730
731 LUASCRIPT_CHECK(L, fcl != NULL, "Undefined Freeciv lua state!", NULL);
732
733 if (game_was_started()) {
734 create_command_newcomer(username, ai, FALSE, pnation, &pplayer,
735 buf, sizeof(buf));
736 } else {
737 create_command_pregame(username, ai, FALSE, &pplayer,
738 buf, sizeof(buf));
739 }
740
741 if (strlen(buf) > 0) {
742 luascript_log(fcl, LOG_NORMAL, "%s", buf);
743 }
744
745 return pplayer;
746}
747
748/**********************************************************************/
751 void api_edit_change_gold(lua_State *L, Player *pplayer, int amount)
752{
753 LUASCRIPT_CHECK_STATE(L);
754 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player);
755
756 pplayer->economic.gold = MAX(0, pplayer->economic.gold + amount);
757
758 send_player_info_c(pplayer, NULL);
759}
760
761/**********************************************************************/
764 void api_edit_change_infrapoints(lua_State *L, Player *pplayer, int amount)
765{
766 LUASCRIPT_CHECK_STATE(L);
767 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player);
768
769 pplayer->economic.infra_points
770 = MAX(0, pplayer->economic.infra_points + amount);
771
772 send_player_info_c(pplayer, NULL);
773}
774
775/**********************************************************************/
781 Tech_Type *api_edit_give_technology(lua_State *L, Player *pplayer,
782 Tech_Type *ptech, int cost,
783 bool notify,
784 const char *reason)
785{
786 struct research *presearch;
787 Tech_type_id id;
788 Tech_Type *result;
789
790 LUASCRIPT_CHECK_STATE(L, NULL);
791 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player, NULL);
792 LUASCRIPT_CHECK_ARG(L, cost >= -3, 4, "Unknown give_tech() cost value", NULL);
793
794 presearch = research_get(pplayer);
795 if (ptech) {
796 id = advance_number(ptech);
797 } else {
798 id = pick_free_tech(presearch);
799 }
800
801 if (is_future_tech(id)
802 || research_invention_state(presearch, id) != TECH_KNOWN) {
803 if (cost < 0) {
804 if (cost == -1) {
805 cost = game.server.freecost;
806 } else if (cost == -2) {
807 cost = game.server.conquercost;
808 } else if (cost == -3) {
809 cost = game.server.diplbulbcost;
810 } else {
811
812 cost = 0;
813 }
814 }
815 research_apply_penalty(presearch, id, cost);
816 found_new_tech(presearch, id, FALSE, TRUE);
817 result = advance_by_number(id);
818 script_tech_learned(presearch, pplayer, result, reason);
819
820 if (notify && result != NULL) {
821 const char *adv_name = research_advance_name_translation(presearch, id);
822 char research_name[MAX_LEN_NAME * 2];
823
824 research_pretty_name(presearch, research_name, sizeof(research_name));
825
826 notify_player(pplayer, NULL, E_TECH_GAIN, ftc_server,
827 Q_("?fromscript:You acquire %s."), adv_name);
828 notify_research(presearch, pplayer, E_TECH_GAIN, ftc_server,
829 /* TRANS: "The Greeks ..." or "The members of
830 * team Red ..." */
831 Q_("?fromscript:The %s acquire %s and share this "
832 "advance with you."),
833 nation_plural_for_player(pplayer), adv_name);
834 notify_research_embassies(presearch, NULL, E_TECH_EMBASSY, ftc_server,
835 /* TRANS: "The Greeks ..." or "The members of
836 * team Red ..." */
837 Q_("?fromscript:The %s acquire %s."),
838 research_name, adv_name);
839 }
840
841 return result;
842 } else {
843 return NULL;
844 }
845}
846
847/**********************************************************************/
850 bool api_edit_trait_mod_set(lua_State *L, Player *pplayer,
851 const char *tname, const int mod)
852{
853 enum trait tr;
854
855 LUASCRIPT_CHECK_STATE(L, -1);
856 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player, FALSE);
857 LUASCRIPT_CHECK_ARG_NIL(L, tname, 3, string, FALSE);
858
859 tr = trait_by_name(tname, fc_strcasecmp);
860
861 LUASCRIPT_CHECK_ARG(L, trait_is_valid(tr), 3, "no such trait", 0);
862
863 pplayer->ai_common.traits[tr].mod += mod;
864
865 return TRUE;
866}
867
868/**********************************************************************/
871 void api_edit_create_owned_extra(lua_State *L, Tile *ptile,
872 const char *name, Player *pplayer)
873{
874 struct extra_type *pextra;
875
876 LUASCRIPT_CHECK_STATE(L);
877 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 2, Tile);
878
879 if (name == NULL) {
880 return;
881 }
882
883 pextra = extra_type_by_rule_name(name);
884
885 if (pextra != NULL) {
886 create_extra(ptile, pextra, pplayer);
887 update_tile_knowledge(ptile);
888 tile_change_side_effects(ptile, TRUE);
889 }
890}
891
892/**********************************************************************/
895 void api_edit_create_extra(lua_State *L, Tile *ptile, const char *name)
896{
897 api_edit_create_owned_extra(L, ptile, name, NULL);
898}
899
900/**********************************************************************/
903 void api_edit_create_base(lua_State *L, Tile *ptile, const char *name,
904 Player *pplayer)
905{
906 api_edit_create_owned_extra(L, ptile, name, pplayer);
907}
908
909/**********************************************************************/
912 void api_edit_create_road(lua_State *L, Tile *ptile, const char *name)
913{
914 api_edit_create_owned_extra(L, ptile, name, NULL);
915}
916
917/**********************************************************************/
920 void api_edit_remove_extra(lua_State *L, Tile *ptile, const char *name)
921{
922 struct extra_type *pextra;
923
924 LUASCRIPT_CHECK_STATE(L);
925 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 2, Tile);
926
927 if (name == NULL) {
928 return;
929 }
930
931 pextra = extra_type_by_rule_name(name);
932
933 if (pextra != NULL && tile_has_extra(ptile, pextra)) {
934 tile_extra_rm_apply(ptile, pextra);
935 update_tile_knowledge(ptile);
936 tile_change_side_effects(ptile, TRUE);
937 }
938}
939
940/**********************************************************************/
943 void api_edit_tile_set_label(lua_State *L, Tile *ptile, const char *label)
944{
945 LUASCRIPT_CHECK_STATE(L);
946 LUASCRIPT_CHECK_SELF(L, ptile);
947 LUASCRIPT_CHECK_ARG_NIL(L, label, 3, string);
948
949 tile_set_label(ptile, label);
950 if (server_state() >= S_S_RUNNING) {
951 send_tile_info(NULL, ptile, FALSE);
952 }
953}
954
955/**********************************************************************/
958 void api_edit_tile_show(lua_State *L, Tile *ptile, Player *pplayer)
959{
960 LUASCRIPT_CHECK_STATE(L);
961 LUASCRIPT_CHECK_SELF(L, ptile);
962 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 3, Player);
963
964 map_show_tile(pplayer, ptile);
965}
966
967/**********************************************************************/
970 bool api_edit_tile_hide(lua_State *L, Tile *ptile, Player *pplayer)
971{
972 struct city *pcity;
973
974 LUASCRIPT_CHECK_STATE(L, FALSE);
975 LUASCRIPT_CHECK_SELF(L, ptile, FALSE);
976 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 3, Player, FALSE);
977
978 if (map_is_known_and_seen(ptile, pplayer, V_MAIN)) {
979 /* Can't hide currently seen tile */
980 return FALSE;
981 }
982
983 pcity = tile_city(ptile);
984
985 if (pcity != NULL) {
986 trade_partners_iterate(pcity, partner) {
987 if (really_gives_vision(pplayer, city_owner(partner))) {
988 /* Can't remove vision about trade partner */
989 return FALSE;
990 }
991 } trade_partners_iterate_end;
992 }
993
994 dbv_clr(&pplayer->tile_known, tile_index(ptile));
995
996 send_tile_info(pplayer->connections, ptile, TRUE);
997
998 return TRUE;
999}
1000
1001/**********************************************************************/
1004 void api_edit_climate_change(lua_State *L, enum climate_change_type type,
1005 int effect)
1006{
1007 LUASCRIPT_CHECK_STATE(L);
1008 LUASCRIPT_CHECK_ARG(L, type == CLIMATE_CHANGE_GLOBAL_WARMING
1009 || type == CLIMATE_CHANGE_NUCLEAR_WINTER,
1010 2, "invalid climate change type");
1011 LUASCRIPT_CHECK_ARG(L, effect > 0, 3, "effect must be greater than zero");
1012
1013 climate_change(type == CLIMATE_CHANGE_GLOBAL_WARMING, effect);
1014}
1015
1016/**********************************************************************/
1019 Player *api_edit_civil_war(lua_State *L, Player *pplayer, int probability)
1020{
1021 LUASCRIPT_CHECK_STATE(L, NULL);
1022 LUASCRIPT_CHECK_ARG_NIL(L, pplayer, 2, Player, NULL);
1023 LUASCRIPT_CHECK_ARG(L, probability >= 0 && probability <= 100,
1024 3, "must be a percentage", NULL);
1025
1026 if (!civil_war_possible(pplayer, FALSE, FALSE)) {
1027 return NULL;
1028 }
1029
1030 if (probability == 0) {
1031 /* Calculate chance with normal rules */
1032 if (!civil_war_triggered(pplayer)) {
1033 return NULL;
1034 }
1035 } else {
1036 /* Fixed chance specified by script */
1037 if (fc_rand(100) >= probability) {
1038 return NULL;
1039 }
1040 }
1041
1042 return civil_war(pplayer);
1043}
1044
1045/**********************************************************************/
1048 void api_edit_player_victory(lua_State *L, Player *pplayer)
1049{
1050 LUASCRIPT_CHECK_STATE(L);
1051 LUASCRIPT_CHECK_SELF(L, pplayer);
1052
1053 player_status_add(pplayer, PSTATUS_WINNER);
1054}
1055
1056/**********************************************************************/
1059 bool api_edit_unit_move(lua_State *L, Unit *punit, Tile *ptile,
1060 int movecost,
1061 Unit *embark_to, bool disembark,
1062 bool conquer_city, bool conquer_extra,
1063 bool enter_hut, bool frighten_hut)
1064{
1065 LUASCRIPT_CHECK_STATE(L, FALSE);
1066 LUASCRIPT_CHECK_SELF(L, punit, FALSE);
1067 LUASCRIPT_CHECK_ARG_NIL(L, ptile, 3, Tile, FALSE);
1068 LUASCRIPT_CHECK_ARG(L, movecost >= 0, 4, "Negative move cost!", FALSE);
1069
1070 LUASCRIPT_CHECK(L, !(enter_hut && frighten_hut),
1071 "Can't both enter and frighten a hut at the same time",
1072 TRUE);
1073
1074 if (!disembark && unit_transported(punit)) {
1075 /* Can't leave the transport. */
1076 return TRUE;
1077 }
1078
1079 if (unit_move_to_tile_test(&(wld.map), punit, ACTIVITY_IDLE,
1080 unit_tile(punit), ptile, TRUE,
1081 FALSE, embark_to, TRUE) != MR_OK) {
1082 /* Can't move to target. Return that unit is still alive. */
1083 return TRUE;
1084 }
1085
1086 return unit_move(punit, ptile, movecost,
1087 embark_to, embark_to != NULL,
1088 conquer_city, conquer_extra,
1089 enter_hut, frighten_hut);
1090}
1091
1092/**********************************************************************/
1095 void api_edit_unit_moving_disallow(lua_State *L, Unit *punit)
1096{
1097 LUASCRIPT_CHECK_STATE(L);
1098 LUASCRIPT_CHECK_SELF(L, punit);
1099
1100 if (punit != NULL) {
1101 punit->stay = TRUE;
1102 }
1103}
1104
1105/**********************************************************************/
1108 void api_edit_unit_moving_allow(lua_State *L, Unit *punit)
1109{
1110 LUASCRIPT_CHECK_STATE(L);
1111 LUASCRIPT_CHECK_SELF(L, punit);
1112
1113 if (punit != NULL) {
1114 punit->stay = FALSE;
1115 }
1116}
1117
1118/**********************************************************************/
1121 void api_edit_city_add_history(lua_State *L, City *pcity, int amount)
1122{
1123 LUASCRIPT_CHECK_STATE(L);
1124 LUASCRIPT_CHECK_SELF(L, pcity);
1125
1126 pcity->history += amount;
1127}
1128
1129/**********************************************************************/
1132 void api_edit_player_add_history(lua_State *L, Player *pplayer, int amount)
1133{
1134 LUASCRIPT_CHECK_STATE(L);
1135 LUASCRIPT_CHECK_SELF(L, pplayer);
1136
1137 pplayer->history += amount;
1138}
1139
1140/**********************************************************************/
1151 void api_edit_player_give_bulbs(lua_State *L, Player *pplayer, int amount,
1152 Tech_Type *tech)
1153{
1154 struct research *presearch;
1155
1156 LUASCRIPT_CHECK_STATE(L);
1157 LUASCRIPT_CHECK_SELF(L, pplayer);
1158 presearch = research_get(pplayer);
1159 fc_assert_ret(presearch);
1160
1161 if (!tech) {
1162 update_bulbs(pplayer, amount, TRUE, TRUE);
1163
1164 send_research_info(presearch, NULL);
1165 } else if (advance_number(tech) == presearch->researching) {
1166 update_bulbs(pplayer, amount, TRUE, FALSE);
1167 /* Clean the saved tech to get no surprizes switching */
1168 presearch->researching_saved = A_UNKNOWN;
1169
1170 send_research_info(presearch, NULL);
1171 } else {
1172 /* Sometimes we may set negative bulbs, it's normal though lurking */
1173 if (game.server.multiresearch) {
1174 presearch->inventions[advance_number(tech)].bulbs_researched_saved
1175 += amount;
1176 /* Currently, multiresearch data are not sent to clients */
1177 } else {
1178 int oldb = presearch->bulbs_researched;
1179
1180 /* NOTE: We can set a tech we already know / can't research here.
1181 * Probably it's safe as we can't switch into it any way. */
1182 if (presearch->researching_saved != advance_number(tech)) {
1183 presearch->researching_saved = advance_number(tech);
1184 presearch->bulbs_researching_saved
1185 = amount + presearch->free_bulbs;
1186 } else {
1187 presearch->bulbs_researching_saved
1188 += amount + presearch->free_bulbs;
1189 }
1190 /* For consistency, modify current bulbs alongside
1191 * (sometimes getting into "overresearch" situation, but ok) */
1192 presearch->bulbs_researched = amount
1193 - amount * game.server.techpenalty / 100 + presearch->free_bulbs;
1194 if (oldb != presearch->bulbs_researched) {
1195 send_research_info(presearch, NULL);
1196 }
1197 }
1198 }
1199}
action_get_actor_kind
enum action_actor_kind action_get_actor_kind(const struct action *paction)
Definition actions.c:1850
is_action_enabled_unit_on_self
bool is_action_enabled_unit_on_self(const action_id wanted_action, const struct unit *actor_unit)
Definition actions.c:4223
is_action_enabled_unit_on_stack
bool is_action_enabled_unit_on_stack(const struct civ_map *nmap, const action_id wanted_action, const struct unit *actor_unit, const struct tile *target_tile)
Definition actions.c:3997
is_action_enabled_unit_on_tile
bool is_action_enabled_unit_on_tile(const struct civ_map *nmap, const action_id wanted_action, const struct unit *actor_unit, const struct tile *target_tile, const struct extra_type *target_extra)
Definition actions.c:4073
is_action_enabled_unit_on_city
bool is_action_enabled_unit_on_city(const struct civ_map *nmap, const action_id wanted_action, const struct unit *actor_unit, const struct city *target_city)
Definition actions.c:3832
is_action_enabled_unit_on_extras
bool is_action_enabled_unit_on_extras(const action_id wanted_action, const struct unit *actor_unit, const struct tile *target_tile, const struct extra_type *target_extra)
Definition actions.c:4150
is_action_enabled_unit_on_unit
bool is_action_enabled_unit_on_unit(const struct civ_map *nmap, const action_id wanted_action, const struct unit *actor_unit, const struct unit *target_unit)
Definition actions.c:3909
action_get_target_kind
enum action_target_kind action_get_target_kind(const struct action *paction)
Definition actions.c:1860
action_has_result
#define action_has_result(_act_, _res_)
Definition actions.h:429
default_ai_type_name
const char * default_ai_type_name(void)
Definition aiiface.c:266
aiiface.h
api_game_find.h
ur_transform_unit
static bool ur_transform_unit(struct unit *punit, const struct unit_type *to_unit, int vet_loss)
Definition api_server_edit.c:72
api_edit_perform_action_unit_vs_tile_extra
bool api_edit_perform_action_unit_vs_tile_extra(lua_State *L, Unit *punit, Action *paction, Tile *tgt, const char *sub_tgt)
Definition api_server_edit.c:418
api_edit_perform_action_unit_vs_tile
bool api_edit_perform_action_unit_vs_tile(lua_State *L, Unit *punit, Action *paction, Tile *tgt)
Definition api_server_edit.c:362
api_edit_climate_change
void api_edit_climate_change(lua_State *L, enum climate_change_type type, int effect)
Definition api_server_edit.c:1004
api_edit_player_give_bulbs
void api_edit_player_give_bulbs(lua_State *L, Player *pplayer, int amount, Tech_Type *tech)
Definition api_server_edit.c:1151
api_edit_unit_moving_allow
void api_edit_unit_moving_allow(lua_State *L, Unit *punit)
Definition api_server_edit.c:1108
api_edit_remove_city
void api_edit_remove_city(lua_State *L, City *pcity)
Definition api_server_edit.c:623
api_edit_trait_mod_set
bool api_edit_trait_mod_set(lua_State *L, Player *pplayer, const char *tname, const int mod)
Definition api_server_edit.c:850
api_edit_unleash_barbarians
bool api_edit_unleash_barbarians(lua_State *L, Tile *ptile)
Definition api_server_edit.c:59
api_edit_remove_building
void api_edit_remove_building(lua_State *L, City *pcity, Building_Type *impr)
Definition api_server_edit.c:694
api_edit_player_victory
void api_edit_player_victory(lua_State *L, Player *pplayer)
Definition api_server_edit.c:1048
api_edit_create_extra
void api_edit_create_extra(lua_State *L, Tile *ptile, const char *name)
Definition api_server_edit.c:895
api_edit_create_unit
Unit * api_edit_create_unit(lua_State *L, Player *pplayer, Tile *ptile, Unit_Type *ptype, int veteran_level, City *homecity, int moves_left)
Definition api_server_edit.c:113
api_edit_perform_action_unit_vs_unit
bool api_edit_perform_action_unit_vs_unit(lua_State *L, Unit *punit, Action *paction, Unit *tgt)
Definition api_server_edit.c:336
api_edit_player_add_history
void api_edit_player_add_history(lua_State *L, Player *pplayer, int amount)
Definition api_server_edit.c:1132
api_edit_give_technology
Tech_Type * api_edit_give_technology(lua_State *L, Player *pplayer, Tech_Type *ptech, int cost, bool notify, const char *reason)
Definition api_server_edit.c:781
api_edit_perform_action_unit_vs_city_impr
bool api_edit_perform_action_unit_vs_city_impr(lua_State *L, Unit *punit, Action *paction, City *tgt, Building_Type *sub_tgt)
Definition api_server_edit.c:284
api_edit_create_building
void api_edit_create_building(lua_State *L, City *pcity, Building_Type *impr)
Definition api_server_edit.c:646
api_edit_create_unit_full
Unit * api_edit_create_unit_full(lua_State *L, Player *pplayer, Tile *ptile, Unit_Type *ptype, int veteran_level, City *homecity, int moves_left, int hp_left, Unit *ptransport)
Definition api_server_edit.c:124
api_edit_transfer_city
bool api_edit_transfer_city(lua_State *L, City *pcity, Player *new_owner)
Definition api_server_edit.c:634
api_edit_change_terrain
bool api_edit_change_terrain(lua_State *L, Tile *ptile, Terrain *pterr)
Definition api_server_edit.c:573
api_edit_create_owned_extra
void api_edit_create_owned_extra(lua_State *L, Tile *ptile, const char *name, Player *pplayer)
Definition api_server_edit.c:871
api_edit_tile_show
void api_edit_tile_show(lua_State *L, Tile *ptile, Player *pplayer)
Definition api_server_edit.c:958
api_edit_unit_kill
void api_edit_unit_kill(lua_State *L, Unit *punit, const char *reason, Player *killer)
Definition api_server_edit.c:553
api_edit_tile_hide
bool api_edit_tile_hide(lua_State *L, Tile *ptile, Player *pplayer)
Definition api_server_edit.c:970
api_edit_unit_turn
void api_edit_unit_turn(lua_State *L, Unit *punit, Direction dir)
Definition api_server_edit.c:504
api_edit_place_partisans
void api_edit_place_partisans(lua_State *L, Tile *ptile, Player *pplayer, int count, int sq_radius)
Definition api_server_edit.c:97
api_edit_remove_extra
void api_edit_remove_extra(lua_State *L, Tile *ptile, const char *name)
Definition api_server_edit.c:920
api_edit_tile_set_label
void api_edit_tile_set_label(lua_State *L, Tile *ptile, const char *label)
Definition api_server_edit.c:943
api_edit_create_road
void api_edit_create_road(lua_State *L, Tile *ptile, const char *name)
Definition api_server_edit.c:912
api_edit_perform_action_unit_vs_city
bool api_edit_perform_action_unit_vs_city(lua_State *L, Unit *punit, Action *paction, City *tgt)
Definition api_server_edit.c:260
api_edit_city_add_history
void api_edit_city_add_history(lua_State *L, City *pcity, int amount)
Definition api_server_edit.c:1121
api_edit_create_city
bool api_edit_create_city(lua_State *L, Player *pplayer, Tile *ptile, const char *name)
Definition api_server_edit.c:609
api_edit_unit_teleport
bool api_edit_unit_teleport(lua_State *L, Unit *punit, Tile *dest, Unit *embark_to, bool allow_disembark, bool conquer_city, bool conquer_extra, bool enter_hut, bool frighten_hut)
Definition api_server_edit.c:206
api_edit_unit_moving_disallow
void api_edit_unit_moving_disallow(lua_State *L, Unit *punit)
Definition api_server_edit.c:1095
api_edit_unit_upgrade
bool api_edit_unit_upgrade(lua_State *L, Unit *punit, int vet_loss)
Definition api_server_edit.c:522
api_edit_unit_move
bool api_edit_unit_move(lua_State *L, Unit *punit, Tile *ptile, int movecost, Unit *embark_to, bool disembark, bool conquer_city, bool conquer_extra, bool enter_hut, bool frighten_hut)
Definition api_server_edit.c:1059
api_edit_change_infrapoints
void api_edit_change_infrapoints(lua_State *L, Player *pplayer, int amount)
Definition api_server_edit.c:764
api_edit_perform_action_unit_vs_self
bool api_edit_perform_action_unit_vs_self(lua_State *L, Unit *punit, Action *paction)
Definition api_server_edit.c:480
api_edit_create_player
Player * api_edit_create_player(lua_State *L, const char *username, Nation_Type *pnation, const char *ai)
Definition api_server_edit.c:716
api_edit_unit_transform
bool api_edit_unit_transform(lua_State *L, Unit *punit, Unit_Type *ptype, int vet_loss)
Definition api_server_edit.c:540
api_edit_change_gold
void api_edit_change_gold(lua_State *L, Player *pplayer, int amount)
Definition api_server_edit.c:751
api_edit_civil_war
Player * api_edit_civil_war(lua_State *L, Player *pplayer, int probability)
Definition api_server_edit.c:1019
api_edit_perform_action_unit_vs_city_tech
bool api_edit_perform_action_unit_vs_city_tech(lua_State *L, Unit *punit, Action *paction, City *tgt, Tech_Type *sub_tgt)
Definition api_server_edit.c:310
api_edit_create_base
void api_edit_create_base(lua_State *L, Tile *ptile, const char *name, Player *pplayer)
Definition api_server_edit.c:903
api_server_edit.h
climate_change_type
climate_change_type
Definition api_server_edit.h:23
CLIMATE_CHANGE_GLOBAL_WARMING
@ CLIMATE_CHANGE_GLOBAL_WARMING
Definition api_server_edit.h:24
CLIMATE_CHANGE_NUCLEAR_WINTER
@ CLIMATE_CHANGE_NUCLEAR_WINTER
Definition api_server_edit.h:25
unleash_barbarians
bool unleash_barbarians(struct tile *ptile)
Definition barbarian.c:272
barbarian.h
dbv_clr
void dbv_clr(struct dbv *pdbv, int bit)
Definition bitvector.c:167
city_has_building
bool city_has_building(const struct city *pcity, const struct impr_type *pimprove)
Definition city.c:1231
city_remove_improvement
void city_remove_improvement(struct city *pcity, const struct impr_type *pimprove)
Definition city.c:3359
city_owner
#define city_owner(_pcity_)
Definition city.h:563
city_name_suggestion
const char * city_name_suggestion(struct player *pplayer, struct tile *ptile)
Definition citytools.c:453
send_city_info
void send_city_info(struct player *dest, struct city *pcity)
Definition citytools.c:2343
build_or_move_building
struct city * build_or_move_building(struct city *pcity, struct impr_type *pimprove, struct player **oldcity_owner)
Definition citytools.c:2990
remove_city
void remove_city(struct city *pcity)
Definition citytools.c:1699
create_city_for_player
bool create_city_for_player(struct player *pplayer, struct tile *ptile, const char *name)
Definition citytools.c:1673
transfer_city
bool transfer_city(struct player *ptaker, struct city *pcity, int kill_outside, bool transfer_unit_verbose, bool resolve_stack, bool raze, bool build_free)
Definition citytools.c:1071
citytools.h
auto_arrange_workers
void auto_arrange_workers(struct city *pcity)
Definition cityturn.c:366
city_refresh
bool city_refresh(struct city *pcity)
Definition cityturn.c:159
cityturn.h
incite_cost
char * incite_cost
Definition comments.c:74
console.h
conquer_city
static void conquer_city(QVariant data1, QVariant data2)
Definition dialogs.cpp:1853
enter_hut
static void enter_hut(QVariant data1, QVariant data2)
Definition dialogs.cpp:2658
frighten_hut
static void frighten_hut(QVariant data1, QVariant data2)
Definition dialogs.cpp:2688
punit
struct unit struct city struct unit struct tile struct extra_type const struct act_prob *act_probs int actor_unit_id struct unit struct unit * punit
Definition dialogs_g.h:74
cost
struct unit struct city struct unit struct tile struct extra_type const struct act_prob *act_probs int actor_unit_id struct unit struct unit int cost
Definition dialogs_g.h:74
id
int int id
Definition editgui_g.h:28
extra_type_by_rule_name
struct extra_type * extra_type_by_rule_name(const char *name)
Definition extras.c:212
Tech_type_id
int Tech_type_id
Definition fc_types.h:380
MAX_LEN_NAME
#define MAX_LEN_NAME
Definition fc_types.h:66
IDENTITY_NUMBER_ZERO
#define IDENTITY_NUMBER_ZERO
Definition fc_types.h:92
Q_
#define Q_(String)
Definition fcintl.h:70
ftc_server
const struct ft_color ftc_server
Definition featured_text.c:77
game
struct civ_game game
Definition game.c:62
wld
struct world wld
Definition game.c:63
send_game_info
void send_game_info(struct conn_list *dest)
Definition gamehand.c:907
gamehand.h
owner
struct city * owner
Definition citydlg.c:220
type
GType type
Definition repodlgs.c:1313
is_special_improvement
bool is_special_improvement(const struct impr_type *pimprove)
Definition improvement.c:797
is_wonder
bool is_wonder(const struct impr_type *pimprove)
Definition improvement.c:343
is_great_wonder
bool is_great_wonder(const struct impr_type *pimprove)
Definition improvement.c:772
name
const char * name
Definition inputfile.c:127
fc_assert_ret
#define fc_assert_ret(condition)
Definition log.h:191
fc_assert
#define fc_assert(condition)
Definition log.h:176
fc_assert_ret_val
#define fc_assert_ret_val(condition, val)
Definition log.h:194
fc_assert_action
#define fc_assert_action(condition, action)
Definition log.h:187
LOG_ERROR
@ LOG_ERROR
Definition log.h:30
LOG_NORMAL
@ LOG_NORMAL
Definition log.h:32
log_error
#define log_error(message,...)
Definition log.h:103
luascript_log
void luascript_log(struct fc_lua *fcl, enum log_level level, const char *format,...)
Definition luascript.c:410
luascript_get_fcl
struct fc_lua * luascript_get_fcl(lua_State *L)
Definition luascript.c:367
luascript.h
LUASCRIPT_CHECK_STATE
#define LUASCRIPT_CHECK_STATE(L,...)
Definition luascript.h:117
LUASCRIPT_CHECK_SELF
#define LUASCRIPT_CHECK_SELF(L, value,...)
Definition luascript.h:146
LUASCRIPT_CHECK_ARG_NIL
#define LUASCRIPT_CHECK_ARG_NIL(L, value, narg, type,...)
Definition luascript.h:138
LUASCRIPT_CHECK_ARG
#define LUASCRIPT_CHECK_ARG(L, check, narg, msg,...)
Definition luascript.h:131
LUASCRIPT_CHECK
#define LUASCRIPT_CHECK(L, check, msg,...)
Definition luascript.h:124
Direction
enum direction8 Direction
Definition luascript_types.h:59
same_pos
bool same_pos(const struct tile *tile1, const struct tile *tile2)
Definition map.c:940
map.h
assign_continent_numbers
void assign_continent_numbers(void)
Definition mapgen_utils.c:452
mapgen_utils.h
really_gives_vision
bool really_gives_vision(struct player *me, struct player *them)
Definition maphand.c:345
send_tile_info
void send_tile_info(struct conn_list *dest, struct tile *ptile, bool send_unknown)
Definition maphand.c:491
send_all_known_tiles
void send_all_known_tiles(struct conn_list *dest)
Definition maphand.c:444
need_to_reassign_continents
bool need_to_reassign_continents(const struct terrain *oldter, const struct terrain *newter)
Definition maphand.c:1921
climate_change
void climate_change(bool warming, int effect)
Definition maphand.c:133
create_extra
void create_extra(struct tile *ptile, struct extra_type *pextra, struct player *pplayer)
Definition maphand.c:2521
map_show_tile
void map_show_tile(struct player *src_player, struct tile *ptile)
Definition maphand.c:768
tile_change_side_effects
void tile_change_side_effects(struct tile *ptile, bool refresh_city)
Definition maphand.c:2689
map_is_known_and_seen
bool map_is_known_and_seen(const struct tile *ptile, const struct player *pplayer, enum vision_layer vlayer)
Definition maphand.c:920
fix_tile_on_terrain_change
void fix_tile_on_terrain_change(struct tile *ptile, struct terrain *oldter, bool extend_rivers)
Definition maphand.c:1959
update_tile_knowledge
void update_tile_knowledge(struct tile *ptile)
Definition maphand.c:1436
maphand.h
can_exist_at_tile
bool can_exist_at_tile(const struct civ_map *nmap, const struct unit_type *utype, const struct tile *ptile)
Definition movement.c:290
unit_move_to_tile_test
enum unit_move_result unit_move_to_tile_test(const struct civ_map *nmap, const struct unit *punit, enum unit_activity activity, const struct tile *src_tile, const struct tile *dst_tile, bool igzoc, bool enter_transport, struct unit *embark_to, bool enter_enemy_city)
Definition movement.c:630
can_unit_exist_at_tile
bool can_unit_exist_at_tile(const struct civ_map *nmap, const struct unit *punit, const struct tile *ptile)
Definition movement.c:319
unit_teleport_to_tile_test
enum unit_move_result unit_teleport_to_tile_test(const struct civ_map *nmap, const struct unit *punit, enum unit_activity activity, const struct tile *src_tile, const struct tile *dst_tile, bool enter_transport, struct unit *embark_to, bool enter_enemy_city)
Definition movement.c:774
movement.h
MR_OK
@ MR_OK
Definition movement.h:35
nation_plural_for_player
const char * nation_plural_for_player(const struct player *pplayer)
Definition nation.c:178
notify_research
void notify_research(const struct research *presearch, const struct player *exclude, enum event_type event, const struct ft_color color, const char *format,...)
Definition notify.c:394
notify_player
void notify_player(const struct player *pplayer, const struct tile *ptile, enum event_type event, const struct ft_color color, const char *format,...)
Definition notify.c:292
notify_research_embassies
void notify_research_embassies(const struct research *presearch, const struct player *exclude, enum event_type event, const struct ft_color color, const char *format,...)
Definition notify.c:434
notify.h
pplayers_allied
bool pplayers_allied(const struct player *pplayer, const struct player *pplayer2)
Definition player.c:1405
player_status_add
void player_status_add(struct player *plr, enum player_status pstatus)
Definition plrhand.c:3208
civil_war_triggered
bool civil_war_triggered(struct player *pplayer)
Definition plrhand.c:2951
send_player_info_c
void send_player_info_c(struct player *src, struct conn_list *dest)
Definition plrhand.c:1142
civil_war
struct player * civil_war(struct player *pplayer)
Definition plrhand.c:3001
civil_war_possible
bool civil_war_possible(struct player *pplayer, bool conquering_city, bool honour_server_option)
Definition plrhand.c:2904
plrhand.h
rand.h
fc_rand
#define fc_rand(_size)
Definition rand.h:56
research_advance_name_translation
const char * research_advance_name_translation(const struct research *presearch, Tech_type_id tech)
Definition research.c:273
research_get
struct research * research_get(const struct player *pplayer)
Definition research.c:128
research_invention_state
enum tech_state research_invention_state(const struct research *presearch, Tech_type_id tech)
Definition research.c:619
research_pretty_name
int research_pretty_name(const struct research *presearch, char *buf, size_t buf_len)
Definition research.c:169
research.h
script_server.h
MAX
#define MAX(x, y)
Definition shared.h:54
game_was_started
bool game_was_started(void)
Definition srv_main.c:349
server_state
enum server_states server_state(void)
Definition srv_main.c:333
srv_main.h
create_command_newcomer
enum rfc_status create_command_newcomer(const char *name, const char *ai, bool check, struct nation_type *pnation, struct player **newplayer, char *buf, size_t buflen)
Definition stdinhand.c:811
create_command_pregame
enum rfc_status create_command_pregame(const char *name, const char *ai, bool check, struct player **newplayer, char *buf, size_t buflen)
Definition stdinhand.c:995
stdinhand.h
action
Definition actions.h:360
advance
Definition tech.h:124
ai_trait::mod
int mod
Definition traits.h:39
city
Definition city.h:320
city::history
int history
Definition city.h:410
city::id
int id
Definition city.h:326
civ_game::multiresearch
bool multiresearch
Definition game.h:163
civ_game::diplbulbcost
int diplbulbcost
Definition game.h:139
civ_game::conquercost
int conquercost
Definition game.h:136
civ_game::freecost
int freecost
Definition game.h:148
civ_game::server
struct civ_game::@31::@35 server
civ_game::techpenalty
int techpenalty
Definition game.h:196
civ_map
Definition map_types.h:71
effect
Definition effects.h:365
extra_type
Definition extras.h:88
extra_type::id
int id
Definition extras.h:89
fc_lua
Definition luascript.h:44
impr_type
Definition improvement.h:50
nation_type
Definition nation.h:98
player_ai::traits
struct ai_trait * traits
Definition player.h:124
player_economic::infra_points
int infra_points
Definition player.h:65
player_economic::gold
int gold
Definition player.h:61
player
Definition player.h:247
player::ai_common
struct player_ai ai_common
Definition player.h:286
player::tile_known
struct dbv tile_known
Definition player.h:308
player::connections
struct conn_list * connections
Definition player.h:296
player::economic
struct player_economic economic
Definition player.h:282
player::history
int history
Definition player.h:314
research
Definition research.h:39
terrain
Definition terrain.h:182
tile
Definition tile.h:50
unit_type
Definition unittype.h:500
unit
Definition unit.h:138
unit::moves_left
int moves_left
Definition unit.h:150
unit::id
int id
Definition unit.h:145
unit::stay
bool stay
Definition unit.h:205
unit::facing
enum direction8 facing
Definition unit.h:142
unit::homecity
int homecity
Definition unit.h:146
unit::veteran
int veteran
Definition unit.h:152
veteran_level
Definition unittype.h:486
world::map
struct civ_map map
Definition world_object.h:38
fc_strcasecmp
int fc_strcasecmp(const char *str0, const char *str1)
Definition support.c:189
TRUE
#define TRUE
Definition support.h:46
FALSE
#define FALSE
Definition support.h:47
advance_by_number
struct advance * advance_by_number(const Tech_type_id atype)
Definition tech.c:107
is_future_tech
bool is_future_tech(Tech_type_id tech)
Definition tech.c:281
advance_number
Tech_type_id advance_number(const struct advance *padvance)
Definition tech.c:98
A_UNKNOWN
#define A_UNKNOWN
Definition tech.h:49
found_new_tech
void found_new_tech(struct research *presearch, Tech_type_id tech_found, bool was_discovery, bool saving_bulbs)
Definition techtools.c:347
research_apply_penalty
void research_apply_penalty(struct research *presearch, Tech_type_id tech, int penalty_percent)
Definition techtools.c:67
pick_free_tech
Tech_type_id pick_free_tech(struct research *presearch)
Definition techtools.c:1387
send_research_info
void send_research_info(const struct research *presearch, const struct conn_list *dest)
Definition techtools.c:293
script_tech_learned
void script_tech_learned(struct research *presearch, struct player *originating_plr, struct advance *tech, const char *reason)
Definition techtools.c:84
update_bulbs
void update_bulbs(struct player *pplayer, int bulbs, bool check_tech, bool free_bulbs)
Definition techtools.c:654
techtools.h
terrain_has_flag
#define terrain_has_flag(terr, flag)
Definition terrain.h:283
tile_change_terrain
void tile_change_terrain(struct tile *ptile, struct terrain *pterrain)
Definition tile.c:496
tile_extra_rm_apply
bool tile_extra_rm_apply(struct tile *ptile, struct extra_type *tgt)
Definition tile.c:601
tile_set_label
bool tile_set_label(struct tile *ptile, const char *label)
Definition tile.c:1095
tile_city
struct city * tile_city(const struct tile *ptile)
Definition tile.c:83
tile_index
#define tile_index(_pt_)
Definition tile.h:88
tile_terrain
#define tile_terrain(_tile)
Definition tile.h:110
tile_has_extra
#define tile_has_extra(ptile, pextra)
Definition tile.h:147
trade_partners_iterate_end
#define trade_partners_iterate_end
Definition traderoutes.h:166
trade_partners_iterate
#define trade_partners_iterate(c, p)
Definition traderoutes.h:161
unit_transform_result
enum unit_upgrade_result unit_transform_result(const struct civ_map *nmap, const struct unit *punit, const struct unit_type *to_unittype)
Definition unit.c:1952
unit_virtual_destroy
void unit_virtual_destroy(struct unit *punit)
Definition unit.c:1725
unit_transported
bool unit_transported(const struct unit *pcargo)
Definition unit.c:2421
could_unit_be_in_transport
bool could_unit_be_in_transport(const struct unit *pcargo, const struct unit *ptrans)
Definition unit.c:664
unit_tile
#define unit_tile(_pu)
Definition unit.h:390
unit_owner
#define unit_owner(_pu)
Definition unit.h:389
UU_OK
@ UU_OK
Definition unit.h:61
is_non_allied_unit_tile
static bool is_non_allied_unit_tile(const struct tile *ptile, const struct player *pplayer)
Definition unit.h:425
unit_perform_action
bool unit_perform_action(struct player *pplayer, const int actor_id, const int target_id, const int sub_tgt_id_incoming, const char *name, const action_id action_type, const enum action_requester requester)
Definition unithand.c:3311
unithand.h
place_partisans
void place_partisans(struct tile *pcenter, struct player *powner, int count, int sq_radius)
Definition unittools.c:1161
transform_unit
void transform_unit(struct unit *punit, const struct unit_type *to_unit, int vet_loss)
Definition unittools.c:1549
send_unit_info
void send_unit_info(struct conn_list *dest, struct unit *punit)
Definition unittools.c:2725
place_unit
bool place_unit(struct unit *punit, struct player *pplayer, struct city *pcity, struct unit *ptrans, bool force)
Definition unittools.c:1709
unit_virtual_prepare
struct unit * unit_virtual_prepare(struct player *pplayer, struct tile *ptile, const struct unit_type *type, int veteran_level, int homecity_id, int moves_left, int hp_left)
Definition unittools.c:1661
wipe_unit
void wipe_unit(struct unit *punit, enum unit_loss_reason reason, struct player *killer)
Definition unittools.c:2135
unit_move
bool unit_move(struct unit *punit, struct tile *pdesttile, int move_cost, struct unit *embark_to, bool find_embark_target, bool conquer_city_allowed, bool conquer_extras_allowed, bool enter_hut, bool frighten_hut)
Definition unittools.c:3916
unittools.h
unit_type_get
const struct unit_type * unit_type_get(const struct unit *punit)
Definition unittype.c:123
unit_type_array_first
struct unit_type * unit_type_array_first(void)
Definition unittype.c:58
num_role_units
int num_role_units(int role)
Definition unittype.c:2203
utype_player_already_has_this_unique
bool utype_player_already_has_this_unique(const struct player *pplayer, const struct unit_type *putype)
Definition unittype.c:1927
can_upgrade_unittype
const struct unit_type * can_upgrade_unittype(const struct player *pplayer, const struct unit_type *punittype)
Definition unittype.c:1703
utype_veteran_levels
int utype_veteran_levels(const struct unit_type *punittype)
Definition unittype.c:2613
utype_rule_name
const char * utype_rule_name(const struct unit_type *punittype)
Definition unittype.c:1578
unit_type_array_last
const struct unit_type * unit_type_array_last(void)
Definition unittype.c:69
unittype.h