From 936664a20b34af590d791bfe224b216bb508ef90 Mon Sep 17 00:00:00 2001
From: gumi <git@gumi.ca>
Date: Fri, 12 Jun 2020 02:01:43 +0000
Subject: add a command to force a divorce

---
 world/map/conf/permissions.txt     |  2 ++
 world/map/npc/commands/_import.txt |  1 +
 world/map/npc/commands/divorce.txt | 28 ++++++++++++++++++++++++++++
 3 files changed, 31 insertions(+)
 create mode 100644 world/map/npc/commands/divorce.txt

diff --git a/world/map/conf/permissions.txt b/world/map/conf/permissions.txt
index 856b2dae..31447c89 100644
--- a/world/map/conf/permissions.txt
+++ b/world/map/conf/permissions.txt
@@ -14,6 +14,8 @@ CMD_MUTE                60
 CMD_NPCTALK             40
 CMD_MUSIC               40
 CMD_AUTOMOD             60
+CMD_DIVORCE             40
+CMD_CHARDIVORCE         60
 
 // special permissions below
 MAP_LOUNGE              20  // level to enter the GM Lounge & talk to Numa
diff --git a/world/map/npc/commands/_import.txt b/world/map/npc/commands/_import.txt
index 0242b0dc..f04be97a 100644
--- a/world/map/npc/commands/_import.txt
+++ b/world/map/npc/commands/_import.txt
@@ -19,3 +19,4 @@ npc: npc/commands/automod.txt
 npc: npc/commands/valentine.txt
 npc: npc/commands/bosspoints.txt
 npc: npc/commands/deaths.txt
+npc: npc/commands/divorce.txt
diff --git a/world/map/npc/commands/divorce.txt b/world/map/npc/commands/divorce.txt
new file mode 100644
index 00000000..954e4e92
--- /dev/null
+++ b/world/map/npc/commands/divorce.txt
@@ -0,0 +1,28 @@
+-|script|@divorce|32767
+{
+    callfunc "argv_splitter";
+    set .@n$, if_then_else(@argv$[1] != "", "char", "") + "divorce";
+    if (GM < CMD_DIVORCE && GM < G_SYSOP) goto L_GM; // check if you can use it on self
+    set .@target_id, BL_ID;
+    if (@argv$[1] != "") set .@target_id, getcharid(3, @argv$[1]);
+    if (@argv$[1] != "" && !(isloggedin(.@target_id))) goto L_Failed; // do NOT fallback to self
+    if (@argv$[1] != "" && GM < CMD_CHARDIVORCE && GM < G_SYSOP) goto L_GM; // when target is not self, use chardivorce permission
+
+    set PARTNER, 0, .@target_id;
+    gmlog "@"+.@n$+" " + @args$;
+    message strcharinfo(0), .@n$+" : The operation succeeded.";
+    end;
+
+L_Failed:
+    message strcharinfo(0), .@n$+" : Impossible to attach to the target player. Did you try putting the name in \"quotation marks\"?";
+    end;
+
+L_GM:
+    message strcharinfo(0), .@n$+" : GM command is level "+ if_then_else(@argv$[1] != "", CMD_CHARDIVORCE, CMD_DIVORCE) +", but you are level " + GM;
+    end;
+
+OnInit:
+    registercmd chr(ATCMD_SYMBOL) + "divorce", strnpcinfo(0);
+    registercmd chr(ATCMD_SYMBOL) + "chardivorce", strnpcinfo(0);
+    end;
+}
-- 
cgit v1.2.3-60-g2f50