So.. how can i make progres report and where do i put i ....?
SCAR Code:
program PallooosPowerChopper;
{.include SRL\SRL.scar}
var
x,y : integer;
Loads : integer;
const
Treecolor1=6988186; //Treecolor1 in your main screen
Treecolor2=6988186; //Treecolor2 in your main screen
Procedure DeclarePlayers;
begin
HowManyPlayers:=2
CurrentPlayer:=0
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //Your charters name
Players[0].Pass := ''; //Your charters password
Players[0].Nick := ''; //Part of your charters name 3-4 letters
Players[0].Active:= True;
Players[1].Name := ''; //your second charters name
Players[1].Pass := ''; //Your second charters password
Players[1].Nick := ''; //Part of your charters name 3-4 letters
Players[1].Active:= False;
End;
procedure Chop;
begin
If (Not(LoggedIN)) then NextPlayer(True);
repeat
if(FindColorTolerance(x, y,Treecolor1, MSX1, MSY1, MSX2, MSY2, 10))or
(FindColorTolerance(x, y,Treecolor2, MSX1, MSY1, MSX2, MSY2, 8))then
begin
Mouse(x,y,0,0,false);
if(chooseOption('hop'))then
Writeln('Chopping down tree');
Writeln('');
wait(4000+random(3000))
end;
until(InvFull);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
Procedure Drop;
begin
if(InvFull)then
begin
DropAll;
Loads:=Loads+1;
Writeln('');
Writeln('LogsDropped');
Writeln('');
Writeln('Begin Chopping...');
Writeln('');
end;
end;
begin
SetupSRL;
repeat
Chop;
Drop;
FindFastRandoms;
until(false)
end.