VERTREIBE Kommando (expel).

Braucht noch Fehlermeldungen.

conf/keywords.json

@@ -36,6 +36,7 @@
             "maketemp": ["MACHE TEMP", "MACHETEMP"],
             "move" : "NACH",
             "password" : "PASSWORT",
+            "expel" : "VERTREIBE",
             "loot" : ["PLÜNDERE", "PLÜNDERN"],
             "recruit": ["REKRUTIERE", "REKRUTIEREN"],
             "reserve": ["RESERVIERE", "RESERVIEREN"],

res/translations/strings.de.po

@@ -2496,6 +2496,10 @@ msgctxt "keyword"
 msgid "loot"
 msgstr "PLÜNDERE"
 
+msgctxt "keyword"
+msgid "expel"
+msgstr "VERTREIBE"
+
 msgctxt "calendar"
 msgid "month_1"
 msgstr "Feldsegen"

res/translations/strings.en.po

@@ -2167,6 +2167,10 @@ msgctxt "keyword"
 msgid "loot"
 msgstr "loot"
 
+msgctxt "keyword"
+msgid "expel"
+msgstr "EXPEL"
+
 msgctxt "keyword"
 msgid "guard"
 msgstr "GUARD"

src/laws.c

@@ -3939,11 +3939,12 @@ void init_processor(void)
         add_proc_global(p, defaultorders, "Defaults setzen");
     }
     add_proc_global(p, demographics, "Nahrung, Seuchen, Wachstum, Wanderung");
+    p += 10;
 
     if (!keyword_disabled(K_SORT)) {
-        p += 10;
+        add_proc_region(p, do_sort, "Einheiten sortieren");
-        add_proc_global(p, restack_units, "Einheiten sortieren");
     }
+    add_proc_order(p, K_EXPEL, expel_cmd, 0, "Einheiten verjagen");
     if (!keyword_disabled(K_NUMBER)) {
         add_proc_order(p, K_NUMBER, renumber_cmd, 0, "Neue Nummern (Einheiten)");
         p += 10;
@@ -4187,3 +4188,54 @@ int locale_cmd(unit * u, order * ord)
     }
     return 0;
 }
+
+static void expel_building(unit *u, unit *u2, order *ord) {
+    building *b = u->building;
+
+    if (u != building_owner(b)) {
+        /* error: must be the owner */
+        cmistake(u, ord, 5, MSG_EVENT);
+    }
+    else {
+        leave_building(u2);
+    }
+}
+
+static void expel_ship(unit *u, unit *u2, order *ord) {
+    ship *sh = u->ship;
+    if (u != ship_owner(sh)) {
+        /* error: must be the owner */
+        cmistake(u, ord, 146, MSG_EVENT);
+    }
+    else if (!u->region->land) {
+        /* error: must not be at sea */
+        ADDMSG(&u->faction->msgs,
+            msg_feedback(u, ord, "error_onlandonly", NULL));
+    }
+    else {
+        leave_ship(u2);
+    }
+}
+
+int expel_cmd(unit *u, order *ord) {
+    faction *f = u->faction;
+    unit *u2;
+    init_order(ord, f->locale);
+    getunit(u->region, u->faction, &u2);
+    if (u2 == NULL) {
+        /* error: target unit not found */
+        ADDMSG(&u->faction->msgs,
+            msg_feedback(u, ord, "feedback_unit_not_found", NULL));
+        return 0;
+    }
+    if (u->building) {
+        expel_building(u, u2, ord);
+    }
+    else if (u->ship) {
+        expel_ship(u, u2, ord);
+    }
+    else {
+        /* error: unit must be owner of a ship or building */
+    }
+    return 0;
+}

src/laws.h

@@ -50,6 +50,7 @@ extern "C" {
     bool long_order_allowed(const struct unit *u, bool flags_only);
     bool password_wellformed(const char *password);
 
+    int expel_cmd(struct unit *u, struct order *ord);
     int locale_cmd(struct unit *u, struct order *ord);
     int password_cmd(struct unit *u, struct order *ord);
     int banner_cmd(struct unit *u, struct order *ord);

src/laws.test.c

@@ -173,6 +173,59 @@ static void test_enter_ship(CuTest * tc)
     test_teardown();
 }
 
+static void test_expel_building(CuTest *tc) {
+    unit *u1, *u2;
+    order *ord;
+    building *b;
+
+    test_setup();
+    u1 = test_create_unit(test_create_faction(), test_create_plain(0, 0));
+    u2 = test_create_unit(test_create_faction(), u1->region);
+    b = u2->building = u1->building = test_create_building(u1->region, NULL);
+    CuAssertPtrEquals(tc, u1, building_owner(b));
+
+    ord = create_order(K_EXPEL, u2->faction->locale, "%s", itoa36(u1->no));
+    expel_cmd(u2, ord);
+    /* Nothing happened: */
+    CuAssertPtrEquals(tc, u1, building_owner(b));
+    CuAssertPtrEquals(tc, b, u1->building);
+    CuAssertPtrEquals(tc, b, u2->building);
+    free_order(ord);
+
+    ord = create_order(K_EXPEL, u1->faction->locale, "%s", itoa36(u2->no));
+    expel_cmd(u1, ord);
+    /* owner has expelled u2: */
+    CuAssertPtrEquals(tc, NULL, u2->building);
+    test_teardown();
+}
+
+static void test_expel_ship(CuTest *tc) {
+    unit *u1, *u2;
+    order *ord;
+    ship *sh;
+
+    test_setup();
+    u1 = test_create_unit(test_create_faction(), test_create_plain(0, 0));
+    u2 = test_create_unit(test_create_faction(), u1->region);
+    sh = u2->ship = u1->ship = test_create_ship(u1->region, NULL);
+    CuAssertPtrEquals(tc, u1, ship_owner(sh));
+
+    ord = create_order(K_EXPEL, u2->faction->locale, "%s", itoa36(u1->no));
+    expel_cmd(u2, ord);
+    /* Nothing happened: */
+    CuAssertPtrEquals(tc, u1, ship_owner(sh));
+    CuAssertPtrEquals(tc, sh, u1->ship);
+    CuAssertPtrEquals(tc, sh, u2->ship);
+    free_order(ord);
+
+    ord = create_order(K_EXPEL, u1->faction->locale, "%s", itoa36(u2->no));
+    expel_cmd(u1, ord);
+    /* owner has expelled u2: */
+    CuAssertPtrEquals(tc, NULL, u2->ship);
+    CuAssertPtrEquals(tc, sh, leftship(u2));
+    test_teardown();
+}
+
 static void test_display_cmd(CuTest *tc) {
     unit *u;
     faction *f;
@@ -2320,6 +2373,8 @@ CuSuite *get_laws_suite(void)
     SUITE_ADD_TEST(suite, test_enter_building);
     SUITE_ADD_TEST(suite, test_enter_ship);
     SUITE_ADD_TEST(suite, test_display_cmd);
+    SUITE_ADD_TEST(suite, test_expel_building);
+    SUITE_ADD_TEST(suite, test_expel_ship);
     SUITE_ADD_TEST(suite, test_rule_force_leave);
     SUITE_ADD_TEST(suite, test_force_leave_buildings);
     SUITE_ADD_TEST(suite, test_force_leave_ships);

src/sort.c

@@ -13,7 +13,7 @@
 #include "util/param.h"
 #include "util/parser.h"
 
-void sort_before(unit *v, unit **up) {
+static void sort_before(unit *v, unit **up) {
     unit *u = *up;
     region *r = u->region;
     unit **vp = &r->units;
@@ -24,10 +24,8 @@ void sort_before(unit *v, unit **up) {
     u->next = v;
 }
 
-void restack_units(void)
+void do_sort(region *r)
 {
-    region *r;
-    for (r = regions; r; r = r->next) {
     unit **up = &r->units;
     bool sorted = false;
     while (*up) {
@@ -120,6 +118,13 @@ void restack_units(void)
             freset(u, UFL_MARK);
         }
     }
+}
+
+void restack_units(void)
+{
+    region *r;
+    for (r = regions; r; r = r->next) {
+        do_sort(r);
     }
 }
 

src/sort.h

@@ -1,3 +1,6 @@
 #pragma once
 
+struct region;
+
 void restack_units(void);
+void do_sort(struct region *r);

src/spy.c

@@ -119,7 +119,7 @@ int spy_cmd(unit * u, struct order *ord)
 
     if (!target) {
         ADDMSG(&u->faction->msgs,
-            msg_feedback(u, u->thisorder, "feedback_unit_not_found", ""));
+            msg_feedback(u, u->thisorder, "feedback_unit_not_found", NULL));
         return 0;
     }
     if (effskill(u, SK_SPY, NULL) < 1) {

src/util/keyword.c

@@ -156,7 +156,8 @@ const char *keywords[MAXKEYWORDS] = {
     "promote",
     "pay",
     "loot",
+    "expel",
     "autostudy",
-    "locale",
+    "locale"
 };
 

src/util/keyword.h

@@ -71,6 +71,7 @@ extern "C"
         K_PROMOTION,
         K_PAY,
         K_LOOT,
+        K_EXPEL,
         K_AUTOSTUDY,
         K_LOCALE,
         MAXKEYWORDS,