
Originally Posted by
Sp0rk-eh
Reserved for fix.
Just for that im gunna try beat you to it :P
edit: there were a few minor errors, look at the coments they explain what was wrong
SCAR Code:
program PowerChopper;
//IIIIIIIII EEEEEEEEEE JJJJJJJJJJ BBBBBBB
// II E JJ B BB
// II EEEEEE JJ JJ BBBBBBB
// II E JJ JJ B BB
//IIIIIIIII EEEEEEEEEE JJ BBBBBBB
//All credit goes to JAB!
//Read his tutorial at <a href="http://www.villavu.com/forum/showthread.php?t=6366" target="_blank">http://www.srl-forums.com/forum/tut-...ner-t7368.html</a>
//Have axe unequipped and in the first inventory slot.
//Enjoy. This is my first real Runescape script!
//AntiRandoms, at least I think so :P
//Post Progress Reports, or comments if you could.
//You can stop script with the normal hotkeys or F12
{.include SRL/SRL.scar}
//If somebody reads this, does this need the woodcutting include?
//Variables
Var loads:integer;// no need to declare x,y because there just like the standard variable, you didnt declare loads
//Constants
Const
TreeColor = 0; //Set the Tree Color
Procedure AntiRandoms;
Begin
FindTalk;
FindNormalRandoms;
if (FindFight = True) then
begin
RunAwayDirection('N');
Wait(10000 + random(3000));
RunBack;
end;
end;
Procedure Cut;
Begin
Repeat
if(FindColor(x,y,TreeColor,0,0,515,337))then
MMouse(x,y,0,0);
Wait(250+random(50));
Mouse(x,y,0,0,true);
Wait(500 + random(250));
AntiRandoms;
until(InvFull);
end;
Procedure Drop;
Begin
DropTo(2,28);
Loads:=Loads+1;
End;
Procedure Prog;
Begin
ClearDebug;
WriteLn('----->Welcome to my first Woodcutter!!<-----');
WriteLn(' ');
WriteLn('--------------------------------------------');
WriteLn('------------->Progress Report<--------------');
WriteLn('You have cut down' +IntToStr(Loads)+ 'loads!');
WriteLn('---------->End of Progress Report<----------');
WriteLn('--------------------------------------------');
end;
begin
ActivateClient;
SetupSRL;
repeat
if(not(LoggedIn))then
Exit;
Cut;//you had mine, you cut trees not mine them
Drop;
Prog;//you ask it to do progressreport but your progress report procedure is called prog
until(IsFKeyDown(12));
end.