can someon eplease heprogram Woodcutpro;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
///////////////////CONSTANTS////////////////////
const
TreeColor1 = 2836044; //No need to change
TreeColor2 = 2506564; //No need to change
TreeColor3 = 6260339; //No need to change
WoodToBurn = 350; //how many trees you want to chop&burn?
rundir = 'N'; //if attacked, which way to run? (N, E, W, S)
runbackdir = 'S'; //the OPPOSITE of rundir, so if rundir='N' then
//runbackdir='S' etc.
////////////////////VARIABLES/////////////////////
var
WoodBurned, log : integer;
//////////////////DECLARE PLAYERS////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
numberOfPlayers(howManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'RS name'; //username
Players[0].Pass := 'RS pass'; //password
Players[0].Nick := 'Nick'; //3-4 letters from your usernam)
Players[0].Active := True;
end;
////////////////LOAD BITMAPS//////////////////////
Procedure LoadBitmaps;
begin
log := BitmapFromString(18, 12, 'beNrzly/McICgCH/5EG85CPJ3l' +
'4EguAgaQtaFrBGOIOLICFlXXqodskZMxXAEdAOmLjwI4nhvZ2m4Lm' +
'R34lLsZi/paC1uYyaKRws8ZODqIQjIhluXnWQDDwGgaUAEVwNRBkH' +
'w4AUiiBa4aZjq0eICwk6JtYwLN4UbiIywRhxEEOJCoF5c0YoWgxCL' +
'cMUarhhHjjL8uhDBCwD5Naop');
end;
function SearchBirdsNest: Boolean;
var
CTS, I, X, Y: Integer;
NestATPA: T2DPointArray;
NestTPA: TPointArray;
Nest: TPoint;
Timer: LongInt;
begin
if (FindText(X, Y, 'nest falls', SmallChars, 0, 400, 495, 460)) then
begin
MarkTime(Timer);
repeat
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
X := MSCX;
Y := MSCY;
FindColorsSpiralTolerance(X, Y, NestTPA, 3952984, MSCX - 100, MSCY - 100, MSCX + 100, MSCY + 100, 15);
NestATPA := TPAtoATPAEx(NestTPA, 5, 5);
for I := 0 to Length(NestATPA) - 1 do
begin
if (TimeFromMark(Timer) >= (10000)) then
Exit;
Nest := MIddleTPA(NestATPA);
X := 0;
Y := 0;
MMouse(Nest.X, Nest.Y, 5, 5);
Wait(250);
if (isUpText('ird')) then
end;
until (TimeFromMark(Timer) >= (1000)) or (Result);
Exit;
end
else
Exit;
end;
////////////////////////////////////////////////
//////////////////////DO RANDOM STUFF///////////
procedure DoRandomStuff;
begin
wait(10+random(10));
GameTab(1 +random(7));
wait(10+random(10));
GameTab(4);
end;
////////////////////////////////////////////////
///////////////////////BURN WOOD///////////////
Procedure Burn;
var
x, y, TimeFromClickingLog : integer;
begin
GameTab(4);
wait(10+random(5));
repeat
FindNormalRandoms;
if FindFight then RunAway(rundir, true, 1, 200);
if FindBitmaptolerancein(log, x, y, MIX1, MIY1, MIX2, MIY2, 18) then
begin
MouseItem(1, true);
wait(0+random(10));
Mouse(x, y, 0, 0, true);
MarkTime(TimeFromClickingLog);
repeat
wait(10);
until(
FindNormalRandoms or
FindFight or
(TimeFromMark(TimeFromClickingLog)>80) or
FindText(x, y, 'Congratulation', NPCChars, MCX1, MCY1, MCX2, MCY2) or
FindText(x, y, 'You have been given a Mysterious box!', NPCChars, MCX1, MCY1, MCX2, MCY2));
Inc(WoodBurned);
if FindText(x, y, 'ou can', SmallChars, 0, 440, 500, 458)then
begin
Dec(WoodBurned);
RunAway(rundir, false, 2, 0);
FindBitmaptolerancein(log, x, y, MIX1, MIY1, MIX2, MIY2, 30);
MouseItem(1, true);
wait(0+random(0));
Mouse(x, y, 0, 0, true);
repeat
wait(5);
until(
FindNormalRandoms or
FindFight or
(TimeFromMark(TimeFromClickingLog)>800) or
FindText(x, y, 'Congratulation', NPCChars, MCX1, MCY1, MCX2, MCY2) or
FindText(x, y, 'You have been given a Mysterious box!', NPCChars, MCX1, MCY1, MCX2, MCY2));
RunAway(runbackdir, false, 2, 0);
end;
end;
until(not(FindBitmaptolerancein(log, x, y, MIX1, MIY1, MIX2, MIY2, 18)));
end;
////////////////////////////////////////////////
//////////////CutWood///////////////////////////
Procedure Chop;
var
x, y, TimeFromClickChop : integer;
begin
FindNormalRandoms;
if FindFight then RunAway(rundir, true, 1, 800);
if
FindObjCustom(x, y, ['hop down Willow'], [TreeColor1, TreeColor2, TreeColor3], 21)then
Mouse(x, y, 0, 0, false);
if ChooseOption('hop') then
begin
MarkTime(TimeFromClickChop);
repeat
wait(1);
until(
FindEnt(x, y, true) or
FindNormalRandoms or
FindFight or
(TimeFromMark(TimeFromClickChop)>800) or
FindBitmapIn(log, x, y, MIX1, MIY2, MIX2, MIY2) or
FindText(x, y, 'Congratulation', NPCChars, MCX1, MCY1, MCX2, MCY2) or
FindText(x, y, 'You have been given a Mysterious box!', NPCChars, MCX1, MCY1, MCX2, MCY2));
end;
FindNormalRandoms;
if FindFight then RunAway(rundir, true, 1, 800);
DoRandomStuff;
end;
////////////////////////////////////////////////
///////////////////////RAPORT///////////////////
procedure Raport;
begin
ClearDebug;
writeln('***********************');
writeln('*Logs Chopped&Burned: ' +IntTostr(WoodBurned)+' *');
writeln('*Worked for: ' + TimeRunning);
writeln('***********************');
writeln('*Script by: Lolo94 *with use of maraizzos normal tree chop&burn*');
writeln('***********************');
end;
////////////////////////////////////////////////
//////////////////////MAIN EXECUTION///////////
begin
SetupSRL;
SetupWoodcutting;
LoadBitmaps;
DeclarePlayers;
if not LoggedIn then loginplayer;
wait(100+random(50));
GameTab(1);
GameTab(4);
KeyDown(VK_UP);
wait(150+random(50));
KeyUp(VK_UP);
repeat
Chop;
if not LoggedIn then TerminateScript;
Burn;
Raport
if(WoodBurned mod 60 = 0)then
begin
if not LoggedIn then TerminateScript;
if LoggedIn then
begin
logout;
loginplayer;
end;
end;
until(WoodBurned -1 > WoodToBurn);
end.lp me i always have an error with this
