SRL Archive - OSR Help

10 USD by PP for simple help

MaksasMks

2010-05-01 17:34:56

This is script example:

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:

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);

[B]Find image [IMG]http://rsbot.lt/images/articles/2sdhdh.bmp[/IMG] Then press it.[/B]

  Wait(19000);
  HoldMouse(395, 62, True);
  ReleaseMouse(395, 62, True);
  
  Inc(R);
  Until(R=90000);

[B]If sometime in script process get image (get error) [IMG]http://rsbot.lt/images/articles/1sdhsdh.bmp[/IMG] Then press it and work forward.[/B]
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.

Main

2010-05-01 17:36:04

Explain more or tell us the use.

MaksasMks

2010-05-01 17:44:15

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.

aran armath

2010-05-01 17:47:19

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

Naum

2010-05-01 17:48:20

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

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.

MaksasMks

2010-05-01 17:49:13

aran armath - Yes.

Naum - thnx for help. I will test it and write back.

Main

2010-05-01 17:50:07

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

MaksasMks

2010-05-01 18:03:58

From: Main_Ftw
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 :biggrin:

ShowerThoughts

2010-05-01 18:13:15

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

Main

2010-05-01 18:44:44

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

MaksasMks

2010-05-01 19:15:19

Hermen Okey :)
Main_Ftw I don't wanna :norris:

Problems with Tick (when get error image).

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);
[B]  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);[/B]
  Until(R=90000);
end.

This works, but…

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);
        
[B]    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. //[/B]

  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);

Dgby714

2010-05-01 19:51:41

From: MaksasMks
…

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.

MaksasMks

2010-05-02 15:42:02

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?

Naum

2010-05-02 15:45:21

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

MaksasMks

2010-05-02 15:57:45

From: Naum
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 :norris:

I've donated :stirthepot:

Sex

2010-05-02 17:22:08

From: MaksasMks
You should feel free to recive that USD. Your choice. Respect :norris:

I've donated :stirthepot:

PM an admin with proof of your donation and you will receive a cup :).

WT-Fakawi

2010-05-09 04:34:53

From: MaksasMks
You should feel free to recive that USD. Your choice. Respect :norris:

I've donated :stirthepot:

Thank you for your genereous donation, MaksasMks. Your status has been updated.

Dynamite

2010-05-09 11:32:50

This thread made me smile :)

Sex

2010-05-09 13:26:28

From: WT-Fakawi
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?

i luffs yeww

2010-05-09 16:50:38

^ Seems as though that's correct.

WT-Fakawi

2010-05-09 16:59:28

He is an old timer. Registered back Sept 17 2006. Old timer has nothing to do with it.

Frement

2010-05-09 17:02:40

From: WT-Fakawi
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.

NCDS

2010-05-09 17:09:53

From: Frement
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.

Frement

2010-05-09 17:11:25

From: NCDS
$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.