you missed a semi colion after wait.
and another aftewr login player
SCAR Code:
program PieTreeChoper;
{.include SRL/SRL.scar}
//Stand near some trees.
//Have your axe first inventory spot.
//Sorry but script does not pick up axe head
//If you can help me with that add me on msn
//vit1995@hotmail.com
const
TreeColor = 2252880;//The tree color.
TreeName = 'ree';//3 letters of the tree's name.
Times = 1; //How many times you want to cut and drop logs?
RunAwayDir = 'S';//The direction to run away incase of a fight;
var
Times1: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Fill in your username
Players[0].Pass := ''; //Fill in your password
Players[0].Nick := ''; //2-3 letters of your username
Players[0].Active := True; //Set true if you want to use this player
NickNameBmp := CreateBitMapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000 + random(2000));
RunBack;
end;
procedure Randoms;
begin
FindTalk;
wait(10);
FindNormalRandoms;
if (FindFight) then
RunAway;
end;
procedure QuickRands;
begin
CloseWindow;
Wait(10);
FindTalk;
Wait(10);
FindDead;
Wait(10);
FindMime;
Wait(10);
FindMaze;
Wait(10);
FindQuiz;
Wait(10);
FindScapeRune;
Wait(10);
ClickToContinue;
Wait(10);
FindTalk;
Wait(10 + Random(50));
end;
procedure Inventory;
begin
Mouse(649, 185, 2, 2, True);
end;
procedure Report;
begin
ClearDebug;
WriteLn('Pie Choper');
WriteLn('Worked for ' + TimeRunning);
WriteLn('Chopped And Droped' + IntToStr(Times) + ' Loads');
end;
procedure CutTree;
begin
repeat
if FindColor(x, y, TreeColor, 0, 0, 450, 450) then
MMouse(x, y, 3, 3);
Wait(1000 + random(200));
until (IsUpText(TreeName));
if (IsUpText(TreeName)) then
Mouse(x, y, 5, 5, False);
Wait(500 + random(1000));
ChooseOption(x, y, 'own');
Wait(5000 + random(2000));
end;
procedure WieldAxe;
begin
Mouse(585, 223, 2, 2, True);
end;
procedure Drop;
begin
DropAll;
end;
procedure AntiBan;
begin
Mouse(585, 188, 3, 3, True);
Wait(600 + random(400));
MMouse(716, 373, 4, 4);
Wait(3000 + random(2000));
Inventory;
TypeSend('lalalalalla');
Wait(1000 + random(500));
TypeSend('wc...');
end;
begin
SetupSRL;
DeclarePlayers;
if not LoggedIn then
LoginPlayer;
Inventory;
WieldAxe;
repeat
CutTree;
Randoms;
CutTree;
QuickRands;
CutTree;
AntiBan;
Drop;
until (Times = Times1);
if (Times = Times1) then
Report;
Exit;
TerminateScript;
end.