crapkiller
2007-04-06 21:54:30
This is my Second SRL script ever.
Instructions
1)Start a character with an axe wielded in one of the middle bank slots at Varrock East Bank
2)Setup line 5
3)Drag the crosshair to the RS screen
4)Hit run and maybe watch the first load
Tell me what you think.
EDIT: Updated, now it has Ent detection and Axe head anti-randoms and a MUCH better banking procedure that I made =D
Instructions
1)Start a character with an axe wielded in one of the middle bank slots at Varrock East Bank
2)Setup line 5
3)Drag the crosshair to the RS screen
4)Hit run and maybe watch the first load
Tell me what you think.
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.scar}
Const
Loads = 100; //How many loads to do?
Var CurrentLogs, Logz, Loadz, Bankx, Banky, Exp :integer;
Procedure Proggyreport;
begin
Logz := Loadz * 28
Exp := Logz * 25
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + TimeRunning)
Writeln('|Chopped and Banked '+IntToStr(Loadz) + ' Loads');
Writeln('|Chopped and Banked '+ IntToStr(Logz) + ' Logs');
Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
Writeln('|---------------------------------------------|');
end;
Procedure Bank;
begin
Bankx := 249
Banky := 175
repeat
MMouse(Bankx, Banky, 1, 1);
Banky := Banky + 10;
Wait(100);
Until(IsUpText('Bank booth') = True);
Mouse(Bankx, Banky, 1, 1, False);
PopUp('Use-quickly');
Wait(3000+random(500));
FindColorTolerance(x, y, 3232619, 566, 219, 732, 460, 5);
Mouse(x, y, 1, 1, False);
PopUp('Store All');
Wait(200+random(500));
CloseBank;
end;
Procedure FindRandomz;
begin
FindEnt(793624);
FindHead;
FindNormalRandoms;
FindLamp('Woodcutting');
if (FindFight) then
begin
RunAwayDirection('N');
Wait(10000+random(2000));
RunBack;
end;
end;
Procedure NextTreeYet;
begin
CurrentLogs := CountItemColor(65536)
while (CountItemColor(65536) = CurrentLogs)do
begin
wait(500);
end;
FindRandomz;
end;
Procedure Walk2Bank;
begin
RadialRoadWalk(FindRoadColor, 200, 90, 70, 2, 2);
Wait(3000);
Flag;
RadialRoadWalk(FindRoadColor, 270, 180, 60, 2, 2);
RadialRoadWalk(FindRoadColor, 276, 266, 60, 2, 2);
FindColor(x, y, 5362410, 539, 7, 750, 163);
Mouse(x, y, 2, 2, true);
Flag;
end;
Procedure Walk2Trees;
begin
SetRun(true);
RadialRoadWalk(FindRoadColor, 0, 90, 70, 2, 2);
RadialRoadWalk(FindRoadColor, 0, 90, 70, 2, 2);
RadialRoadWalk(FindRoadColor, 0, 90, 50, 2, 2);
//FindColor(x, y, 1265191, 590, 53, 630, 102);
Mouse(617, 71, 2, 2, true);
Flag;
end;
Procedure Chop;
begin
repeat
FindColor(x, y, 793624, 0, 0, 515, 335);
MMouse(x, y, 2, 2);
Until(IsUpText('Tree') = True);
Mouse(x, y, 2, 2, True);
end;
begin
SetUpSRL;
ActivateClient;
Wait(5000);
PerfectNorth;
FindAxeHeadColor;
repeat
x := x + 1
Walk2Trees;
While(InvFull = False) do
begin
Chop;
NextTreeYet;
end;
Walk2Bank;
Bank;
Loadz := x;
ProggyReport;
until(x = Loads);
FindAxeHeadColor
end.EDIT: Updated, now it has Ent detection and Axe head anti-randoms and a MUCH better banking procedure that I made =D