SCAR Code:
function FindHomeRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 11 do
begin
case I of
1: if SolveChatRandom then
Result := True;
2: if FindTalk then
Result := True;
3: if FindTalk then
Result := True;
4: if FindDead then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindTalk then // Call it twice
Result := True;
9: if FindLamp('agility') then // Maybe we missed it?
Result := True;
10: if (FindBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleBox;
end;
11:
begin
if NoGameTab then
begin
Result := True;
if(GetColor(649, 78)=0) then begin
Writeln('Found BeeKeeper, Trying To Solve')
if (SolveBeeKeeper) then
begin
AmtBee := AmtBee + 1
for p := 0 to 50 do
begin
Wait(1000+random(100));
if(not(GetColor(649, 78)=0))or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22)) then
begin
Wait(3000 + Random(3000));
Writeln('BeeKeeper Solved, At Flax Field')
ReportVars[4] := ReportVars[4] + 1;
SendSRLReport;
Exit;
end;
end;
end;
end else Logout;
Exit;
end;
end;
end;
if Result then
Break;
Wait(1);
end;
end;
Procedure SpinProcess;
Begin
if(not(LoggedIn))then Exit;
Wait(100+Random(100))
If(O=5) Then begin Writeln('Not Able To Click Spinner, Going To Bank') Exit;
end
else
begin
MarkTime(SpinMark);
// Wait until we find a bowstring
MarkTime(SpinMark2);
repeat
FindHomeRandoms;
if(ClickToContinue)then WhileSpin;
if(FindAFight)then Exit;
until((FindDTM(Bowstring, x, y, MIX1, MIY1, MIX2, MIY2)) or (TimeFromMark(SpinMark2) > 3500));
// Check if we breaked out of loop
if(not(FindDTM(Bowstring, x, y, MIX1, MIY1, MIX2, MIY2)))then
begin
MarkTime(SpinMark2);
repeat
FindHomeRandoms;
if(FindAFight)then Exit;
until(TimeFromMark(SpinMark2) > 3500);
end;
MarkTime(WaitMark2);
Repeat
if(not(LoggedIn))then Exit;
GameTab(4);
FindHomeRandoms;
if(ClickToContinue)then WhileSpin;
if(FindAFight)then exit;
TalkingTo;
// We Can Just Hope That Those Random Checks Are Enough :)
Wait(500+Random(250));
until((FindDTM(Bowstring, x, y, 682, 426, 727, 462)) or (TimeFromMark(WaitMark2) > 55000));
if(FindDTM(FlaxDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
MarkTime(WaitMark2);
repeat
FindHomeRandoms;
if(FindAFight)then Exit;
until(TimeFromMark(WaitMark2) > 3500);
WhileSpin;
end else
begin
Players[CurrentPlayer].Loc := 'Spinner'; // We set the location to spinner when we fail, so we walk back to bank.
Exit;
end;
FreeDTM(Bowstring);
FreeDTM(FlaxDTM);
end;
end;
It jst won't check the Dam Randoms...