§hãttêrëd Rèƒlé¢tîøñ
2007-09-30 01:23:05
please tell me how to improve..I think i did pretty good..I need to know how to include anti-ban and fail safes and a proggy.
Tell me how I am doing so far please.
Tell me how I am doing so far please.
{-------------------------------------------------------------------------------
§hãttêrëd Rèƒlé¢tîøñ's First power cutter
How to use:
1. Fill out setup
2. Drag crosshair onto runescape
3. Low detail and high brightness
3. Run!
------------------------------------------------------------------------------- }
program New;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10; //Amounts of loads per player before switching.
TreeColor = 0; //Find a tree color using the color picker
//Tree -- 1918268
//Oak -- 6658964
WaitPerTree =6000; //Wait time before chopping another tree
procedure DeclarePlayers;
begin
HowManyPlayers:=4; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
Players[0].Name := ''; // Runescape name
Players[0].Pass := ''; // Runescape Password
Players[0].Nick := ''; // 2-4 letter nickname
Players[0].Active := True; //If you don't want to use this player write "False"
Players[1].Name := ''; // Runescape name
Players[1].Pass := ''; // Runescape Password
Players[1].Nick := ''; // 2-4 letter nickname
Players[1].Active := True; //If you don't want to use this player write "False"
Players[2].Name := ''; // Runescape name
Players[2].Pass := ''; // Runescape Password
Players[2].Nick := ''; // 2-4 letter nickname
Players[2].Active := True; //If you don't want to use this player write "False"
Players[3].Name := ''; // Runescape name
Players[3].Pass := ''; // Runescape Password
Players[3].Nick := ''; // 2-4 letter nickname
Players[3].Active :=True; //If you don't want to use this player write "False"
Writeln(inttostr(HowManyPlayers)+' Players');
end;
Procedure Randoms;
Begin
Findnormalrandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 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: begin
If InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9 : If RC Then Result := True;
10: If FindTalk Then Result := True;
End;
Wait(1);
end;
end;
Procedure ProgressReport;
Begin
WriteLn('----------------------------');
WriteLn('');
WriteLn('Power Cutter by SR.');
WriteLn('');
Writeln('Worked for '+ TimeRunning);
WriteLn('----------------------------');
WriteLn('');
WriteLn('----------------------------');
SendSRLReport;
End;
procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 30) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
//increase 1 to the total tree chop - if we had one
Wait(WaitPerTree);
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
repeat
ChopTree;
if InvFull then
begin
DropToPosition(2, 28);
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
end.