ok this feather picking procedure should work. The colors are there but it just doesn't move the mouse to the colors. Look at this script. If anyone wants to test great. I just don't understand why the script sometimes skips the progress report, and always misses the feather picking procedure
help !!SCAR Code:program Jesus45Chickenmassacre;
{.include SRL\SRL.scar}
{.include srl/srl/skill/Fighting.scar}
///////////////////////////////////////////////////////////////
// /////// ////// ////// // // ////// //
// // /// // // // // //
// // // ////// //// // // ///// //
// // // /// // // // // //
// ///// /////// ////// ///// ////// //
///////////////////////////////////////////////////////////////
//specail thanks to drnewheart, for help :)
{========================================================
[ Jesus45 ChickenMassacre ]
[ ]
[ Description: This is V.1 of Jesus45's chicken ]
[ Massacre. Drag the CrossHairs ]
[ Over the Runescape client, setup ]
[ Users below and options then hit ]
[ play button. Happy Autoing :) ]
==========================================================}
{FILL OUT OPTIONS HERE} {PLAYER SETUP BELOW}
const
FightingStyle = 2; // 1 = attack 2 = strength 3,4 = defense
WantToPickUpFeathers = true; // True to pick up feathers, false to not.
ChickenKills = 5; //how many chickens you want to kill.
Var////////////////////////////////////////////////////////
ChickensKilled: integer;// DONT CHANGE !! //
x,y,Mark1: integer; // DONT CHANGE !! //
Feather: integer; // DONT CHANGE !! //
///////////////////////////////////////////////////////
{*************************************************************}
procedure DeclarePlayers; //
begin //
HowManyPlayers := 6; //Number of PLAYERS. active or not. //
NumberOfPlayers(HowManyPlayers); //
CurrentPlayer := 0; //Player to start on. //
{*************************************************************}
{SET ALL USERS CORRECTLY}
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // 3 letters of your username
Players[0].Active := True;
Players[1].Name := 'UserName';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of UserName';
Players[1].Active := False;
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
Players[3].Name := 'UserName';
Players[3].Pass := 'Password';
Players[3].Nick := '3-4 letters of UserName';
Players[3].Active := False;
Players[4].Name := 'UserName';
Players[4].Pass := 'Password';
Players[4].Nick := '3-4 letters of UserName';
Players[4].Active := False;
Players[5].Name := 'UserName';
Players[5].Pass := 'Password';
Players[5].Nick := '3-4 letters of UserName';
Players[5].Active := False;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
{************************************************************************}
{ Logs In Player If Not Already Logged In }
{************************************************************************}
Procedure Log;
begin
LoginPlayer;
Wait(500);
end;
{************************************************************************}
{ Sets the color brightness to highest }
{************************************************************************}
Procedure ReallyBrightColor;
Begin
begin
GameTab(11);
Wait(500+random(12));
end;
If GetColor(712, 226) <> 16777215 Then
Begin
Mouse(712, 226, 2, 2, True);
Wait(300+random(50));
End;
end;
{************************************************************************}
{ Anti ban & Anti random }
{************************************************************************}
Procedure JesusNoBanPlz; // Took alot of advice from JAD on
begin
if(not(LoggedIn))then // the anti ban (thanks).
ReallyBrightColor;
begin
case random(3) of
1: PickUpMouse;
2: begin
TypeSend('wow im almost up a str lvl');
Wait(1000+random(500));
GameTab(4)
end;
3: begin
HoverSkill('Strength',false);
Wait(1000+random(200));
GameTab(4)
end;
end;
end;
end;
{************************************************************************}
{ Anti Randoms }
{************************************************************************}
Procedure Randoms;
Begin
FindNormalRandoms;
end;
{************************************************************************}
{ FightStyle }
{************************************************************************}
Procedure FightStyle(Style:string);
begin
case Style of
'1': SetFightMode(1);
'2': SetFightMode(2);
'3': SetFightMode(3);
'4': SetFightMode(4);
end;
Wait(500+random(200));
end;
/////////////////////////////////////////////////////////////////////////////
Procedure AttackChicken;
Begin
FightNPC(5796737,5928324,3627637,3627637,5928324,7904432,15,15);
ChickensKilled:= ChickensKilled+1;
end;
{*******************************************************************}
{ Picks Up Feathers. }
{*******************************************************************}
function PickUpFeathers(Color1,Color2,Color3 :Integer): Boolean;
var
P: Integer;
var Color: array[1..3] of Integer;
begin
Color[1]:= 10790340;
Color[2]:= 9728;
Color[3]:= 9869499;
for P := 1 to 3 do
begin
If (WantToPickUpFeathers = True) then
if FindColorSpiral(x,y, Color[P],MSX1,MSY1,MSX2,MSY2)then
begin
Result := True;
Mouse(x,y,0,0,False);
ChooseOption('fea');
Wait(500+random(150));
end else
Writeln('Missed the feathers');
end;
end;
{******************************************************************}
{ Progress Report. }
{******************************************************************}
Procedure Report; //Specail thanks to drnewheart for the report.
begin
Writeln('***********************************');
Writeln('*****Jesus45''s Chicken Killer*****');
Writeln('****Killed '+(IntToStr(ChickensKilled))+' Chickens!****');
Writeln('****Worked For '+ TimeRunning+'****');
Writeln('****Gained About '+IntToStr(ChickensKilled*3*4)+' Exp!****');
Writeln('***********************************');
end;
{*****************************************************************}
{ Main Loop }
{*****************************************************************}
begin
SetupSrl;
ActivateCLient;
DeclarePlayers;
LoginPlayer;
ReallyBrightColor;
FightStyle(IntTOStr(FightingStyle));
repeat
JesusNoBanPlz;
AttackChicken;
PickUpFeathers(10790340,9728,9869499);
until (ChickensKilled) = (ChickenKills);
Report;
end.




Reply With Quote










