Results 1 to 5 of 5

Thread: Bitmap questions?

  1. #1
    Join Date
    Dec 2007
    Location
    Los Angeles, California
    Posts
    606
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bitmap questions?

    OK I made a simple bitmap script I for example, it's suppose to click on the my computer icon on the desktop.

    Code:
    program Script;
    var
    x,y,DesktopComputer:integer;
    procedure DeclareBMPS;
    begin
      DesktopComputer := BitmapFromString(11, 9, 'beNpbdtZ513+3Pf' +
           '899/733vffZz8IARlArtvu/047/9tt/2++5b/Vtv822//b70AgINd' +
           'r26+aTS+7Zl3TXvdfb8N/w43/jTeBkM3mvzm7vkza9GT69EsVFSe7' +
           'u88prPivvOq/6ur/nlv/TDvxefn6e11d5zMyjkRH78nO3n3mzEOlF' +
           'f/Lj/7efPb9ihU3a2tP5uYeS08/mZJyIiHhaFbWUaCCY8eezpx5qb' +
           '7+aF/fif7+0+Xlx4BqcnKOZ2WdzMw8tW3btQULLp44cefevftLlpx' +
           'avvzixIknS0v3FRcfKCw8VFBwZNmycx8+fHj58uXDhw/37r0I5K5a' +
           'dbGmZkdV1c6Kit3l5XtWr7748ePHV69eARVcuXJr6tSDhw/fbWra2' +
           'Ni4qaFhc13d1mUA283EQg==');
    end;
    procedure ClickBMPS;
    begin
    wait(200+random(100))
    movemousesmooth(x,y)
    wait(40+random(12))
    clickmouse(x,y,true)
    end;
    Procedure FindBMPS;
    begin
    if(FindBitmap(DesktopComputer,x,y))then
    ClickBMPS;
    end;
    begin
    repeat
    wait(2000+random(200))
    DeclareBMPS;
    FindBMPS;
    until(false)
    end.
    And I'm wondering about a few things.
    Is there anyway so it will double click?
    Any way that it will right click?
    And is there a way so if I add multiple bitmaps it will only click on each of them one time instead of clicking on them every time it sees them?

    This is the first script I've made so it's not good i know that

  2. #2
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    right click: clickmouse(x,y,False) <<-- notice the false

  3. #3
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    To double click just call your 'ClickBTMP' procedure twice instead of once. To make it do more bitmaps easily, you could turn your 'FindBTMP' to a function, like:
    SCAR Code:
    Function FindBTMP(UseBTMP: Integer): Boolean;
    Begin
      If(FindBitmap(UseBTMP,x,y)) Then
        ClickBMPS;
    End;
    Then in your actual script, just use
    SCAR Code:
    FindBTMP(Bitmap1);
    FindBTMP(Bitmap2);
    etc.
    and also define the other bitmaps at the beginning and replacing 'Bitmap1' and 'Bitmap2' with their variable names.

  4. #4
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    if ur still having trouble pm me or get on AIM/IM. what ur doing is quite simple, if u need help, just tell me.

  5. #5
    Join Date
    Dec 2007
    Location
    Los Angeles, California
    Posts
    606
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks you all helped a lot, and footballjds i'll keep you in mind in case i have more problems

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. help please, DTM/Bitmap
    By i macro you in forum OSR Help
    Replies: 2
    Last Post: 01-19-2008, 11:16 PM
  2. Find Bitmap in Bitmap file
    By fORCE_wORKS in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 12-13-2007, 11:04 PM
  3. Bitmap Help!
    By dialeyj2 in forum OSR Help
    Replies: 12
    Last Post: 06-13-2007, 05:35 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
  •