SRL Archive - SRL Archives

Well, this probably isn't worthy of using in SRL. Thought I would post here as a quick fix until the boxsolving is working (whenever I call findNormalRandoms, it always thinks there is a box whether there is or isnt one.

function FindBoxEx(SwitchPlayers, Active: boolean): boolean;
var
  BoxMask, bx, by: integer;
begin
  GameTab(4);
  BoxMask := BitmapFromString(16, 12, 'z78DA3330A026700303039A81' +
       '51F3879FF96E4860A884C6E0319978F594B8D98D08409EC9002B4' +
       'CE1CD');
  result:= FindBitMapMaskTolerance(BoxMask, bx, by, 554, 207, 727, 464, 1, 1);
  if result then
  begin
    MMouse(bx,by,0,0);
    If IsUpText('ox')then
      begin
        Players[CurrentPlayer].Rand:= 'Box Found';
        Writeln('Box Found!');
        If SwitchPlayers then
        begin
          NextPlayer(Active);
          exit;
        end;
        if (UseBoxSolver) then
            SolveBox
          else
            GambleBox;  
      end;
  end;
  FreeBitmap(BoxMask);
end;

Why don't you call the Box Solver after you find the box?

Ha? What do you mean Bob? He uses FindNormalRandoms and the box always results as true…

I mean in his that after if finds the box it switches players or it does nothing. It should call the box solver.

Box solver does not work

Works for me?

Have you tried it recently(since yesterday)

Let me check last nights auto.

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL 4 Randoms Report     |
|      [url]www.srl-forums.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| SRL Logs         :       137 |
| Trades Made      :         1 |
| Fights           :         1 |
| Talks            :         1 |
| Old Men          :         1 |
| Boxes Solved     :         1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Yep, it works for me

there

for me if it doesn't get it in the 30 seconds it has to get the answer it screws up and just keeps clicking the box in the inv.

yeah, see, not working -.-