SCAR Code:
program WoodWhacker;
{.include srl/srl.scar}
// This is my first script
// Woodwhacker by Jahuro
// V1.1
var
WoodLoads,i: Integer;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then // Call it twice
Result := True;
11: if FindLamp(LampSkill) then // Maybe we missed it?
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
13: if FindTrade then
Result := True;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: SaveToChatLog;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
Const
Color = 3162200;
TreeName = 'Tree';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure Report;
begin
Writeln('[]-------------------------------------------[]');
Writeln('[]------------JAHURO WOOD WHACKER------------[]');
Writeln('Worked For : ' + ScriptTime2(2))'------------[]');
Writeln('Cut'+ IntToStr(WoodLoads) + ' Loads --[]');
Writeln('[]-------------------------------------------[]');
end;
procedure Antiran;
begin
while(Chopping)do
begin
Wait(200);
FindNormalRandoms;
end;
end;
procedure ClickTree;
begin
repeat
if(FindColor(x,y,color,0,0,400,500))then
MMouse(x,y,0,0);
wait(100+random(50));
if(IsUpText('Chop down '+TreeName))
then
Mouse(x,y,0,0,true);
wait(2000+random(50));
until(InvFull);
end;
procedure Drop;
begin
DropAll;
FindNormalRandoms;
WoodLoads := WoodLoads + 1;
end;
begin
setupsrl;
DeclarePlayers;
repeat
ClickTree;
Drop;
Report;
until false;
end.
The isuptext isnt working