SCAR Code:
program CutNSell;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
//////////////////////////////////////////
// By Jahuro//////////////////////////////
// Cuts and sells logs in lumbridge.//////
// V1.0///////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////////
/////////////////{SETUP}//////////////////////
//////////////////////////////////////////////
Const //
Color = 2132088; //
TreeTime = 2000; {Time it takes to cut Oak} //
ShopKeep = 0; {Colour of shop keeper} //
//////////////////////////////////////////////
procedure DeclarePlayers; //
begin //
HowManyPlayers := 1; //
NumberOfPlayers(HowManyPlayers); //
CurrentPlayer:= 0; //
//
Players[0].Name :=''; //
Players[0].Pass :=''; //
Players[0].Nick :=''; //
Players[0].Active:=True; //
end; //
//////////////////////////////////////////////
//////////////////////////////////////////////
var OakLogs,WoodLoads,i: Integer;
Function FindFastRandoms:Boolean;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
////////////////////////////////////////////
procedure DeclareBMPS;
begin
OakLogs:= BitmapFromString(14, 9, 'z78DAB5914B6E04210C44AFE4BFCD9' +
'2A69BFB1F69CC2709A351945558942C300F53552D4CEF00108168' +
'760B6E250B7EC2A7AEFA3CFD543185BDEA64126719851D850A581' +
'70AB00A43EF7C0B0C05D6FE6F9A3DF0CEAC1CA2CD7BD2EFA2CE22' +
'9B7FBCF2273380163324AB1B1004DA1B6DCCB6FBD398D92B0A948' +
'D0EA33D66FD0C359CA7F835A777432E81CAD94C03BAD44873CB7A' +
'2A3928E57ED1C6EE4D1F76C0792B3DE4B63DAF56B99FCC9110A15' +
'FA905DC80E34DF39487ABC4D7F02D39F4C389C85FEFA416531F51' +
'C24AC3CF9A69EB9533F77475FE7D67BA6E2DC20767EB4C732DA13' +
'161CD29927926B5982BF7937C10967E278542F06FEB0523C99DCC' +
'');
end;
////////////////////////////////////////////
////////////////////////////////////////////
Procedure TheAntiBan;
begin
RotateEvery(1+random(4));
RandomChatEvery(2+random(4));
RandomRClickEvery(3+random(4));
LeaveScreenEvery(1+random(4));
AntiBan;
end;
////////////////////////////////////////////
////////////////////////////////////////////
procedure Report;
begin
Writeln('[]-------------------------------------------[]');
Writeln('[]------------JAHURO WOOD WHACKER------------[]');
Writeln('Worked For : '+ScriptTime2(2));
Writeln('Cut-N-Sold '+ IntToStr(WoodLoads) + ' Loads');
Writeln('[]-------------------------------------------[]');
end;
////////////////////////////////////////////
////////////////////////////////////////////
procedure ClickTree;
var x,y :integer;
begin
repeat
if(FindColor(x,y,color,0,0,400,500))then
MMouse(x,y,0,0);
wait(100+random(50));
If(IsUpText('Oak'))then
Mouse(x,y,0,0,true);
Report;
FindFastRandoms;
wait(TreeTime+random(50));
TheAntiban;
until(InvFull);
end;
//////////////////////////////////////////
//////////////////////////////////////////
procedure Shopwalk;
var x,y :integer;
begin
if(FindSymbol(x, y, 'shop')) then
begin
repeat
Wait(50+random(100))
until(FindSymbol(x, y, 'Shop'))
Mouse(x, y, 5, 5, true)
Flag;
end;
end;
/////////////////////////////////////////
/////////////////////////////////////////
procedure Sell;
var x,y :integer;
begin
if(FindColor(x,y,ShopKeep,0,0,400,500))then
MMouse(x,y,0,0);
wait(100+random(50));
If(IsUpText('hop K'))then
begin
Mouse(x,y,0,0,false);
wait(100+random(50));
ChooseOption(x,y,'rade');
Wait(300+random(150));
If(FindBitmap(OakLogs,x,y))then
begin
Mouse(x,y,0,0,False);
Wait(100+random(5));
ChooseOption(x,y,'ell 10');
end;
end;
RadialWalk( 612139 , 297, 585, 48, 1, 1);
end;
////////////////////////////////////////
////////////////////////////////////////
begin
setupsrl;
DeclarePlayers;
DeclareBMPS;
LoginPlayer;
Report;
SRLRandomsReport;
TheAntiBan;
repeat
ClickTree;
Report;
shopwalk;
Sell;
Report;
SRLRandomsReport;
MakeCompass ('N');
until false;
end.
///////////////////////////////////////