SCAR Code:
procedure ClickCageToFishLobbys;
begin
if FindColor(x,y,14663852,13,154,523,486)then
begin
Mouse(x,y,1,1,false);
ChooseOption('age');
end;
times := 0;
price := 0;
repeat
x := 1 + random(3)
case x of
1: Typesend('Selling Raw, Unnoted Lobbys. 200 ea');
2: Typesend('Selling Unnoted, Raw Lobbys! 200 ea');
3: Typesend('Selling: Raw unnoted Lobsters..200 ea');
end;
Wait(900+random(1000));
times := times+1;
Writeln('talked '+IntToStr(times)+' times')
until(times >= timesToTalk);
end;
you need an end; after a case. Also, by your if FindColor then Mouse, you need to put a begin and an end if you want it to do more than one thing. Meaning
SCAR Code:
if FindColor(x,y,14663852,13,154,523,486)then
Mouse(x,y,1,1,false);
is fine, but when you put two things you need to do
SCAR Code:
if FindColor(x,y,14663852,13,154,523,486)then
begin
Mouse(x,y,1,1,false);
ChooseOption('age');
end;