I found two too many end statements try this....
SCAR Code:
function findspell(HighAlch: boolean): boolean;
var
x, y, HAlchDTM: integer;
begin
HAlchDTM := DTMFromString('78DA63B46662604860644006BFBEF18069982' +
'8A31D504D04AA1A982C5C8D03116A9C816A5209A83102AA4922A0' +
'C61EA82604BF1A004F1D05B8');
findtabs;
GameTab(7);
wait(500);
if HighAlch = True then
begin
if FindDTM(HAlchDTM, x, y, 559, 336, 583, 360) then
begin
result := True;
end else
begin
writeln('High Alch was not found, terminating');
Result := False;
Wait(10000);
if FindDTM(HAlchDTM, x, y, 559, 336, 583, 360)then
begin
writeln('never mind, lucky bastard');
result := True;
end else
begin
writeln('yep, your screwed. terminating');
terminatescript;
end;
end;
end else
begin
if (GetColor(713, 258) = 849658) and (GetColor(720, 254) = 3195184) then
begin
result := True;
end else
begin
writeln('Low Alch was not found, terminating');
Result := False;
Wait(10000);
end;
if (GetColor(713, 258) = 849658) and (GetColor(720, 254) = 3195184) then
begin
writeln('Never Mind! Low Alch was found, going on');
result := True;
end else
begin
writeln('Low Alch was not found, terminating');
Result := False;
end;
end;
end;