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
|
// ARGV Splitter
// takes @args$ and splits it properly so that '@cmd "foo bar" baz' is ['foo bar','baz'] instead of ['"foo','bar"','baz']
// input: @args$ (string)
// output: @argv$ (array) and @argv (array)
function|script|argv_splitter
{
explode .@fragments$, @args$, " ";
set .@e, 0;
set .@total, getarraysize(.@fragments$);
set .@NULL$, chr(3); // HACK: we use .@NULL$ as a workaround because we can't do "\0"
cleararray @argv$[0], "", 20; // I don't think any atcommand will EVER need more than 20 args, and 20 is already generous
cleararray @argv[0], 0, 20;
goto L_Check;
L_Check:
setarray .@check$[0], "", .@NULL$, .@NULL$;
explode .@check$, .@fragments$[.@e], "\""; // check if the fragment contains a quote
if (.@check$[0] == "" && .@check$[1] != .@NULL$ && .@check$[1] != "" && .@check$[2] == .@NULL$)
set .@string$, .@check$[1]; // begin substring
elif (.@check$[0] != "" && .@check$[1] == "" && .@check$[2] == .@NULL$)
goto L_EndSubString; // end substring
elif (.@string$ != "" && .@check$[0] != "" && .@check$[1] == .@NULL$ && .@check$[2] == .@NULL$)
set .@string$, .@string$ +" "+ .@check$[0]; // part of the substring
elif (.@check$[2] != .@NULL$) goto L_Set2; // the the argument is quoted but there is no space
else goto L_Set;
goto L_CheckAfter;
L_Set:
setarray @argv$[.@t], .@check$[0]; // not in a substring so push right away
setarray @argv[.@t], .@check$[0]; // not in a substring so push right away
set .@t, .@t + 1;
goto L_CheckAfter;
L_Set2:
setarray @argv$[.@t], .@check$[1]; // not in a substring so push right away
setarray @argv[.@t], .@check$[1]; // not in a substring so push right away
set .@t, .@t + 1;
goto L_CheckAfter;
L_EndSubString:
set .@string$, .@string$ + " " + .@check$[0];
setarray @argv$[.@t], .@string$; // push in the array
setarray @argv[.@t], .@string$; // push in the array
set .@t, .@t + 1;
set .@string$, ""; // clean
goto L_CheckAfter;
L_CheckAfter:
set .@e, .@e + 1;
if (.@e > .@total) goto L_Done; // the @argv$ array is built
goto L_Check; // not done yet
L_Done:
return;
}
// Map2Anchor
// translates map aliases to actual maps
function|script|map2anchor
{
if (@map_anchor$[0] == "" && @argv$[0] != "")
set @map_anchor$[0], @argv$[0];
if (@map_anchor$[2] == "" && @argv[1] > 1 && @argv[2] > 1)
set @map_anchor$[1], @argv[1], @argv[2];
set .@a$, @map_anchor$[0]; // anchor name // FIXME: I really want a str2lower() builtin
if (.@a$ == "hurnscald" || .@a$ == "hurn" || .@a$ == "hurns")
setarray @map_anchor$[0], "009-1", 55, 37;
elif (.@a$ == "nivalis" || .@a$ == "niv")
setarray @map_anchor$[0], "020-1", 74, 83;
elif (.@a$ == "tulimshar" || .@a$ == "tulim" || .@a$ == "tul")
setarray @map_anchor$[0], "001-1", 64, 101;
elif (.@a$ == "candor" || .@a$ == "newbington" || .@a$ == "noob")
setarray @map_anchor$[0], "029-1", 52, 93;
elif (.@a$ == "oldwizard" || .@a$ == "wizard" || .@a$ == "oldwiz")
setarray @map_anchor$[0], "013-1", 41, 92;
elif (.@a$ == "desert" || .@a$ == "pachua")
setarray @map_anchor$[0], "006-1", 34, 99;
elif (.@a$ == "forest" || .@a$ == "katze")
setarray @map_anchor$[0], "015-1", 58, 35;
elif (.@a$ == "dimond" || .@a$ == "dimondscove")
setarray @map_anchor$[0], "010-2", 31, 39;
elif (.@a$ == "asphodel" || .@a$ == "swamp" || .@a$ == "swampvillage" || .@a$ == "undeadtown")
setarray @map_anchor$[0], "026-1", 32, 33;
elif (.@a$ == "gy" || .@a$ == "graveyard")
setarray @map_anchor$[0], "027-1", 71, 87;
elif (.@a$ == "krukan" || .@a$ == "generalkrukan")
setarray @map_anchor$[0], "027-6", 39, 47;
elif (.@a$ == "razha" || .@a$ == "generalrazha")
setarray @map_anchor$[0], "027-7", 39, 35;
elif (.@a$ == "terogan" || .@a$ == "generalterogan")
setarray @map_anchor$[0], "027-8", 39, 52;
elif (.@a$ == "gmisland" || .@a$ == "eventisland" || .@a$ == "easterisland" || .@a$ == "island")
setarray @map_anchor$[0], "028-1", 99, 40;
elif (.@a$ == "auditorium" || .@a$ == "scene")
setarray @map_anchor$[0], "028-1", 119, 69;
elif (.@a$ == "theater")
setarray @map_anchor$[0], "017-2", 26, 23;
elif (.@a$ == "lounge" || .@a$ == "gmlounge" || .@a$ == "gm" || .@a$ == "backstage")
setarray @map_anchor$[0], "017-9", 26, 23;
elif (.@a$ == "cindy" || .@a$ == "cindycave")
setarray @map_anchor$[0], "031-3", 47, 26;
elif (.@a$ == "terranite" || .@a$ == "terra" || .@a$ == "terracave")
setarray @map_anchor$[0], "012-3", 448, 65;
elif (.@a$ == "terranitesafe" || .@a$ == "terrasafe" || .@a$ == "safeterra")
setarray @map_anchor$[0], "012-4", 473, 184;
elif (.@a$ == "bluesage" || .@a$ == "blue")
setarray @map_anchor$[0], "048-2", 40, 46;
elif (.@a$ == "xmasinn" || .@a$ == "xmas")
setarray @map_anchor$[0], "030-2", 85, 46;
elif (.@a$ == "barbarians" || .@a$ == "barbarian" || .@a$ == "fluffy")
setarray @map_anchor$[0], "033-1", 71, 33;
elif (.@a$ == "park" || .@a$ == "porttown" || .@a$ == "farms")
setarray @map_anchor$[0], "057-1", 100, 77;
elif (.@a$ == "hills" || .@a$ == "orum")
setarray @map_anchor$[0], "017-1", 112, 49;
elif (.@a$ == "batcave" || .@a$ == "bat")
setarray @map_anchor$[0], "011-3", 30, 26;
else
set @map_anchor$[3], "no"; // did not use an anchor
return;
}
|
