SCAR Code:
Program WillowChopperDropper;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
Var
x, y, Time, LogsDropped, Logs :integer;
Const
WT=1000; //How Log to Wait In Milliseconds Per each Tree
Tol=10 ; //Increase If not Finding Tree!!!
Name='Mozilla Firefox Start Page - Mozilla Firefox';//What To Diguise Scar As
Procedure LBitmap;
Begin
Logs:= DTMFromString('78DA6394606060006124A0A5C2CDF01F48330' +
'2F17F20609407327818D000231209A48581043F01355C40429C80' +
'1A5E20A140408D2C116AD48184147E35004C6206B2');
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //UserName
Players[0].Pass :=''; //Password
Players[0].Nick :=''; //Nickname 3 - 4 Letter's of Username Not Using First Letter!!
Players[0].Active := True;
Writeln(inttostr(HowManyPlayers) + ' Players');
end;
Procedure AntiRandoms;
Begin
FindNormalRandoms;
if FindFight then
begin
RunAway('N', False,1,8000);
Wait(5000 + random(3000));
end;
end;
Procedure AntiBan;
Begin
case Random(10) of
1: HoverSkill('woodcutting', false);
2: BoredHuman;
3: Mouse(646, 188,2,2,true)//This Clicks On Inventory I hope At least ="=
end;
end;
procedure Waiting;
begin
MarkTime(Time)
Repeat
FindEnt(x, y, true);
AntiBan;
FindNormalRandoms;
If InChat('wc') then
SayCurrentLevels('woodcutting');
until(not(IsUpText('Chop'))) or (TimeFromMark(Time) > WT+random(20))
end;
Procedure Cut;
Begin
if IsUpText('illow')then
begin
Mouse(x,y,0,0,false);
ChooseOption('hop')
end;
end;
Procedure FindWillows;
Begin
MakeCompass('N')
If(FindObjCustom(x,y,['illo'],[4022890,4682364,3099730],Tol))then
If IsUpText('hop') then
Begin
Repeat
Cut;
FindEnt(x,y,true);
Waiting;
until(InvFull)
end;
end;
Procedure Drop;
Begin
Repeat
If not FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2)then break;
Mouse(x, y, 2, 2, false);
ChooseOption('rop');
LogsDropped := LogsDropped + 1;
until (false);
end;
Procedure ProgressReport;
Begin
ClearDebug;
SrlRandomsReport;
writeln('========================');
Writeln('Goblinos Power Chopper ProgessReport');
Writeln('Worked:'+timerunning);
Writeln('Dropped '+inttostr(LogsDropped)+' logs.');
writeln('========================');
end;
Begin
SetupSRL;
Disguise(Name);
DeclarePlayers;
ActivateClient;
if(not(loggedin))then loginplayer;
LBitmap;
Repeat
if(not(loggedin))then loginplayer;
Repeat
FindWillows;
until(InvFull)
if (InvFull)then
Begin
Mouse(646, 188,2,2,true)
Repeat
ProgressReport;
Drop;
until(FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2))=false;
end;
until(False)
end.