1 files changed, 30 insertions, 0 deletions
diff --git a/world/map/npc/functions/gm_island.txt b/world/map/npc/functions/gm_island.txt
index 3e1127c4..900e0222 100644
--- a/world/map/npc/functions/gm_island.txt
+++ b/world/map/npc/functions/gm_island.txt
@@ -9,6 +9,36 @@ OnInit:
     disablenpc "Gm Event#3";
     end;
 }
+-|script|#Puppet|32767
+{
+    mes "You found me! Now please send my coordinates to staff.";
+    close;
+
+OnSpawn:
+    callfunc "argv_splitter";
+    if (@argv$[4] == "") goto L_Failed;
+    set $@PMAP$, @argv$[0];
+    set $@PX, @argv$[1];
+    set $@PY, @argv$[2];
+    set $@PNAME$, @argv$[3];
+    set $@PNPC, @argv$[4];
+    debugmes "Map "+$@PMAP$+" ID "+$@PNPC;
+   if (puppet($@PMAP$, $@PX, $@PY, $@PNAME$, $@PNPC) < 1) debugmes "Error";
+    set $@PMAP$, "";
+    set $@PX, 0;
+    set $@PY, 0;
+    set $@PNAME$, "";
+    set $@PNPC, 0;
+    end;
+
+L_Failed:
+    message strcharinfo(0), "Syntax: @puppeter MAP X Y NAME NPCID";
+    end;
+
+OnInit:
+    registercmd chr(ATCMD_SYMBOL) + "puppeter", strnpcinfo(0)+"::OnSpawn";
+    end;
+}
 function|script|GmWarp
 {
     if ($@GM_EVENT_WARP == 1) warp "028-1", 110, 30;