summaryrefslogtreecommitdiff
path: root/world
diff options
context:
space:
mode:
Diffstat (limited to 'world')
-rw-r--r--world/map/npc/functions/gm_island.txt30
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;