SRL Archive - Other Scripts

it works flawlessly and is better then the one for number 1…I hope you enjoy proveing the guy wrong that making it press space stops autoer :D

//Hobbit's King of Buttons 2 P0wn3r
//Made by Hobbit
//Many thanks to Spky for showing me I needed to slow down the space timing
//==Set-up==
//Go to [url]http://www.ugoplayer.com/games/kingofbuttons2.html[/url]
//Silent Mouse MUST be OFF!
//Set lines 27 & 35
//Click and drag Cross-hairs on to screen          ^^^
//Start at game options screen
//******************************************************************************
//*****************************COMING SOON**************************************
//**************Soon I will make a Script for King of Buttons 3*****************
//******************************************************************************
program KingofButtons2Powner;
{.include SRL/SRL.scar}

//----------------------------------------------------------------------------\\
//****************************************************************************\\
var
  click : integer;
  play : integer;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
const
//----------------------------------------------------------------------------\\
//                            Name
//----------------------------------------------------------------------------\\
  who='name';
//----------------------------------------------------------------------------\\
//                            Time
//----------------------------------------------------------------------------\\
  wait_time=1;//in miliseconds
//----------------------------------------------------------------------------\\
//                            Amount
//----------------------------------------------------------------------------\\
  amount=100;//amount you want it to press space
//----------------------------------------------------------------------------\\
//****************************************************************************\\

//\\//\\//\\//\\//\\//\\//\\//\\//\\Begin//\\//\\//\\//\\//\\//\\//\\//\\//\\//\

procedure PokeSpace;
begin
 KeyDown(32);
  Wait(55);
 KeyUp(32);
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure Gametype;
begin
  Holdmouse(183,218,true);
   Wait(wait_time);
  ReleaseMouse(183,218,true);
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure LoadBmps;
begin;

  play := BitmapFromString(211,369, 'z78DAEDD94192C2201005D02' +
       'BC56899716DC9FD8F34CECEA59304BA81F75D4BDAE64928581611' +
       '11113933A549DAD7F68FC7DC22BB54AF0FB12347496BD98723DDC' +
       '8296D5F0DA47D5F3369B55590465A4E69F9F769FBEA9F415AD43B' +
       'B47D5749232DBFB49CDD38575A59CBE5FD995E5AECBF750A69294' +
       'F818E8F3FA7B4B3BA411A69F348DBF7DDD4D2EEE5562EA49156BB' +
       'B719DE0EA49D25ADB637D248238DB491A47D8EDFE399E4D8D28E3' +
       'FB7BAB4C77BAFBE92465A9B9AF39CBD90465AAC31F79E63DCFB90' +
       '465ABF2B1B69A4D59EC7A55A82913DCA56AEA49116B59AC54A8B5' +
       'D9963677328693FE5FEDD8D2D694D6773FBBB4BEF575AB61318D2' +
       'DAAF666ACB292D6AB7461A69B1F59396795FDDE3AE8334D2481BA' +
       'FB6B2BE9EAF8D34D27ABCAD268DB4CCD2DAFF0AD248238D34D248' +
       'DB577F8D6E90461A69A4F5252DDBEC9396595AED3E90465A6669F' +
       'BFA4C1A69A49146DA222222222283E61715C4E69D');
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure Spacing;
begin
  PokeSpace;
  click:= click + 1;
   Wait(100);
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure Typing;
 begin
  HoldMouse(440,315,true);
   Wait(25);
  MoveMouseSmooth(223,318);
   Wait(15);
  ReleaseMouse(223,318,true);
   Wait(100);
  SendKeys(who);
   Wait(180);
  HoldMouse(330,274,true);
   Wait(wait_time);
  ReleaseMouse(330,274,true);
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure Submit;
begin
  HoldMouse(344,391,true);
   Wait(wait_time);
  ReleaseMouse(344,391,true);
   Wait(30);
  MoveMouseSmooth(336,359);
   Wait(40);
  HoldMouse(336,359,true);
   Wait(wait_time);
  ReleaseMouse(336,359,true);
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

procedure Report;
begin
  Writeln('//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\');
  Writeln('Thank you for Useing Hobbit''s King of Buttons 2 P0wn3r');
  Writeln('You have pressed space '+IntToStr(click)+' times');
  Writeln('You have also entered you name into the Highscores...');
  Writeln('But if you wanted to be top 10...lets hope you set it for');
  Writeln('2147483648 times');
  Writeln('//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\');
end;

//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

begin
 Gametype;
  Wait(800);
 LoadBmps;
   begin
    MoveMouse(211+random(10),369+random(20));
    ClickMouse(211+random(10),369+random(20),true);
   end;
  Wait(20);
 Typing;
   repeat
    Spacing;
   until(click = amount)
  Wait(1000);
 Submit;
 Report;
end.