Add `@getexp` by Hello=)'s request (how I forgot that?)

Also add `@getgexp` which gives guild some exp
(Currently, there are no sources for guild exp in TMW Evolved)

1 files changed, 49 insertions, 0 deletions

diff --git a/npc/commands/exp.txt b/npc/commands/exp.txt
new file mode 100644
index 00000000..b8be2fa0
--- /dev/null
+++ b/npc/commands/exp.txt
@@ -0,0 +1,49 @@
+// TMW2 Script
+// Author: Jesusalva
+
+// @getexp atcommand
+// Gets experience (cannot be negative)
+//
+// group lv: 60
+// group char lv: 60
+// log: True
+
+-	script	@getexp	32767,{
+    end;
+
+OnCall:
+    .@delta$ = .@atcmd_parameters$[0];
+    .@d = atoi(.@delta$);
+
+    getexp .@d, 0;
+    end;
+
+/*
+OnHomun:
+    if (!gethominfo(0)) {
+        dispbottom l("No homunculus found!");
+        end;
+    }
+    .@delta$ = .@atcmd_parameters$[0];
+    .@d = atoi(.@delta$);
+
+    gethomunexp .@d; // [TMW2 Only] [Broken in TMW]
+    end;
+*/
+
+OnGuild:
+    if (getcharid(2) < 1) {
+        dispbottom l("No guild found!");
+        end;
+    }
+    .@delta$ = .@atcmd_parameters$[0];
+    .@d = atoi(.@delta$);
+
+    guildgetexp .@d;
+    end;
+
+OnInit:
+    bindatcmd "getexp", "@getexp::OnCall", 60, 60, 1;
+    //bindatcmd "gethexp", "@getexp::OnHomun", 60, 60, 1;
+    bindatcmd "getgexp", "@getexp::OnGuild", 60, 60, 1;
+}