add a script command to kick players offline

Author:    gumi <git@gumi.ca>
Date:      Fri Jul 24 15:11:14 2020 -0400

You are currently cherry-picking commit 6d131f8.
This reverts commit a22e3af8232b2e72e2c610339b3fd4fc9a0693e9.

1 files changed, 34 insertions, 0 deletions

diff --git a/src/emap/script_buildins.c b/src/emap/script_buildins.c
index b189f0a..d61811c 100644
--- a/src/emap/script_buildins.c
+++ b/src/emap/script_buildins.c
@@ -2605,6 +2605,40 @@ BUILDIN(readBattleParam)
     return true;
 }
 
+BUILDIN(kick)
+{
+    struct map_session_data *tsd = NULL;
+
+    if (script_isstringtype(st, 2)) {
+        tsd = map->nick2sd(script_getstr(st, 2), false);
+    } else {
+        tsd = map->id2sd(script_getnum(st, 2));
+    }
+
+    if (tsd == NULL) {
+        // silently fail
+        script_pushint(st, 0);
+        return true;
+    }
+
+    // clif_authfail_fd reason
+    // see https://github.com/ManaPlus/ManaPlus/blob/master/src/net/eathena/generalrecv.cpp#L48
+    int reason = 15; // default: 15 - disconnection forced by a GM
+
+    if (script_hasdata(st, 3)) {
+        reason = script_getnum(st, 3);
+    }
+
+    if (tsd->fd > 0) {
+        clif->authfail_fd(tsd->fd, reason);
+    } else {
+        map->quit(tsd);
+    }
+
+    script_pushint(st, 1);
+    return true;
+}
+
 
 ///////////////////////////////////////////////////////////////////////////////
 // TMW2 Custom Commands