Results 1 to 3 of 3

Thread: Auto Reporter

  1. #1
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Auto Reporter

    Ok, this is a script for a friend, he wants a script to report a specific person.

    My problem mainly is with the BMPs (I assume) as it wont click.

    The other problem is with the commented out bit, but thats not the real issue.

    Thanks in advance.

    SCAR Code:
    program JobReporter;
         {.include SRL\SRL.scar}

    var
      T : integer;
      run : boolean;
      Abuse : integer;
      Offensive : integer;

    const
      name = 'killerdud248';   // The name you will be reporting.
      Times = 20; // Times to report this name before stopping.

    procedure LoadBMPS;
        begin;
           Abuse := BitmapFromString(82, 1, 'z78DA8D90510AC0300843AFD4' +
                '463BB6CF6EB4F73FD28AF9B188638106798A5AF5564853F3A6DAE' +
                '599A6623AB0582361EC7D26623676F024E37F2AE39E24FCC57A1D' +
                'D36749BE9D6287E214FB6CC45D2FF26C87C8E514E0A2C7E918E85' +
                '07A76735FB33950EB60FC02680F6E9C');

           Offensive := BitmapFromString(89, 2, 'z78DAA552410E803008FB' +
                'D222C4E85DF7FF2799E00E355D37CC387028B0B5053FBD987BE41' +
                'A5122FCB0DBEC457CB7CB3695790A673338FFC8D5C6247832C2FC' +
                'C73DF80E06F7749CC938C6CCC18196958780280756F4A6D425F68' +
                '86C57AEA252707FA70ACC3F5550AAD48DB7C9FE64A694DB92275D' +
                'FEE42A869EFCD53B41C4A61E72AFEF6F');
        end;

    procedure FreeBMPS;
        begin;
          FreeBitmap(Abuse);
          FreeBitmap(Offensive);
        end;


    procedure RandomMove;
        begin;
          FindNormalRandoms;
          BoredHuman;
        end;


    procedure ReportName;

        begin;
          LoadBMPS;

              if(FindBitmapTol(x, y, Abuse, 419, 472, 500, 491))then
                begin;
                  Mouse(x, y, 1, 1, true);
                  TypeSend(name);
                end;

              if(FindBitmapTol(x, y, Offensive, 34, 207, 153, 222))then
                begin;
                  Mouse(x, y, 1, 1, true);
                end;

          FreeBMPS;

        end;


       procedure Go;
           begin;
      {     run := false;

             If (name = '' ) then
               begin;
                 writeln('Please input a name to report');
                 killscript(0);
               end else          }

                 run := true;

             If (run = true) and (LoggedIn = true) then
               begin
                 ReportName;
    //             RandomMove;
               end;
           end;


    begin;
      ActivateClient;
      SetupSRL;
      T := 0;

    repeat
    Go;
    ChanceWait(6000);
    T := T + 1;

    Until(T = Times);
    end.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

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

    Default

    What I'd do for the commented out thing, is take it out You don't need it to writeln that they did not select a name, if you put your own name in there for the default script. Like, I'd put a default one in there as Zezima, and then they can change it As for bitmaps, why use them? You could just use mousebox instead. So make a coords box around the report button, and it will move the mouse to a random spot in the box and click. For the offensive button, do the same thing That would work better then a bitmap anyways.

  3. #3
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by JAD View Post
    What I'd do for the commented out thing, is take it out You don't need it to writeln that they did not select a name, if you put your own name in there for the default script. Like, I'd put a default one in there as Zezima, and then they can change it As for bitmaps, why use them? You could just use mousebox instead. So make a coords box around the report button, and it will move the mouse to a random spot in the box and click. For the offensive button, do the same thing That would work better then a bitmap anyways.
    I was just using what I could remember, and I couldn't find a function in the manual such as the one you suggested (as I didn't really know what I was looking for).

    Thanks.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Zezima-Reporter!
    By Jason2gs in forum RS3 Outdated / Broken Scripts
    Replies: 106
    Last Post: 03-29-2009, 05:59 PM
  2. Auto Reporter
    By Foss in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 01-25-2009, 11:29 AM
  3. Reporter Bots
    By kim in forum Discussions & Debates
    Replies: 10
    Last Post: 05-19-2008, 12:10 AM
  4. Tut Island Reporter
    By smithspsbob in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 04-03-2007, 11:14 PM

Posting Permissions

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