503075000868
07-19-2007, 09:13 PM
Hi! This is my first script (well since I came back into the world of SCAR). It's not a RuneScape script, it's for a game called GunSlinger on Mousebreaker.com. Anyway, please rate it and tell me how I can improve on anything (standards, actual script, anything) so I have a better knowledge of where to go from here.
{Will's Gunslinger Script
Play the game at www.mousebreaker.com/games/gunslinger/play.php
Make sure the screen is scrolled up to the top.
The High Score name you want is to be put in on line 20
and how many GunSlinger's you want to be killed is to be put on line 19
NOTE: You cannot kill more than 66 GunSlinger's, you will lose if you put
more than 66.
Thanks!
}
program GunSlinger;
const
HowManyToKill= 1;//How man GunSlinger's to kill
HighScoreName= ('Will');//High Score Name, must be 8 characters or less
var
HowManyKilled: integer;
procedure ProgressReport;
begin
ClearDebug;
Writeln(' This script was brought to you by: ');
Writeln(' __ __ ___ ___ ___ ');
Writeln(' \ \ _ / / | | | | | | ');
Writeln(' \ \ / \ / / | | | | | | ');
Writeln(' \ \_/ _ \_/ / | | | | | | ');
Writeln(' \ / \ / | | | |___ | |___ ');
Writeln(' \_/ \_/ |_| |_____| |_____| ');
Writeln(' ');
Writeln('[]============================[]');
Writeln(' ' + 'Killed ' + IntToStr(HowManyKilled) + ' GunSlingers' + ' ');
Writeln(' ' + 'Out of Pos ' + IntToStr(HowManyToKill) + ' Gunslingers' + ' ');
Writeln('[]============================[]');
end;
procedure HighScore;
begin
if (GetColor(248,361)= 52479) then
wait(100);
MoveMouseSmoothEx(248,361,1,3,20,1,1);
wait(200);
ClickMouse(248,361,true);
wait(1000);
if (GetColor(226,214)=16777215) then
wait(100);
MoveMouseSmoothEx(226,214,1,3,20,1,1);
wait(100);
ClickMouse(226,214,true);
wait(100);
SendKeys(HighScoreName);
wait(100);
MoveMouseSmoothEx(275,273,1,3,20,1,1);
wait(100);
ClickMouse(275,273,true);
wait(100);
end;
procedure Start;
begin
HowManyKilled:= 0
if (GetColor(505,344)=52479) then
ClickMouse(505,344,true);
end;
procedure FindHand;
begin
repeat
wait(1);
MoveMouse(230,252);
until (GetColor(230,252)=3757682);
end;
procedure shoot;
begin
wait(1);
SendKeys(' ');
wait(1);
HowManyKilled:= (HowManyKilled + 1);
if (HowManyKilled = HowManyToKill) then
begin
HighScore;
end else
begin
if(GetColor(517,361)=52479) then
wait(1000);
MoveMouseSmoothEx(517,361,1,3,20,1,1);
wait(500);
ClickMouse(517,361,true);
end;
end;
begin
Start;
repeat
FindHand;
Shoot;
ProgressReport;
until (HowManyKilled = HowManyToKill);
end.
Thanks!
[EDIT]
Sorry I forgot to add a poll and I don't know how to do it, so please, ratings are:
Very Good
Good
O.K.
Poor
{Will's Gunslinger Script
Play the game at www.mousebreaker.com/games/gunslinger/play.php
Make sure the screen is scrolled up to the top.
The High Score name you want is to be put in on line 20
and how many GunSlinger's you want to be killed is to be put on line 19
NOTE: You cannot kill more than 66 GunSlinger's, you will lose if you put
more than 66.
Thanks!
}
program GunSlinger;
const
HowManyToKill= 1;//How man GunSlinger's to kill
HighScoreName= ('Will');//High Score Name, must be 8 characters or less
var
HowManyKilled: integer;
procedure ProgressReport;
begin
ClearDebug;
Writeln(' This script was brought to you by: ');
Writeln(' __ __ ___ ___ ___ ');
Writeln(' \ \ _ / / | | | | | | ');
Writeln(' \ \ / \ / / | | | | | | ');
Writeln(' \ \_/ _ \_/ / | | | | | | ');
Writeln(' \ / \ / | | | |___ | |___ ');
Writeln(' \_/ \_/ |_| |_____| |_____| ');
Writeln(' ');
Writeln('[]============================[]');
Writeln(' ' + 'Killed ' + IntToStr(HowManyKilled) + ' GunSlingers' + ' ');
Writeln(' ' + 'Out of Pos ' + IntToStr(HowManyToKill) + ' Gunslingers' + ' ');
Writeln('[]============================[]');
end;
procedure HighScore;
begin
if (GetColor(248,361)= 52479) then
wait(100);
MoveMouseSmoothEx(248,361,1,3,20,1,1);
wait(200);
ClickMouse(248,361,true);
wait(1000);
if (GetColor(226,214)=16777215) then
wait(100);
MoveMouseSmoothEx(226,214,1,3,20,1,1);
wait(100);
ClickMouse(226,214,true);
wait(100);
SendKeys(HighScoreName);
wait(100);
MoveMouseSmoothEx(275,273,1,3,20,1,1);
wait(100);
ClickMouse(275,273,true);
wait(100);
end;
procedure Start;
begin
HowManyKilled:= 0
if (GetColor(505,344)=52479) then
ClickMouse(505,344,true);
end;
procedure FindHand;
begin
repeat
wait(1);
MoveMouse(230,252);
until (GetColor(230,252)=3757682);
end;
procedure shoot;
begin
wait(1);
SendKeys(' ');
wait(1);
HowManyKilled:= (HowManyKilled + 1);
if (HowManyKilled = HowManyToKill) then
begin
HighScore;
end else
begin
if(GetColor(517,361)=52479) then
wait(1000);
MoveMouseSmoothEx(517,361,1,3,20,1,1);
wait(500);
ClickMouse(517,361,true);
end;
end;
begin
Start;
repeat
FindHand;
Shoot;
ProgressReport;
until (HowManyKilled = HowManyToKill);
end.
Thanks!
[EDIT]
Sorry I forgot to add a poll and I don't know how to do it, so please, ratings are:
Very Good
Good
O.K.
Poor