|
@@ -1106,6 +1106,7 @@ end
|
|
|
! example: func('shortgs', 'hex_str_to_int', 'A1C')
|
|
|
! example: func('shortgs', 'hex_str_to_int', $bcolor)
|
|
|
if $ARGS[0] = 'hex_str_to_int':
|
|
|
+ $ARGS[1] = $ucase($ARGS[1])
|
|
|
shortgs_i = 1
|
|
|
:hex_to_int_loop
|
|
|
result = result * 16 + instr(1, '123456789ABCDEF', mid($ARGS[1], shortgs_i, 1))
|