I got most of information from tuts..is there anything i need to add plz tell me...this my first script..![]()
![]()
program New;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10; //Amounts of loads per player before switching.
TreeColor = 411969; //Fill in the treecolor here.
WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
function FindFastRandoms: Boolean; // WT-Fakawi
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: if FindTalk then result:= true;
end;
wait(1);
end;
end;
Procedure AntiBanActions;
var
Ban: Integer;
begin
Ban:= Random(10);
case Ban of
0: Almostlogout;
1: SayCurrentLevels('woodcutting');
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
end;
end;
procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 50) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
Wait(WaitPerTree);
Exit;
end;
end;
if TimeFromMark(MyMark) > (1 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
begin
SetupSRL;
SRLPlayerForm(True, [], [], [], []);
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.





Reply With Quote








