SCAR Code:
{ GunSlinger by GoF
You can play the game at :
mousebreaker.com/games/gunslinger/play.php
Start script at the mainscreen of the game (before facing any
gunslingers), target the GunSlinger screen and press play.
Let me know of any bugs..
~GoF
}
program GunSlinger;
const
HowManyFools = 1;//How many fools to kill before submitting?
SubNick = 'GoF Ownz';//Nickname for hiscores?
var
TColor, FoolCounter: Integer;
AnotherFool: Boolean;
begin
FoolCounter := 0;
ClearDebug;
Writeln('Starting script in 5 seconds!');
Wait(5000);
ActivateClient;
if (GetColor(114, 144) = 10079436) then
begin
Writeln('At mainscreen..');
ActivateClient;
MoveMouseSmoothEx(500, 355, 10, 10, 6, 7, 5);
ClickMouse(500, 355, True);
Wait(3000);
end;
repeat
if IsFKeyDown(3) then
TerminateScript;
TColor := 0;
TColor := GetColor(207, 238);
if not (TColor = 6724044) then
begin
Writeln('Going for the gun..');
Writeln('Lets kill him');
SendKeys(' ');
FoolCounter := FoolCounter + 1;
AnotherFool := True;
end else
Wait(35);//A little wait so the we won't lagg too much
if (AnotherFool) then
begin
while not (GetColor(164, 57) = 52479) do
begin
Wait(1000);
Writeln('Waiting for "GOOD SHOT" text..');
end;
if not (FoolCounter = HowManyFools) then
begin
MoveMouseSmoothEx(515, 360, 10, 10, 6, 7, 5);
ClickMouse(515, 360, True );
AnotherFool := False;
end else
begin
Writeln('Done killing! Limit reached.');
MoveMouseSmoothEx(250, 360, 10, 10, 6, 7, 5);
ClickMouse(250, 360, True);
while not (GetColor(261, 211) = 16777215) do
begin
Writeln('Waiting for "Enter your name"..');
Wait(1000);
end;
MoveMouseSmoothEx(275, 215, 10, 10, 6, 7, 5);
ClickMouse(275, 215, True);
SendKeys(SubNick);
Wait(1000);
ClickMouse(270, 275, True);
Writeln('Clicked submit :)');
Writeln('Done.. Terminating.');
TerminateScript;
end;
Wait(3000);//Little wait here too.
Writeln('Currently killed '+IntToStr(FoolCounter)+' gunslingers.');
end;
until(False)
end.