SRL Archive - SRL Snippets

The Spin the Wheel widget has been glitching my merching scripts lately causing them to get stuck so I made some code to spin the wheel for us. It should remove the wheel interface if it exists or just proceed as normal. Works as FindNormalRandoms but should only be run once right after login in due to the fact that it actually moves the mouse. At this time it is set to discard all rewards, partially because I found them to be crappy most of the time but because I was unabled to grab or search the text on the reward interphase after trying out all fonts. It is still crude but it works for me, may be it can be incorporated into SRL for people to use.

function Spin: boolean;
var
  x, y, i, t: Integer;
begin
  MouseBox(397, 275, 414, 293, 3);
  Result := WaitUpText('Play', 300);
  if Result then
  begin
    Writeln('Squal of Fortune is Active');
    GetMousePos(x, y);
    Mouse(x, y, 3, 3, false);
    WaitOption('Play', 300);
    t := 0;
    repeat
      Wait(100 + Random(50));
      Inc(t);
    until FindColorTolerance(x, y, 2425017, 649, 300, 664, 322, 5) or (t > 15);
    repeat
      i := CountColor(4503538, 372, 80, 409, 112);
      //Writeln(IntToStr(i));
      // 119 = '2'
      //  93 = '1'
      case i of
        119:
          begin
            Writeln('We have 2 attempts left');
            Writeln('Spinning the Wheel');
            FindColorTolerance(x, y, 2307555, 648, 355, 662, 371, 40);
            Mouse(x, y, 3, 3, true);
            repeat
              Wait(100 + Random(50));
            until FindColorTolerance(x, y, 9920813, 462, 215, 585, 268, 20);
            Writeln('Discarding Loot');
            Mouse(527, 258, 3, 3, true);
            Wait(1500 + Random(500));
            Writeln('Starting next attempt');
            if FindColorTolerance(x, y, 2656589, 483, 293, 588, 315, 20) then
              Mouse(x, y, 3, 3, true);
            t := 0;
            repeat
              Wait(100 + Random(50));
              Inc(t);
            until FindColorTolerance(x, y, 2425017, 649, 300, 664, 322, 5) or (t > 15);
          end;
        93:
          begin
            Writeln('We have 1 attempt left');
            Writeln('Spinning the Wheel');
            FindColorTolerance(x, y, 2307555, 648, 355, 662, 371, 40);
            Mouse(x, y, 3, 3, true);
            repeat
              Wait(100 + Random(50));
            until FindColorTolerance(x, y, 9920813, 462, 215, 585, 268, 20);
            Writeln('Discarding Loot');
            Mouse(527, 258, 3, 3, true);
            Wait(750 + Random(250));
            Writeln('Closing Interphase');
            if FindColorTolerance(x, y, 2237137, 483, 326, 588, 350, 20) then
              Mouse(x, y, 3, 3, true);
            Exit;
          end;
      end;
    until (i = 0);
  end;
end; 

Fine, this is a revision for those who requested it, it sees if the wheel is active and it clicks the X, so that it disappears until next time you log in. Then you can spin the wheel on your own time if you so wish to and whilest logged in and the script is running, this should not get in the way.

function Spin: Boolean;
begin
  MMouse(407, 282, 3, 3);
  Result := WaitUpText('Play', 500);
  if Result then
  begin
    Mouse(464, 283, 1, 1, False);
    WaitOption('Select', 500);
    Wait(500 + Random(250));
  end;
end;    

I think that is the best solution for this issue.

Verrrrry nice, and here you were saying you were a burden and not an asset to SRL..

Implementing into my scripts as soon as I am done typing this.

Pretty cool! but it would still be nice to have an option to claim rewards

From: ashaman88
Pretty cool! but it would still be nice to have an option to claim rewards

Could easily be implemented with points + UpText.

This is awesome, and gives me ideas.
Thank you, DemiseScythe.

:O Awesome, thank you so much Demi :)

Rep for you ^^

There should be a limit to the bosslyness of someone!

if you made sure it accounted properly when f2p players got p2p items and can't claim them and things like that then this could get in the include imo :)

Infinite loops in there..

Mmh, one of the waits is a bit too short. I got a revised version, here it goes:

function Spin: Boolean;
begin
  MouseBox(397, 275, 414, 293, 3);
  Result := WaitUpText('Play', 300);
  if Result then
  begin
    Writeln('Squal of Fortune is Active');
    GetMousePos(x, y);
    Mouse(x, y, 3, 3, False);
    WaitOption('Play', 500);
    T := 0;
    repeat
      Wait(100 + Random(50));
      Inc(T);
    until FindColorTolerance(x, y, 2425017, 649, 300, 664, 322, 5) or (T > 15);
    repeat
      case CountColor(4503538, 372, 80, 409, 112) of
        119:
          begin
            Writeln('We have 2 attempts left');
            Writeln('Spinning the Wheel');
            FindColorTolerance(x, y, 2307555, 648, 355, 662, 371, 40);
            Mouse(x, y, 3, 3, True);
            repeat
              Wait(100 + Random(50));
            until FindColorTolerance(x, y, 9920813, 462, 215, 585, 268, 20);
            Writeln('Discarding Loot');
            Mouse(527, 258, 3, 3, True);
            Wait(750 + Random(250));
            Mouse(328, 279, 3, 3, True);
            Wait(750 + Random(250));
            Writeln('Starting next attempt');
            if FindColorTolerance(x, y, 2656589, 483, 293, 588, 315, 20) then
              Mouse(x, y, 3, 3, True);
            T := 0;
            repeat
              Wait(100 + Random(50));
              Inc(T);
            until FindColorTolerance(x, y, 2425017, 649, 300, 664, 322, 5) or (T > 15);
          end;
        93:
          begin
            Writeln('We have 1 attempt left');
            Writeln('Spinning the Wheel');
            FindColorTolerance(x, y, 2307555, 648, 355, 662, 371, 40);
            Mouse(x, y, 3, 3, True);
            repeat
              Wait(100 + Random(50));
            until FindColorTolerance(x, y, 9920813, 462, 215, 585, 268, 20);
            Writeln('Discarding Loot');
            Mouse(527, 258, 3, 3, True);
            Wait(750 + Random(250));
            Mouse(328, 279, 3, 3, True);
            Wait(750 + Random(250));
            Writeln('Closing Interphase');
            if FindColorTolerance(x, y, 2237137, 483, 326, 588, 350, 20) then
              Mouse(x, y, 3, 3, True);
            Exit;
          end;
      end;
    until (CountColor(4503538, 372, 80, 409, 112) = 0) or TabExists(tab_Magic);
  end;
end; 

F2P is not supported, btw but this one supports the confirmation screen for rare drops, it will comfirm discarding them.

Fine, this is a revision for those who requested it, it sees if the wheel is active and it clicks the X, so that it disappears until next time you log in. Then you can spin the wheel on your own time if you so wish to and whilest logged in and the script is running, this should not get in the way.

function Spin: Boolean;
begin
  MMouse(407, 282, 3, 3);
  Result := WaitUpText('Play', 500);
  if Result then
  begin
    Mouse(464, 283, 1, 1, False);
    WaitOption('Select', 500);
    Wait(500 + Random(250));
  end;
end;    

I think that is the best solution for this issue. Added also to OP thread, I think this one is safe enough to be added to SRL ^.^~

I can add this to anitban.simba. I added ExitSquealOfFortune a while ago, so it'll get rid of it on the screen, but I don't see why this can't be added.

I made a very quick and dirty tool that clicks the button the moment the middle prize highlights. I actually did "win" two middle prices with this tool, but not member on those two accounts alas o_0.

Fakawi do you think that clicking at the right moment actually helps your chances?? If so, awesome!

From: cause
Fakawi do you think that clicking at the right moment actually helps your chances?? If so, awesome!

Nah, could be luck, and I guess it is totally random, but it was worth a shot. Kinda conincidential though that two of the accounts I tested it with both hit middle slot :)

Sorry, I didn't realised this was already made, apologize.

From: DemiseScythe
Sorry, I didn't realised this was already made, apologize.

Nah, I've written just four lines of code, not at all as elaborate as you made. Just pointing in the general direction :smile:

Right now, your function assumes the Squeal Of Fortune is always in the same spot on the screen; however, it can be anywhere, the player just has to drag and drop it. You'll need to use some kind of detection before I'm willing to add this to the include. You can check out ExitSquealOfFortune in anitban.simba. ;)