Add 015-8-1 puzzle: Up to 12 traps on the map %%e

1 files changed, 43 insertions, 0 deletions

diff --git a/npc/015-8-1/puzzle.txt b/npc/015-8-1/puzzle.txt
index 6c91c6bf0..105187a8a 100644
--- a/npc/015-8-1/puzzle.txt
+++ b/npc/015-8-1/puzzle.txt
@@ -27,4 +27,47 @@ OnTouch:
 }
 
 
+015-8-1,0,0,0	script	#SaggyBossTrap01	NPC_TRAP,0,0,{
+    end;
+OnTouchNPC:
+OnTouch:
+    // instance_id()
+    SteelTrap(rand2(10, 40), 5, any(0,0,0,1));
+    end;
+
+OnTimer10000:
+    stopnpctimer;
+    setnpctimer 0;
+    setnpcdisplay .name$, NPC_TRAP;
+    end;
+
+
+OnInstanceInit:
+    .@x=rand(20,80);
+    .@y=rand(20,80);
+    movenpc instance_npcname(.name$), .@x, .@y;
+    // It's on a wall, let's remove it
+    if (!checkcell(instance_mapname("015-8-1"), .@x, .@y, cell_chkpass)) {
+        disablenpc instance_npcname(.name$);
+    }
+    end;
+
+OnInit:
+    disablenpc .name$;
+    end;
+}
+
+// Create more traps. (They can be on walls so amount is random >.<)
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap02	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap03	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap04	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap05	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap06	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap07	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap08	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap09	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap10	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap11	NPC_TRAP
+015-8-1,0,0,0	duplicate(#SaggyBossTrap01)	#SaggyBossTrap12	NPC_TRAP
+// twelve traps should be enough