@grantpower <someone>

Transfers a legendary weapon. (Except Lightbringer and AegisShield)

1 files changed, 57 insertions, 0 deletions

diff --git a/npc/commands/grantpower.txt b/npc/commands/grantpower.txt
new file mode 100644
index 000000000..96a7ac1c2
--- /dev/null
+++ b/npc/commands/grantpower.txt
@@ -0,0 +1,57 @@
+// TMW2 Script
+//
+// @grantpower <username>
+// Grants a legendary weapon to <username>. Cannot be undone.
+// Only way to bypass restrictions on legendary weapons.
+
+-	script	@grantpower	32767,{
+    end;
+
+OnCall:
+    .@request$ = "";
+	.@request$ += implode(.@atcmd_parameters$, " ");
+
+    // Player is not attached
+    .@id = getcharid(0, .@request$);
+    if (!.@id) {
+        Exception("Player not found.", RB_ISFATAL|RB_DISPBOTTOM);
+    }
+    mes ".:: " + l("Grant Power") + " ::.";
+    mesc l("You're about to transfer a legendary weapon to @@.", .@request$), 1;
+    mesc l("This action CANNOT BE UNDONE."), 1;
+    mes l("Are you sure?");
+    if (askyesno() == ASK_NO)
+        close;
+    mes "";
+    mes ".:: " + l("Grant Power") + " ::.";
+    mes l("Please select the weapon to transfer.");
+    menuint
+        l("None"), 0,
+        rif(countitem(DemureAxe), l("Demure's Axe")), DemureAxe,
+        rif(countitem(Tyranny), l("Tyranny")), Tyranny,
+        rif(countitem(Runestaff), l("Runestaff")), Runestaff,
+        //rif(countitem(AegisShield), l("Aegis Shield")), AegisShield,
+        l("Abort"), 0;
+    mes "";
+    .@ori=getcharid(0);
+    .@ite=@menuret;
+    if (!.@ite)
+        close;
+
+    // Transfer the weapon
+    if (attachrid(.@id)) {
+        getitembound .@ite, 1, 1; // Account bound or char bound? (1 or 4)
+        dispbottom l("You received the @@ from @@.", getitemlink(.@ite), strcharinfo(0, "someone", .@ori));
+        detachrid();
+        attachrid(.@ori);
+        delitem .@ite, 1;
+    } else {
+        Exception("Player not found.", RB_ISFATAL|RB_SPEECH);
+    }
+
+    close;
+
+OnInit:
+    bindatcmd "grantpower", "@grantpower::OnCall", 0, 100, 1;
+}
+