Results 1 to 24 of 24

Thread: 10 USD by PP for simple help

  1. #1
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default 10 USD by PP for simple help

    This is script example:

    Code:
    program skriptas;
    
    
    procedure ScriptTerminate;
    begin
      GetSelf.WindowState := wsNormal;
    end;
    
    Var
    R: Integer;
    
    
    begin
    repeat
      GetSelf.WindowState := wsMinimized;
    
      Wait(3000);
      HoldMouse(515, 145, False);
      ReleaseMouse(515, 145, False);
      Wait(800);
      HoldMouse(630, 175, True);
      ReleaseMouse(630, 175, True);
      Wait(19000);
      HoldMouse(395, 62, True);
      ReleaseMouse(395, 62, True);
      
      Inc(R);
      Until(R=90000);
    end.
    I need to make this:

    Code:
    program skriptas;
    
    
    procedure ScriptTerminate;
    begin
      GetSelf.WindowState := wsNormal;
    end;
    
    Var
    R: Integer;
    
    
    begin
    repeat
      GetSelf.WindowState := wsMinimized;
    
      Wait(3000);
      HoldMouse(515, 145, False);
      ReleaseMouse(515, 145, False);
      Wait(800);
    
    Find image  Then press it.
    
      Wait(19000);
      HoldMouse(395, 62, True);
      ReleaseMouse(395, 62, True);
      
      Inc(R);
      Until(R=90000);
    
    If sometime in script process get image (get error)  Then press it and work forward.
    end.
    I will pay for that who first will write script here. I will test script and if everythink fine, than I will send money by PayPal. Thats all.

  2. #2
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    Explain more or tell us the use.
    Oh Hai Dar

  3. #3
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't think that I need to explain somethink more. I'ts seems pretty easay to help my Just somenone who know how to use BITMAP or maybe DTM can write that simple script.

  4. #4
    Join Date
    Mar 2007
    Posts
    478
    Mentioned
    4 Post(s)
    Quoted
    4 Post(s)

    Default

    I see, you want the bottom script just clicking the images that are in there?
    Back from the dead.....

  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    I used a find bitmap on them, not sure if it's what you wanted, try it and see what you get:

    SCAR Code:
    program skriptas;


    procedure ScriptTerminate;
    begin
      GetSelf.WindowState := wsNormal;
    end;

    Var
    R, New_Tab, Tick, x, y: Integer;


    begin
      New_Tab := BitmapFromString(19, 10, 'beNr7/59swAAGyFw6aERWj' +
           '8xANhMXAxcXv8mYChhQAaYsHo14fITVVbicikslJhctcHCZRjIAAL' +
           'lQlng=');
      Tick := BitmapFromString(16, 14, 'beNp79+47EeD06dOZmZkRVYpd' +
           'h/S+EQJnzpzJzs4OqwQpBqKveMGFCxdycnJCyxUgivGrv3TpElBxS' +
           'DFCMRB9wQEuX74MVBxchKIYiE6cOPEZA1y5cgXo5sACeTTFQJSenn' +
           '7s2DFkxTdu3AAqDsjHolhWVTCiUjElJeXw4cOfwODmzZtAxX7Zcpi' +
           'K5dQEgVJARmS1YlJS0oEDB27dupWVleWbKYupWF5dECj18eNHCDeq' +
           'VikuLg4o4p2BRbGilhBEMVw9EMU0KHmlyWAqVtIGmfwBBjAVICNlX' +
           'SFgSniPBPAoVtFDV4xHvaoBSPE7NAAAxgCyow==');
    repeat
      GetSelf.WindowState := wsMinimized;

      Wait(3000);
      HoldMouse(515, 145, False);
      ReleaseMouse(515, 145, False);
      Wait(800);

      If FindBitmap(New_Tab, X, Y) Then
        ClickMouse(X, Y, True);

      Wait(19000);
      HoldMouse(395, 62, True);
      ReleaseMouse(395, 62, True);

      Inc(R);
      If FindBitmap(Tick, X, Y) Then
        ClickMouse(X, Y, True);
      Until(R=90000);
    end.

  6. #6
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aran armath - Yes.

    Naum - thnx for help. I will test it and write back.
    Last edited by MaksasMks; 05-01-2010 at 09:51 PM.

  7. #7
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    I'll do it for free, so basically if find tab then click new tab if find check mark click check mark?
    Oh Hai Dar

  8. #8
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Main_Ftw View Post
    I'll do it for free, so basically if find tab then click new tab if find check mark click check mark?
    Right Thnx for your kindly but Naum have writed script. I will keep my word.

    Naum - it seems to me that everythink will work fine. Pressing - New_Tab WORK. Now I need to get error for another BITMAP, I will get it tomorow.

    My Join Date: Sep 2006

  9. #9
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    MaksasMkjs help here is free, contact me @ Hermen Otter @ live .nl if you need help for free.(remove spaces)
    ~Hermen

  10. #10
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    Wanna tell us what is for? Maybe we can use appa or get page to improve on it. We like non rs scripting here
    Oh Hai Dar

  11. #11
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hermen Okey
    Main_Ftw I don't wanna

    Problems with Tick (when get error image).
    Code:
    program skriptas;
    
    
    procedure ScriptTerminate;
    begin
      GetSelf.WindowState := wsNormal;
    end;
    
    Var
    R, New_Tab, Tick, x, y: Integer;
    
    
    begin
      New_Tab := BitmapFromString(19, 10, 'beNr7/59swAAGyFw6aERWj' +
           '8xANhMXAxcXv8mYChhQAaYsHo14fITVVbicikslJhctcHCZRjIAAL' +
           'lQlng=');
      Tick := BitmapFromString(16, 14, 'beNp79+47EeD06dOZmZkRVYpd' +
           'h/S+EQJnzpzJzs4OqwQpBqKveMGFCxdycnJCyxUgivGrv3TpElBxS' +
           'DFCMRB9wQEuX74MVBxchKIYiE6cOPEZA1y5cgXo5sACeTTFQJSenn' +
           '7s2DFkxTdu3AAqDsjHolhWVTCiUjElJeXw4cOfwODmzZtAxX7Zcpi' +
           'K5dQEgVJARmS1YlJS0oEDB27dupWVleWbKYupWF5dECj18eNHCDeq' +
           'VikuLg4o4p2BRbGilhBEMVw9EMU0KHmlyWAqVtIGmfwBBjAVICNlX' +
           'SFgSniPBPAoVtFDV4xHvaoBSPE7NAAAxgCyow==');
    repeat
      GetSelf.WindowState := wsMinimized;
    
      Wait(3000);
      HoldMouse(515, 145, False);
      ReleaseMouse(515, 145, False);
      Wait(800);
    
      If FindBitmap(New_Tab, X, Y) Then
        ClickMouse(X, Y, True);
    
      Wait(19000);
      HoldMouse(395, 62, True);
      ReleaseMouse(395, 62, True);
    
      Inc(R);
      If FindBitmap(Tick, X, Y) Then // This part don't work when it's writed after "Inc(R);"//
         ClickMouse(970, 570, True);
         ClickMouse(690, 705, True);
      Until(R=90000);
    end.
    This works, but...

    Code:
    program skriptas;
    
    
    procedure ScriptTerminate;
    begin
      GetSelf.WindowState := wsNormal;
    end;
    
    Var
    R, New_Tab, Tick, x, y: Integer;
    
    
    begin
      New_Tab := BitmapFromString(19, 10, 'beNr7/59swAAGyFw6aERWj' +
           '8xANhMXAxcXv8mYChhQAaYsHo14fITVVbicikslJhctcHCZRjIAAL' +
           'lQlng=');
      Tick := BitmapFromString(16, 14, 'beNp79+47EeD06dOZmZkRVYpd' +
           'h/S+EQJnzpzJzs4OqwQpBqKveMGFCxdycnJCyxUgivGrv3TpElBxS' +
           'DFCMRB9wQEuX74MVBxchKIYiE6cOPEZA1y5cgXo5sACeTTFQJSenn' +
           '7s2DFkxTdu3AAqDsjHolhWVTCiUjElJeXw4cOfwODmzZtAxX7Zcpi' +
           'K5dQEgVJARmS1YlJS0oEDB27dupWVleWbKYupWF5dECj18eNHCDeq' +
           'VikuLg4o4p2BRbGilhBEMVw9EMU0KHmlyWAqVtIGmfwBBjAVICNlX' +
           'SFgSniPBPAoVtFDV4xHvaoBSPE7NAAAxgCyow==');
    repeat
      GetSelf.WindowState := wsMinimized;
    
      Wait(3000);
      HoldMouse(515, 145, False);
      ReleaseMouse(515, 145, False);
      Wait(800);
    
      If FindBitmap(New_Tab, X, Y) Then
        ClickMouse(X, Y, True);
    
      Wait(19000);
      HoldMouse(395, 62, True);
      ReleaseMouse(395, 62, True);
            
        If FindBitmap(Tick, X, Y) Then
        ClickMouse(970, 570, True); // It press this always. I need to press this only if Tick found. //
        ClickMouse(690, 705, True); // It press this always. I need to press this only if Tick found. //
    
      Inc(R);
      Until(R=90000);
    end.
    I use this:

    If FindBitmap(Tick, X, Y) Then
    ClickMouse(970, 570, True);
    ClickMouse(690, 705, True);

    Because this don't press error image that I needed. Maybe this is because of Tick image change color when mouse cursor is on error image.

    If FindBitmap(Tick, X, Y) Then
    ClickMouse(X, Y, True);
    Last edited by MaksasMks; 05-01-2010 at 11:19 PM.

  12. #12
    Join Date
    Jan 2008
    Location
    10° north of Hell
    Posts
    2,035
    Mentioned
    65 Post(s)
    Quoted
    164 Post(s)

    Default

    Quote Originally Posted by MaksasMks View Post
    ...
    Code:
    program skriptas;
    
    procedure ScriptTerminate;
    begin
      GetSelf.WindowState := wsNormal;
    end;
    
    var
      R, New_Tab, Tick, x, y: Integer;
    
    begin
      New_Tab := BitmapFromString(19, 10, 'beNr7/59swAAGyFw6aERWj' +
           '8xANhMXAxcXv8mYChhQAaYsHo14fITVVbicikslJhctcHCZRjIAAL' +
           'lQlng=');
      Tick := BitmapFromString(16, 14, 'beNp79+47EeD06dOZmZkRVYpd' +
           'h/S+EQJnzpzJzs4OqwQpBqKveMGFCxdycnJCyxUgivGrv3TpElBxS' +
           'DFCMRB9wQEuX74MVBxchKIYiE6cOPEZA1y5cgXo5sACeTTFQJSenn' +
           '7s2DFkxTdu3AAqDsjHolhWVTCiUjElJeXw4cOfwODmzZtAxX7Zcpi' +
           'K5dQEgVJARmS1YlJS0oEDB27dupWVleWbKYupWF5dECj18eNHCDeq' +
           'VikuLg4o4p2BRbGilhBEMVw9EMU0KHmlyWAqVtIGmfwBBjAVICNlX' +
           'SFgSniPBPAoVtFDV4xHvaoBSPE7NAAAxgCyow==');
    
      repeat
        GetSelf.WindowState := wsMinimized;
        Wait(3000);
        HoldMouse(515, 145, False);
        ReleaseMouse(515, 145, False);
        Wait(800);
    
        if FindBitmap(New_Tab, X, Y) then
          ClickMouse(X, Y, True);
    
        Wait(19000);
        HoldMouse(395, 62, True);
        ReleaseMouse(395, 62, True);
            
        if FindBitmap(Tick, X, Y) then
        begin    
          ClickMouse(970, 570, True);
          ClickMouse(690, 705, True);
        end;
    
        Inc(R);
      until(R >= 90000);
    end.
    Last edited by Dgby714; 05-01-2010 at 11:54 PM.

    Dg's Small Procedures | IRC Quotes
    Thank Wishlah for my nice new avatar!
    Quote Originally Posted by IRC
    [22:12:05] <Dgby714> Im agnostic
    [22:12:36] <Blumblebee> :O ...you can read minds

  13. #13
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dgby714's thnx, thnx for everyone who helped. Now looks like script work fine.
    Naum I should use this http://villavu.com/forum/misc.php?do=donate or somethink else?

  14. #14
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Yeah, I don't want the money. We'd all appreciate it though if you donated it to SRL, via that link

  15. #15
    Join Date
    Sep 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Naum View Post
    Yeah, I don't want the money. We'd all appreciate it though if you donated it to SRL, via that link
    You should feel free to recive that USD. Your choice. Respect

    I've donated
    Last edited by MaksasMks; 05-02-2010 at 08:02 PM.

  16. #16
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by MaksasMks View Post
    You should feel free to recive that USD. Your choice. Respect

    I've donated
    PM an admin with proof of your donation and you will receive a cup .
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  17. #17
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by MaksasMks View Post
    You should feel free to recive that USD. Your choice. Respect

    I've donated
    Thank you for your genereous donation, MaksasMks. Your status has been updated.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  18. #18
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    This thread made me smile

  19. #19
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    Thank you for your genereous donation, MaksasMks. Your status has been updated.
    Can Donors can receive the old timer cup regardless of whether or not they are an SRL Member?
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  20. #20
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    ^ Seems as though that's correct.

  21. #21
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    He is an old timer. Registered back Sept 17 2006. Old timer has nothing to do with it.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  22. #22
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    He is an old timer. Registered back Sept 17 2006. Old timer has nothing to do with it.
    How much is the amount that i am supposed to donate to get the cup? Someone got for 2,87$ :/ I did the 2$ button.
    There used to be something meaningful here.

  23. #23
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by Frement View Post
    How much is the amount that i am supposed to donate to get the cup? Someone got for 2,87$ :/ I did the 2$ button.
    $5+
    and you should donate because you want to help out, not to get a picture next to your name.

    Either way though, money is money I guess.

  24. #24
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Quote Originally Posted by NCDS View Post
    $5+
    and you should donate because you want to help out, not to get a picture next to your name.

    Either way though, money is money I guess.
    I dont really care about the picture, and i would have donated anyway, but i heard u get an unique avatar if u donate.
    There used to be something meaningful here.

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
  •