SCAR Code:
///////////////Coatrackofsatan's Willow Cutter/////
///////////////YES I NEED BETTER ANTI-RANDOMS//////
//////////////AND SOME ANTIBAN....////////////////
/////////////IF YOU WANT TO HELP, EMAIL ME////////
////////////COATRACKOFSATAN@GMAIL.COM///////////
////////////ENJOY!/////////////////////////////
program YetAnotherWillowCutter;
{.include /SRL/SRL.scar}
{.include /SRL/SRL/extended/xMapWalk.scar}
{.include /SRL/SRL/skill/woodcutting.scar}
{.include srl/srl/extended/xAntiBan.scar}
const
WillowColor = 2379848;
FarmingColor = 3104359;
LoadsToCut = 50;
var NNBMP, LogDTM, loads, NumLogins: integer;
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
procedure Progress;
begin
ClearDebug;
WriteLn('YetAnotherWillowCutter')
WriteLn('----------------------')
WriteLn('LoadsCut:' + InttoStr(loads))
WriteLn('LoadsRemaining:' + InttoStr(loadstocut - loads))
end;
procedure AvoidBan;
begin
case 1 + random(5) of
1: MMouse(400, 10, 399, 9);
2: GameTab(3 + Random(2));
3: RandomRClick;
4: AlmostLogout;
5: PickUpMouse;
6: BoredHuman;
7: MouseBox(MSX1, MSY1, MSX2, MSY2, 7);
end;
GameTab(4);
end;
procedure Chop;
var x, y: integer;
begin
repeat
if (FindColorSpiral(x, y, WillowColor, 0, 0, 760, 505)) then ;
if (FindEnt(WillowColor)) then ;
begin
AvoidBan;
SleepAndMoveMouse(4123 + random(46));
end;
FindNormalRandoms;
Mouse(x, y, 0, 0, False)
AvoidBan;
ChooseOption(x, y, 'hop d')
if (inchat('swing')) then
SleepAndMoveMouse(4325 + random(1000));
until (InvFull)
end;
procedure Bank;
var x, y: integer;
begin
repeat
if (FindObj(x, y, 'Bank booth', 5066848, 9)) then ;
begin
FindNormalRandoms;
AvoidBan;
Mouse(x, y, 0, 0, False)
ChooseOption(x, y, 'quickly')
Wait(3000)
if (BankScreen) then ;
begin
FindDTM(LogDTM, x, y, 599, 208, 733, 458)
Mouse(x, y, 0, 0, False)
ChooseOption(x, y, 'All')
end
end
CloseBank;
until (InvCount < 4)
end;
procedure WalkToWillows;
var x, y: integer;
begin
MakeCompass('N')
FindNormalRandoms;
AvoidBan;
RadialWalk(1593380, 181, 270, 75, 0, 0);
Flag;
end;
procedure WalkBack;
var x, y: integer;
begin
MakeCompass('N')
AvoidBan;
RadialRoadWalk(RoadColor, 0, 179, 75, 0, 0);
Flag;
if (FindColorSpiral(x, y, 5362424, 567, 10, 727, 142) and FindColorSpiral(x, y, 12894414, 567, 10, 727, 142)) then ;
Mouse(x, y, 0, 0, True)
wait(5000)
end;
begin
LogDTM := DTMFromString('78DA638C676060F0634001EEA69C0C0F81342' +
'310FF0702C64420239C010D302291403A0C48441050E30F248208' +
'A8C905128104D464821C49404D3A9008C5AF06005AEA0A55');
loads := 0
NumLogins := 0
SetupSRL;
DisguiseScar('foobar2000')
DeclarePlayer;
ActivateClient;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
if not (LoggedIn) then ;
LoginPlayer;
FindNormalRandoms;
HighestAngle;
MakeCompass('N')
repeat
repeat
Progress;
SetRun(True)
WalkToWillows;
Chop;
WalkBack;
Bank;
loads := loads + 1
until (loads >= loadstocut)
NextPlayer(True);
NumLogins := NumLogins + 1
until (HowManyPlayers <= NumLogins)
end.