SCAR Code:
program ChopAndDrop;
{.include srl/srl.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
const
TreeColor1 = 2592888;
TreeColor2 = 2785392;
TreeColor3 = 4544608;
Tree = 'Willow';
Procedure Welcome;
begin
Writeln(' Welcome to my power chopper');
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '*';//USername
Players[0].Pass := '*';//password
Players[0].Nick := 'new';//3-4 letters of username
Players[0].Active:=True;
Players[1].Name := '*';
Players[1].Pass := '*';
Players[1].Nick := 'new';
Players[1].Active:=True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active:=True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active:=True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active:=True;
end;
Procedure Randoms;
begin
if FindFight then
begin
Status('Running from Fight');
RunTo('n',true);
wait(8000 + random(1000));
RunTo('s',true);
end;
end;
Procedure CheckMate;
begin
if not (LoggedIn) then
begin
TerminateScript;
exit;
end;
end;
procedure Chop;
begin
repeat
checkmate;
if(FindColorTolerance(x, y, TreeColor1, msx1, msy1, msx2, msy2, 4)) or
(FindColorTolerance(x, y, Treecolor2, msx1, msy1, msx2, msy2, 4)) or
(FindColorTolerance(x, y, Treecolor3, msx1, msy1, msx2, msy2, 4))then
begin
Mouse(x,y,1,2,true);
wait(1000 + random(200));
FindHead;
FindNormalRandoms;
Randoms;
wait(8500 + random(1000));
FindEnt(TreeColor1);
end;
until (InvFull);
end;
procedure loadbitmats;
var
banksymbol, fish:integer;
begin
banksymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
'100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
'8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
'A1997F9B842865493890F734C9301ACE46928');
fish:= BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
'9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
'045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
'BB6B6878');
end;
procedure walktobank;
var
banksymbol:integer;
begin
if(FindBitmap(banksymbol, x, y))then
begin
Mouse(x, y, 1, 1, True);
openbank3;
Writeln('At the bank dudes')
end;
end;
procedure DepositsAll;
begin
if (BankScreen) then
Deposit(1, 28, 2);
closebank;
end;
procedure walktowillows;
var
fish:integer;
begin
if(FindBitmap(fish, x, y))then
begin
Mouse(x, y, 1, 1, True);
wait(1000)
writeln('woot at willows');
end;
end;
begin
Setupsrl;
declareplayers;
cleardebug;
welcome;
if not (loggedin) then
begin
loginplayer;
begin
FindNormalRandoms;
chop;
Randoms;
findnormalrandoms;
Walktobank;
Depositsall;
Walktowillows;
end;
end;
end.