Results 1 to 15 of 15

Thread: DuelScreen

  1. #1
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default DuelScreen

    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
    SCAR Code:
    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;

    SCAR Code:
    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;

    SCAR Code:
    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...

  2. #2
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    A getcolor is faster, and more accurate.

  3. #3
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    A getcolor is faster, and more accurate.
    GetColor is faster, but not more accurate.


  4. #4
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the important thing is if it works :P

  5. #5
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

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

  6. #6
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  7. #7
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  8. #8
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    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

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  9. #9
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks

  10. #10
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by HyperSecret View Post
    SCAR Code:
    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
    SCAR Code:
    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
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  11. #11
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    deal with it lol

  12. #12
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Nava2 View Post
    SCAR Code:
    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

    SCAR Code:
    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..

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  13. #13
    Join Date
    May 2007
    Location
    in a pineapple under the sea
    Posts
    1,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    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"
    [SIZE="4"][CENTER][URL="http://www.youtube.com/watch?v=5YsGJz3j4os"]LOL u mad bro?[/URL][/CENTER][/SIZE]

  14. #14
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not on the duelling ring, but idk

  15. #15
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What about..

    SCAR Code:
    Function InDuel: Boolean;
    Var x, y: Integer;
    Begin
      Result := Not(FindSymbol(x, y, 'minigame'));
    End;
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •