[proc,hex_string_to_int].cs2

// 4508
[proc,hex_string_to_int](string $string0)(int)
def_int $length0 = string_length($string0);
def_string $string1 = "null";
def_int $int1 = 0;
def_int $int2 = 0;
$string0 = ~script1299($string0, "#", "");
if ($length0 > 6) {
	$string0 = substring($string0, 0, 6);
} else if ($length0 < 6) {
	while (string_length($string0) < 6) {
		$string0 = append($string0, "0");
	}
}
$length0 = string_length($string0);
def_int $length3 = 0;
while ($length3 < $length0) {
	$string1 = substring($string0, $length3, calc($length3 + 1));
	if (string_indexof_string("0123456789abcdef", $string1, 0) ! -1) {
		$int1 = string_indexof_string("0123456789abcdef", $string1, 0);
	} else if (string_indexof_string("0123456789ABCDEF", $string1, 0) ! -1) {
		$int1 = string_indexof_string("0123456789ABCDEF", $string1, 0);
	} else {
		return(^max_32bit_int);
	}
	$int2 = calc($int2 + $int1 * pow(16, 5 - $length3));
	$length3 = calc($length3 + 1);
}
return(~min(16777215, $int2));