SCAR Code:
program Powerchopper;
{.include SRL/SRL.scar}
var Loads: Integer;
//SETUP HERE//
const
TreeColor=2121808;//set tree color here
//ANTIRANDOMZ//
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('S', True);
End;
10: If FindTalk Then
Result := True;
11: If FindTrade Then
Result := True;
End;
Wait(1);
End;
End;
//ANTIBAN//
procedure DontGetBanned;
begin
RotateEvery(5 + random(2));
PickUpMouseEvery(6 + random(2));
HoverEvery(10 + random(2),'random');
RandomRClickEvery(2 + random(1));
LeaveScreenEvery(15 + random(3));
BoredEvery(10 + random(4));
Wait(3000 + random(1779));
end;
//CHOPING PROCEDURE//
procedure Chop;
begin
SetRun(True);
GameTab(4);
Wait(500 + random(250));
if(FindColorTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,3))then
begin
repeat
MMouse(x,y,2,1);
if IsUpText('illow') then
Mouse(x,y,3,3,False);
ChooseOption(x,y,'hop');
Wait(5000 + random(1200));
FindFastRandoms;
until(InvFull);
end;
end;
//DROPPING PROCEDURE//
procedure Drop;
begin
GameTab(4);
if(InvFull)then
begin
DropTo(2,28)
Loads:=Loads+1;
TimeRunning;
end;
end;
//PROGRESS REPORT//
procedure Proggy;
begin
ClearDebug;
Writeln('*************************************');
Writeln('=========== PROGRESS REPORT =========');
Writeln('did: ' + IntToStr(Loads) + ' Loads');
Writeln('running for: ' + TimeRunning + ' minutes');
Writeln('*************************************');
end;
//MAIN LOOP//
begin
SetupSRL;
FindFastRandoms;
repeat
Chop;
Drop;
Proggy;
DontGetBanned;
until(False);
end.
