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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
// See #TravelConfig
function|script|WarpTowel|,
{
if (TowelLastUsed > (gettimetick(2) - 1800))
goto L_DontPanic;
if (isin("botcheck.gat",25,27,51,47))
goto L_Prison;
if (getmapflag(getmap(), MF_NOSAVE))
goto L_Forbid;
callfunc "MultiWarpTowel";
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.gat";
set @NextLocationX, 20;
set @NextLocationY, 21;
goto L_WarpPlayer;
L_Red:
// Barbarians
set @NextLocationMap$, "033-1.gat";
set @NextLocationX, 66;
set @NextLocationY, 33;
goto L_WarpPlayer;
L_Green:
// Candor
set @NextLocationMap$, "029-1.gat";
set @NextLocationX, 69;
set @NextLocationY, 69;
goto L_WarpPlayer;
L_Blue:
// Blue Sages
set @NextLocationMap$, "048-2.gat";
set @NextLocationX, 26;
set @NextLocationY, 47;
goto L_WarpPlayer;
L_Yellow:
// Tulimshar Mines
set @NextLocationMap$, "002-2.gat";
set @NextLocationX, 27;
set @NextLocationY, 28;
goto L_WarpPlayer;
L_Purple:
// Dimonds Inn
set @NextLocationMap$, "010-1.gat";
set @NextLocationX, 27;
set @NextLocationY, 97;
goto L_WarpPlayer;
L_Orange:
// Graveyard
set @NextLocationMap$, "027-1.gat";
set @NextLocationX, 70;
set @NextLocationY, 100;
goto L_WarpPlayer;
L_Pink:
// Terranite Cave
set @NextLocationMap$, "012-3.gat";
set @NextLocationX, 448;
set @NextLocationY, 66;
goto L_WarpPlayer;
L_Teal:
// Mana Seed
set @NextLocationMap$, "012-3.gat";
set @NextLocationX, 64;
set @NextLocationY, 130;
goto L_WarpPlayer;
L_Lime:
// Pachua
set @NextLocationMap$, "006-1.gat";
set @NextLocationX, 28;
set @NextLocationY, 97;
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 (rand(15))
goto L_Keep;
getitem "HitchhikersTowel", 1;
goto L_End;
L_Forbid:
message strcharinfo(0), "This area is protected by a force that doesn't tolerate the power of the Towel.";
goto L_Keep;
L_Prison:
message strcharinfo(0), "You must be warped by a GM to leave the botcheck area.";
goto L_Keep;
L_DontPanic:
message strcharinfo(0), "Your towel is still too low on power to jump again.";
goto L_Keep;
L_Keep:
getitem @warpTowelName$, 1;
goto L_End;
L_End:
set @NextLocationMap$, "";
set @NextLocationX, 0;
set @NextLocationY, 0;
set @warpTowelName$, "";
end;
}
function|script|MultiWarpTowel|,
{
setarray $@warpTowels$, "HitchhikersTowel", "WhiteHitchhikersTowel", "RedHitchhikersTowel", "GreenHitchhikersTowel", "BlueHitchhikersTowel", "YellowHitchhikersTowel", "PurpleHitchhikersTowel", "OrangeHitchhikersTowel", "PinkHitchhikersTowel", "TealHitchhikersTowel", "LimeHitchhikersTowel";
set @towel_count, 0;
set @towel_loop, 0;
goto L_CountTowelLoop;
L_CountTowelLoop:
set @towel_count, (@towel_count + countitem($@warpTowels$[@towel_loop]));
delitem $@warpTowels$[@towel_loop], countitem($@warpTowels$[@towel_loop]);
goto L_DelLoopAgain;
L_DelLoopAgain:
if((@towel_loop + 1) == getarraysize($@warpTowels$))
goto L_Return;
set @towel_loop, (@towel_loop + 1);
goto L_CountTowelLoop;
L_Return:
if (@towel_count > 0)
set @warpTowelName$, $@warpTowels$[rand(getarraysize($@warpTowels$))];
cleararray $@warpTowels$, "", getarraysize($@warpTowels$);
return;
}
|
