Good if you don't want to use score senders and can't be bothered to play. Copy and paste into SCAR 3.22 (Click here to download.) Some of them, I programmed from scratch. The others I adapted from the code samples. Will add more as I get to writing them nicely.
How to Use Scar (adapted from gamerzplanet.net)
Spoiler
Tug of War
Achieves max score (depending on settings) Leave the game at the main menu, specify the flash thing as the client window and press run. Plays and send scores 3 times without you having to do anything. Press right click to stop the script.
Program Tug_o_War;
Var x,y :integer;
// Made By Ovonel
//Play in Regular 650x390
//Leave Game at Start Screen and Run the Script
//Change Settings if Needed
//Settings
const
timestoplay = 3;
keydownfrequency = 30; //(How long in between key presses in ms)
keydownrandomness = 30; //(Random time in between 0~x to be added to keydownfrequency)
//Variable Declaration
var
t,f,r:Integer;
Procedure ASDW;
Begin
Sendkeys('A');
Wait(f+Random(r))
Sendkeys('S');
Wait(f+Random(r))
Sendkeys('D');
Wait(f+Random(r))
Sendkeys('W');
Wait(f+Random(r))
end;
Procedure StartScreen;
begin
Wait(2000);
Writeln('Program Started');
If(GetColor(179,369) = 2440564) Then
begin
Wait(1000+Random(1000));
Writeln('Start Game');
ClickMouse(101,367,True);
Repeat
Wait(100+Random(100));
Until((GetColor(210,184) = 2440564))
ClickMouse(210,184,True);
Wait(1550+Random(600))
case random(5) of
0: ClickMouse(153,184,True);
1: ClickMouse(226,184,True);
2: ClickMouse(338,184,True);
3: ClickMouse(420,184,True);
4: ClickMouse(500,184,True);
end;
end;
end;
Procedure Play;
begin
Repeat
//If a Spell Is Needed
If(FindColorTolerance(X,y,3246790,165,53,165,77,5)) Then
ASDW;
Wait(f+Random(r))
SendKeys('A')
Until(IsMouseButtonDown(False) or (GetColor(473,120) = 13298425));
end;
Procedure Ending;
begin
ClickMouse(373,369,True); //SendScore
Wait(1000+Random(2000));
ClickMouse(340,134,True); //RestartGame
end;
//Start of Program
begin
Activateclient;
t := timestoplay;
f := keydownfrequency;
r := keydownrandomness;
repeat;
StartScreen;
Wait(0+Random(1));
Play;
Ending;
t := t - 1
until((t = 0) or IsMouseButtonDown(False));
end.Zurroball
Achieves 1000np up to a very high score (depending on settings) Leave the game at the main menu, specify the flash thing as the client window and press run. Plays and send scores 3 times without you having to do anything. Adapted from sample script provided.
//Zurroball Script//
program ZurroBall;
var
x, y, ballcolor, played, clicks: Integer;
const
timestoplay = 3;
numberofclicks = 60
procedure BeginGame;
begin
if FindColor(x, y, 16727871, 33, 158, 254, 376) then
ClickMouse(x, y, True)
else
ClickMouse(299, 199, True);
end;
begin
repeat
clicks := 0;
BeginGame;
Wait(1000);
ballcolor := GetColor(245, 89);
repeat
repeat
Wait(25);
until FindColorTolerance(x, y, ballcolor, 5, 150, 449, 264, 20);
ClickMouse(x, y, True);
Inc(clicks);
WriteLn('clicked for time number ' + IntToStr(clicks))
until (clicks = numberofclicks);
ClickMouse(562, 380, True);
Inc(played);
Wait(3000);
ClickMouse(303, 293, True);
Wait(2000);
until (played = timestoplay);
end.
Edited by ovonel, 16 October 2011 - 05:45 PM.
