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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
// See #TravelConfig
function|script|WarpTowel
{
set @seconds, TowelLastUsed - (gettimetick(2) - 300);
if (@seconds > 0 && GM < 1)
goto L_DontPanic;
if (isin("botcheck",25,27,51,47))
goto L_Prison;
if (getmapflag(getmap(), MF_NOSAVE) || getmapflag(getmap(), MF_NOTELEPORT) || getmapflag(getmap(), MF_NOWARP) || isin("009-7",$@fightclub_x1,$@fightclub_y1,$@fightclub_x2,$@fightclub_y2))
goto L_Forbid;
if (@warpTowelName$ == "HitchhikersTowel")
goto L_Save;
if(@warpTowelName$ == "WhiteHitchhikersTowel")
goto L_White;
if(@warpTowelName$ == "RedHitchhikersTowel")
goto L_Red;
if(@warpTowelName$ == "GreenHitchhikersTowel")
goto L_Green;
if(@warpTowelName$ == "BlueHitchhikersTowel")
goto L_Blue;
if(@warpTowelName$ == "YellowHitchhikersTowel")
goto L_Yellow;
if(@warpTowelName$ == "PurpleHitchhikersTowel")
goto L_Purple;
if(@warpTowelName$ == "OrangeHitchhikersTowel")
goto L_Orange;
if(@warpTowelName$ == "PinkHitchhikersTowel")
goto L_Pink;
if(@warpTowelName$ == "TealHitchhikersTowel")
goto L_Teal;
if(@warpTowelName$ == "LimeHitchhikersTowel")
goto L_Lime;
goto L_Save;
L_White:
// Koga
set @NextLocationMap$, "035-2";
set @NextLocationX, 20;
set @NextLocationY, 21;
goto L_WarpPlayer;
L_Red:
// Barbarians
set @NextLocationMap$, "033-1";
set @NextLocationX, 66;
set @NextLocationY, 33;
goto L_WarpPlayer;
L_Green:
// Candor
set @NextLocationMap$, "029-1";
set @NextLocationX, 69;
set @NextLocationY, 69;
goto L_WarpPlayer;
L_Blue:
// Blue Sages
set @NextLocationMap$, "048-2";
set @NextLocationX, 26;
set @NextLocationY, 47;
goto L_WarpPlayer;
L_Yellow:
// Tulimshar Mines
set @NextLocationMap$, "002-1";
set @NextLocationX, 113;
set @NextLocationY, 117;
goto L_WarpPlayer;
L_Purple:
// Dimonds Inn
set @NextLocationMap$, "010-1";
set @NextLocationX, 27;
set @NextLocationY, 97;
goto L_WarpPlayer;
L_Orange:
// Graveyard
set @NextLocationMap$, "027-1";
set @NextLocationX, 70;
set @NextLocationY, 100;
goto L_WarpPlayer;
L_Pink:
// Terranite Cave
set @NextLocationMap$, "012-3";
set @NextLocationX, 448;
set @NextLocationY, 66;
goto L_WarpPlayer;
L_Teal:
// Mana Seed
set @NextLocationMap$, "012-3";
set @NextLocationX, 64;
set @NextLocationY, 130;
goto L_WarpPlayer;
L_Lime:
// Pachua
set @NextLocationMap$, "006-1";
set @NextLocationX, 28;
set @NextLocationY, 97;
callfunc "MiriamCheat";
goto L_WarpPlayer;
L_Save:
// Soul Menhir
set @NextLocationMap$, getsavepoint(0);
set @NextLocationX, getsavepoint(1);
set @NextLocationY, getsavepoint(2);
goto L_WarpPlayer;
L_WarpPlayer:
set TowelLastUsed, gettimetick(2);
warp @NextLocationMap$,@NextLocationX,@NextLocationY;
goto L_BreakChance;
L_BreakChance:
if (@warpTowelName$ != "HitchhikersTowel" && rand(15) < 1)
goto L_Break;
goto L_End;
L_Forbid:
message strcharinfo(0), "Towel : This area is protected by a force that doesn't tolerate the power of the Towel.";
goto L_End;
L_Prison:
message strcharinfo(0), "Towel : You must be warped by a GM to leave the botcheck area.";
goto L_End;
L_DontPanic:
callfunc "HumanTime";
message strcharinfo(0), "Towel : Your towel is still too low on power to jump again. Try again in ##B"+ @time$ + "##b.";
goto L_End;
L_Break:
delitem @warpTowelName$, 1;
goto L_End;
L_End:
set @NextLocationMap$, "";
set @NextLocationX, 0;
set @NextLocationY, 0;
set @warpTowelName$, "";
return;
}
|
