SRL Archive - Research & Development Lounge

I think this was already made, but U L T R A requested it… I think I got the font right, not sure though… I don't really know how to test it , but it's like 6 lines so it can't be that bad :P It also seems like this would be too easy, but that's similar to PinScreen, so idk.
PLEASE TELL ME IF FONTS ARE WRONG/RIGHT

I tried playing it, but it opened up the globals in another tab and said BEGIN expected in script… idk if it does that in all of them, but yeah if someone could tell me if this works

function DuelScreen: Boolean ;
//by isjusme // credits to U L T R A for idea
{.include SRL/SRL.scar}
Var
x, y : Integer ;
begin
  Result := FindText(x, y, 'Duelling', upchars,  62, 29, 204, 48);
end;

function DuelScreen2: Boolean ;
//by isjusme // credits to U L T R A for idea
{.include SRL/SRL.scar}
Var
x, y : Integer ;
begin
  Result := FindText(x, y, 'Are', upchars, 106, 30, 148, 47);
end;

function duelAcceptButton: Boolean ;
{.include SRL/SRL.scar}
var
  AcceptButton, x, y: Integer;

  
procedure DTMs;
begin
  AcceptButton := DTM := DTMFromString('78DA6354636060E0664005671818F88114231' +
       '0FF0702467720430855497373395C0D0880D5B0A2AA3131504355' +
       '0392674655E3E96082AA86054888A0AA696BAD4055A387A906045' +
       '0D42800093154793D4D451435008C880B6D');
end;

procedure ClickIt;
begin
  repeat
    If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
    begin
      Mouse(x, y, 5, 5, true);
      Wait(2000+random(230));
      If DuelScreen2(true) then
      If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
      Mouse(x, y, 5, 5, true);
    end;
  until(false); 
end;
 

begin
  SetupSRL;
  DTMs;
  ClickIt;
  FreeDTM(AcceptButton) ;
end.
      
      

I think I should apply for membership with this…:rolleyes:

A getcolor is faster, and more accurate.

From: Mylesmadness
A getcolor is faster, and more accurate.

GetColor is faster, but not more accurate.

the important thing is if it works :P

Plus, I don't think you even spelled "dueling" correctly, which makes it even more inaccurate.

That's how Jagex has it…. in the ring of Duelling anyway, i can't remember if it is in the screen.

Added two new functions, don't know if they work, someone test please? And help with text? :P

procedure ClickIt;
begin
  repeat
    If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
    begin
      Mouse(x, y, 5, 5, true);
      Wait(2000+random(230));
      If DuelScreen2(true) then
       If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
        Mouse(x, y, 5, 5, true);
    end;
  until(false)
end;

made it smaller, and standards were alittle off

ok thanks :)

From: HyperSecret

procedure ClickIt;
begin
  repeat
    If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
    begin
      Mouse(x, y, 5, 5, true);
      Wait(2000+random(230));
      If DuelScreen2(true) then
       If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
        Mouse(x, y, 5, 5, true);
    end;
  until(false)
end;

made it smaller, and standards were alittle off

procedure ClickIt;
begin
  repeat
    If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
    begin
      Mouse(x, y, 5, 5, true);
      Wait(2000+random(230));
      If DuelScreen2(true) then
        If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
          Mouse(x, y, 5, 5, true);
    end;
  until(false) //<- wtf?
end;

Edit: Your standards were off ;)

deal with it lol

From: Nava2

procedure ClickIt;
begin
  repeat
    If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
    begin
      Mouse(x, y, 5, 5, true);
      Wait(2000+random(230));
      If DuelScreen2(true) then
        If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
          Mouse(x, y, 5, 5, true);
    end;
  until(false) //<- wtf?
end;

Edit: Your standards were off ;)

your standards are even farther off if your going to be technical…and 'perfection' here are the CORRECT standards

procedure ClickIt;
begin
  repeat
    If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
    begin
      Mouse(x, y, 5, 5, true);
      Wait(2000+random(230));
      If DuelScreen2(true) then
      If FindDTM(AcceptButton, x, y, 4, 4, 717, 480) then
      Mouse(x, y, 5, 5, true);
    end;
  until(false) //<- wtf?
end;

technically there is suppose to be no indention after an if then statement..

im pretty sure jagex has it as "dueling" not "duelling"… like 99.9% sure

on duelling ring i know it is "duelling" but i thought the game was "dueling"

not on the duelling ring, but idk

What about..

Function InDuel: Boolean;
Var x, y: Integer;
Begin
  Result := Not(FindSymbol(x, y, 'minigame'));
End;