PHP Code:
program NoobStarter;
{.include srl/srl.scar}
const
treecolor=2256992;//the color of the tree
treecolor2=2248776;//another color of the tree
loadstodo=20;//how many loads to bank before logging out
run='W';//Where to run if fight is found
var
Loads: integer;
procedure NoMajorBannage;
begin
case 1 + Random(6) of
1 : BoredHuman;
2 : PickUpMouse;
3 : HoverSkill('Woodcutting', false);
4 : RandomMovement;
5 : RandomRClick;
6 : GameTab(1 + Random(13));
end;
end;
procedure treerandoms;
begin
if(FindFight)then
begin
RunAwayDirection(run);
Wait(5000+random(1000));
RunBack;
end;
Gametab(4);
FindTalk;
FindNormalRandoms;
FindLamp(Lampskill);
end;
procedure walktotrees;
begin
mouse(697,109,5,5,true);
wait(3000+random(1500));
NoMajorBannage;
mouse(705,97,5,5,true);
wait(2000+random(2500));
NoMajorBannage;
mouse(654,85,5,5,true);
end;
procedure chopemdown;
begin
if(findcolorspiral(x,y,treecolor,MSX1,MSY1,MSX2,MSY2)) or
(findcolorspiral(x,y,treecolor2,MSX1,MSY1,MSX2,MSY2)) then
MMouse(x,y,2,2);
if(IsUptextMulti('Chop','dow','tree'))then
NoMajorBannage;
treerandoms;
mouse(x,y,5,5,false)
ChooseOption(x,y,'Chop Down');
wait(5000+random(2500));
end;
procedure tillimdone;
begin
repeat
chopemdown;
until(invfull)
Loads:= Loads+1;
end;
procedure gobank;
begin
mouse(663,184,5,5,true);
wait(5000+random(1500));
NoMajorBannage;
treerandoms;
mouse(616,176,5,5,true);
wait(5000+random(1500));
NoMajorBannage;
treerandoms;
if(findcolor(x,y,6148078,MMX1,MMY1,MMX2,MMY2)) then
mouse(x,y,2,2,true);
wait(2000+random(2500));
end;
procedure bankem;
begin
openbank;
fixbank;
depositall;
end;
procedure report;
begin
writeln('|This Script Was Made by Buckleyindahouse');
writeln('|You have benn chopping trees for'+timerunning);
writeln('|You have chopped and banked'+inttostr(loads));
end;
begin
setupsrl;
activateclient;
repeat
walktotrees;
chopemdown;
tillimdone;
gobank
bankem;
until(Loads = loadstodo)
logout;
terminatescript;
end.
Here you go. You had some little errors, like in Mouse(x,y,5,5,false) You forget put false there.