I still cant figure out what the hell is wrong with my script. It stops chopping the wood but does not walk to where I want it to...
Some1 please explain the following:
1) How do I make it walk to the store once im done cutting, then how do I make him talk to the shopkeeper and sell my stuff.
2) After that, how do I make him walk back to the Oak trees.
3) And then start cutting again and repeat the entire thing.
Heres my script:
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
MakeCompass('E'); // makes compass face north
HighestAngle; // highest angle
MouseSpeed:=15; // <--- this is your mouse speed, change it if you know what your doing
SetRun(true) // sets run on.
GameTab(4); // opens bag
end;
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
Procedure CutOak;
begin
repeat
If (FindObjEx(x,y,'Oak',273,58,418,271,OakColor,0,7,7,300,false))then
begin
MMouse(x, y, 5, 5);
Wait(100 + random(50));
Mouse(x, y, 0, 0, True);
Wait(1500 + random(1500));
end;
until(InvFull)
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
procedure WalkItOut;
begin
if(InvFull) then
begin
if(FindColor(x, y, Shop, 584, 35, 679, 103))then
begin
Wait(150 + random(150));
Mouse(x, y, 0, 0, True);
end;
end;
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
begin
Activateclient; // minimizes scar and opens RS
SetupSRL;
Signature;
FaceNorth;
Wait(100+random(100));
repeat
CutOak; // starts cutting oak
Findnormalrandoms;
Wait(20000+random(1500));
WalkItOut; // walks to shop when ur inven is full
until(false)
end.