1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
// TMW2 scripts.
// Authors:
// Pyndragon
// Jesusalva
// Description:
// Warp Crystal
- script Warp Crystal NPC_HIDDEN,{
close;
function Cooldown {
mesn;
mesc l("Successive warps cause time-space distortions and are thus not allowed.");
mesc l("You can use it again in %s.", FuzzyTime(TELEPORTER_TIME));
getitem @itemid, 1;
close;
}
function ReturnItem {
getitem @itemid, 1;
end;
}
OnUse:
// Receives @dest$
if (TELEPORTER_TIME > gettimetick(2))
Cooldown();
if (BaseLevel < 20) {
dispbottom l("The might contained in this curious object is too powerful. You have to be at least level 20 to harness it.");
ReturnItem();
}
// TODO: Are you already at target point?
// The chance to break is always at least 20%
// Begins at 100% and each second will subtract 0.01%
// It will never go below 5%, which happens after x seconds
.@timet=limit(0, gettimetick(2)-TELEPORTER_TIME, 3600);
.@prop=.@timet*2777/1000; // Make it range from 0~10000
.@adj_breakrate=limit( 500, .@prop, 9500 );
if ($EVENT$ == "Rebirth")
.@adj_breakrate /= 2;
else if ($EVENT$ == "Siege")
.@adj_breakrate /= 3;
//debugmes "Adjusted break ratio: %d", .@adj_breakrate;
if (rand(10000) > .@adj_breakrate)
getitem @itemid, 1;
else
getitem BrokenWarpCrystal, 1;
// Apply Cooldown, same variable as LoF Teleporter, cancel ship travels
TELEPORTER_TIME=gettimetick(2)+300;
@timer_navio_running=0;
// Save new location and warp you there
EnterTown(@dest$);
ReturnTown();
end;
}
|