Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal
light

[REQUEST]RoyalPK afk auto login

Recommended Posts

Hi!

can some1 help me with a script i had a few years ago on old stork.

it Xed the cmd handler every 10th minute, (that will make the client shut down)

then reopened it, wrote in username and password, and then used enter for like 70 seconds (incase the charachter is still online when trying to login,

and it just kept doing that, and u never went to afk room, just xed client, restarted it, wrote in name and pass.

 

can some1 help me with this script? give some pointers or anything!

or if some1 has a better idea help me with that instead

 

best regards - Robin

Share this post


Link to post
Share on other sites

Hey, I'm not quite sure what you mean - but im developing some RoyalPK scripts myself. So you want the client to be closed and then re-opened? can't you just log in and out? I'm not the best at scripting and I don't know if a script can set crosshair target to the client once opened and closed. I wrote this script, hopefully it helps you. It AFKs whatever and logs out every 10minutes, and I THINK that should skip AFK room. (P.S: You can change when it logs out in the LOGOUT_IN_MINS constant

 

const
 LOGIN_OK_X = 440;
 LOGIN_OK_Y = 245;

 CLICK_HERE_TO_LOGIN_X = 229;
 CLICK_HERE_TO_LOGIN_Y = 320;

 SPANNER_X = 321;
 SPANNER_Y = 423;

 CLICK_HERE_TO_LOGOUT_X = 362;
 CLICK_HERE_TO_LOGOUT_Y = 329;

 LOGOUT_IN_MINS = 10; //when to Logout/Login(write it in minutes!)


procedure RoyalPK_Login;
begin
    ClickMouse(CLICK_HERE_TO_LOGIN_X, CLICK_HERE_TO_LOGIN_Y, mbLeft);               
    Wait(5000);
    MoveMouse(LOGIN_OK_X, LOGIN_OK_Y);
    Wait(3000);
    ClickMouse(LOGIN_OK_X, LOGIN_OK_Y, mbLeft);   
end; 

procedure RoyalPK_Logout;
begin
    MoveMouse(SPANNER_X, SPANNER_Y);               
    Wait(5000);
    MoveMouse(CLICK_HERE_TO_LOGOUT_X, CLICK_HERE_TO_LOGOUT_Y);
    Wait(3000);
    ClickMouse(CLICK_HERE_TO_LOGOUT_X, CLICK_HERE_TO_LOGOUT_Y, mbLeft);
    Wait(10000);
    RoyalPK_Login;   
end;

var
 t: Integer; 
procedure AFK;
begin
 repeat
   Wait(60000);
   IncEx(t, 1);
 until t = LOGOUT_IN_MINS;
   RoyalPK_Logout;
   t := 0;
end;


begin
 t := 0;
   repeat
     AFK;              
   until False;      
end.

 

EDIT: Start script already logged on AFKing! also you may have to tweak some of the fixed coordinate constants as the X and Y value may be different on your game screen :)

Share this post


Link to post
Share on other sites

Hey man!

thanks for your reply!

but as you know, the npcs are aggresive on royalpk. so logging out isnt an option - because its not possible when beeing in fight :)

so if you x the client and reopen, u'll never come to the afkroom

Share this post


Link to post
Share on other sites
Hey man!

thanks for your reply!

but as you know, the npcs are aggresive on royalpk. so logging out isnt an option - because its not possible when beeing in fight :)

so if you x the client and reopen, u'll never come to the afkroom

 

Is the afk room the same as storkpk's? If so it's very easy to just solve the questions and be moved back to your place. I'll check if I still have the script I used.

Share this post


Link to post
Share on other sites

Found it! Keep in mind this is pretty outdated and only works with Scar 3.15

This will only solve the "correct color" question. This is completely untouched since it was made back in '07 except for I added a wait in the main loop. Other than that... and the fact that it was my first or second script.. Edit it as needed and try to update it so it's 3.38+ compatible.

 

{.Script Info:
# ScriptName  = AfkStork
# Author      = Tyler aka *retracted*
# Description = 
# Version     = 2.0 Added Mod Protection & Screenshots
# Date        = Saturday, Dec 3rd, 2007
# Comments    = Lags a bit with the bitmaps. (added a wait at end of main loop April 10th, 2013)
/Script Info}

// SETUP'S ON LINES 58 AND 59 -- Screenshots are saved to your main scar folder(C:\Program Files\Scar***)

{~~READ THE FUCKING COMMENTS & KNOWN BUGS IF YOUR HAVING PROBLEMS~~}

//////////////////// Known Bugs /////////////////////////
/////////////////////// LAG ///////////////////////////////
//Lag, yep lag, caused by bitmap images within the script////
//It was the only way I could find out how to actually have//
//the script select a specific color/image.(bitmap)//////////
///////////////////////////////////////////////////////////

///////////////////// "White" ///////////////////////////////
//When any white text or white image is placed ontop of the//
//StorkPk window it will click on the white and you will get////////
//A read out in the debug box saying "Found White, Clicking White"//
//If you want to fix this, string your own images. Or just don't////
//Put any windows ontop of the stork pk window!///////////////////
////////////////////////////////////////////////////////////////

//////////////////// Other Colors ////////////////////////////////
//Some of the colors such as Dark Red and Green are not selected///////////
//If they are the correct word & at the top of the list of colored words.//
///////////////////////////////////////////////////////////////////////////

////////////////// Hazelmere //////////////////////////////
//If you notice you are not selecting him quick enough or///
//If it's to quick change the Waits on line 223 and 235 to//
//Whatever you want, faster or slower, 1000 = 1 second//////
//////////////////////////////////////////////////////////

//IMPORTANT: Have your map set up so it looks like this:
// If you dont understand the drawing below go here:
// http://img139.imageshack.us/my.php?image=mapix9.png
// OR
// *retracted*
//          N
//     '   ,
//        ,   .
//W______,_____E
//  .   ,
//     ,
//    ,    '
//   S
//The reason this is done is so that Hazelmere's body is still visible even if he's under you, most of the time.


program AfkStork;
  const
  Hazel=8437792; //The color of Hazelmere's legs seem to work the best, Try his green arms if you want.
  WaitToLogin=20000; //Set a wait time to login, dont make it to short or else it's obvious you have autologin.
  var
     a, x, y: Integer; // A is used to stop the repeat if mod's are detected.
     login, loginOk, TalkToHazel, Blue, DarkRed, Green, Magenta, Orange, Red, White, Yellow, Stork, Tob3, Tia, Xpheus, Ddr, S_1_u_r_r_y, Ukpka: Integer;

  procedure loadBmps;
  begin
     { 'Click here to login' button }
       login := BitmapFromString(63, 10, 'beNrVkkEKwlAMRD2uoihWK4p' +
      'ijyCKiCL2rH4MhpBJ5telIYuXyUx+F+360afGzcn26FsoWiBm3Gap' +
      'LIgPYUp5sjpLu+e4npl/SoVBtWWnSk3bi4LjcJVtceQ2cnbI68Kzz' +
      'VVB2ZVdCVfNaMvGUEE9TM23N9ELKLuyK+GqGW3ZGCqoh6nF7i56Ac' +
      'eucUXMxDb8Dv+wMi73D9ELKLsRuWpGG09Vg2GqOTwVpN1v4HQduTn' +
      'zhCkezN4qtT6+FLTt1olWIeaqx30DSYV3RG+7/l/7De14NTY=');

     { 'Ok' button }
       loginOk := BitmapFromString(70, 18, 'beNrtlN8HAkEQx++P7KGXe0lO+u' +
      'Wcc9Y5R5KuSOJEEkmk/7Jh+Jpmt/exWp+H787Mw3xYm7rRrAPJ9/F' +
      'bsmKNYdYNUkeMF3smCR3VxdUgMMryAwEFvvqVX9kOMJoUR4KX5Axk' +
      'ETk4aQEYTcsTwXtyBrIon6IaMwKM5lVP8KqcgSxKIzVmBBgt3ZngV' +
      'TkDWVQ/hpq0AIzy+kJgVb76FWQ1ZgcYFc2VCf7equtnO8CobG9A6f' +
      'gtP9sBRtXqHgcwcutHHMCo3jzjAEbN9hUHMGp37ziAEYVoYKM/1vk' +
      'ARwaenA==');

     { 'Blue' Color & Word }
       Blue := BitmapFromString(19, 6, 'beNpjYGBg+A9GWBn4BYlRg0sj8' +
      'TZiIpJsxCWFaQuRfiTCawAD6Ea6');

     { 'DarkRed' Color & Word }
       DarkRed := BitmapFromString(48, 7, 'beNqtUkEOADAE6/9f5Wlbto' +
      'sMrcTEqYSqAjvs5A1zmSKx5ONB+GSosbKT4Gg3R9DomUSQ6sy0Wq2' +
      'QUnfIVxuJPtWz+nwk+OVfmIkmLfrXP0YNMOSTLmWEF97dgoE=');

     { 'Green' Color & Word }
       Green := BitmapFromString(31, 9, 'beNpjYEAB/5EQLhE8yhgwVGIa' +
      'jpWLVTuaIC4F/6lhOH4X4vE+piP/U8Nw/EHHQA3DyQsWPJaSkVrwJ' +
      '5ihAgCo3W+R');

     { 'Magenta' Color & Word }
       Magenta := BitmapFromString(43, 8, 'beNq9UkEKACAI2/8/bQcvYu' +
      'lYRkNiyJyKAQbzAOCvIyYjSUkqSMrdP/HoQ3upyaM/LeyXlUadr9D' +
      'sJZXf9Xp4F8qrG1XKoX+P6uv+hDqzgAWQjDTa');

     { 'Orange' Color & Word }
       Orange := BitmapFromString(36, 8, 'beNpjYPg/wQGIGBgQDAhAYyO' +
      'rQVOPXxaPSgZUANdOjAnEC2LahV8NMYK4nIoZhlTxAprjMQ2nJGTw' +
      'qMRqOGZk4TcBjwKsHiQb4AoNGgGivAAAY+Plsg==');

     { 'Red' Color & Word }
       Red := BitmapFromString(20, 9, 'beNpjYICA/2CEzEYWQVaAJo5LCl' +
      'PwPw5bGIjQy4DbPWgOJkYvfu+Qp5egf3FpJz6c6Q0AfclIuA==');

     { 'White' Color & Word }
       White := BitmapFromString(26, 7, 'beNpjYPj//z8DA4hEZmAVRGbg' +
      'YhOjnm6mIQM0r5HtNjigimnkuQ2PZxmoDgCv5g//');

     { 'Yellow' Color & Word }
       Yellow := BitmapFromString(35, 9, 'beNpjYACC//9BCAIgbEwR4pV' +
      'B2FgF8bPxMPDIYlUJB3S2CC1YyLAImSToI0xB/BZh9Qua4VQJOpIs' +
      'oiTVYRqONXyGDwAAocgNAg==');

     {Selects the 'Talk-To Hazelmere' option}
       TalkToHazel := BitmapFromString(91, 8, 'beNrtleEKwCAIhH3/l2' +
      '6wWEm7O0UK9mP+sjDEz9PMurXbvLP4w9pjyxFFmr/zx+6zmzAMOix' +
      'jPu+oCAKBNQpi73gGhFFiJQsOzA+fsx4xIIxGAQhsPWyNaHdeGEeB' +
      'HFJIQfBlIOy5TBGPjOezZWR0LWyaygrJ9Mh3vLBUtwMRy+QLIyOAM' +
      'PGUfxmo8PwvE/pChGyV/TbtAhs59Cg=');

     {Kills Client if Stork talks}
       Stork := BitmapFromString(42, 9, 'beNqtU9EOACAE9P8/rbcmh46' +
      'y1hZxHEQyUT2O1fPifJ2J9NrPIloLHYsaeCE5ToMmvnbMIYuWkVPo' +
      '7W3jFH2foTPdD/+QTDLorYEJCf/FfGtW39FnCYT7fp15Fn0BKIQc8' +
      'g==');

     {Kills Client if Tob3 Talks}
       Tob3 := BitmapFromString(38, 9, 'beNpjYPj/H4SQATEimACrGmRB' +
      'NAVwLoSBSxZNBKuBuJyHqRjNEDw24rEIq6W43IbJJsNGYkJ45NiIJ' +
      'xIpiUeC0YeZSilPq1gTP678RRMAADBhHvA=');

     {Kills Client if Tia Talks}
       Tia := BitmapFromString(28, 8, 'beNr7zwAH//+jIGSAJgWRxVSGB' +
      'nCZg18Ev4FourA6GA8XUz2mOciGEzQTUxAzcDCtI+hOrNFBoZmYgU' +
      'ahmVgDlpjAJMFMAEvV1Ss=');

     {Kills Client if Xpheus Talks}
       Xpheus := BitmapFromString(54, 7, 'beNqtUkEKACAI6/+fNiIIcW' +
      '4aJR1kpc41GzvM1vHhEczDY1b4K5DJocGubkHdk4ngkYD7KViV6on' +
      'bve+VtsIcRdBO+AKGKR2GQsOruU1Z8B+bDMu2TU9qHzKepQmZN94t' +
      'p4SdG92OgA==');

     {Kills Client if Ddr Talks}
       Ddr := BitmapFromString(30, 8, 'beNpjYACC//9BCBkgi+Bi41KPL' +
      'IgmC2GgcfFbilUvVhG4IB6TMfUS6QziTcYlOKRNxhrIxKQTPOGMSx' +
      'lWe/HoQjEZAFeI/QM=');

     {Kills Client if S1urry Talks}
       S_1_u_r_r_y := BitmapFromString(63, 7, 'beNrNlFkKACAIRLv/p' +
      'S1/YnAZI2iRPkrNXoPV2jARHWjoMVGfjP4wdM485MTAZVkkgyc6kI' +
      '3E7ytjMjo5mKm5DZ+pQaQODzVzrwO/wgV4w1zCl73xPzwv+xY+bPj' +
      '136aEJw9zQyKNdkxUNtg=');

     {Kills Client if Ukpka Talks}
       Ukpka := BitmapFromString(46, 8, 'beNqtUlsKACAI6/6XtiII0a3' +
      'WQ/ownTpbVpqZ9ePNR0J2XnMVMxGZJw6HTYTxHGS7ZN+XhCBMLZjA' +
      '5gpS3E5kwrJbJHuWRyZrISDyVNM7dR6R8JPc/ViFgM6Kqflr/di2A' +
      'taFjII=');

  end;

  procedure StorkScan;
  begin
     if (findbitmap(Stork, x, y)) then
     begin
        SaveScreenShot(AppPath+'StorkWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Stork Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

     procedure Tob3Scan;
  begin
     if (findbitmap(Tob3, x, y)) then
     begin
        SaveScreenShot(AppPath+'Tob3WasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Tob3 Was Near, Killing Client, ScreenShot saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

     procedure UkpkaScan;
  begin
     if (findbitmap(Ukpka, x, y)) then
     begin
        SaveScreenShot(AppPath+'UkpkaWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Ukpka Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

        procedure TiaScan;
  begin
     if (findbitmap(Tia, x, y)) then
     begin
        SaveScreenShot(AppPath+'TiaWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Tia Was Near, Killing Client, ScreenShot saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

  procedure XpheusScan;
  begin
     if (findbitmap(Xpheus, x, y)) then
     begin
        SaveScreenShot(AppPath+'XpheusWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Xpheus Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

     procedure DdrScan;
  begin
     if (findbitmap(Ddr, x, y)) then
     begin
        SaveScreenShot(AppPath+'DdrWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Ddr Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

        procedure S1urryScan;
  begin
     if (findbitmap(S_1_u_r_r_y, x, y)) then
     begin
        SaveScreenShot(AppPath+'S1urryWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('S1urry Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

  procedure logoutScan;
  begin
     if (findbitmap(login, x, y)) then
     begin
        wait(WaitToLogin+random(2000));
        writeln('Logged out - Found login box');
        MoveMouseSmooth(x, y);
        wait(1000);
        clickmouse(x, y, true);
        wait(100);
     end;
  end;

  procedure okScan;
  begin
     if (findbitmap(loginOk, x, y)) then
     begin
        writeln('Found ok box');
        MoveMouseSmooth(x, y);
        wait(1000);
        clickmouse(x, y, true);
        wait(5000);
        moveMouseSmooth(133,133)
     end;
  end;

  procedure FindHazelScan;
  begin
     if (findcolorspiral(x,y,Hazel,20,20,500,350)) then
     begin
        moveMouseSmooth(x, y);
        wait(100);
        clickmouse(x, y, false); //false = right click
        wait(1000);
     end;
  end;

  procedure TalkToScan;
  begin
     if (findbitmap(TalkToHazel, x, y)) then
     begin
        writeln('Found Hazelmere trying to Talk-To the Nigger');
        moveMouseSmooth(x, y);
        wait(100);
        clickmouse(x, y, true); //Clicks on the Talk-To Hazelmere
        wait(1000);
     end;
  end;

  procedure BlueWordScan;
  begin
     if (findbitmap(Blue, x, y)) then
     begin
        writeln('Found Blue, Clicking Blue');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure DarkRedWordScan;
  begin
     if (findbitmap(DarkRed, x, y)) then
     begin
        writeln('Found Dark Red, Clicking Dark Red');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure GreenWordScan;
  begin
     if (findbitmap(Green, x, y)) then
     begin
        writeln('Found Green, Clicking Green');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure MagentaWordScan;
  begin
     if (findbitmap(Magenta, x, y)) then
     begin
        writeln('Found Magenta/Pink, Clicking Magenta/Pink');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure OrangeWordScan;
  begin
     if (findbitmap(Orange, x, y)) then
     begin
        writeln('Found Orange, Clicking Orange');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure RedWordScan;
  begin
     if (findbitmap(Red, x, y)) then
     begin
        writeln('Found Red, Clicking Red');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure WhiteWordScan;
  begin
     if (findbitmap(White, x, y)) then
     begin
        writeln('Found White, Clicking White');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure YellowWordScan;
  begin
     if (findbitmap(Yellow, x, y)) then
     begin
        writeln('Found Yellow, Clicking Yellow');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

begin
  loadBmps;
  A := 1;
  repeat
     DdrScan;
     TiaScan;
     Tob3Scan;
     StorkScan;
     UkpkaScan;
     XpheusScan;
     S1urryScan;
     logoutScan;
     okScan;
     BlueWordScan;
     DarkRedWordScan;
     GreenWordScan;
     MagentaWordScan;
     OrangeWordScan;
     RedWordScan;
     WhiteWordScan;
     YellowWordScan;
     FindHazelScan;
     TalkToScan;   
     wait(1000);
  until(A=0);
end.

{Var
x, y : Integer;
Kane : Boolean;         Extra bit of code I found intresting.

Begin
If(getcolor(x, y)=0)then Kane := True Else Kane := False;
If(Kane=True)Then Writeln('Found The Color!');
End.}

  • Like 1

Share this post


Link to post
Share on other sites
Found it! Keep in mind this is pretty outdated and only works with Scar 3.15

This will only solve the "correct color" question. This is completely untouched since it was made back in '07 except for I added a wait in the main loop. Other than that... and the fact that it was my first or second script.. Edit it as needed and try to update it so it's 3.38+ compatible.

 

{.Script Info:
# ScriptName  = AfkStork
# Author      = Tyler aka *retracted*
# Description = 
# Version     = 2.0 Added Mod Protection & Screenshots
# Date        = Saturday, Dec 3rd, 2007
# Comments    = Lags a bit with the bitmaps. (added a wait at end of main loop April 10th, 2013)
/Script Info}

// SETUP'S ON LINES 58 AND 59 -- Screenshots are saved to your main scar folder(C:\Program Files\Scar***)

{~~READ THE FUCKING COMMENTS & KNOWN BUGS IF YOUR HAVING PROBLEMS~~}

//////////////////// Known Bugs /////////////////////////
/////////////////////// LAG ///////////////////////////////
//Lag, yep lag, caused by bitmap images within the script////
//It was the only way I could find out how to actually have//
//the script select a specific color/image.(bitmap)//////////
///////////////////////////////////////////////////////////

///////////////////// "White" ///////////////////////////////
//When any white text or white image is placed ontop of the//
//StorkPk window it will click on the white and you will get////////
//A read out in the debug box saying "Found White, Clicking White"//
//If you want to fix this, string your own images. Or just don't////
//Put any windows ontop of the stork pk window!///////////////////
////////////////////////////////////////////////////////////////

//////////////////// Other Colors ////////////////////////////////
//Some of the colors such as Dark Red and Green are not selected///////////
//If they are the correct word & at the top of the list of colored words.//
///////////////////////////////////////////////////////////////////////////

////////////////// Hazelmere //////////////////////////////
//If you notice you are not selecting him quick enough or///
//If it's to quick change the Waits on line 223 and 235 to//
//Whatever you want, faster or slower, 1000 = 1 second//////
//////////////////////////////////////////////////////////

//IMPORTANT: Have your map set up so it looks like this:
// If you dont understand the drawing below go here:
// http://img139.imageshack.us/my.php?image=mapix9.png
// OR
// *retracted*
//          N
//     '   ,
//        ,   .
//W______,_____E
//  .   ,
//     ,
//    ,    '
//   S
//The reason this is done is so that Hazelmere's body is still visible even if he's under you, most of the time.


program AfkStork;
  const
  Hazel=8437792; //The color of Hazelmere's legs seem to work the best, Try his green arms if you want.
  WaitToLogin=20000; //Set a wait time to login, dont make it to short or else it's obvious you have autologin.
  var
     a, x, y: Integer; // A is used to stop the repeat if mod's are detected.
     login, loginOk, TalkToHazel, Blue, DarkRed, Green, Magenta, Orange, Red, White, Yellow, Stork, Tob3, Tia, Xpheus, Ddr, S_1_u_r_r_y, Ukpka: Integer;

  procedure loadBmps;
  begin
     { 'Click here to login' button }
       login := BitmapFromString(63, 10, 'beNrVkkEKwlAMRD2uoihWK4p' +
      'ijyCKiCL2rH4MhpBJ5telIYuXyUx+F+360afGzcn26FsoWiBm3Gap' +
      'LIgPYUp5sjpLu+e4npl/SoVBtWWnSk3bi4LjcJVtceQ2cnbI68Kzz' +
      'VVB2ZVdCVfNaMvGUEE9TM23N9ELKLuyK+GqGW3ZGCqoh6nF7i56Ac' +
      'eucUXMxDb8Dv+wMi73D9ELKLsRuWpGG09Vg2GqOTwVpN1v4HQduTn' +
      'zhCkezN4qtT6+FLTt1olWIeaqx30DSYV3RG+7/l/7De14NTY=');

     { 'Ok' button }
       loginOk := BitmapFromString(70, 18, 'beNrtlN8HAkEQx++P7KGXe0lO+u' +
      'Wcc9Y5R5KuSOJEEkmk/7Jh+Jpmt/exWp+H787Mw3xYm7rRrAPJ9/F' +
      'bsmKNYdYNUkeMF3smCR3VxdUgMMryAwEFvvqVX9kOMJoUR4KX5Axk' +
      'ETk4aQEYTcsTwXtyBrIon6IaMwKM5lVP8KqcgSxKIzVmBBgt3ZngV' +
      'TkDWVQ/hpq0AIzy+kJgVb76FWQ1ZgcYFc2VCf7equtnO8CobG9A6f' +
      'gtP9sBRtXqHgcwcutHHMCo3jzjAEbN9hUHMGp37ziAEYVoYKM/1vk' +
      'ARwaenA==');

     { 'Blue' Color & Word }
       Blue := BitmapFromString(19, 6, 'beNpjYGBg+A9GWBn4BYlRg0sj8' +
      'TZiIpJsxCWFaQuRfiTCawAD6Ea6');

     { 'DarkRed' Color & Word }
       DarkRed := BitmapFromString(48, 7, 'beNqtUkEOADAE6/9f5Wlbto' +
      'sMrcTEqYSqAjvs5A1zmSKx5ONB+GSosbKT4Gg3R9DomUSQ6sy0Wq2' +
      'QUnfIVxuJPtWz+nwk+OVfmIkmLfrXP0YNMOSTLmWEF97dgoE=');

     { 'Green' Color & Word }
       Green := BitmapFromString(31, 9, 'beNpjYEAB/5EQLhE8yhgwVGIa' +
      'jpWLVTuaIC4F/6lhOH4X4vE+piP/U8Nw/EHHQA3DyQsWPJaSkVrwJ' +
      '5ihAgCo3W+R');

     { 'Magenta' Color & Word }
       Magenta := BitmapFromString(43, 8, 'beNq9UkEKACAI2/8/bQcvYu' +
      'lYRkNiyJyKAQbzAOCvIyYjSUkqSMrdP/HoQ3upyaM/LeyXlUadr9D' +
      'sJZXf9Xp4F8qrG1XKoX+P6uv+hDqzgAWQjDTa');

     { 'Orange' Color & Word }
       Orange := BitmapFromString(36, 8, 'beNpjYPg/wQGIGBgQDAhAYyO' +
      'rQVOPXxaPSgZUANdOjAnEC2LahV8NMYK4nIoZhlTxAprjMQ2nJGTw' +
      'qMRqOGZk4TcBjwKsHiQb4AoNGgGivAAAY+Plsg==');

     { 'Red' Color & Word }
       Red := BitmapFromString(20, 9, 'beNpjYICA/2CEzEYWQVaAJo5LCl' +
      'PwPw5bGIjQy4DbPWgOJkYvfu+Qp5egf3FpJz6c6Q0AfclIuA==');

     { 'White' Color & Word }
       White := BitmapFromString(26, 7, 'beNpjYPj//z8DA4hEZmAVRGbg' +
      'YhOjnm6mIQM0r5HtNjigimnkuQ2PZxmoDgCv5g//');

     { 'Yellow' Color & Word }
       Yellow := BitmapFromString(35, 9, 'beNpjYACC//9BCAIgbEwR4pV' +
      'B2FgF8bPxMPDIYlUJB3S2CC1YyLAImSToI0xB/BZh9Qua4VQJOpIs' +
      'oiTVYRqONXyGDwAAocgNAg==');

     {Selects the 'Talk-To Hazelmere' option}
       TalkToHazel := BitmapFromString(91, 8, 'beNrtleEKwCAIhH3/l2' +
      '6wWEm7O0UK9mP+sjDEz9PMurXbvLP4w9pjyxFFmr/zx+6zmzAMOix' +
      'jPu+oCAKBNQpi73gGhFFiJQsOzA+fsx4xIIxGAQhsPWyNaHdeGEeB' +
      'HFJIQfBlIOy5TBGPjOezZWR0LWyaygrJ9Mh3vLBUtwMRy+QLIyOAM' +
      'PGUfxmo8PwvE/pChGyV/TbtAhs59Cg=');

     {Kills Client if Stork talks}
       Stork := BitmapFromString(42, 9, 'beNqtU9EOACAE9P8/rbcmh46' +
      'y1hZxHEQyUT2O1fPifJ2J9NrPIloLHYsaeCE5ToMmvnbMIYuWkVPo' +
      '7W3jFH2foTPdD/+QTDLorYEJCf/FfGtW39FnCYT7fp15Fn0BKIQc8' +
      'g==');

     {Kills Client if Tob3 Talks}
       Tob3 := BitmapFromString(38, 9, 'beNpjYPj/H4SQATEimACrGmRB' +
      'NAVwLoSBSxZNBKuBuJyHqRjNEDw24rEIq6W43IbJJsNGYkJ45NiIJ' +
      'xIpiUeC0YeZSilPq1gTP678RRMAADBhHvA=');

     {Kills Client if Tia Talks}
       Tia := BitmapFromString(28, 8, 'beNr7zwAH//+jIGSAJgWRxVSGB' +
      'nCZg18Ev4FourA6GA8XUz2mOciGEzQTUxAzcDCtI+hOrNFBoZmYgU' +
      'ahmVgDlpjAJMFMAEvV1Ss=');

     {Kills Client if Xpheus Talks}
       Xpheus := BitmapFromString(54, 7, 'beNqtUkEKACAI6/+fNiIIcW' +
      '4aJR1kpc41GzvM1vHhEczDY1b4K5DJocGubkHdk4ngkYD7KViV6on' +
      'bve+VtsIcRdBO+AKGKR2GQsOruU1Z8B+bDMu2TU9qHzKepQmZN94t' +
      'p4SdG92OgA==');

     {Kills Client if Ddr Talks}
       Ddr := BitmapFromString(30, 8, 'beNpjYACC//9BCBkgi+Bi41KPL' +
      'IgmC2GgcfFbilUvVhG4IB6TMfUS6QziTcYlOKRNxhrIxKQTPOGMSx' +
      'lWe/HoQjEZAFeI/QM=');

     {Kills Client if S1urry Talks}
       S_1_u_r_r_y := BitmapFromString(63, 7, 'beNrNlFkKACAIRLv/p' +
      'S1/YnAZI2iRPkrNXoPV2jARHWjoMVGfjP4wdM485MTAZVkkgyc6kI' +
      '3E7ytjMjo5mKm5DZ+pQaQODzVzrwO/wgV4w1zCl73xPzwv+xY+bPj' +
      '136aEJw9zQyKNdkxUNtg=');

     {Kills Client if Ukpka Talks}
       Ukpka := BitmapFromString(46, 8, 'beNqtUlsKACAI6/6XtiII0a3' +
      'WQ/ownTpbVpqZ9ePNR0J2XnMVMxGZJw6HTYTxHGS7ZN+XhCBMLZjA' +
      '5gpS3E5kwrJbJHuWRyZrISDyVNM7dR6R8JPc/ViFgM6Kqflr/di2A' +
      'taFjII=');

  end;

  procedure StorkScan;
  begin
     if (findbitmap(Stork, x, y)) then
     begin
        SaveScreenShot(AppPath+'StorkWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Stork Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

     procedure Tob3Scan;
  begin
     if (findbitmap(Tob3, x, y)) then
     begin
        SaveScreenShot(AppPath+'Tob3WasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Tob3 Was Near, Killing Client, ScreenShot saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

     procedure UkpkaScan;
  begin
     if (findbitmap(Ukpka, x, y)) then
     begin
        SaveScreenShot(AppPath+'UkpkaWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Ukpka Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

        procedure TiaScan;
  begin
     if (findbitmap(Tia, x, y)) then
     begin
        SaveScreenShot(AppPath+'TiaWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Tia Was Near, Killing Client, ScreenShot saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

  procedure XpheusScan;
  begin
     if (findbitmap(Xpheus, x, y)) then
     begin
        SaveScreenShot(AppPath+'XpheusWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Xpheus Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

     procedure DdrScan;
  begin
     if (findbitmap(Ddr, x, y)) then
     begin
        SaveScreenShot(AppPath+'DdrWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('Ddr Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

        procedure S1urryScan;
  begin
     if (findbitmap(S_1_u_r_r_y, x, y)) then
     begin
        SaveScreenShot(AppPath+'S1urryWasNear.bmp');
        wait(2000);
        A := 0;
        writeln('S1urry Was Near, Killing Client, ScreenShot Saved');
        wait(1000);
        MoveMouseSmooth(497, 16);
        wait(1000);
        ClickMouse(497, 16, true);
     end;
  end;

  procedure logoutScan;
  begin
     if (findbitmap(login, x, y)) then
     begin
        wait(WaitToLogin+random(2000));
        writeln('Logged out - Found login box');
        MoveMouseSmooth(x, y);
        wait(1000);
        clickmouse(x, y, true);
        wait(100);
     end;
  end;

  procedure okScan;
  begin
     if (findbitmap(loginOk, x, y)) then
     begin
        writeln('Found ok box');
        MoveMouseSmooth(x, y);
        wait(1000);
        clickmouse(x, y, true);
        wait(5000);
        moveMouseSmooth(133,133)
     end;
  end;

  procedure FindHazelScan;
  begin
     if (findcolorspiral(x,y,Hazel,20,20,500,350)) then
     begin
        moveMouseSmooth(x, y);
        wait(100);
        clickmouse(x, y, false); //false = right click
        wait(1000);
     end;
  end;

  procedure TalkToScan;
  begin
     if (findbitmap(TalkToHazel, x, y)) then
     begin
        writeln('Found Hazelmere trying to Talk-To the Nigger');
        moveMouseSmooth(x, y);
        wait(100);
        clickmouse(x, y, true); //Clicks on the Talk-To Hazelmere
        wait(1000);
     end;
  end;

  procedure BlueWordScan;
  begin
     if (findbitmap(Blue, x, y)) then
     begin
        writeln('Found Blue, Clicking Blue');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure DarkRedWordScan;
  begin
     if (findbitmap(DarkRed, x, y)) then
     begin
        writeln('Found Dark Red, Clicking Dark Red');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure GreenWordScan;
  begin
     if (findbitmap(Green, x, y)) then
     begin
        writeln('Found Green, Clicking Green');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure MagentaWordScan;
  begin
     if (findbitmap(Magenta, x, y)) then
     begin
        writeln('Found Magenta/Pink, Clicking Magenta/Pink');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure OrangeWordScan;
  begin
     if (findbitmap(Orange, x, y)) then
     begin
        writeln('Found Orange, Clicking Orange');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure RedWordScan;
  begin
     if (findbitmap(Red, x, y)) then
     begin
        writeln('Found Red, Clicking Red');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure WhiteWordScan;
  begin
     if (findbitmap(White, x, y)) then
     begin
        writeln('Found White, Clicking White');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

  procedure YellowWordScan;
  begin
     if (findbitmap(Yellow, x, y)) then
     begin
        writeln('Found Yellow, Clicking Yellow');
        moveMouseSmooth(x, y);
        wait(2000);
        clickmouse(x, y, true);
        wait(10000);
     end;
  end;

begin
  loadBmps;
  A := 1;
  repeat
     DdrScan;
     TiaScan;
     Tob3Scan;
     StorkScan;
     UkpkaScan;
     XpheusScan;
     S1urryScan;
     logoutScan;
     okScan;
     BlueWordScan;
     DarkRedWordScan;
     GreenWordScan;
     MagentaWordScan;
     OrangeWordScan;
     RedWordScan;
     WhiteWordScan;
     YellowWordScan;
     FindHazelScan;
     TalkToScan;   
     wait(1000);
  until(A=0);
end.

{Var
x, y : Integer;
Kane : Boolean;         Extra bit of code I found intresting.

Begin
If(getcolor(x, y)=0)then Kane := True Else Kane := False;
If(Kane=True)Then Writeln('Found The Color!');
End.}

 

Hey!

wow it looks great!

so, now i just need to find scar 3.15 and then run script?

im totally new with scar

 

- - - Updated - - -

 

LEO:

Hey!

script is working real fine! just 1 problem.

when you log in, there comes this window that sais your ip, time since last log in n such, as you might rember from real rsc.

probably that window didnt popup on real stork.

how do i make the script press "click here to close window"

Share this post


Link to post
Share on other sites
Hey!

wow it looks great!

so, now i just need to find scar 3.15 and then run script?

im totally new with scar

 

- - - Updated - - -

 

LEO:

Hey!

script is working real fine! just 1 problem.

when you log in, there comes this window that sais your ip, time since last log in n such, as you might rember from real rsc.

probably that window didnt popup on real stork.

how do i make the script press "click here to close window"

 

Hey man, glad you got it working.

 

You could just make your own bitmap of "Click Here To continue" and then use scar's built in Picture to String tool. You should really learn how to script in scar :)

Share this post


Link to post
Share on other sites
Hey man, glad you got it working.

 

You could just make your own bitmap of "Click Here To continue" and then use scar's built in Picture to String tool. You should really learn how to script in scar :)

 

Thanks for all the help mate.

i fixed it:)

if u start play, holler at me ingame.

my ing is 0wn3d3hitm i'll hook ya up

Edited by light

Share this post


Link to post
Share on other sites
Thanks for all the help mate.

i fixed it:)

if u start play, holler at me ingame.

my ing is *INCASEUEDITITOUT i'll hook ya up

 

You might not want to post your ign here ;)

Edited by Leo

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...