Hobbit
2007-01-13 17:40:41
this is my best script yet…full functional…just set the amounts and game types and go…for settings 2 & 4….the script goes to endurance first…that is suppsoed to happen…it gets the amount of clicks required to buy game type you want to play…..also for setting 4 & 5 the wait between game procedure and highscores is about 50 seconds…this is a fail safe so the game has enough time to finish counting down and end the game before it types into highscores. :D Just incase you encounter them and you think it's errors;) please run and tell me what you think.
//Hobbit's King of Buttons 3 P0wn3r
//Made by Hobbit
//==Set-up==
//Go to [url]http://www.ugoplayer.com/games/kingofbuttons3.html[/url]
//Silent Mouse MUST be OFF!
//Set lines 27-39
//Click and drag Cross-hairs on to screen ^^^
//Start at game options screen(after the intro and preloading)
//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//
//IMPORTANT:for setting 4 and 5 there is a 50 second delay before the highscore
//procedure kicks in..this is intentional..it gives the game counter time to
//finish counting down for the game to end..if it doesnt highscores wont work
//properly!!
//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//
program Kingofbuttons3powner;
{.include SRL/SRL.scar}
//----------------------------------------------------------------------------\\
//****************************************************************************\\
var
click : integer;
click2 : integer;
start_game : integer;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
const
//----------------------------------------------------------------------------\\
// Name
//----------------------------------------------------------------------------\\
who='Hobbit';//name for high scores
//----------------------------------------------------------------------------\\
// Amount
//----------------------------------------------------------------------------\\
amount=500;//clicks for endurance only mode
clock=30000;//type in time you want in seconds then add 000 to get proper time
//keep in mind the game does not keep exact seconds...
//Starting at 20 seconds -1 point per 10 seconds from 20 and above
maxhurry=400;//max amount of clicks for hurry mode
//----------------------------------------------------------------------------\\
// Game Choice
//----------------------------------------------------------------------------\\
gamechoice=1 ;//options\\
//1 or endurance only\\
//2 for hold game if you haven't bought it in game already\\
//3 for hold game if you have bought it in game already\\
//4 for hurry game if you haven't bought it in game already\\
//5 for hurry game if you have bought it in game already\\
//----------------------------------------------------------------------------\\
// DONT TOUCH UNDER HERE!!!!
//----------------------------------------------------------------------------\\
holdpay=505;//don't touch will NEVER need to be changed!!
hurrypay=1010;//don't tocuh will NEVER need to be changed!!
//----------------------------------------------------------------------------\\
//****************************************************************************\\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//Begin\\//\\//\\//\\//\\//\\//\\//\\//\\//\
procedure Endurance;
begin
MoveMouseSmooth(180,160);
Wait(30);
ClickMouse(180,160,true);
Wait(20);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Startgame;
begin;
start_game := BitmapFromString(169,411,'z78DAED9C4B6EC3300' +
'C44AFA4459D0B24F1FD8FD414DD146803D4FA9033D41B0359C512' +
'2D534F2225B9358410420821841042082184D0359DE79CDF985A7' +
'42C896C5BB5DAFBEC51F3C9B7B57FB4A31D5E6FCAB1E469EF2BD0' +
'123816FFBC8E1C53B0CD71C4D99363F15EADD0A7769B1179714CC' +
'74238A6CFB1919223EFADD1F2914FFD1D0D3972EC6A5DCF7BFBBA' +
'9AC7E8931B47C3B1B90C5C4757E59865BC4CF736571B5BB3469F7' +
'88EA9CD0AB27C068EC1313806C7DC39F63B4ED1F4E4B9B58CFC1F' +
'8EB973EC6A0970CC6B45DB9D63EB3C018EC13138E6B833078EADC' +
'E85C6CC9F6B702C37EB92C6B15B7B5D7DB665F9B682E7A8ED1AAA' +
'CDB1F1954A3816993DCE628217C774D6BB752CD999633BD3A3AF2' +
'7AE8B2B3539E6E8DB35666870AC5E9B7B71ECEA592438A67CAE2D' +
'2B87E6CEB1F3F83BB28BCC8FC1B1AC3D45704C9363B3AC55E853B' +
'96B85AC57C6581259C2DC7BF7E1984226D3B74F399E708463CA1C' +
'53F01338A6E033700C8EC1B1DCA8168EC1313806C7CC3836F00D0' +
'138B61BC7667D71028E69CE677C39A693D353F09991B5E9F83EA5' +
'70FE028EA9ADC528ACE63C1FEDDE1EBB71CCF13B8A700C8E69FAE' +
'4BA1656FEB25F558EADF69CF8C8028EB9732C6B84856335CEAA54' +
'DD5B0EC71C39D6D96E3F3293DB71EC1FD99E1D38D66727420A644' +
'3F5F40953EE209E');
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Pokespaceendurance;
begin
KeyDown(32);
Wait(60);
KeyUp(32);
click:= click + 1;
Wait(50);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Gametomain;
begin
MoveMouseSmooth(107,81);
Wait(30);
ClickMouse(107,81,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Starttomain;
begin
MoveMouseSmooth(118,86);
Wait(30);
ClickMouse(107,81,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Shop;
begin
MoveMouseSmooth(72,116);
Wait(20);
ClickMouse(72,116,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Buyhold;
begin
MoveMouseSmooth(91,231);
Wait(20);
ClickMouse(91,231,true);
Wait(300);
MoveMouseSmooth(503,376);
Wait(20);
ClickMouse(503,376,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Buyhurry;
begin
MoveMouseSmooth(87,289);
Wait(20);
ClickMouse(87,289,true);
Wait(48);
MoveMouseSmooth(500,376);
Wait(20);
ClickMouse(500,376,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Shoptomain;
begin
MoveMouseSmooth(89,72);
Wait(20);
ClickMouse(89,72,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Hold;
begin
MoveMouseSmooth(372,157);
Wait(20);
ClickMouse(372,157,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Holdspace;
begin
MoveMouse(334,320);
Wait(150);
ClickMouse(334,320,true);
Wait(200);
KeyDown(32);
Wait(100);
Wait(clock);
Wait(100);
KeyUp(32);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Hurry;
begin
MoveMouseSmooth(373,316);
Wait(80);
ClickMouse(373,316,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Hurryspace;
begin
KeyDown(32);
Wait(56);
KeyUp(32);
click2:= click2 + 1;
Wait(56);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Enternameother;
begin
MoveMouseSmooth(409,269);
HoldMouse(409,269,true);
Wait(30);
MoveMouseSmooth(255,278);
Wait(150);
ReleaseMouse(255,278,true);
Wait(200);
SendKeys(who);
Wait(200);
MoveMouseSmooth(319,402);
Wait(15);
ClickMouse(319,402,true);
Wait(20);
MoveMouseSmooth(318,311);
Wait(15);
ClickMouse(318,311,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Enternameendurance;
begin
MoveMouseSmooth(630,326);
HoldMouse(630,326,true);
Wait(30);
MoveMouseSmooth(447,324);
Wait(20);
ReleaseMouse(447,324,true);
Wait(20);
SendKeys(who);
Wait(50);
MoveMouseSmooth(104,385);
Wait(20);
ClickMouse(104,385,true);
Wait(15);
MoveMouseSmooth(536,359);
Wait(20);
ClickMouse(536,359,true);
end;
//----------------------------------------------------------------------------\\
//****************************************************************************\\
procedure Report;
begin
Writeln('//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\');
Writeln('Thank you for Useing Hobbit''s King of Buttons 3 P0wn3r');
Writeln('You have entered you name into the Highscores...');
Writeln('Happy Scripting');
Writeln('//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\-//-\\');
end;
//\\//\\//\\//\\//\\//\\//\\//\\//\\Main Loop//\\//\\//\\//\\//\\//\\//\\//\\//\
begin
if(gamechoice = 1)then
begin
ActivateClient;
setupsrl;
Endurance;
Wait(30);
Startgame;
begin
MoveMouse(183,413);
ClickMouse(183,413,true);
end;
Wait(20);
repeat
Pokespaceendurance;
until(click = amount);
Wait(100);
Enternameendurance;
Wait(120);
Report;
end;
if(gamechoice = 2)then
begin
ActivateClient;
setupsrl;
Endurance;
Wait(30);
Startgame;
begin
MoveMouse(183,413);
ClickMouse(183,413,true);
end;
Wait(20);
repeat
Pokespaceendurance;
until(click = holdpay);
Wait(300);
Gametomain;
Wait(60);
Starttomain;
Wait(500);
Shop;
Wait(1000);
Buyhold;
Wait(800);
Shoptomain;
Wait(100);
Hold;
Wait(100);
Startgame;
begin
MoveMouse(189,424);
ClickMouse(189,424,true);
end;
Wait(240);
Holdspace
Wait(150);
Enternameother;
Wait(80);
Report;
end;
if(gamechoice = 3)then
begin
ActivateClient;
setupsrl;
Hold;
Wait(100);
Startgame;
begin
MoveMouse(189,424);
ClickMouse(189,424,true);
end;
Wait(240);
Holdspace
Wait(150);
Enternameother;
Wait(80);
Report;
end;
if(gamechoice = 4)then
begin
ActivateClient;
setupsrl;
Endurance;
Wait(30);
Startgame;
begin
MoveMouse(183,413);
ClickMouse(183,413,true);
end;
Wait(250);
repeat
Pokespaceendurance;
until(click = hurrypay);
Wait(100);
Gametomain;
Wait(60);
Starttomain;
Wait(60);
Shop;
Wait(100);
Buyhurry;
Wait(200);
Shoptomain;
Wait(100);
Hurry
Wait(150)
Startgame;
begin
MoveMouse(177,423)
Wait(100);
ClickMouse(177,423,true);
end;
Wait(250);
repeat
Hurryspace;
until(click2 = maxhurry);
Wait(55000);
Enternameother;
Wait(80);
Report
end;
if(gamechoice = 5)then
begin
ActivateClient;
setupsrl;
Hurry
Wait(150)
Startgame;
begin
MoveMouse(177,423)
Wait(100);
ClickMouse(177,423,true);
end;
Wait(250);
repeat
Hurryspace;
until(click2 = maxhurry)
Wait(55000);
Enternameother;
Wait(80);
Report
end;
end.