Initial version of the most powerful power the Town Admin have.

The power to exile a player.
Exiles are not logged anywhere. When exiled, player will not be saved to town.
This affects respawn and Soul Menhir. It can be circumvent by a few bugs/tricks.

1 files changed, 49 insertions, 0 deletions

diff --git a/npc/functions/politics.txt b/npc/functions/politics.txt
index 95469e8bc..3e6cdc31a 100644
--- a/npc/functions/politics.txt
+++ b/npc/functions/politics.txt
@@ -375,6 +375,8 @@ function	script	POL_Manage	{
         l("Lower city taxes"), 35,
         rif(.@CR && .@RP, l("Tax crafters")), 40,
         rif(!.@CR, l("Don't tax crafters")), 41,
+        rif(is_staff(), l("Exile a player")), 70,
+        rif(is_staff(), l("Revert a player exile")), 71,
         l("Resign"), 99;
     mes "";
     switch (@menuret) {
@@ -464,6 +466,53 @@ function	script	POL_Manage	{
             setd(.@town$+"_REPUTATION", .@RP+1);
             mesc l("Crafters no longer pays taxes. (Tax exempt)"), 1;
             break;
+        // Mark 70: Exile
+        case 70:
+            mesc l("Exiled players will not be able to save to menhir."), 1;
+            mesc l("A global announcement will be made."), 1;
+            mesc l("Player must be online for the operation to finish."), 1;
+            next;
+            mesc l("Please insert player name to exile."), 1;
+            input .@ex$;
+            if (.@ex$ == "")
+                break;
+            .@id=getcharid(3, .@ex$);
+            if (.@id < 1) {
+                mesc l("The player is offline or does not exist.");
+                break;
+            }
+            .@town=POL_LocToTP(getarg(0));
+            .@you=getcharid(3);
+            attachrid(.@id);
+            dispbottom l("You have been EXILED from %s by %s.", getarg(0), .@MAYOR$);
+            #EXILED=#EXILED|.@town;
+            detachrid();
+            attachrid(.@you);
+            kamibroadcast(sprintf("%s has EXILED %s from %s.",
+                          .@MAYOR$, .@ex$, getarg(0)));
+            break;
+        case 71:
+            mesc l("Please insert player name to cancel exile."), 1;
+            input .@ex$;
+            if (.@ex$ == "")
+                break;
+            .@id=getcharid(3, .@ex$);
+            if (.@id < 1) {
+                mesc l("The player is offline or does not exist.");
+                break;
+            }
+            .@town=POL_LocToTP(getarg(0));
+            .@you=getcharid(3);
+            attachrid(.@id);
+            if (#EXILED & .@town) {
+                dispbottom l("You are NO LONGER EXILED from %s by %s.", getarg(0), .@MAYOR$);
+                #EXILED=#EXILED^.@town;
+            }
+            detachrid();
+            attachrid(.@you);
+            kamibroadcast(sprintf("%s has ANNULED THE EXILE %s from %s.",
+                          .@MAYOR$, .@ex$, getarg(0)));
+            break;
         // Mark 90: Office
         case 99:
             mesc l("Really resign?"), 1;