Torrent of Flame
2008-12-21 10:22:30
Why don't I get any SRL stats when I run my script. I enter my details like the SRL Id and SRL Password, and my personal stats go up, but my script stats dont move..
My script;
My script;
{//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
This is my first publicly released script since last year. I have been out of
SRL for about a year, and have decided to come back. I had this powercutter
before but never got it to work, I am hoping it will do now. Thanks for taking
the time to use my script. Please post any problems or progress reports on the
thread you got this from, as if you don't post, I dont know what to update. SRL
stats are NEEDED for this script to work, so you have to have them otherwise the
script will not run!
~ Torrent of Flame
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Credits to;
- Cazax; Fixed my EntFinder troubles.
- Camo¤Kyle; I learnt alot on TPA's from his PowerCutter script.
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\///
|Title: The Anywhere Power Cutter |
|By: Torrent of Flame |
|Scar/Revision: Scar 3.15b SRL 4.0 Rev 29/30 |
|Version: Version 0.4 |
|Description: The Anywhere Power Cutter will cut any tree from the following |
| and will drop them: |
| - Normal |
| - Oak |
| - Willow |
| - Maple |
| - Yew |
| |
|Setup: Enter your SRL ID and Password at lines 26 and 27, |
| Then Declare your players at lines 45 - 57 |
| If you are NOT equipping your axe, then please have it in the FIRST |
| inventory spot, otherwise it will be dropped. If you are equipping it, |
| then it doesn't matter. ALL axes supported. |
| (More players can be added if necessary )Make sure you enter your tree |
| type all LOWER CASE. Make sure your character is logged out and in a |
| place near to where your trees are. There are several areas good for |
| trees: |
| 'Normal' - South of Seers Village Bank, past the Maple Trees(P2P) |
| Lumbridge Swamp(F2P) |
| 'Oak' - Not quite sure of a good Oak area |
| 'Willows' - Draynor or Port Sarim (Recommend Draynor - More Trees) |
| 'Maples' - The Sinclar Mansion, or behind Seers Bank. (P2P) |
| |
| //You probably wont set it to run and drop Yews but...\\ |
| 'Yews' - North of Varrock Castle (F2P) |
| Catherby Trees (West of Candle Salesman)(P2P) |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.1 Includes: |
| - TPA Tree Finding |
| - AntiRandoms |
| - AntiBan |
| - Broken Axe Finder |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.2 Includes: |
| - Improved Tree Finding |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.25 Includes: |
| - Fixed Minor Failsafe Error |
| - Fixed Dropping Error |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.3 Includes: |
| - Added the SRL Ent Finder |
| - Tweaks to SRL Stats and Progress Report |
| - Added Camo Kyle's report server |
| - Improved AntiBan |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.4 Includes: |
| - Added CheckAxe |
| - Tweaks in drop procedure, if your axe is equipped, the drop procedure |
| will drop inv spaces 1-28, whereas if not then it will drop from 2 |
| to 28. |
| - Added EquipAxe |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program AnyWherePowerCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
YourSRLId = '';
YourSRLPassword = '';
{/\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Integers[0]:= 1; // Loads to Do.
Players[0].Strings[0] := 'willow'; // ALL lowercase; normal, oak, willow, maple or yew
Players[0].Strings[1] := 'true'; // Equip axe?
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[1].Integers[0]:= 10; //Loads to Do;
Players[1].Strings[0] := 'oak';
Players[1].Strings[1] := 'true'; // Equip axe?
{ Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[2].Integers[0]:= 10; //Loads to Do;
Players[2].Strings[0] := 'willow';
Players[2].Strings[1] := 'true'; // Equip axe?
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[3].Integers[0]:= 10; //Loads to Do;
Players[3].Strings[0] := 'maple';
Players[3].Strings[1] := 'true'; // Equip axe?
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[4].Integers[0]:= 10; //Loads to Do;
Players[4].Strings[0] := 'yew';
Players[4].Strings[1] := 'true'; // Equip axe? }
end;
//---------------------------- DO NOT EDIT BELOW HERE ------------------------\\
//------------------------ Unless you know what your doing -------------------\\
var x, y, i, Dropped, BrokenAxe, BrokenAxes, Loads, WcLvl, EndWcLvl, LoadsCompleted, LoadsUntilSwitch: integer;
EntAvoided, NormalAxe, DragonAxe: integer;
procedure LoadDTMs; forward;
procedure ProgressReport; forward;
procedure PowerDrop; forward;
//-----Anti-Ban!!-----\\
procedure AntiBan;
begin
case Random(30) of
0 : MMouse(0, 0, 700, 500);
1 : Hoverskill('Woodcutting', false);
2 : BoredHuman;
3 : RandomMovement;
4 : PickupMouse;
5 : GameTab(random(10));
end;
end;
//-----Anti-Randoms!!-----\\
function FindEnts(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean; //By Sumilion
var
EntTime, tcts: Integer;
begin
if not(LoggedIn)then
Exit;
GetMousePos(x, y);
if(x <> fx)or(y <> fy)then
MMouse(fx, fy, 0, 0);
if(IsUpText('Chop'))then
begin
tcts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.75);
Result := (CountColorTolerance(118478, 9, 10, 124, 23, 10) > 10);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(tcts);
end;
if(Result)then
begin
WriteLn('Ent Found!!');
if(AvoidWhenFound)then
begin
Writeln('Waiting for it to go away.');
MFNF(MMCX, MMCY, -1, 1);
MarkTime(EntTime);
while(TimeFromMark(EntTime) < 35000)do
if(Random(20) > 15)then
IdleTime(500, 500, 0.4)
else
Wait(500 + Random(500));
ReportVars[3] := ReportVars[3] + 1;
EntAvoided := EntAvoided + 1;
end;
end;
end;
procedure Fight;
begin
if (FindFight) then
begin
RunAway('E', False, 1, 1000 + Random(500));
end;
end;
procedure FindRandoms;
begin
FindNormalRandoms;
FindLamp('Woodcutting');
Fight;
FindEnts(x, y, true);
end;
//-----SRL Find Axe-----\\
function FindTheAxe: Boolean;
var
InventoryAxe, WieldTheAxe, Ix, Iy: Integer;
begin
if not LoggedIn then exit;
srl_LoadBitmaps([47, 48, 49, 50, 51, 52, 53, 54]);
GameTab(5);
for WieldTheAxe := 0 to 7 do
if FindBitmapToleranceIn(srl_GetBitmap(54-WieldTheAxe),Ix, Iy, 566, 285, 606, 327, 10) then
break;
GameTab(4)
for InventoryAxe := 0 to 7 do
if FindBitmapToleranceIn(srl_GetBitmap(54-InventoryAxe), Ix, Iy, MIX1, MIY1, MIX2, MIY2, 10) then
break;
if(InventoryAxe = 8)and(WieldTheAxe = 8)then
begin
Result := False;
Writeln('No axe was found.');
srl_FreeBitmaps;
Exit;
end;
case Min(WieldTheAxe, InventoryAxe) of
0: WriteLn('Using Dragon axe');
1: WriteLn('Using Rune axe');
2: WriteLn('Using Addy axe');
3: WriteLn('Using Mith axe');
4: WriteLn('Using Black axe');
5: WriteLn('Using Steel axe');
6: WriteLn('Using Iron axe');
7: WriteLn('Using Bronze axe');
end;
Result := True;
srl_FreeBitmaps;
end;
//-----EquipAxe-----\\
procedure EquipTheAxe;
begin
case Players[CurrentPlayer].Strings[1] of
'true' : begin
if FindDTM(NormalAxe, x, y, MIX1, MIY1, MIX2, MIY2) or
FindDTM(NormalAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 1, 1, True);
FindTheAxe;
end;
'false' : begin
FindTheAxe;
end;
end;
end;
//-----IsAxeBroken?-----\\
Procedure IsAxeBroke;
begin
if FindDTM(BrokenAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
BrokenAxes := BrokenAxes +1;
ReportVars[0] := ReportVars[0] + 1;
LogOut;
NextPlayer(False);
Writeln('Players Switched successfully')
end;
end;
//-----Tree Cutting-----\\
procedure CutTree;
var Failed: integer;
TreeColors: array [0..3] of integer;
begin
if (not LoggedIn) then Exit;
MakeCompass('W');
case lowercase(Players[CurrentPlayer].strings[0]) of
'normal': begin
TreeColors[0] := 332817;
TreeColors[1] := 3765091;
TreeColors[2] := 2179633;
TreeColors[3] := 3230282;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']) then
begin
repeat
FindEnts(x, y, True);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(200 + Random(200));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']);
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) do
repeat
MakeCompass('S');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end else
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
end;
end;
'oak': begin
TreeColors[0] := 2584416;
TreeColors[1] := 3305828;
TreeColors[2] := 4162678;
TreeColors[3] := 5544845;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']) then
begin
repeat
FindEnts(x, y, True);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(2000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']);
while(not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
Inc(Failed);
MakeCompass('S');
Wait(3000 + Random(1500));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('N');
Wait(3000 + Random(1500));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end else
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
end;
end;
'willow': begin
TreeColors[0] := 2181686;
TreeColors[1] := 6193521;
TreeColors[2] := 3755332;
TreeColors[3] := 3234376;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) then
begin
repeat
FindEnts(x, y, True);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(3000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
MMouse(x, y, 2, 2);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
Wait(3000 + Random(400));
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']);
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('N');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('E');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('W');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end else
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
end;
end;
'maple': begin
TreeColors[0] := 1319487;
TreeColors[1] := 725796;
TreeColors[2] := 2177124;
TreeColors[3] := 1385537;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']) then
begin
repeat
FindEnts(x, y, True);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(2000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']);
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end else
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
end;
end;
'yew': begin
TreeColors[0] := 3241318;
TreeColors[1] := 2119755;
TreeColors[2] := 2645844;
TreeColors[3] := 3240035;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']) then
begin
repeat
FindEnts(x, y, True);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(2000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']);
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end else
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
end;
end;
end;
end;
procedure PowerDrop;
begin
MouseSpeed:= 16;
begin
case lowercase(Players[CurrentPlayer].Strings[1]) of
'true': begin
for i:= 1 to 28 do
begin
DropItem(i);
Inc(Dropped);
ReportVars[1] := ReportVars[1]+ 1;
ReportVars[2] := ReportVars[2] + 28;
end;
end;
'false': begin
for i:= 2 to 28 do
begin
DropItem(i);
Inc(Dropped);
ReportVars[1] := ReportVars[1]+ 1;
ReportVars[2] := ReportVars[2] + 28;
end;
end;
end;
end;
end;
procedure GetWoodcuttingLevel;
begin
GameTab(2);
WcLvl := GetSkillLevel('Woodcutting');
end;
procedure GetTheEndWoodcuttingLevel;
begin
GameTab(2);
EndWcLvl := GetSkillLevel('Woodcutting');
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\ Please Post Progress Reports & Any problems /\');
Writeln('/\ Torrent of Flames /\');
Writeln('/\ Anywhere Powercutter /\');
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\ Time Running : ' + TimeRunning + ' /\');
Writeln('/\ Done '+ IntToStr(Loads) +' loads /\');
Writeln('/\ Broke '+ IntToStr(BrokenAxes) +' axes /\');
Writeln('/\ Dropped '+ IntToStr(Dropped) +' logs /\');
Writeln('/\ Avoided '+ IntToStr(EntAvoided) +' Ents /\');
Writeln('/\ Current WC Level: '+ IntToStr(EndWcLvl) +' /\');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\\');
Writeln('//\\ Thanks for Using my Script :D //\\');
Writeln('`````````````````````````````````````````````````');
end;
//Load DTMs\\
procedure LoadDTMs;
begin
BrokenAxe := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
'5C04D4D400D5A8E05703008C0604B4');
NormalAxe := DTMFromString('78DA63E464606010604001514E1C609A11CA6' +
'7140712ECA86AB205B0A8E124A0460C48F0A2AA494657C30724D8' +
'50D5B424A3A901718551D504A1BB1964860C9A5D5E58DCCC81DFC' +
'D0041CA05E3');
DragonAxe := DTMFromString('78DA636465606090644001415E5E609A11CA6' +
'7E407122CA86A8ABD9C50D50863AA690942334714483033600570' +
'3520B770A0CA2DCD8E4255230124B808A80199C38FAA26390A4D8' +
'D00901020E07726202183AAC6D2D212450D00FDAB099D');
end;
{*******************************************************************************
function PostReport(ScriptName, Website, Proggy : String): Boolean;
By: Camo Kyle & Floor66
Description: Posts the Progress Report to my database which you can see
*******************************************************************************}
function PostReport(ScriptName, Website, Proggy : String): Boolean;
var
Dbase : String;
Client : Integer;
begin
Client := InitializeHTTPClient(False, False);
ClearPostData(Client);
Wait(10);
AddPostVariable(Client, 'proggy', Proggy);
AddPostVariable(Client, 'scn', ScriptName);
Dbase := PostHTTPPageEx(Client, Website);
FreeHTTPClient(Client);
Result := true;
end;
//Signature\\
procedure Signature;
begin
ClearDebug;
wait(250 + random(30));
writeln('----------ToFs AnyWhere Power Cutter---------');
wait(250 + random(30));
writeln(' _____ _____ ');
wait(250 + random(30));
writeln(' |_ _|__ | ___| ');
wait(250 + random(30));
writeln(' | |/ _ \| |_ ');
wait(250 + random(30));
writeln(' | | (_) | _| ');
wait(250 + random(30));
writeln(' |_|\___/|_| ');
wait(250 + random(30));
writeln(' ');
wait(250 + random(30));
writeln('---------------------------------------------');
wait(500 + random(30));
end;
//Setup Script\\
procedure DoOnce;
begin
ClearDebug;
SetupSRL;
ScriptID:= '1122';
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
DeclarePlayers;
LoadDTMs;
LoginPlayer;
end;
//Main Loop\\
procedure MainLoop;
begin
LoadsCompleted:= 0;
MakeCompass('N');
SetAngle(True);
Wait(1000);
SetRun(True);
EquipTheAxe;
repeat
repeat
LoadsUntilSwitch := Players[CurrentPlayer].integers[0];
CutTree;
Inc(LoadsCompleted);
GetTheEndWoodcuttingLevel;
ProgressReport;
SRLRandomsReport;
PostReport('AnyWherePowerCutter', 'http://scarprogressreports.net76.net/add.php', GetDebugText);
until (LoadsCompleted = LoadsUntilSwitch) or (not LoggedIn)
if LoadsCompleted = LoadsUntilSwitch then
NextPlayer(True);
if (not LoggedIn) then
NextPlayer(False);
ProgressReport;
LoginPlayer;
until (AllPlayersInactive);
ProgressReport;
TerminateScript;
end;
begin
Signature;
DoOnce;
MainLoop;
ProgressReport;
end.
//--- End of Script ---\\
Thanks for using.
AnyWhere Power Cutter 0.4
Torrent of Flame