From 71f5ceed044d3908b971f5f5f6457086e0ebaa30 Mon Sep 17 00:00:00 2001
From: gumi <git@gumi.ca>
Date: Tue, 20 Aug 2019 23:13:56 -0400
Subject: add a command to absolve players

---
 world/map/npc/commands/absolve.txt | 57 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 world/map/npc/commands/absolve.txt

diff --git a/world/map/npc/commands/absolve.txt b/world/map/npc/commands/absolve.txt
new file mode 100644
index 00000000..217fafa7
--- /dev/null
+++ b/world/map/npc/commands/absolve.txt
@@ -0,0 +1,57 @@
+-|script|raise|32767
+{
+    if (GM < 40 && GM < G_SYSOP) end;
+    set .@rid, if_then_else(@args$ != "", getcharid(3, @args$), BL_ID);
+    if (.@rid < 1 || !(isloggedin(.@rid))) end;
+
+    addtimer 0, strnpcinfo(0) + "::OnRaise", .@rid;
+    message strcharinfo(0), "absolve : player absolved.";
+    end;
+
+OnRaise:
+    warp getsavepoint(0), getsavepoint(1), getsavepoint(2);
+    set PC_DIE_COUNTER, 0;
+    set Hp, MaxHp;
+    message strcharinfo(0), "Server : you have been revived.";
+    end;
+
+OnInit:
+    registercmd "@raise", strnpcinfo(0);
+    end;
+}
+
+
+-|script|absolve|32767
+{
+    if (GM < 40 && GM < G_SYSOP) end;
+    set .@rid, if_then_else(@args$ != "", getcharid(3, @args$), BL_ID);
+    if (.@rid < 1 || !(isloggedin(.@rid))) end;
+
+    addtimer 0, strnpcinfo(0) + "::OnRaise", .@rid;
+    message strcharinfo(0), "absolve : player absolved.";
+    end;
+
+OnRaise:
+    set Zeny, 0;
+    getinventorylist;
+    set @item_it, 0;
+    freeloop 1;
+    goto L_Drop; // drop all items
+
+L_Drop:
+    delitem @inventorylist_id[@item_it], @inventorylist_amount[@item_it];
+    set @item_it, @item_it + 1;
+    if (@item_it >= @inventorylist_count) goto L_Raise;
+    goto L_Drop;
+
+L_Raise:
+    warp getsavepoint(0), getsavepoint(1), getsavepoint(2);
+    set PC_DIE_COUNTER, 0;
+    set Hp, 1;
+    message strcharinfo(0), "Server : your sins have been forgiven.";
+    end;
+
+OnInit:
+    registercmd "@absolve", strnpcinfo(0);
+    end;
+}
-- 
cgit v1.2.3-60-g2f50