Mkay, add this to script for now:
SCAR Code:
function BarbPath: TPointArray;
begin
Result := [Point(3092, 3492), Point(3088, 3490), Point(3087, 3489),
Point(3083, 3487), Point(3082, 3486), Point(3081, 3484),
Point(3080, 3482), Point(3080, 3480), Point(3080, 3477),
Point(3080, 3475), Point(3079, 3473), Point(3079, 3471),
Point(3079, 3469), Point(3079, 3467), Point(3080, 3466),
Point(3081, 3465), Point(3082, 3465), Point(3084, 3464),
Point(3085, 3465), Point(3086, 3465), Point(3088, 3465),
Point(3089, 3464), Point(3091, 3463), Point(3092, 3462),
Point(3092, 3459), Point(3092, 3458), Point(3092, 3456),
Point(3091, 3454), Point(3091, 3454), Point(3091, 3452),
Point(3091, 3449), Point(3091, 3447), Point(3091, 3444),
Point(3089, 3443), Point(3089, 3441), Point(3089, 3437),
Point(3089, 3434), Point(3088, 3432), Point(3088, 3429),
Point(3086, 3427), Point(3085, 3427), Point(3083, 3425)];
end;
And
SCAR Code:
function EdgePath: TPointArray;
begin
Result := [Point(3083, 3424), Point(3085, 3425), Point(3086, 3427),
Point(3088, 3428), Point(3089, 3431), Point(3090, 3435),
Point(3089, 3439), Point(3089, 3442), Point(3089, 3444),
Point(3089, 3445), Point(3089, 3447), Point(3089, 3450),
Point(3088, 3452), Point(3087, 3455), Point(3087, 3457),
Point(3087, 3460), Point(3087, 3461), Point(3086, 3464),
Point(3083, 3465), Point(3081, 3465), Point(3080, 3467),
Point(3079, 3468), Point(3079, 3471), Point(3079, 3473),
Point(3079, 3476), Point(3079, 3480), Point(3079, 3483),
Point(3080, 3484), Point(3081, 3485), Point(3083, 3486),
Point(3084, 3488), Point(3085, 3489), Point(3085, 3491),
Point(3087, 3492), Point(3090, 3492), Point(3093, 3492)];
end;
Keep the functions separate, don't put them in a case or something.