ok heres my script so far:
SCAR Code:
program PowerChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Extended/xAntiban.scar}
{.include SRL/SRL/Extended/xAntiRandoms.scar}
//////////////////////////////////////////////////
// Instructions //
// 1.Start anywhere by trees. //
// 2.Set the color of the tree. //
// 3.Equip the axe of your choice. //
// 4.Set the new RS window. //
// 5.Move the scar window over clear to the left//
// 6.Hit RUN!!! //
//////////////////////////////////////////////////
/////// ////// // //// ////
// // // // // // // //
// //// // // // // // //
// // ///////// // //// //
// ////// // // // // //
///////////////////Setup/////////////
var
Load:Integer;
cut:Integer;
const
Normal=798760; //change if it doesnt find the tree
Loads=1; //How many loads to do.
procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer:=0;
Players[0].Name :='username'; //Fill in your username.
Players[0].Pass :='password'; //Fill in your password.
Players[0].Nick :='nick'; //2-3 letters of your username.
Players[0].Active :=True; //Dont touch.
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;
///////////////Don't Touch Below This//////////////////////
procedure FindTree;
var
i:Integer;
begin
repeat
if(FindObj(x,y,'hop',Normal,10))then
begin
Mouse(x,y,5,5,True)
repeat
Wait(2000)
i:=i+1
until(InChat('logs'))or(I>=5);
i:=0
cut:=cut+1
until cut:>=28 or InvFull
Loads:=Loads+1
end;
procedure Drop;
begin
DropAll;
end;
///////////////Anti-Randoms//////////////////
procedure Randoms;
begin
Findnormalrandoms;
end;
///////////////////Main Loop////////////////////
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
If(not(LoggedIn)) then
LoginPlayer;
repeat
repeat
Randoms;
AntiBan;
FindTree;
until(invfull);
DropAll;
until Loads=<Load
end.