SRL Archive - SRL Bugs

UseMysteryBox(): Boolean;

Wyn

2011-11-24 19:05:00

Wasn't detecting the Box. Redid DTM.

Tested.

function UseMysteryBox(): Boolean;
var
  DTM: Integer;
  x, y: Integer;
begin
  if (not LoggedIn) then
    Exit;

  DTM := DTMFromString('78DA639CC6C4C0F0940105CC891603D38C503' + 
       'EE322A09A7BA86AC2857830D5BC425533355C1455CD74A09A8FA8' + 
       '6A5A7D8551D57403D5BC25600E48CD7D543593C3D0D44C02AAB98' + 
       '5AAA62B400455CD0CA09ADB04EC9A0054F31E554DB31916373F23' + 
       '60CE224C35186E9E836917BA1A00409C1D23');

  {$IFDEF SIMBA}
    SetDTMName(DTM, 'Mystery Box');
  {$ENDIF}


  if (FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    MMouse(x, y, 5, 5);
    if (WaitUptext('ster', 200)) then
    begin
      Result := True;
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, True);
      Wait(RandomRange(200, 500));
      Writeln('Clicked mystery box');
    end;
  end;

  FreeDTM(DTM);
end;

Coh3n

2011-11-24 19:58:55

Can anyone else confirm this?

Wyn

2011-11-24 20:01:06

Note this is the box that Gambles you the reward.

NCDS

2011-11-24 20:27:34

I can test it…. just a minute.

Edit: Tested and committed. Thanks! :)

Wyn

2011-11-24 20:41:46

From: NCDS
I can test it…. just a minute.

Edit: Tested and committed. Thanks! :)

:spot: