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
|
// safe string manipulation functions
// ** does not require PCRE
// startswith( "string", "search" )
//
// returns true if "string" begins with "search"
function script startswith {
return substr(getarg(0), 0, getstrlen(getarg(1)) - 1) == getarg(1);
}
// endswith( "string", "search" )
//
// returns true if "string" ends with "search"
function script endswith {
.@t = getstrlen(getarg(0)); // total length
.@n = getstrlen(getarg(1)); // substring length
return substr(getarg(0), .@t - .@n, .@t - 1) == getarg(1);
}
// capitalize( "string" )
//
// returns "string" with its first letter capitalized
function script capitalize {
.@original$ = charat(getarg(0), 0);
return setchar(getarg(0), strtoupper(.@original$), 0);
}
// titlecase( "string" [, "delimiter" [, camel]] )
//
// returns "string" with the first letter of each word capitalized
// if camel is true, the string is joined in a camelCase fashion
function script titlecase {
.@delimiter$ = getarg(1, " ");
.@c = getarg(2, 0);
explode(.@words$, getarg(0), .@delimiter$);
for (.@i = (.@c ? 1 : 0); .@i < 255; ++.@i)
{
if (.@words$[.@i] == "")
{
break;
}
.@original$ = charat(.@words$[.@i], 0);
.@words$[.@i] = setchar(.@words$[.@i], strtoupper(.@original$), 0);
}
return implode(.@words$, (.@c ? "" : .@delimiter$));
}
// zfill( "string" [, width [, "padding"]] )
//
// returns "string" padded to the left with "padding" up to width
function script zfill {
.@str$ = getarg(0);
.@width = getarg(1, 8);
.@padding$ = getarg(2, "0");
for (.@s = getstrlen(.@str$); .@s < .@width; ++.@s)
{
.@str$ = .@padding$ + .@str$;
}
return .@str$;
}
// format_number( integer [, "separator"] )
//
// formats a number properly according to the language of the player,
// or using the given separator
function script format_number {
.@number$ = str(getarg(0));
.@len = getstrlen(.@number$);
.@separator$ = getarg(1, ",");
if (getargcount() < 2 && playerattached())
{
// get from user language
switch (Lang)
{
case 1: .@separator$ = " "; break; // French
default: .@separator$ = ","; // English (default)
}
}
for (.@i = .@len - 3; .@i > 0; .@i -= 3)
{
.@number$ = insertchar(.@number$, .@separator$, .@i);
}
return .@number$;
}
|
