1 files changed, 33 insertions, 0 deletions
diff --git a/world/map/npc/commands/class.txt b/world/map/npc/commands/class.txt
new file mode 100644
index 00000000..f9275591
--- /dev/null
+++ b/world/map/npc/commands/class.txt
@@ -0,0 +1,33 @@
+-|script|@class|32767
+{
+    callfunc "argv_splitter";
+    set .@n$, if_then_else(@argv$[1] != "", "char", "") + "class";
+    if (GM < get(.class, "GM") && 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 < get(.charclass, "GM") && GM < G_SYSOP) goto L_GM; // when target is not self, use charclass permission
+    set .@c, 1; // default to human
+    if (@argv[0] >= 0 || @argv[0] <= 32767) set .@c, @argv[0];
+    set Class, .@c, .@target_id;
+    goto L_Success;
+
+L_Failed:
+    // XXX: should we allow GMs to change class of users that are not logged in?
+    message strcharinfo(0), .@n$+" : Impossible to attach to the target player. Did you try putting the name in \"quotation marks\"?";
+    end;
+
+L_Success:
+    gmlog "@"+.@n$+" " + @args$;
+    message strcharinfo(0), .@n$+" : The operation succeeded.";
+    end;
+
+L_GM:
+    message strcharinfo(0), .@n$+" : GM command is level "+ get(if_then_else(@argv$[1] != "", .charclass, .class), "GM") +", but you are level " + GM;
+    end;
+
+OnInit:
+    registercmd chr(ATCMD_SYMBOL) + "class", strnpcinfo(0);
+    registercmd chr(ATCMD_SYMBOL) + "charclass", strnpcinfo(0);
+    end;
+}