From 663b284860416b72c8dcee5604aab281855e4675 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Wed, 10 Mar 2021 19:35:52 -0300
Subject: Pentagram code for Fires of Steam event

---
 npc/029-1/pentagram.txt | 68 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 npc/029-1/pentagram.txt

(limited to 'npc/029-1/pentagram.txt')

diff --git a/npc/029-1/pentagram.txt b/npc/029-1/pentagram.txt
new file mode 100644
index 000000000..f38f8e671
--- /dev/null
+++ b/npc/029-1/pentagram.txt
@@ -0,0 +1,68 @@
+// TMW2 scripts.
+// Author:
+//    Jesusalva
+// Description:
+//    Fires of Steam: The Death of Andrei Sakar
+
+//////////////////////////////////////////
+// Pentagram Core
+
+029-1,35,32,0	script	Pentagram#FoS_1	NPC_NO_SPRITE,{
+    .@n$=strnpcinfo(0, "_0");
+    explode(.@ni$, .@n$, "_");
+    .@id=atoi(.@ni$[1]);
+    debugmes "ID %d", .@id;
+    if (.@id < 1) end;
+    if ($FIRESOFSTEAM[.@id] < 1) end;
+
+    mesn;
+    mesq l("Power remaining: %s", fnum($FIRESOFSTEAM[.@id]));
+    next;
+    mesc l("Use items to drain the pentagram. Final result is affected by int!");
+    mesc l("WARNING: Monsters will appear!"), 1;
+    select
+        l("Cancel"),
+        l("Dark Crystal (5 power)"),
+        l("Terranite Ore (3 power)"),
+        l("Coal (1 power)");
+    mes "";
+    switch (@menu) {
+    case 2:
+        .@val=5;.@it=DarkCrystal;
+        break;
+    case 3:
+        .@val=3;.@it=TerraniteOre;
+        break;
+    case 4:
+        .@val=1;.@it=Coal;
+        break;
+    default:
+        close;
+    }
+
+    closeclientdialog;
+    .@val*=countitem(.@it);
+    .@val*=(readparam2(bInt)+100)/100; // Each int gives +1%
+    delitem .@it, countitem(.@it);
+    $FIRESOFSTEAM[.@id]-=.@val;
+    // TODO: Check & unlock
+    if ($FIRESOFSTEAM[.@id] < 1)
+        disablenpc .name$;
+    // Create monsters based on effectivity
+    areamonster("029-1", .x-3, .y-3, .x+3, .y+3, strmobinfo(1, MagicGoblin), MagicGoblin, (.@val/15)+1, "SteamFire#Ctrl::OnEvent1");
+    dispbottom l("Power remaining: %s", fnum($FIRESOFSTEAM[.@id]));
+    close;
+
+OnInit:
+    .distance=3;
+    end;
+}
+
+// Now we duplicate
+029-1,258,39,0	duplicate(Pentagram#FoS_1)	Pentagram#FoS_2	NPC_NO_SPRITE
+029-1,113,148,0	duplicate(Pentagram#FoS_1)	Pentagram#FoS_3	NPC_NO_SPRITE
+029-1,229,188,0	duplicate(Pentagram#FoS_1)	Pentagram#FoS_4	NPC_NO_SPRITE
+029-1,38,257,0	duplicate(Pentagram#FoS_1)	Pentagram#FoS_5	NPC_NO_SPRITE
+
+
+
-- 
cgit v1.2.3-70-g09d2