[STILL NEED BETTER PROCEDURE]
Ok well the objective of this function is to find the general store owner/assistant as fast as possible, Anyway i could make this faster/more accurate(the problem is that there are many colors similar to them in the G store so i tried Using almost all hair colors)
so here it is
SCAR Code:
function FindShopKeeper : boolean;
var SKX, SKY, I, T : integer;
begin
SetRun(true);
result := false;
ShopKeeper[1] := 2900546;//hair
ShopKeeper[2] := 7840208;//hair
ShopKeeper[3] := 8224135;//hair
ShopKeeper[4] := 7115454;//face
ShopKeeper[5] := 7763582;//hair
ShopKeeper[6] := 2570298;// apron
ShopAssistant[1] := 2307381;//hair
ShopAssistant[2] := 2175024;//hair
ShopAssistant[3] := 2900546;//shirt
ShopAssistant[4] := 6250599;//hair
ShopAssistant[5] := 8026754;//back
ShopAssistant[6] := 5000275;//arm
repeat
For I := 1 to 6 do
If(FindObj3(SKX,SKY,'Shop keeper',ShopKeeper[1],10))or
(FindObj3(SKX,SKY,'Shop keeper',ShopKeeper[I],10))or
(FindObj(SKX,SKY,'Shop keeper',ShopKeeper[I],10))or
(FindObj3(SKX,SKY,'Shop assistant',ShopAssistant[1],10))or
(FindObj3(SKX,SKY,'Shop assistant',ShopAssistant[I],10))or
(FindObj(SKX,SKY,'Shop assistant',ShopAssistant[I],10))then
begin
T := T + 1;
MouseSpeed := 8 + random(3);
MMouse(SKX,SKY,0,0);
wait(600);
Mouse(SKX,SKY,0,0,False);
Flag;
Wait(600+random(600));
ChooseOption(x,y,'Trade');
If(InGStore)then
begin
Result := True;
break;
end;
end;
Until(T=6)
If(T=6)then
begin
result := false;
end;
end;