From 0aed0edea26764b4debc7104e3a663af25d4142a Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 17 Jun 2019 14:20:38 -0300
Subject: Rolling Stones :> (TODO, ALPHA)

---
 npc/023-3/logic.txt | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

(limited to 'npc/023-3')

diff --git a/npc/023-3/logic.txt b/npc/023-3/logic.txt
index d9320848b..422605410 100644
--- a/npc/023-3/logic.txt
+++ b/npc/023-3/logic.txt
@@ -227,7 +227,53 @@ OnInit:
 // TODO: Spike traps and etc. at the corritor
 // TODO: Rolling Stone Trap
 
+// Delete rolling stones as they hit this wall
+/*023-3,47,40,0	script	#0233DelStone	NPC_HIDDEN,1,0,{
+OnTouch:
+    end;
+
+OnTouchNPC:
+    //percentheal -100, -100;
+    //unitkill(0);
+    unitwarp(0, "023-3", 42, 26);
+    end;
+}
+*/
+// TODO: Rolling Stone core
+023-3,0,0,0	script	#0233RollStone	NPC_HIDDEN,{
+    end;
+OnInit:
+    $@0233_STONEA=monster("023-3", 47, 23, "Rolling Stone", RollingStone, 1);
+    $@0233_STONEB=monster("023-3", 48, 25, "Rolling Stone", RollingStone, 1);
+    $@0233_STONEC=monster("023-3", 47, 30, "Rolling Stone", RollingStone, 1);
+    $@0233_STONED=monster("023-3", 48, 37, "Rolling Stone", RollingStone, 1);
+    initnpctimer;
+    end;
+
+OnTimer250:
+    unitwalk($@0233_STONEA, 47, 40);
+    unitwalk($@0233_STONEC, 47, 40);
+    unitwalk($@0233_STONEB, 48, 40);
+    unitwalk($@0233_STONED, 48, 40);
+
+    getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONEA);
+    if (.@y >= 40)
+        unitwarp($@0233_STONEA, "023-3", 47, 23);
+
+    getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONEB);
+    if (.@y >= 40)
+        unitwarp($@0233_STONEB, "023-3", 48, 23);
 
+    getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONEC);
+    if (.@y >= 40)
+        unitwarp($@0233_STONEC, "023-3", 47, 23);
 
+    getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONED);
+    if (.@y >= 40)
+        unitwarp($@0233_STONED, "023-3", 48, 23);
+
+    initnpctimer;
+    end;
+}
 
 
-- 
cgit v1.2.3-70-g09d2