Prepare introduction of Warp Crystals, update Lua dialog if hurns is in siege

2 files changed, 97 insertions, 4 deletions

diff --git a/npc/items/lofteleporter.txt b/npc/items/lofteleporter.txt
new file mode 100644
index 000000000..c387c1917
--- /dev/null
+++ b/npc/items/lofteleporter.txt
@@ -0,0 +1,93 @@
+// TMW2 scripts.
+// Authors:
+//    Pyndragon
+//    Jesusalva
+// Description:
+//    Hand Teleporter (also saves coordinates - @memo)
+
+-	script	LoF Teleporter	NPC_HIDDEN,{
+    close;
+
+    // Checks if you can warp
+    function loftel_check {
+        getmapxy(.@m$, .@x, .@y, 0);
+        .@is_hurt=(readparam(Hp) < readparam(MaxHp)*9/10); // <90% hp
+        .@is_town=(getmapflag(.@m$, mf_town));
+        return (.@is_hurt && !.@is_town);
+    }
+
+    // Calculate time remaining
+    // (time, .@x)
+    function loftel_time {
+        return gettimetick(2)+max((60*getarg(0))-(getarg(1)*60), 30);
+    }
+
+L_Cooldown:
+    mesn;
+    mesc l("This teleporter is currently recharging.");
+    mesc l("You can use it again in @@.", FuzzyTime(TELEPORTER_TIME));
+    close;
+
+OnUse:
+    if (TELEPORTER_TIME > gettimetick(2))
+        goto L_Cooldown;
+    if (readparam(Hp) < readparam(MaxHp)) {
+        dispbottom l("You are hurt, and cannot use this.");
+        end;
+    }
+    if (BaseLevel < 20) {
+        dispbottom l("This is too powerful to you. Get level 20 before attempting to use.");
+        end;
+    }
+
+    mesn;
+    mesc l("Ozthokk, a great sage from the Land Of Fire, holds secrets of time and space travel.");
+    mesc l("This is not magic, it is science!");
+    mes "";
+    mesc l("PS. Additional reagents may be required for warps.");
+    next;
+
+    .@x=(reputation("LoF")/10)+min(10, countitem(TimeFlask)-1); // up to 10 minutes reduction from quests, and 10 from time flasks
+
+    select
+        l("Don't warp"),
+        l("Land Of Fire Village (@@m)", 50-.@x),
+        rif(TELEPORTERS & TP_FROST, l("Frostia (@@m)", 360-.@x)),
+        rif(TELEPORTERS & TP_HALIN, l("Halinarzo (@@m)", 360-.@x)),
+        rif(GSET_SOULMENHIR_MANUAL, l("Save Point (@@m)", 30-.@x));
+
+    if (@menu == 1)
+        close;
+
+    switch (@menu) {
+        case 1:
+    }
+    if (loftel_check()) {
+        dispbottom l("You are hurt, and cannot use this.");
+    }
+	    doevent "shake::OnGM";
+    switch (@menu) {
+        case 2:
+            warp "017-1", 120, 89;
+            TELEPORTER_TIME=loftel_time(50, .@x);
+            LOCATION$="LoF";
+            break;
+        case 3:
+            warp "024-1", 155, 82;
+            TELEPORTER_TIME=loftel_time(360, .@x);
+            LOCATION$="Frostia";
+            break;
+        case 4:
+            warp "009-1", 113, 91;
+            TELEPORTER_TIME=loftel_time(360, .@x);
+            LOCATION$="Halin";
+            break;
+        case 5:
+            warp "Save", 0, 0;
+            TELEPORTER_TIME=loftel_time(30, .@x);
+            //LOCATION$="Save";
+            break;
+    }
+    closedialog;
+    end;
+}
diff --git a/npc/items/teleporter.txt b/npc/items/teleporter.txt
index c387c1917..7c5ad6c4f 100644
--- a/npc/items/teleporter.txt
+++ b/npc/items/teleporter.txt
@@ -3,9 +3,9 @@
 //    Pyndragon
 //    Jesusalva
 // Description:
-//    Hand Teleporter (also saves coordinates - @memo)
+//    Warp Crystal
 
--	script	LoF Teleporter	NPC_HIDDEN,{
+-	script	Warp Crystal	NPC_HIDDEN,{
     close;
 
     // Checks if you can warp
@@ -54,7 +54,7 @@ OnUse:
         l("Land Of Fire Village (@@m)", 50-.@x),
         rif(TELEPORTERS & TP_FROST, l("Frostia (@@m)", 360-.@x)),
         rif(TELEPORTERS & TP_HALIN, l("Halinarzo (@@m)", 360-.@x)),
-        rif(GSET_SOULMENHIR_MANUAL, l("Save Point (@@m)", 30-.@x));
+        l("Save Point (@@m)", 30-.@x);
 
     if (@menu == 1)
         close;
@@ -85,7 +85,7 @@ OnUse:
         case 5:
             warp "Save", 0, 0;
             TELEPORTER_TIME=loftel_time(30, .@x);
-            //LOCATION$="Save";
+            LOCATION$="Save";
             break;
     }
     closedialog;