-
Notifications
You must be signed in to change notification settings - Fork 12
Expand file tree
/
Copy path[proc,script222].cs2
More file actions
32 lines (32 loc) · 994 Bytes
/
[proc,script222].cs2
File metadata and controls
32 lines (32 loc) · 994 Bytes
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
// 222
[proc,script222](string $string0)
def_string $string1 = escape(%varcstring359);
def_int $length0 = 12;
switch_int (%varcint5) {
case 6, 9, 11, 13 :
$length0 = 80;
case 7, 12, 18 :
$length0 = 10;
case 14, 17 :
$length0 = 25;
$string1, %varcint66 = append("<col=000000><$string0></col> ", $string1), 20;
case 19 :
$length0 = 4;
if (string_length(%varcstring359) >= 2) {
$string1 = "<substring(%varcstring359, 0, 2)>:<substring(%varcstring359, 2, string_length(%varcstring359))>";
}
case 22 :
$length0 = 6;
$string1 = append("#", $string1);
case 23, 24, 25 :
$length0 = 3;
}
if (string_length(%varcstring359) < $length0) {
$string1 = append($string1, "*");
}
if (parawidth($string1, ^max_32bit_int, b12_full) > if_getwidth(interface_162:42)) {
if_settextalign(^settextalign_right, ^settextalign_centre, 0, interface_162:42);
} else {
if_settextalign(^settextalign_centre, ^settextalign_centre, 0, interface_162:42);
}
if_settext($string1, interface_162:42);