summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/000-1/exit.txt6
-rw-r--r--npc/items/teleporter.txt102
2 files changed, 36 insertions, 72 deletions
diff --git a/npc/000-1/exit.txt b/npc/000-1/exit.txt
index b32e22548..fa80138f3 100644
--- a/npc/000-1/exit.txt
+++ b/npc/000-1/exit.txt
@@ -34,6 +34,12 @@ OnSetLX:
savepoint .LOCMASTER_MAP$[@lx], .LOCMASTER_X[@lx], .LOCMASTER_Y[@lx];
end;
+// Warp you according to LX
+OnVisitLX:
+ @lx=array_find(.LOCMASTER_LOC$, LOCATION$);
+ warp .LOCMASTER_MAP$[@lx], .LOCMASTER_X[@lx], .LOCMASTER_Y[@lx];
+ end;
+
OnInit:
setarray .LOCMASTER_LOC$, "Candor", "Tulim", "Halin", "Hurns", "LoF", "Lilit", "Nival", "Frostia";
setarray .LOCMASTER_MAP$, "005-1", "003-1", "009-1", "012-1", "017-1", "018-5", "020-1", "024-1";
diff --git a/npc/items/teleporter.txt b/npc/items/teleporter.txt
index 7c5ad6c4f..887121a98 100644
--- a/npc/items/teleporter.txt
+++ b/npc/items/teleporter.txt
@@ -8,86 +8,44 @@
- script Warp Crystal 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:
+function Cooldown {
mesn;
- mesc l("This teleporter is currently recharging.");
+ mesc l("Successive warps cause time-space distortions and thus, are not allowed.");
mesc l("You can use it again in @@.", FuzzyTime(TELEPORTER_TIME));
+ getitem @itemid, 1;
close;
+}
+
+function ReturnItem {
+ getitem @itemid, 1;
+ end;
+}
OnUse:
+ // Receives @dest$
if (TELEPORTER_TIME > gettimetick(2))
- goto L_Cooldown;
- if (readparam(Hp) < readparam(MaxHp)) {
- dispbottom l("You are hurt, and cannot use this.");
- end;
- }
+ Cooldown();
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)),
- 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;
+ ReturnItem();
}
- closedialog;
+ // TODO: Are you already at target point?
+
+ // It have at least 30% chance to break
+ // Chances begin at 100%, and lower in 0.01% each second
+ // It will never be below 30%, which happens after 7000 seconds
+ .@adj_breakrate=max(3000, 10000-(gettimetick(2)-TELEPORTER_TIME) );
+ debugmes "Adjusted break ratio: %d", .@adj_breakrate;
+ if (rand(0,10000) > .@adj_breakrate)
+ getitem @itemid, 1;
+ else
+ getitem BrokenWarpCrystal, 1;
+
+ // Apply Cooldown, same variable as LoF Teleporter
+ TELEPORTER_TIME=gettimetick(2)+300;
+
+ // Save new location and warp you there
+ EnterTown(@dest$);
+ doevent "Emergency Exit::OnVisitLX";
end;
}