Results 1 to 5 of 5

Thread: Req Assist functions!

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

    Default Req Assist functions!

    ill be editing this post for more functions.

    function 1:
    SCAR Code:
    {*******************************************************************************
    Function : AssistRequested(Action: integer): Boolean;
    By: Cazax / Edit by EvilChicken!
    Description: Checks if someone is requesting assist. If Accept is true then
    accepts the request. Results true if request found.
    *******************************************************************************}

    function AssistRequested(Accept: Boolean): boolean;
    begin
      if (Accept) then begin
        case FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, 'assistance', UpChars, ClickLeft) of
          True: begin
                  Writeln('Someone is requesting assist, accepted.');
                  Result := True;
                end;
          False: Result := False;
        end;
      end else begin
        case FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, 'assistance', upchars, Nothing) of
          True: begin
                  Writeln('Someone is requesting assist.');
                  Result := True;
                end;
          False: Result := False;
        end;
      end;
    end;

    will be posting more functions.


  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, upchars, Action(DoAction)) then

    Is this missing a parameter?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

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

    Default

    Quote Originally Posted by Santa_Clause View Post
    SCAR Code:
    if FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, upchars, Action(DoAction)) then

    Is this missing a parameter?
    Yes, didnt notice that


  4. #4
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program AssistRequestedTest;
    {.include SRL/SRL.scar}
    {-------------------------------------- Your function -------------------------}
    {*******************************************************************************
    Function : AssistRequested(Action: integer): Boolean;
    By: Cazax / Edit by EvilChicken!
    Description: Checks if someone is requesting assist. If Accept is true then
    accepts the request. Results true if request found.
    *******************************************************************************}

    function AssistRequested(Accept: Boolean): boolean;
    begin
      if (Accept) then begin
        case FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, 'assistance', UpChars, ClickLeft) of
          True: begin
                  Writeln('Someone is requesting assist, accepted.');
                  Result := True;
                end;
          False: Result := False;
        end;
      end else begin
        case FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, 'assistance', upchars, Nothing) of
          True: begin
                  Writeln('Someone is requesting assist.');
                  Result := True;
                end;
          False: Result := False;
        end;
      end;
    end;
    {--------------------------------End of your function -------------------------}

    begin
      SetUpSRL;
      ActivateClient;
      Wait(RandomRange(500, 1000));
      WriteLn('Is someone requesting assist: ' + BoolToStr(AssistRequested(True)));
    end.

    I improved your function slightly, it actually works now. The rest of the script is just so you can copy-paste it into SCAR and run it right away. I hope you don't mind I put in my name in the credits. ^_^

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

    Default

    Quote Originally Posted by EvilChicken! View Post
    SCAR Code:
    program AssistRequestedTest;
    {.include SRL/SRL.scar}
    {-------------------------------------- Your function -------------------------}
    {*******************************************************************************
    Function : AssistRequested(Action: integer): Boolean;
    By: Cazax / Edit by EvilChicken!
    Description: Checks if someone is requesting assist. If Accept is true then
    accepts the request. Results true if request found.
    *******************************************************************************}

    function AssistRequested(Accept: Boolean): boolean;
    begin
      if (Accept) then begin
        case FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, 'assistance', UpChars, ClickLeft) of
          True: begin
                  Writeln('Someone is requesting assist, accepted.');
                  Result := True;
                end;
          False: Result := False;
        end;
      end else begin
        case FindTextTpa(14822282, 5, MCX1, MCY1, MCX2, MCY2, 'assistance', upchars, Nothing) of
          True: begin
                  Writeln('Someone is requesting assist.');
                  Result := True;
                end;
          False: Result := False;
        end;
      end;
    end;
    {--------------------------------End of your function -------------------------}

    begin
      SetUpSRL;
      ActivateClient;
      Wait(RandomRange(500, 1000));
      WriteLn('Is someone requesting assist: ' + BoolToStr(AssistRequested(True)));
    end.

    I improved your function slightly, it actually works now. The rest of the script is just so you can copy-paste it into SCAR and run it right away. I hope you don't mind I put in my name in the credits. ^_^
    added now it looks better thanks.


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Assist System.
    By julian0 in forum RS has been updated.
    Replies: 4
    Last Post: 11-15-2007, 02:56 AM
  2. new assist thing on rs
    By blackhand101 in forum RS has been updated.
    Replies: 5
    Last Post: 11-14-2007, 05:00 PM
  3. The Assist System
    By yanix in forum RS has been updated.
    Replies: 34
    Last Post: 11-10-2007, 02:44 AM
  4. Request Assist
    By tatootian in forum RuneScape News and General
    Replies: 5
    Last Post: 11-08-2007, 01:04 AM
  5. REQ assist?
    By julian0 in forum RS has been updated.
    Replies: 1
    Last Post: 11-06-2007, 05:01 AM

Posting Permissions

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