Really cool Secet, good job.
Why do you have so many random banks though? Try something like this..
Code:
procedure RandomBank(randomnumber: integer);
var
xbb, ybb, tries, : integer;
BankBoothColor: integer;
begin
case randomnumber of
0: BankBoothColor := //colors from all 6 randombank functions.
1: ..
2: ..
3: ..
4: .
5: ..
end;
tries := 0;
times := times + 1;
if FindColorSpiralTolerance(xbb, ybb, BankBoothColor, 0, 0, 515, 337, 5) then
begin
MMouse(xbb, ybb, 2, 2);
if IsUpTextMulti('use','ank','ooth') then
begin
wait(100 + random(300));
Mouse(xbb, ybb, 2, 2, false);
if (ChooseOption(xbb, ybb, 'quickly')) or (ChooseOption(xbb, ybb, 'bank')) then
begin
Flag;
repeat
wait(100);
tries := tries + 1;
until (BankScreen) or (tries > 50)
onnistu := 1;
Exit;
end else
end else
end else
end;
begin
RandomBank(random(5));
end.
for ProgCheck procedure try doing this instead.
Code:
procedure ProgCheck;
begin
laWhere.Caption := 'We are chopping more wood! We still need '+IntToStr(28 - InventoryCount) + 'logs!';
end;
You made gui progress report! awesome!