[REQUEST]RoyalPK afk auto login

light · April 9, 2013

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

Toby1 · April 10, 2013

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

light · April 10, 2013

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

Leo · April 10, 2013

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.

light · April 10, 2013

Hey!

yeah it might be different questions tho.

would be great if u checked thanks

Leo · April 10, 2013

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.}

light · April 10, 2013

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"

Leo · April 11, 2013

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

light · April 11, 2013

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 April 11, 2013 by light

Leo · April 11, 2013

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 April 14, 2013 by Leo

AnthonyPhics · April 5

オンラインカジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブルゲームを楽しむ機会を提供する仮想プラットフォームです。オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。技術革新のおかげで、オンラインゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンラインカジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供しますポケモン環境

全体として、オンラインカジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

AnthonyPhics · April 5

オンラインカジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブルゲームを楽しむ機会を提供する仮想プラットフォームです。オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。技術革新のおかげで、オンラインゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンラインカジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します韓国のポルノ

全体として、オンラインカジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

AnthonyPhics · April 5

オンラインカジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブルゲームを楽しむ機会を提供する仮想プラットフォームです。オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。技術革新のおかげで、オンラインゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンラインカジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供しますオンラインカジノ

全体として、オンラインカジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

Sign In

[REQUEST]RoyalPK afk auto login

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation