SCAR Code:
program FlaxManiacXL;
{.include SRL/SRL.scar}
//---------------------------------------------------------------------------|
// Begin Variables. |
//-----------------------------------------------------------------------------|
var
x, y: Integer;
Crlvl: Integer;
Loads: Integer;
Banked, Picked, Walked: Boolean;
//---------------------------------------------------------------------------|
// Begin Constants (Edit if the script doesn't find certain colors. |
//-----------------------------------------------------------------------------|
const
Flaxmap = 10969691;
FlaxRL = 15328935;
SpecTree = 113428;
palmplant = 3043909;
//---------------------------------------------------------------------------|
// Script Starting! |
//-----------------------------------------------------------------------------|
////////////////////////////////////////////////////////////////////////////////
{ AntiRandoms! }
////////////////////////////////////////////////////////////////////////////////
Procedure AntiRandom;
begin
end;
////////////////////////////////////////////////////////////////////////////////
{ AntiBan! }
////////////////////////////////////////////////////////////////////////////////
Procedure AntiBan;
begin
end;
////////////////////////////////////////////////////////////////////////////////
{ Walking To Flax }
////////////////////////////////////////////////////////////////////////////////
procedure WalkFlax;
begin
walked:=False;
Wait(2000+random(500));
RadialWalk(SpecTree, 180, 90, 70, 1, 1); //Walking to our First tree
RadialWalk(SpecTree, 270, 180, 70, 1, 1);//Walking to our Second tree
RadialWalk(PalmPlant, 180, 90, 70, 1, 1);//Walking to the palm like plants
Radialwalk(FlaxMap, 180, 90, 50, 1, 1); //Walking to the Flax
if (FindColorSpiralTolerance(x, y, FlaxRL, 0, 0, 510, 330, 7)) then
begin
Writeln('_-_Houston, We Found Flax!_-_')
walked:=True;
end;
end;
////////////////////////////////////////////////////////////////////////////////
{ Picking Flax }
////////////////////////////////////////////////////////////////////////////////
Procedure PickFlax;
begin
if (not(LoggedIn)) then
Exit;
if not walked then
Exit;
repeat
begin
if (FindColorSpiralTolerance(x, y, FlaxRL, 205, 90, 390, 290, 7)) then
repeat
begin
Wait(1100+Random(100));
Mouse(x, y, 2, 2, True);
end;
until(not(IsUpText('ick')))
end;
until(InvFull)
end;
begin
{--}ClearDebug
{--}SetupSRL;
{--}SRLPlayerForm(true,[],[],[],[]);
{--}LoginPlayer;
// The 'Mainscript' will be starting from here
WalkFlax;
PickFlax;
end.
oh btw, I didn't start making the antirandom and antiban yet, ill get on it after the script itself is working fine...