I need a procedure that picks up feathers for my chicken ownage and also bone picker and burier
SCAR Code:
program ChickenOwnageFTW;
{.include SRL/SRL.scar}
{.include SRL\SRL\Misc\Trade.scar}
//Rudeboialex helped me loads on this.
Const
NumberOfUsers = 5;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
ChickenColor1 = 6258062;//Set mannualy for better results.
ChickenColor2 = 2309199;//Set mannualy for better results.
AttackChicken = 5000;//How long to wait to hit chicken.
RunDir = 'S'; // RunDirection, I think south is best
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='UserName';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Youre USername';
Players[0].Active:=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='3-4 Letters Of Youre Username';
Players[1].Active:= True;
Players[2].Name :='Username';
Players[2].Pass :='Password';
Players[2].Nick :='3-4 Letters Of Youre Username';
Players[2].Active:= True;
Players[3].Name :='Username';
Players[3].Pass :='Password';
Players[3].Nick :='3-4 Letters Of Youre Username';
Players[3].Active:= True;
Players[4].Name :='Username';
Players[4].Pass :='Password';
Players[4].Nick :='3-4 Letters Of Youre Username';
Players[4].Active:= True;
end;
Procedure OwnChicken;
Begin
if
(findColorSpiral(x,y,ChickenColor1,2,2,418,304))
Or
(findColorSpiral(x,y,ChickenColor2,2,2,418,304)) Then
MakeCompass('N');
MMouse(x,y,3,3)
IsTextAt2(9,9,'tack',20)
Mouse(x,y,2,2,True)
Wait(AttackChicken + Random(1000))
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 11 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
End;
End;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, True);
End;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
End;
Wait(1);
End;
End;
function DoAntiBan: Boolean; //JADS Anitbannage :)
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
procedure ProgressReport;
begin
Writeln('XiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXi');
Writeln('XiXiXiXiXiXiXiXi--L33T PROGGY--XiXiXiXiXi');
Writeln('*!Miutes Worked = ' + (ScriptTime2(2)) +'!*');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
end;
Begin
SetupSRL;
Repeat
DeclarePlayers;
OwnChicken;
FindFastRandoms;
DoAntiBan;
Until(False)
End.