end_script
proc r $fr $xr $zr $yr
set linedelay 1
if copy($xr 1 2) = 0x
set $xr copy($xr 3 size($xr))
end_if
if copy($yr 1 2) = 0x
set $yr copy($yr 3 size($yr))
end_if
set %x math.dbl($xr $zr $yr)
if %x[2] != "OK"
msg   error:   %x[3]
stop_script current_script
end_if
set $regexp (^.*\d+?(?=,0+\b)|^.*\d+[,.]\d+?(?=0+\b)|^.*\d+[,.]\d+)
set $x regexp(#p $r %x[1] $regexp)
set $y set $fr .current_script $r
eval(string_replace ($y " ." "."))
end_proc