
Originally Posted by
1337N3SS
SCAR Code:
program 1337-Power;
{.include SRL\SRL.scar}
var
x,y : integer;
Loads : integer;
const
Treecolor=7579023;
procedure chop;
begin
If (Not(LoggedIN)) then Exit;
repeat
if(FindColorTolerance(x, y,Treecolor, MSX1, MSY1, MSX2, MSY2, 10))then
begin
Mouse(x,y,0,0,false);
if(chooseOption('hop'))then
wait(11000+random(9000))
end;
until(InvFull);
end;
Procedure drop;
begin
if(InvFull)then
begin
DropAll;
Loads:=Loads+1;
end;
end;
begin
SetupSRL;
repeat
chop;
drop;
until(false)
end.
that wont run by itself...thats error 1 
umm its to short. very bannable...i added in setup players+ declare players + antirandoms+ antiban...keep reading tutorials or add me on msn joelster134@hotmail.com or PM me for more help if you need it 
heres wat i put in
SCAR Code:
program Power;
{.include SRL\SRL.scar}
var
x,y : integer;
Loads : integer;
const
Treecolor=7579023;
procedure declareplayers;
begin
howmanyplayers:=1; // NO TOUCHY!
numberofplayers(howmanyplayers);
players[0].name:='username';
players[0].pass:='pass';
players[0].nick:='3- for letter of your name';
players[0].active:=true;
Mousespeed:= 20;
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(True);
end;
{~~~~~~~~~~~~~~~~~~~~~~]
[Made by Joelster134 ]
[used in cammy telle ]
[ ]
[~~~~~~~~~~~~~~~~~~~~~~}
procedure randoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
//End of Anti-Randoms
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
11: RandomMovement;
15: BoredHuman;
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3220 + Random(2415));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure chop;
begin
If (Not(LoggedIN)) then Exit;
repeat
if(FindColorTolerance(x, y,Treecolor, MSX1, MSY1, MSX2, MSY2, 10))then
begin
Mouse(x,y,0,0,false);
if(chooseOption('hop'))then
Randoms;
wait(11000+random(9000))
end;
until(InvFull);
end;
Procedure drop;
begin
if(InvFull)then
begin
DropAll;
Loads:=Loads+1;
Randoms;
AntiBan;
end;
end;
begin
SetupSRL;
repeat
chop;
drop;
randoms;
AntiBan;
until(false)
end.