1 files changed, 35 insertions, 0 deletions
diff --git a/world/map/npc/functions/gm_island.txt b/world/map/npc/functions/gm_island.txt
index 3e1127c4..e2763bbf 100644
--- a/world/map/npc/functions/gm_island.txt
+++ b/world/map/npc/functions/gm_island.txt
@@ -9,6 +9,41 @@ OnInit:
     disablenpc "Gm Event#3";
     end;
 }
+-|script|#Puppet|32767
+{
+    mes "You found me! Now please send my coordinates to staff.";
+    close;
+
+OnSpawn:
+    if (GM < G_SYSOP) goto L_GM;
+    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];
+   if (puppet($@PMAP$, $@PX, $@PY, $@PNAME$, $@PNPC) > 0)
+            gmlog "@puppeter " + @args$;
+    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;
+
+L_GM:
+    message strcharinfo(0), "puppeter : GM command is level "+ G_SYSOP +", but you are level " + GM;
+    end;
+
+OnInit:
+    registercmd chr(ATCMD_SYMBOL) + "puppeter", strnpcinfo(0)+"::OnSpawn";
+    end;
+}
 function|script|GmWarp
 {
     if ($@GM_EVENT_WARP == 1) warp "028-1", 110, 30;