197666Sam
07-14-2007, 09:50 AM
scripts work on here, I swear...
that all in one power trainer didn't work for me, didn't click or anything is it because im using FireFox??
{
Script by: Travis AKA Born2code.
Travis presents Woodcutting, a power chopper that starts right
after you leave Tutorial Island or basically "anywhere" in Runescape!
How to run:
-Make sure axe is in first inv. slot!
(which it would be right after Tut. Island)
-Have RS on Very Bright.
Current Locations to start from:
-Varrock East Bank
-Varrock West Bank
-Lumby Guide (Tut. Island Ending)
-Barb Village (Below mining spot)
SETUP BELOW
Press start and it will run!
What it does:
This script is designed for you to have your woodcutting army
advance levels at a rapid pace without you having to position
them every single time at trees.
YOU MUST POST A PROGGIE! IF I GET LEECHERS, I WILL REMOVE THIS SCRIPT!!!!
YOU MUST POST A PROGGIE! IF I GET LEECHERS, I WILL REMOVE THIS SCRIPT!!!!
YOU MUST POST A PROGGIE! IF I GET LEECHERS, I WILL REMOVE THIS SCRIPT!!!!
}
program Woodcutting;
{.include srl/srl.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
Ents,WCLevel,Loads,Tloads,Tries,Talked,CutTime,MMT ree,MMB: integer;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ SETUP BEGIN }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
const
{Players Location Information
VE= Varrock East Bank
VW= Varrock West Bank
BV= Barb Village
TIE= Tutorial Island End
None= PowerChop Only (no walking)}
PLoc= 'None';//Where are your players located? ^See above^
{Names of Trees (works only when Power Chop Only mode is on)
ree= Normal Tree
ak= Oak Tree
illow= Willow Tree
ew= Yew Tree
}
TyTree= 'illow';//What type of tree? ^See above^
Tree= 1582112;//Color of the Tree (should be okay...)
AOL= 100;//Amount of loads per player
LoadTime= 10;//Max. time per load (minutes)
TreeT= 12;//Seconds between tree clicks
RunDir= 'N';//Directon to run if fighting random found
procedure DeclarePlayers;
begin
HowManyPlayers := 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'USERNAME';
Players[0].Pass := 'PASSWORD';
Players[0].Nick := 'NICKNAME';
Players[0].Active := True;
Players[0].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[1].Name := 'USERNAME';
Players[1].Pass := 'PASSWORD';
Players[1].Nick := 'NICKNAME';
Players[1].Active := True;
Players[1].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[2].Name := 'USERNAME';
Players[2].Pass := 'PASSWORD';
Players[2].Nick := 'NICKNAME';
Players[2].Active := True;
Players[2].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[3].Name := 'USERNAME';
Players[3].Pass := 'PASSWORD';
Players[3].Nick := 'NICKNAME';
Players[3].Active := True;
Players[3].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[4].Name := 'USERNAME';
Players[4].Pass := 'PASSWORD';
Players[4].Nick := 'NICKNAME';
Players[4].Active := True;
Players[4].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[5].Name := 'USERNAME';
Players[5].Pass := 'PASSWORD';
Players[5].Nick := 'NICKNAME';
Players[5].Active := True;
Players[5].Boolean2 := False; //Is the axe already equipped? True = weilded
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ SETUP END }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ JAD's ENT and AXE HEAD Finder }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure LoadB;
begin
MMB := BitmapFromString(11, 9, 'z78DAB5CE310EC0200805D02B21' +
'02A9A3B6F73F5313712055D0A5CB1F80FF02974B10B9A7A46 F72B' +
'88D6F52A30A8CC40F34CD7341BBB3E03956B05D4F88FF9905 CFD1' +
'B9E778A6ED8E4FCA5EA01B05807246A88B9B13A177FF165E9 4A67' +
'BF4');
end;
function CheckForEnt: Boolean;
var TPA: TPointArray;
begin
if(not(LoggedIn))then
Exit;
if(FindColorTolerance(x,y,55255,6,6,117,27,10))or
(FindColorTolerance(x,y,976101,6,6,117,27,10))then
begin
if(not(IsUpText('op'))) and (not(IsUpText('own')))then
Exit;
wait(1);
FindColorsSpiralTolerance(x,y,TPA,55255,6,6,117,27 ,10);
if(GetArrayLength(TPA) - 1 > 4)then
begin
Result := True;
Writeln('We found an ent!! Trying to avoid now..');
Mouse(648,84,3,3,true);
FFlag(0);
FTWait(60+random(5));
if(Players[CurrentPlayer].Boolean2)then
GameTab(5) else
GameTab(4);
wait(300+random(300));
Result := FindDTM(x,y,AxeDTM,MIX1,MIY1,MIX2,MIY2);
if(Result)then
begin
Writeln('Whew! We avoided the ent.. Carrying on with chopping');
Ents := Ents + 1;
Exit;
end else
begin
end;
end;
Result := False;
end;
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ JAD's ENT and AXE HEAD Finder }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Walking Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure WalkBarbVillageTrees;
begin
if(not (RadialWalk(FindDirtRoadColor,86,107,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindDirtRoadColor,86,107,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not(FindSymbol(x,y,'fishing spot'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=85) then break;
Tries:=Tries+1
until FindSymbol(x,y,'fishing spot');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
end;
procedure WalkVarrockWestTrees;
begin
if(not (RadialWalk(FindVarrockRoadColor,245,230,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,245,230,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,253,216,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,253,216,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
MMTree := AutoColorThis(MMB,70,MMX1,MMY1,MMX2,MMY2);
if(not (RadialWalk(MMTree,230,130,70,2,2))) then
begin
Tries:=0
repeat
Wait(250+random(500));
if(Tries=75) then break;
Tries:=Tries+1
until RadialWalk(MMTree,230,130,70,2,2);
end;
Mouse(x,y,3,4,true);
Wait(2050+random(500));
FFlag(0);
end;
procedure WalkTutIslandEndTrees;
begin
if(not(LoggedIn)) then Exit;
if(not (RadialWalk(FindRoadColor,288,360,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindRoadColor,288,360,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not(FindSymbol(x,y,'store'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=85) then break;
Tries:=Tries+1
until FindSymbol(x,y,'store');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
MMTree := AutoColorThis(MMB,70,MMX1,MMY1,MMX2,MMY2);
if(not (RadialWalk(MMTree,230,300,70,2,2))) then
begin
Tries:=0
repeat
Wait(250+random(500));
if(Tries=75) then break;
Tries:=Tries+1
until RadialWalk(MMTree,230,360,70,2,2);
end;
Mouse(x,y,3,4,true);
Wait(2050+random(500));
FFlag(0);
end;
procedure WalkVarrockEastTrees;
begin
if(not (RadialWalk(FindVarrockRoadColor,30,61,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,30,61,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,87,99,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,87,99,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,0,30,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,0,30,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,0,30,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,0,30,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
end;
procedure None;
begin
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Walking Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Choping Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure ChopTree;
begin
repeat
if(not(LoggedIn)) then Exit;
CheckForEnt;
if(not(FindObj(x,y,TyTree,Tree,3))) then
begin
Tries:=0
repeat
Wait(450+random(634));
if(Tries=30) then
begin
Writeln('Couldnt find trees!')
NextPlayer(false);
end;
Tries:=Tries+1
until RadialWalk(MMTree,230,360,70,2,2);
end;
Mouse(x,y,3,4,true)
Wait(TreeT*1000+random(1550));
until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Choping Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ ANTI Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure AntiBaning;
begin
if(not(LoggedIn))then
Exit;
case Random(9) of
0: begin
HoverSkill('Mining', false);
wait(1000+random(1000));
GameTab(4);
end;
1: begin
HoverSkill('Woodcutting', false);
wait(1000+random(1000));
GameTab(4);
end;
2: begin
HoverSkill('Smithing', false);
wait(4000+random(550));
GameTab(4);
end;
3: PickUpMouse;
4: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
5: SleepAndMoveMouse(5000+random(6000));
6: begin
GameTab(2 + Random(12));
wait(2000+random(1500));
GameTab(4);
end;
7: begin
GameTab(6 + Random(12));
wait(1500+random(700));
GameTab(4);
end;
8: begin
HoverSkill('Defene', false);
wait(4000+random(550));
GameTab(4);
end;
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 9 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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
Wait(1);
end;
end;
procedure AD;
begin
if(not(LoggedIn))then
Exit;
Talked:=Talked+1
case random(19) of
0: TypeSend('Hey, who wants to come pick up my logs?');
1: TypeSend('FREE LOGS HERE!');
2: TypeSend('WOHO! This is great wc experience.');
3: TypeSend('Ive been cutting for too long...');
4: TypeSend('My WC level is awesome!!');
5: TypeSend('Noobz');
6: TypeSend('Nubs');
7: TypeSend('Noobs');
8: TypeSend('OMG noobs');
9: TypeSend('Go home noobs');
10: TypeSend('Go away noobs!');
11: TypeSend('Low level 3s!');
12: TypeSend('HHh, noobs these days...');
13: TypeSend('I have been cutting for like ever');
14: TypeSend('Stupid level 3s!');
15: TypeSend('I rock.');
16: TypeSend('Logs, logs, logs!');
17: TypeSend('I love logs!');
18: TypeSend('Your a nooooob!');
end;
end;
procedure Randoms;
begin
FindFastRandoms;
FindNormalRandoms;
if (FindFight) then
begin
Status('Running....')
RunAwayDirection(RunDir);
Wait(8500 + random(3500));
RunBack;
end;
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ ANTI Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Drop Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure Drop;
begin
if(not(LoggedIn))then
Exit;
Dropto(2,28);
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Drop Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Extra Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure Proggie;
begin
ClearDebug;
Writeln('\/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/');
Writeln('Thank you for using Woodcutting!');
Writeln('Cut approx. ' + IntToStr(TLoads*28) + ' logs!');
Writeln('Dropped '+ IntToStr(TLoads) + ' time(s)!');
Writeln('Talked '+ IntToStr(Talked) + ' time(s)!');
Writeln('Avoided '+ IntToStr(Ents) + ' ENTs!');
Writeln('Please post this proggie at http://www.srl-forums.com/forum/!');
Writeln('/\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\');
Writeln('Script by: Travis AKA born2code!');
end;
procedure Start;
begin
ClearReport;
ClearDebug;
LoadB;
ActivateClient;
end;
procedure Loop;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
case PLoc of
'VE': WalkVarrockEastTrees;
'VW': WalkVarrockWestTrees;
'BV': WalkBarbVillageTrees;
'TIE': WalkTutIslandEndTrees;
'None': None;
end
repeat
Drop;
MarkTime(CutTime);
Randoms;
AntiBaning;
repeat
ChopTree;
until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
Drop;
AD;
Loads:=Loads+1
Tloads:=Tloads+1
Proggie;
Until (Loads=AOL);
NextPlayer(True);
Loads:=0;
Exit;
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Extra Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
begin
SetupSRL;
Start;
DeclarePlayers;
Loads := 0
Talked := 0
DisguiseScar('Starting Up...');
Status('Starting Up...');
If(not(LoggedIn))then LoginPlayer;
repeat
If(not(LoggedIn))then NextPlayer(False);
WCLevel := GetSkillLevel('WoodCutting');
DisguiseScar('WC Level ' + IntToStr(WCLevel) + '.');
Status('WC Level ' + IntToStr(WCLevel) + '.');
Loop;
Until (False);
ClearDebug;
Proggie;
DisguiseScar('Done!');
Status('Done!');
end.
Doesn't work for auto WC
any help why, it says
Failed when compiling
Line 171: [Error] (15291:23): Unknown identifier 'AxeDTM' in script C:\Documents and Settings\Sam\Desktop\Scar\Scar logs\Woodcutting V1.5.scar
that all in one power trainer didn't work for me, didn't click or anything is it because im using FireFox??
{
Script by: Travis AKA Born2code.
Travis presents Woodcutting, a power chopper that starts right
after you leave Tutorial Island or basically "anywhere" in Runescape!
How to run:
-Make sure axe is in first inv. slot!
(which it would be right after Tut. Island)
-Have RS on Very Bright.
Current Locations to start from:
-Varrock East Bank
-Varrock West Bank
-Lumby Guide (Tut. Island Ending)
-Barb Village (Below mining spot)
SETUP BELOW
Press start and it will run!
What it does:
This script is designed for you to have your woodcutting army
advance levels at a rapid pace without you having to position
them every single time at trees.
YOU MUST POST A PROGGIE! IF I GET LEECHERS, I WILL REMOVE THIS SCRIPT!!!!
YOU MUST POST A PROGGIE! IF I GET LEECHERS, I WILL REMOVE THIS SCRIPT!!!!
YOU MUST POST A PROGGIE! IF I GET LEECHERS, I WILL REMOVE THIS SCRIPT!!!!
}
program Woodcutting;
{.include srl/srl.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
Ents,WCLevel,Loads,Tloads,Tries,Talked,CutTime,MMT ree,MMB: integer;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ SETUP BEGIN }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
const
{Players Location Information
VE= Varrock East Bank
VW= Varrock West Bank
BV= Barb Village
TIE= Tutorial Island End
None= PowerChop Only (no walking)}
PLoc= 'None';//Where are your players located? ^See above^
{Names of Trees (works only when Power Chop Only mode is on)
ree= Normal Tree
ak= Oak Tree
illow= Willow Tree
ew= Yew Tree
}
TyTree= 'illow';//What type of tree? ^See above^
Tree= 1582112;//Color of the Tree (should be okay...)
AOL= 100;//Amount of loads per player
LoadTime= 10;//Max. time per load (minutes)
TreeT= 12;//Seconds between tree clicks
RunDir= 'N';//Directon to run if fighting random found
procedure DeclarePlayers;
begin
HowManyPlayers := 6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'USERNAME';
Players[0].Pass := 'PASSWORD';
Players[0].Nick := 'NICKNAME';
Players[0].Active := True;
Players[0].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[1].Name := 'USERNAME';
Players[1].Pass := 'PASSWORD';
Players[1].Nick := 'NICKNAME';
Players[1].Active := True;
Players[1].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[2].Name := 'USERNAME';
Players[2].Pass := 'PASSWORD';
Players[2].Nick := 'NICKNAME';
Players[2].Active := True;
Players[2].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[3].Name := 'USERNAME';
Players[3].Pass := 'PASSWORD';
Players[3].Nick := 'NICKNAME';
Players[3].Active := True;
Players[3].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[4].Name := 'USERNAME';
Players[4].Pass := 'PASSWORD';
Players[4].Nick := 'NICKNAME';
Players[4].Active := True;
Players[4].Boolean2 := False; //Is the axe already equipped? True = weilded
Players[5].Name := 'USERNAME';
Players[5].Pass := 'PASSWORD';
Players[5].Nick := 'NICKNAME';
Players[5].Active := True;
Players[5].Boolean2 := False; //Is the axe already equipped? True = weilded
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ SETUP END }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ JAD's ENT and AXE HEAD Finder }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure LoadB;
begin
MMB := BitmapFromString(11, 9, 'z78DAB5CE310EC0200805D02B21' +
'02A9A3B6F73F5313712055D0A5CB1F80FF02974B10B9A7A46 F72B' +
'88D6F52A30A8CC40F34CD7341BBB3E03956B05D4F88FF9905 CFD1' +
'B9E778A6ED8E4FCA5EA01B05807246A88B9B13A177FF165E9 4A67' +
'BF4');
end;
function CheckForEnt: Boolean;
var TPA: TPointArray;
begin
if(not(LoggedIn))then
Exit;
if(FindColorTolerance(x,y,55255,6,6,117,27,10))or
(FindColorTolerance(x,y,976101,6,6,117,27,10))then
begin
if(not(IsUpText('op'))) and (not(IsUpText('own')))then
Exit;
wait(1);
FindColorsSpiralTolerance(x,y,TPA,55255,6,6,117,27 ,10);
if(GetArrayLength(TPA) - 1 > 4)then
begin
Result := True;
Writeln('We found an ent!! Trying to avoid now..');
Mouse(648,84,3,3,true);
FFlag(0);
FTWait(60+random(5));
if(Players[CurrentPlayer].Boolean2)then
GameTab(5) else
GameTab(4);
wait(300+random(300));
Result := FindDTM(x,y,AxeDTM,MIX1,MIY1,MIX2,MIY2);
if(Result)then
begin
Writeln('Whew! We avoided the ent.. Carrying on with chopping');
Ents := Ents + 1;
Exit;
end else
begin
end;
end;
Result := False;
end;
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ JAD's ENT and AXE HEAD Finder }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Walking Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure WalkBarbVillageTrees;
begin
if(not (RadialWalk(FindDirtRoadColor,86,107,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindDirtRoadColor,86,107,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not(FindSymbol(x,y,'fishing spot'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=85) then break;
Tries:=Tries+1
until FindSymbol(x,y,'fishing spot');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
end;
procedure WalkVarrockWestTrees;
begin
if(not (RadialWalk(FindVarrockRoadColor,245,230,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,245,230,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,253,216,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,253,216,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
MMTree := AutoColorThis(MMB,70,MMX1,MMY1,MMX2,MMY2);
if(not (RadialWalk(MMTree,230,130,70,2,2))) then
begin
Tries:=0
repeat
Wait(250+random(500));
if(Tries=75) then break;
Tries:=Tries+1
until RadialWalk(MMTree,230,130,70,2,2);
end;
Mouse(x,y,3,4,true);
Wait(2050+random(500));
FFlag(0);
end;
procedure WalkTutIslandEndTrees;
begin
if(not(LoggedIn)) then Exit;
if(not (RadialWalk(FindRoadColor,288,360,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindRoadColor,288,360,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not(FindSymbol(x,y,'store'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=85) then break;
Tries:=Tries+1
until FindSymbol(x,y,'store');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
MMTree := AutoColorThis(MMB,70,MMX1,MMY1,MMX2,MMY2);
if(not (RadialWalk(MMTree,230,300,70,2,2))) then
begin
Tries:=0
repeat
Wait(250+random(500));
if(Tries=75) then break;
Tries:=Tries+1
until RadialWalk(MMTree,230,360,70,2,2);
end;
Mouse(x,y,3,4,true);
Wait(2050+random(500));
FFlag(0);
end;
procedure WalkVarrockEastTrees;
begin
if(not (RadialWalk(FindVarrockRoadColor,30,61,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,30,61,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,87,99,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,87,99,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,0,30,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,0,30,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
if(not (RadialWalk(FindVarrockRoadColor,0,30,70,2,2))) then
begin
Tries:=0
repeat
Wait(50+random(5));
if(Tries=5) then break;
Tries:=Tries+1
until RadialWalk(FindVarrockRoadColor,0,30,70,2,2);
end;
Mouse(x,y,3,4,true);
FFlag(0);
end;
procedure None;
begin
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Walking Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Choping Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure ChopTree;
begin
repeat
if(not(LoggedIn)) then Exit;
CheckForEnt;
if(not(FindObj(x,y,TyTree,Tree,3))) then
begin
Tries:=0
repeat
Wait(450+random(634));
if(Tries=30) then
begin
Writeln('Couldnt find trees!')
NextPlayer(false);
end;
Tries:=Tries+1
until RadialWalk(MMTree,230,360,70,2,2);
end;
Mouse(x,y,3,4,true)
Wait(TreeT*1000+random(1550));
until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Choping Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ ANTI Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure AntiBaning;
begin
if(not(LoggedIn))then
Exit;
case Random(9) of
0: begin
HoverSkill('Mining', false);
wait(1000+random(1000));
GameTab(4);
end;
1: begin
HoverSkill('Woodcutting', false);
wait(1000+random(1000));
GameTab(4);
end;
2: begin
HoverSkill('Smithing', false);
wait(4000+random(550));
GameTab(4);
end;
3: PickUpMouse;
4: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
5: SleepAndMoveMouse(5000+random(6000));
6: begin
GameTab(2 + Random(12));
wait(2000+random(1500));
GameTab(4);
end;
7: begin
GameTab(6 + Random(12));
wait(1500+random(700));
GameTab(4);
end;
8: begin
HoverSkill('Defene', false);
wait(4000+random(550));
GameTab(4);
end;
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 9 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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
end;
Wait(1);
end;
end;
procedure AD;
begin
if(not(LoggedIn))then
Exit;
Talked:=Talked+1
case random(19) of
0: TypeSend('Hey, who wants to come pick up my logs?');
1: TypeSend('FREE LOGS HERE!');
2: TypeSend('WOHO! This is great wc experience.');
3: TypeSend('Ive been cutting for too long...');
4: TypeSend('My WC level is awesome!!');
5: TypeSend('Noobz');
6: TypeSend('Nubs');
7: TypeSend('Noobs');
8: TypeSend('OMG noobs');
9: TypeSend('Go home noobs');
10: TypeSend('Go away noobs!');
11: TypeSend('Low level 3s!');
12: TypeSend('HHh, noobs these days...');
13: TypeSend('I have been cutting for like ever');
14: TypeSend('Stupid level 3s!');
15: TypeSend('I rock.');
16: TypeSend('Logs, logs, logs!');
17: TypeSend('I love logs!');
18: TypeSend('Your a nooooob!');
end;
end;
procedure Randoms;
begin
FindFastRandoms;
FindNormalRandoms;
if (FindFight) then
begin
Status('Running....')
RunAwayDirection(RunDir);
Wait(8500 + random(3500));
RunBack;
end;
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ ANTI Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Drop Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure Drop;
begin
if(not(LoggedIn))then
Exit;
Dropto(2,28);
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Drop Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Extra Procedures }
{ }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
procedure Proggie;
begin
ClearDebug;
Writeln('\/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/ \/_\/');
Writeln('Thank you for using Woodcutting!');
Writeln('Cut approx. ' + IntToStr(TLoads*28) + ' logs!');
Writeln('Dropped '+ IntToStr(TLoads) + ' time(s)!');
Writeln('Talked '+ IntToStr(Talked) + ' time(s)!');
Writeln('Avoided '+ IntToStr(Ents) + ' ENTs!');
Writeln('Please post this proggie at http://www.srl-forums.com/forum/!');
Writeln('/\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\ /\_/\');
Writeln('Script by: Travis AKA born2code!');
end;
procedure Start;
begin
ClearReport;
ClearDebug;
LoadB;
ActivateClient;
end;
procedure Loop;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
case PLoc of
'VE': WalkVarrockEastTrees;
'VW': WalkVarrockWestTrees;
'BV': WalkBarbVillageTrees;
'TIE': WalkTutIslandEndTrees;
'None': None;
end
repeat
Drop;
MarkTime(CutTime);
Randoms;
AntiBaning;
repeat
ChopTree;
until(InvFull) or (TimeFromMark(CutTime) >= LoadTime*60000+random(60700));
Drop;
AD;
Loads:=Loads+1
Tloads:=Tloads+1
Proggie;
Until (Loads=AOL);
NextPlayer(True);
Loads:=0;
Exit;
end;
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
{ }
{ Extra Procedures }
{ OVER }
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
begin
SetupSRL;
Start;
DeclarePlayers;
Loads := 0
Talked := 0
DisguiseScar('Starting Up...');
Status('Starting Up...');
If(not(LoggedIn))then LoginPlayer;
repeat
If(not(LoggedIn))then NextPlayer(False);
WCLevel := GetSkillLevel('WoodCutting');
DisguiseScar('WC Level ' + IntToStr(WCLevel) + '.');
Status('WC Level ' + IntToStr(WCLevel) + '.');
Loop;
Until (False);
ClearDebug;
Proggie;
DisguiseScar('Done!');
Status('Done!');
end.
Doesn't work for auto WC
any help why, it says
Failed when compiling
Line 171: [Error] (15291:23): Unknown identifier 'AxeDTM' in script C:\Documents and Settings\Sam\Desktop\Scar\Scar logs\Woodcutting V1.5.scar