dunno how to put in an ENT or random, read the guides BUT I dont wanna bother with that yet, this is just my first script ill make it later later... but i dunno how to walk and then repeat, im using Radial Walk ... heres what it looks like now :
SCAR Code:
program OaksGotPwned;
{.include SRL/SRL.Scar}
const
Shop = 4225977; // color of the pot of the general shop in minimap
OakColor = 3105112; // color of the oak leaves, pick any color
var
x, y :integer; // do not touch this
/////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
procedure Signature;
begin
ClearDebug;
writeln('Oaks Got Pwned! OMGZORZ!!!!!!!!!!!!!');
writeln('This Script has been made by r3dr4g0n');
writeln('Please do not distribute without permission');
writeln('You can edit my script to make your own,')
writeln('just give me credit');
writeln('ENJOY THE SCRIPT!');
wait(3000 + random(750));
end;
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
procedure FaceNorth;
begin // Sets up your
MakeCompass('N'); // compass and
HighestAngle; // highest angle
MouseSpeed:=15; // <--- this is your mouse speed, change it if you know what your doing
end;
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
Procedure CutOak;
begin
repeat
if(FindColor(x, y, OakColor, 1, 1, 515, 337)) then
begin
MMouse(x, y, 5, 5);
Wait(100 + random(50));
if IsUpText('ak') then
begin
Mouse(x, y, 0, 0, True);
Wait(1500 + random(1500));
end;
end;
until(InvFull)
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
procedure WalkItOut;
begin
RadialWalk(Shop , 47, 104, 50, 0, 0);
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
begin
Activateclient; // minimizes scar and opens RS
SetupSRL;
Signature;
Wait(100+random(100)); // waits 3 seconds before doing anything
FaceNorth;
SetRun(true)
GameTab(4); // faces in the right direction
repeat
CutOak; // starts cutting oak
Findnormalrandoms;
Wait(20000+random(1500));
WalkItOut; // walks to shop when ur inven is full
until(false)
end.