PDA

View Full Version : P1nky's PowerChopper!



Pages : [1] 2 3 4 5

P1nky
11-12-2007, 11:22 PM
http://i43.tinypic.com/p0nqs.jpg

|| P1nky's PowerChopper Since 2007 ||


fQeUz1OSNPE



Updates:


UPDATE V1.0= BETTER WCING PROCEDURE!
BETTER ENT FINDER THANKS FROZE!

UPDATE V2.0= UPDATED TO REV 10


UPDATE V3.0= UPDATED TO REV 14 WITH SMART ;]

UPDATED V4.0 INCLUDES!
BETTER WCING PROCEDURE!
BETTER ENTFINDER!
BETTER TREE FINDER!
BETTER DROPPING PROCEDURES! SMART/FAST! OPTIONS
btw i fixed the multi players problem! so should work for a looong time if you have about 3-4 players
=Z:garfield:

Update V5.0=(4/30/08)
ADDED A L33T FORM! FIRST FORM FTW! ownz naum!
added more ENT protection
Axe Broken Detector!
Updated to REV # 16
CHANGED: Tree Chopping procedure!

Update V6.0=(7/25/08)
New Form Pic :P lol i love you HOMER!
ADDED MUSIC TO FORM
~WHAT IS LOVE~
~SPIDER PIG~
GREAT WILLOW CHOPPING :)
CLEANED UP THE SCRIPT A BIT! (made it load the bitmap)
AND ALOT MORE
Updated to REV # 20

V7.0=(8/13/08)
added More Details in Proggie report
added better Willow/Oak Finding
Still Tree wont work will figure out soon
AND ALOT MORE, just cant list all here.

v10 = I'm back <3 and now for SIMBA <3

Version A(Nov/15/2011) = Thank to Bot Nuke no more reflection bots... hearing that, I chose to come back and update most of my scripts.
Hope you like it:
-New Chopping Proc
-New Report
-All Colour
-Works up to the 6 hour rule :)


Version B(Nov/30/2011) = Couple new features and updates:
-Sleeping Feature ( less chance for randoms )
-Faster Tree Searching
-SRL STATS added
-Patched many bugs and tweaked the script a bit :).

Version B[1]:
-Added True or False for Antiban
-Faster Tree Search
-Fixed Report
-Small Tweaks here and there

Version B[2](12/23/11):
-Fixed Chopping
-More Reliable

P1nkys PowerChopper - Since 2007:
This version has been updated for OSRS. Enjoy!




REP ME IF YOU LOVE ME AND PLEASE POST PROGGIES!



TOTAL DOWNLOADS(9/1/10):

6455


Released on 11/12/07.
Updated on 1/1/14.




Tried your new lite version, got my account from 23 to 45 wc in 8 hours on mostly oaks, nice job :) First script I've actually used in like... a very very long time :)



Download:

P1nky
11-13-2007, 02:57 AM
Proggies:


Tried your new lite version, got my account from 23 to 45 wc in 8 hours on mostly oaks, nice job :) First script I've actually used in like... a very very long time :)



http://img87.imageshack.us/img87/1885/24274932.jpg

||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 3 Hours, 25 Minutes and 18 Seconds
Chopped 1404
Dropped(by loads) 52
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
Success Finding Willow



||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 2 Hours, 5 Minutes and 47 Seconds
Chopped 1026
Dropped(by loads) 38
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
Success Finding Willow


||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 6 Hours, 15 Seconds
Chopped 2916
Dropped(by loads) 108
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||



||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 5 Hours, 21 Minutes and 12 Seconds
Chopped 2754
Dropped(by loads) 102
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
Success Finding Willow


||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 6 Hours, 10 Seconds
Chopped 3105
Dropped(by loads) 115
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||


||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 6 Hours, 15 Seconds
Chopped 2916
Dropped(by loads) 108
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
NextPlayer

||===========================||
|| P1nkys Draynor ||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 6 Hours, 16 Seconds
Chopped 3240
Dropped(by loads) 120
Broken Axes 0
Leveled 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||

P1nky
11-13-2007, 08:54 PM
If the .rar Doesnt work for you or having problems i made your life just easy.

just download the LITE version script. nothing lack of just the form isnt l337 anymore, *No more music or picture in Form*.

Good Luck!
post proggies/bugs enjoy






NOTE(11/15/11): PLEASE IGNORE ATTACHMENTS , It's for my own sources <3.




program oakbanker;
//$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
//$I SRL-OSR/SRL/Reflection/Reflection.simba}
{
chopping animation: 877
}

var
loads: integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;

{procedure AntiBan;
var
i: integer;
begin
i:=random(100);
case i of
1..10: MMouse(random(150),random(100), 0,0);

end;}

procedure prog;
begin
writeln('|---------------------|');
writeln('ran for ' + timerunning);
writeln('banked ' + inttostr(loads) + ' loads');
writeln('|---------------------|');
end;

{
more options for object finding
}
procedure FillInv;
var
x, y, n : integer;
begin
repeat
if FindObj(x, y,'Oak',2190948,8) then
begin
Mouse(x,y,0, 0,true);
Wait(2000 + random(2500));
writeln('clicked the tree');
if n=1 then
begin
writeln('hopefully were back on track now');
makecompass(0);
n:=0;
end;
end else

begin
writeln('couldnt find an oak tree, waiting');
wait(4000+random(1000));
if FindObj(x, y,'Oak',2190948,8) then
begin
Mouse(x,y,0, 0,true);
Wait(2000 + random(2500));
writeln('we waited and now the tree is back!');
end else

begin
writeln('we waited and still no trees, well give it 1 more shot');
wait(4000+random(1000));
if FindObj(x, y,'Oak',2190948,8) then
begin
Mouse(x,y,0, 0,true);
Wait(2000 + random(2500));
writeln('we waited and now the tree is back!');
end else
begin
writeln('never found the tree.. :(');
writeln('terminating script');
prog;
end;
end;
end;

// if r_gettileglobal=point(3278, 3430) then
begin
n:=1;
writeln('at a wierd angle, lets switch things up');
makecompass(45+random(10)-random(20));
end;
// while R_GetAnimation=877 do
begin
//antiban;
//FindNormalRandoms;
end;
writeln('this tree is done, moving on');
if Random(100)>80 then Wait(2500+random(2400));
until invFull;
Writeln('inventory is full, attempting to walk to bank');
end;

{openbankfast('veb');
openbankquiet('veb');
openbanknpcex('blue');
banktile point(3253, 3420)
}
procedure Bank;
var
//oaklog: integer;
thespot,bpoint: tpoint;
begin
writeln('made it to the bank');
{oaklog := DTMFromString('mlwAAAHicY2dgYOBlYWAQBGJxIBYGYg4g/sfMwMACpEMZGRi8gDgQiGOBOJERIuYDxEURpkDdjDgwboBLB5I uABSDBNc=');
logscut := logscut + CountItems('dtm', oaklog, []); }

Wait(500+random(250));
OpenBankfast('veb');
begin
writeln('opened bank method 1!');
Mouse(444,315,random(2),1,true);
exit;
if Random(100)>80 then CloseBank;
end; //else
{
begin
writeln('didnt open bank with method 1, attempting #2');
bpoint := point(3253,3420);
{if not r_neartile(bpoint, 2) then
begin
thespot := r_tiletomm(bpoint);
Mouse(thespot.x, thespot.y, 0,0,true); }
{ end;

begin
if OpenBankNPCEx('blue') then
begin
writeln('opened bank method 2!');
Depositall;
if Random(100)>80 then CloseBank;
end else
if openbankglass('veb', true, false) then
begin
writeln('bank is open, thanks method 3!');
Depositall;
if Random(100)>80 then Closebank;
end else writeln('bank still isnt open, something must be wrong!');
end; }

loads := loads + 1;
end;

{get the walking more reliable.. sometimes not in view of the bank
or the southern tree
add some color walking and use the reflection more as back up}
procedure walkt;
begin
prog;
writeln('walking to the tree');
// R_WalkPath([Point(3265, 3428), Point(3279, 3428)]); //to tree
MakeCompass('N');
Mouse(700,50,random(2),random(3),1);
wait(10000+random(500));
Mouse(700,90,random(2),random(3),1);
end;

procedure walkb;
begin
MakeCompass('N');
Mouse(584,82,random(2),random(3),1);
wait(17777+random(500));
Mouse(595,118,random(2),random(3),1);
wait(18000 + random(500));


//R_WalkPath([Point(3271, 3428), Point(3262, 3428), Point(3253, 3420)]);//to bank
end;

begin
setupsrl;
declareplayers;
// SetupReflection;
wait(2000);
repeat
if not loggedin then
begin
loginplayer;
keydown(vk_up);
wait(1500+random(1000));
keyup(vk_up);
end;
if loggedin then
begin
walkt;
fillinv;
walkb;
bank;
end;
until false;
//writeln('animation: ' + inttostr(r_getanimation));
end.

rogeruk
11-13-2007, 09:20 PM
Firstly..

Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[0].Strings[1] := 'willow';
//oak or willow or tree or all or dead(LOWERCASE)!
Players[1].Active := true;

You need to change Players[0].Strings[1] := 'willow';
to Players[1].Strings[1] := 'willow';

P1nky
11-14-2007, 02:04 AM
ok UPDATED hopefully it cuts all trees for sure its cutting regular TREES! got 1-47 wcing already


if not high detail try LOW!

-please post proggies and tell me if doesnt work thanks-



program P1nkyCaves;
{$i SRL/SRL.simba}
{$i P07Include.simba}
var
CharacterIsInCave: boolean;
logged,A,casted, caveEntrances,progress: integer;
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{
Thank You for choosing P1nkys FightCaver.
I will be keeping this script updated and make sure it is
running perfectly fine, all I ask from the Users is
keep my thread alive, post BUGS, post PROGGIES.
-P1nky
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{}
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
NOTE: I have not inputted any Anti-Leeching,
BOT AWAY!
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}
{ SETUP }
const
mage = false;
flame1 = 1322364;
flame2 = 1732294;
Casts = 27000;


caveTol = 5;


EntranceCol = 8684945;
EntranceTol = 20;
EntranceHue = 0.07;
EntranceSat = 0.12;
BankSymbol =5563892; ////BANK COLOR HERE BANK COLOR
DoYouLoveSRL = True;
Antiban = True; //True or False
Range = false; // True or False (If you are using a backpack, I'd KEEP this False)
CombatStyle = 'str';
{
'str' : strenght |rapid
'att' : attack |Accurate
'def' : defence |Longrange
}
Procedure DeclarePlayerz;
begin
P07_PlayerName:='';
P07_PlayerPass:='';
end;
{END OF SETUP}
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{}
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{}
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{}
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{}
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ {{{{{{{{{{{}
var
x, y, Entered : integer;
caveEntranceWhite: TIntegerArray;


Function WeLogout : Boolean;
var
bank, minigame : Integer;
begin
begin
if findcolorspiraltolerance(x,y,6778216,71,276,97,301 ,5) then

Begin
result := True;
writeln('Oh NO we are logged off!');
P07_LogInPlayer;
logged := Logged + 1;
exit;
end else
result := false;
exit;
end;
end;


function P07FindBankSymbol: boolean;
var
bank: TPointArray;
begin
WeLogout;
If (Not P07_LoggedIn) Then
begin
exit;
end;
if (findcolors(bank, BankSymbol, MMX1, MMY1, MMX2, MMY2)) then
begin
CharacterIsIncave := false;
result := true;
end
else
begin
CharacterIsInCave := true;
result := false;
end;
end;



Function FightCaveSleep(sleepx, sleepy: Integer; retaliate: Boolean): Boolean;
Var
counter, x , y, sleepTime: Integer;
loop : Boolean;
Begin
WeLogout;
loop := true;
counter := 0;
sleepTime := RandomRange(sleepx, sleepy);
While loop Do
Begin
If FindObjCustom(x, y, [' '], caveEntranceWhite, caveTol) Then
Begin
Result := false;
loop := false;
WriteLn('We see cave entrance!');
End Else If (not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150))) and (retaliate) Then
Begin
Result := false;
loop := false;
End Else If (sleepTime - counter > 0) and loop = true Then
Begin
wait(10);
counter := (counter + 10);
End Else
Begin
Result := True;
loop := False;
End;
End;
End;

Procedure FightCaveLoop;
Var
x, y : Integer;
Begin
WeLogout;
If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
Begin
WriteLn('Found correct cave!');
ClickMouse2(True);
While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
Begin
mouse(x,y,0,0,false);
P07_WaitOptionMulti(['Enter'],1000);
Wait(RandomRange(300, 1100));
End;
If RandomRange(1, 10) > 8 Then
Begin
SetRun(true);
GameTab(tab_Stats);
End;
caveEntrances := (caveEntrances + 1);
WriteLn('Entered cave.');
ClearDebug;


WriteLn('-* ');
WriteLn('-* Entered: ' + intToStr(caveEntrances));
WriteLn('-* Runtime: ' + TimeRunning);

Wait(RandomRange(4000, 5000));
SetAngle(0);
End Else
If (Not FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol)) and (CountDots('yellow') > 0) Then
Begin
FightCaveSleep(200,500,False);
If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
Begin
If (FightCaveSleep(3000,5000,True)) Then
Begin
If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
Begin
Retaliate(False);
Wait(RandomRange(500,700));
Retaliate(True);
GameTab(tab_Stats);
FightCaveSleep(3000,5000,False);
End;
End;
End;
End Else P07_MakeCompassSouth;
End;



Function Symbol : Boolean;
var
bank, minigame : Integer;
begin
begin
WeLogout;
If (Not P07_LoggedIn) Then
exit;
end;
//bank := DTMFromString('mlwAAAHicY2dgYMhgYmBIAuI0IM4B4hQoPx eIk4HycUAcA6XTGCBiINxezMtw8dxJhqPrfVBoEMYHGPFgKAAA 5FsTug==');
//minigame := DTMFromString('mwQAAAHic42RgYChnYmAoBuIyIK6C0kVAXA jE1VAxX6A6HyB2Z4CwA6HYA4pB7Isi/Az3fb3A+F5WKsNVa0OGi+dOomBiACMRGA4AlRIXaw==');
begin
if findcolorspiraltolerance(x,y,BankSymbol,MMX1,MMY1, MMX2,MMY2,15) then
// findcolorspiraltolerance(x,y,4869599,MMX1,MMY1,MMX 2,MMY2,4) then
Begin
result := True;
{ P07_MakeCameraAngleHigh;
P07_MakeCompassSouth; }
end else
exit;
end;
end;


procedure Report;
begin
WeLogout;
cleardebug;
Writeln('||===========================||');
Writeln('|| P1nkys FightCaver ||');
Writeln('||===========================||');
Writeln('|| ' + TheDate(Date_Formal) + ' ||');
Writeln('||===========================||');
Writeln(' Worked For ' + TimeRunning);
writeln(' Logged ' + IntToStr(logged));
if Range then
begin
Writeln('||Range Option is turned ON!!||');
end;
if mage then
begin
Writeln(' Casted ' + IntToStr(casted));
end;
Writeln('||===========================||');
Writeln('||==== By P1nky ====||');
Writeln('||===========================||');
begin
Disguise('P1nky FightCaver ' + TimeRunning);
end;
end;

procedure StayActive;
var
logged: Integer;
begin
WeLogout;
logged := Random(18);
case Move of
0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
1: MMouse(x, y, (10 + random(400)), (10 + random(200)));
2: MMouse(x, y, (10 + random(100)), (10 + random(200)));
3: MMouse(x, y, (10 + random(300)), (10 + random(200)));
4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
end;
end;

procedure CastCurse;
begin
WeLogout;
if P07_TabInventoryTab(7) then
begin
//P07_MouseBox(661, 258, 673, 269, mouse_left)
MMouse(667, 263, RandomRange(3, 5), RandomRange(3, 5));
Wait(RandomRange(50, 100));
ClickMouse2(mouse_left);
if (symbol) then
begin
Mouse(265,185,randomRange(2,4),randomrange(2,4),tr ue);
exit;
end;

end;
end;


procedure cast;
begin
repeat
WeLogout;
//P07_MakeCompassDegree(20);
//P07_MakeCameraAngleLow;
WriteLn('You have choosen to curse Skeletons at the Varrock sewer');
begin
Wait(RandomRange(200, 350));
//P07_CastSpell(12);
CastCurse;
Wait(randomRange(1000, 452));
if P07_FindObjCustom(x, y, ['-Kih', 'z-', 'z-K', 'z-Ki', 'z-Kih'{,'Kek','Tz-Kek'}], [flame1, flame2{3939153}], 5) then
begin
ClickMouse2(mouse_left);
Wait(RandomRange(400, 600));
casted := casted + 1;
if casted > Casts then
begin
writeln('finished all casts');
logout;
terminatescript;
end;
A := A + 1;
// Inc(CastsDone);
end
(* else
(begin
Wait(RandomRange(1034, 1503));
if (Not P07_FindObjCustom(x, y, ['Skeleton', 'Ske', 'ton', 'Skelet', 'leton'], [8885140, 9804448], 14)) then
WriteLn('NPC Not found, terminating script...');
Wait(RandomRange(100, 300));
Mouse(992, 293, random(5), random(5), true);
Wait(RandomRange(500, 1000));
LogOutPlayer;
Wait(RandomRange(500, 1000));
TerminateScript;
end; *)
end;
report;
if A < 5 then
begin
stayactive;
A := 0;
end;
// Inc(I);
until(Symbol);
KeyDown(VK_down);
wait(Random(500));
KeyUp(VK_down);
begin
Mouse(265,185,randomRange(2,4),randomrange(2,4),tr ue);
end;
// until(I = Casts);
end;


procedure CheckIfStuck;
var
TPA: TPointArray;
Waiting: integer;
begin
WeLogout;
while (CharacterIsInCave) do
begin
if (P07FindBankSymbol) then
CharacterIsIncave := false;
if (Waiting > 8) then
begin
logout;
terminatescript;
end;
writeln('<unstable> Unstucking!');
Mouse(652, 19, 3, 10, 1);
Wait(RandomRange(10000, 12000));
Waiting := 0;
break;
end;
if (FindColors(TPA, 65280, MSX1, MSY1, MSX2, MSY2)) then
begin
Waiting := 0;
end
else
begin
Inc(Waiting);
Wait(RandomRange(950, 1050));
end;
end;


function PickArrows : Boolean;
begin
begin
WeLogout;
If (Not P07_LoggedIn) Then
exit;
end;
StayActive;
wait(2500 + (random(1211)));
if findcolorspiraltolerance(x,y,603222,msx1,msy1,msx2 ,msy2,3) then
MMouse(x,y,0,0);
wait(2000);
Mouse(x,y,0,0,false);
P07_ChooseOptionMulti(['Take']);
result := True;
Report;
end;
Procedure Equip;
begin
begin
WeLogout;
If (Not P07_LoggedIn) Then
exit;
end;
if findcolorspiraltolerance(x,y,603222,mix1,miy1,mix2 ,miy2,3) then
begin
MMouse(x, y, 0, 0);
ClickMouse2(false);
wait(500);
P07_ChooseOptionMulti(['Wield']);
end else
exit;
end;
procedure FindEntrance;
var
TPA: TPointArray;
ATPA: T2DPointArray;
TPABox: TBox;
AverageTBoxX: integer;
i, tmpCTS: integer;
begin
WeLogout;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(EntranceHue, EntranceSat);
CheckIfStuck;
if (P07FindBankSymbol) then
begin
if (FindColorsTolerance(TPA, EntranceCol, MSX1, MSY1, MSX2, MSY2, EntranceTol)) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
SplitTPAWrap(TPA, 20, ATPA);
SortATPASize(ATPA, true);
for i := 0 to high(ATPA) do
begin
TPABox := GetTPABounds(ATPA[i]);
AverageTBoxX := (TPABox.X2 - TPABox.X1);
Mouse(ATPA[i][0].x, ATPA[i][0].y, (random(AverageTBoxX)), 0, 1);
CharacterIsIncave := true;
Inc(Progress);
report;
wait(2000 + random(100));
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
break;
end;
end;
end;
end;
function Entry(Tolerance : Integer): Boolean;
var
CTS, I, timer: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
begin
WeLogout;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.09, 1.48);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6447722, MSX1, MSY1, MSX2, MSY2, Tolerance);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 40, 20);
If Length(tpa) = 0 then exit;
For I := 0 to high(ATPA) do
begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 2, 2);
wait(20+random(10));
If I > 10 then break;
If(P07_IsUpTextMultiCustom(['Enter'])) then
begin
mouse(x,y,0,0,false);
if P07_WaitOptionMulti(['Enter'],1000) then
result := true;
wait(100);
exit;
If (result) then exit;

end;
end;
end;
function EntranceAndFight: Boolean;
var
TreeColors: array [0..3] of integer;
TreeTPA: TPointArray;
Chill, a, I: Integer;
begin
repeat
WeLogout;
Report;
P07_MakeCompassSouth;
// if findcolorspiraltolerance(x,y,3815999,msx1,msy1,msx 2,msy2,15) then
Entry(2);
{ MMouse(x, y, 0, 0);
ClickMouse2(false);
Entered := Entered + 1;
wait(500);
P07_ChooseOptionMulti(['Enter']);
P07_FFlag;
wait(500); }
wait(2000 +random(434));
writeln('Found Entrance!');
until not (symbol);
writeln('Entered Entrance!');
P07_MakeCameraAngleHigh;
wait(20000 + random(1001));
if AntiBan then
begin
if mage then
begin
cast;
end else
If Range then begin
repeat
PickArrows;
wait(6500 + random(2000));
until(Symbol);
end else
repeat
Report;
StayActive;
wait(4000 + random(2000));
If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
repeat
WeLogout;
stayactive;
wait(4000 + random(2000));
until not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150));
until(symbol);
if range then
begin
Equip;
end;
KeyDown(VK_down);
wait(Random(500));
KeyUp(VK_down);
end;
end;




begin
if not DoYouLoveSRL then
begin
writeln('Sorry, Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry, Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry, Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry, Terminating Script. Love SRL or GTFO.');
TerminateScript;
end;
Disguise('P1nkys FightCaver!');
ClearDebug;
Writeln('Thank You for supporting P1nkys FightCaver');
DeclarePlayerz;
SetupP07Include;
ActivateClient; Wait(2000);
If (Not P07_LoggedIn) Then
P07_LogInPlayer;
if not mage then
begin
caveEntranceWhite := [7763583, 8553356];
P07_AutoRetaliate(true);
Case Lowercase(CombatStyle) of
'str','rapid' : P07_CombatStance(2);
'att','accurate' : P07_CombatStance(1);
'def','longrange' : P07_CombatStance(3);
end;
end;
begin
Mouse(640,181,0,0,true); //inv
repeat
WeLogout;
EntranceAndFight;
until(False);
end;
end.

HyperSecret
11-14-2007, 02:09 AM
not to bad for a start, keep readin the tuts but learn standards more, and also did you make that entfinder or do you need to credit someone for the guidance and outline of it? cuz you can make that but dont make your own tree finding procedure?

P1nky
11-14-2007, 02:17 AM
yeah forgot =p HARRY thanks =p lol i put the credits now! =p

and yeah like i said my STANDARDS are horrible =p will get them better soon!

[and this is really a basic script i had this saved like for 2-3 months and once in while i have tried to like make it better and i did apply for membership with a way better script well i think so its good lol]

fireiznoob
11-14-2007, 08:03 AM
thanks it works

JumpMazter
11-14-2007, 03:51 PM
Nice begin :)

rogeruk
11-14-2007, 04:13 PM
Standards fixed..

program AnyWherePowerChopper;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
{================================================= ==================
P1NKY'S 1ST SCRIPT DONT TAKE WITHOUT PERMISSION UNLESS I POSTED!!!
change colors if they dont work for you! or just leave the same
================================================== ==================}
//Start Instructions (FOLO INSTRUCTIONS BELOW!):
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~
1.Set LINES 22-40 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2.|START Script where The Picture LOCATION| ~~~~~~~~~~~~~~~~
3.|HIGH DETAIL| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4.START logged off
5.AXE WIELDED or IN 1ST SLOT OF INVO
7.READ DETAILS AND MORE ON THE THREAD THANKS<><>P1NKY<><>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~
End OF Instructions!
================================================== =================}

const
//================================================== ================
PowerChop = true; // DONT CHANGE!!!!
//================================================== ================
WillowColor = 3696222; //One WILLOW Color|THESE COLORs WORK for me
WillowColor1 = 1914674;
WillowColor2 = 1327160;

OakColor = 2124898; //OAK COLORS work for me!
OakColor1 = 1781037;
OakColor2 = 2242100;

RegTree = 2122071; //Regular Trees
RegTree1 = 3367516;
//if you need a dead tree color please get 1 color and paste it BELOW thanks
RegTree2 = 925209;

DeadTree = 1648428; //Dead Trees (change if needed)
DeadTree1 = 1844273;
//Need Regular Trees too? get from TOP and paste!
DeadTree2 = 1448999;
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^
//END OF SETUP DONT TOUCH BELOW PLEASE UNLESS NEEDED
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^
var
Dropper, TreesChopped, x, y: Integer;

procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(2); // raise if you added more PLAYERS! please

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';//3-4 Letters Of Username ( No Capitals! )
Players[0].Strings[1] := 'tree';
//oak or willow or tree or all or dead(LOWERCASE)!
Players[0].Active := true;

Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Strings[1] := 'willow';
//oak or willow or tree or all or dead(LOWERCASE)!
Players[1].Active := true;

{Players[2].Name :=''; //GO AHEAD ADD MORE PLAYERS IF NEEDED
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Strings[1] := 'Willow';
Players[2].Active :=True;


Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Strings[1] := 'Willow';
Players[3].Active :=True;

================================================== =======================
ADD MORE IF YOU NEED TO LOL TOO LAZY TO PASTE
}
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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7:
begin
if InBlack then
begin
Result := true;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;

procedure RunningFromFights;
begin
FindNormalRandoms;
FindFastRandoms;
if (FindFight) then
begin
Status('Running...');
RunAwayDirection('W');
Wait(13500 + Random(2500));
RunBack;
end;
end;

procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
wait(400)
Findtalk;
RunningFromFights;
FindLamp('Woodcutting');
end;

procedure Report;
begin
cleardebug;
Writeln('||===========================||');
Writeln('||P1nkys POWERCHOPPER||');
Writeln('||===========================||');
Writeln('||Post this on the thread plz||');
Writeln('||===========================||');
Writeln(' Worked For ' + TimeRunning);
Writeln(' Chopped ' + IntToStr(TreesChopped));
Writeln(' Dropped(by loads) ' + IntToStr(Dropper));
Writeln('||===========================||');
Writeln('||====P1nkys FIRST SCRIPT====||');
Writeln('||===========================||');
Writeln('||=====Thanks SRL Forums=====||');
Writeln('||===========================||');
SRLRandomsReport;
end;

procedure DoChats;
begin
if (not (LoggedIn)) then
begin
Writeln(players[currentplayer].Name + 'is not logged in...');
Writeln('Switching players');
nextplayer(false);
end;
SetChat('on', 1);
SetChat('on', 2);
SetChat('off', 3);
SetChat('off', 4);
end;

procedure randomcompass;
begin
case Random(6) of
0: makecompass('N');
1: makecompass('S');
2: makecompass('E');
3: makecompass('W');
4: HighestAngle;
end;
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..');
RunAwayDirection('W');
Wait(13500 + Random(2500));
RunBack;
Mouse(648, 84, 3, 3, true);
Flag;
FTWait(60 + Random(5));
begin
Writeln('Whew! We avoided the ent.. Carrying on with chopping');
Exit;
end;
end;
Result := false;
end;
end;

procedure RandomButton;
begin
case Random(3) of
0:
begin
KeyDown(VK_Left);
wait(Random(600) + 500);
KeyUp(VK_Left);
end;
1:
begin
KeyDown(VK_Right);
wait(Random(600) + 500);
KeyUp(VK_Right);
end;
2:
begin
KeyDown(VK_Up);
wait(Random(600) + 500);
KeyUp(VK_Up);
end;
end;
end;

procedure MyAntiBan;
var
DBanMe: Integer;
begin
DBanMe := Random(12);
case DBanMe of
0: PickUpMouse;
1: GameTab(1 + Random(33));
2: DoEmote(1 + Random(75));
3: RandomRclick;
4: randomcompass;
5: RandomButton
6: AlmostLogout;
7: ChooseOption('cancel');
8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
9:
begin
HoverSkill('woodcutting', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
ChooseOption('Cancel');
MMouse(Random(MSY1), Random(MSX1), 0, 0);
end;
10:
begin
GameTab(1 + Random(13));
wait(1000 + Random(600));
gametab(4);
ChooseOption('Cancel');
end;
11:
begin
HoverSkill('random', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
RandomButton;
ChooseOption('Cancel');
end;
end;
end;

procedure WillowChopper;
begin
Writeln('FOUND~WILLOWS~CHOPPING~');
repeat
begin
if findobj(x, y, 'willo', WillowColor, 10) or
findObj(x, y, 'illow', WillowColor1, 10) or
findObj(x, y, 'illow', WillowColor2, 10) then
begin
FindEnt(x, y, true);
CheckForEnt;
FindRandoms;
MMouse(x, y, 2, 2);
Mouse(x, y, 1, 1, true);
if (IsUpText('illow')) then
begin
FindEnt(x, y, true);
CheckForEnt;
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
flag;
Wait(600 + Random(1000));
if FindFastRandoms then RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
until (invfull);
end;

procedure OakChopper;
begin
Writeln('Find~OAK~CHOPPING~');
repeat
begin
if findobj(x, y, 'oa', oakcolor, 10) or
findObj(x, y, 'ak', oakcolor1, 10) or
findObj(x, y, 'oa', oakcolor2, 10) then
begin
FindEnt(x, y, true);
CheckForEnt;
FindRandoms;
Mouse(x, y, 1, 1, true);
if (IsUpText('ak')) then
begin
FindEnt(x, y, true);
CheckForEnt;
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
flag;
Wait(600 + Random(1000));
if FindFastRandoms then RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
until (invfull);
end;

procedure RegularTreeChopper;
begin
Writeln('FOUND~TREE~CHOPPING~');
repeat
begin
if findobj(x, y, 'ree', RegTree, 10) or
findObj(x, y, 'ree', RegTree1, 10) or
findObj(x, y, 'ree', RegTree2, 10) then
begin
FindEnt(x, y, true);
CheckForEnt;
FindRandoms;
MMouse(x, y, 2, 2);
Mouse(x, y, 1, 1, true);
if (IsUpText('ree')) then
begin
FindEnt(x, y, true);
CheckForEnt;
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
flag;
Wait(600 + Random(1000));
if FindFastRandoms then RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
until (invfull);
end;

procedure DeadTreesChopper;
begin
Writeln('FOUND~Dead~TREES~CHOPPING~');
repeat
begin
if findobj(x, y, 'ree', DeadTree, 10) or
findObj(x, y, 'ree', DeadTree1, 10) or
findObj(x, y, 'ree', DeadTree2, 10) then
begin
FindEnt(x, y, true);
CheckForEnt;
FindRandoms;
MMouse(x, y, 2, 2);
Mouse(x, y, 1, 1, true);
if (IsUpText('ree')) then
begin
FindEnt(x, y, true);
CheckForEnt;
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
flag;
Wait(600 + Random(1000));
if FindFastRandoms then RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
until (invfull);
end;

procedure RsDestroyer;
begin
Writeln('cutting any trees');
repeat
begin
if findobj(x, y, 'illo', WillowColor, 10) or
findObj(x, y, 'ak', oakcolor, 10) or
findObj(x, y, 'ree', RegTree, 10) or
findObj(x, y, 'ead', DeadTree, 10) then
begin
FindEnt(x, y, true);
CheckForEnt;
FindRandoms;
MMouse(x, y, 2, 2);
Mouse(x, y, 1, 1, true);
FindEnt(x, y, true);
CheckForEnt;
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
flag;
Wait(600 + Random(1000));
if FindFastRandoms then RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
RandomCompass;
end;
end;
until (invfull);
end;

procedure PowerDrop;
var
i: Integer;
begin
if not (LoggedIn) then Exit;
GameTab(4);
for i := 2 to 28 do
begin
DropItem(i);
end;
begin
FindRandoms;
Report;
MyAntiBan;
end;
end;

procedure SetPlayer;
begin
dochats;
LowestAngle;
SetRun(true);
MakeCompass('N');
HighestAngle;
end;

begin
SetupSRL;
DeclarePlayers;
ActivateClient;
report;
if LoggedIn then LogOut;
LoginPlayer;
SetPlayer;
Dropper := 0;
TreesChopped := 0;
repeat
case LowerCase(Players[CurrentPlayer].Strings[1]) of
'tree': RegularTreeChopper;
'oak': OakChopper;
'willow': WillowChopper;
'dead': DeadTreesChopper;
'all': RsDestroyer;
end;
if (InvFull) then TreesChopped := TreesChopped + 27;
report;
begin
if PowerChop then PowerDrop;
Dropper := Dropper + 1;
report;
end;
if not LoggedIn then
begin
NextPlayer(false);
SetPlayer;
end;
until (false);
end.

P1nky
11-14-2007, 05:27 PM
ThankS ROGER! ! ! ! ! =p
and people whoever used it please POST PROGGIES!!!!!! rawr lol

SuperScripter
11-14-2007, 05:45 PM
p1nky very good start and i suppose its very good. I like the idea of the rsdestoryer :p . Other than that you may want to only keep a line through the procedures not 6 or the script will lag a little. Good Job !!! If you read more tuts than i'm sure you can earn a good reputation. Carry on the good work :)

#SS

P1nky
11-14-2007, 05:52 PM
dude thanks very much TBH i think my weakness are the standards because i never heard of it but, when i posted for a srl member app i found out what it is and stuff thanks btw if you try it out POST PROGGIES thank you

~p1nky~

gummi
11-15-2007, 02:08 AM
Nice,Gudddd script

P1nky
11-15-2007, 05:26 PM
thanks =X

Naum
11-16-2007, 12:57 PM
Nice.

P1nky
11-16-2007, 07:49 PM
thank you so no-one used it YET? btw OAK and Dead tree dont work properly go ahead check and change colors and try and let me know!

quaker_66
11-23-2007, 09:09 PM
the anywhere powerchopper worked nice...I made the mistake off not reading the script all the way through and lost some stuff when the script cleared the inventory.The only thing I would like better is if you could fill the first row of your inventory up with axes, so that when one breaks, it goes onto the next. That was the biggest problem when I would let it run. I would come back and find that it has logged out bc of a broken axe. But other than that, it worked great. (just a note...I had to play with the times to get a better outcome. Still working on that but I have it better than when I started)

P1nky
11-25-2007, 12:51 AM
ok thanks for the report yeah the ent finder isnt that great but surely works for me =S but yes it may break=) sorry and i can change it but not many people do that thing u do fill it with axes the 1st row =)

thanks

metal
11-25-2007, 02:26 AM
It works nice keep up the goodwork mate. Now if only i could stop having those txt errors.

P1nky
11-25-2007, 07:40 PM
k thanks =S no1 posted proggies yet? =.=

Sebo
11-29-2007, 02:58 AM
Looks good, keep practicing, you'll get better and better, Who knows, my next army might be woodcutters, right now they are miners, but I will definatly use your script when I get the chance :)

-Sebo

P1nky
11-30-2007, 02:00 AM
ok thanks yeah its not very good i havent trying to update im working with clay and making a chicken killer =) thanks tho bro


ILL UPDATE THIS SCRIPT =)

P1nky
12-01-2007, 02:33 AM
V 1.0 IS OUT!

SINCE SOME PEOPLE REQUESTED BETTER CHOPPING PROCEDURE I ADDED IT!

~ HAVENT CHANGE SCRIPT MUCH SO STILL LOOKS A BIT NOOBISH~

NEXT UPDATE MAY COME IF PEOPLE USE THIS SCRIPT AND POST PROGGIES!

V1.0 GOT BETTER ENT FINDER THANKS FROZE/BETTER WCING PROCEDURE AND BETTER TREE FINDER!!!!!!!!!

IVE TOOK DEAD TREE OUT WONT WORK PROPERLY =Z
AND NOT SURE IF OAKS WORK NEVER TRIED!

thanks

~p1nky~ remember to post PROGGIES!

Mushroomhead4lyfe
12-01-2007, 11:25 PM
Works good, but it clicks the trees ridiculously, like one click every 1-3 seconds.

P1nky
12-02-2007, 12:22 AM
yeah i know what u mean i updated the script same name just change the time of clicking

SO REDOWNLOAD V1.0p\

NotQuitE30
12-06-2007, 01:18 AM
Quick question, i get error " Runtime Error] : Out Of Range in line 60 in script H:\DOCUME~1\Brandon\LOCALS~1\Temp\AnyWherePowerCho pper[standards fixed] thanks roger.scar" which is second name line

even though i set number of players to one, and changed Players[1].Active := false; .
i have fully updated srl and subversion. scar 3.13.
i have been going threw all scripts and attempting to get succes, none have worked yet for me, out of 10 or so. If I get it to work ill post proggy.
-Thanks, Brandon.

P1nky
12-06-2007, 11:21 PM
DL V1.0

and do not change number of players and leave it on true no need tbh =)

hope it work thanks im happy atleast you using it or attempt to thanks

souppy
12-07-2007, 04:22 AM
I plan on trying your wcer soon. Could I use a few little parts of your anti-random to help with my script, I will credit you.


EDIT: I'd really love it if I could use your entfinder . I'll credit you fully.

RobinHood
12-07-2007, 08:49 AM
I changed the wait time inbetween dropping logs because it was too quick sometimes for my computer to handle and would lag, and then I would be stuck with an extra 1-3 logs for the next round.

You might consider updating that in the new release of the script (or just make a note of it for people with slower computers).

P1nky
12-07-2007, 09:46 PM
oh =S works good for me but ty

post proggies and soupy those anti-randoms are SRL's so go ahead lol and please dont use the ENTFINDER not mine..

Pierre14
12-08-2007, 08:10 AM
is it pretty safe? P1nky i can trust you!!! but i wanna know if its pretty safe?(btw thank you for that other script)

P1nky
12-08-2007, 05:20 PM
np and yes its safe i mean i use this script everyday on my lvl 10 got him 1-63 wcing? thats how good it is

~BTW IF ANYONE THINKS IT NEEDS A YEW CUTTER TOO/DROPPER ILL ADD IT TO THIS =P BECAUSE IMA TRAIN LIKE THAT LATER =)~

and the RSDESTROYER hasnt worked quite well for me ima have to update that
=) thanks p1nky
PLEASE POST PROGGIES FFS LOL NEVER GOT 1 =S

knights870
12-08-2007, 05:30 PM
np and yes its safe i mean i use this script everyday on my lvl 10 got him 1-63 wcing? thats how good it is

~BTW IF ANYONE THINKS IT NEEDS A YEW CUTTER TOO/DROPPER ILL ADD IT TO THIS =P BECAUSE IMA TRAIN LIKE THAT LATER =)~

and the RSDESTROYER hasnt worked quite well for me ima have to update that
=) thanks p1nky
PLEASE POST PROGGIES FFS LOL NEVER GOT 1 =S
Naughty naught p1nky. 20 combat min. :p

P1nky
12-08-2007, 05:45 PM
lol =) d/w about me , im making a chicken killer its working fine and all just need some adjustment ill get there cb up to 20 =) pure def lol done that already with my other acc skiller [= well seems nice some read rules

Timer
12-09-2007, 07:05 PM
if u need any help, pm me

and looks nice. ( 4 first script )

P1nky
12-09-2007, 11:55 PM
thank you dawg (and i may need u to fix the srl stats thing)

MAN CMON SOME ONE POST PROGGIES=p

Timer
12-10-2007, 12:29 AM
thank you dawg (and i may need u to fix the srl stats thing)

MAN CMON SOME ONE POST PROGGIES=p

whats rong wth it.?

P1nky
12-10-2007, 12:44 AM
get on msn ill tell you =)

Barracuda
12-10-2007, 02:13 AM
it works absolutly great the willows are great and i am abou the test the oaks, anti-randoms are good :)

P1nky
12-10-2007, 04:40 PM
thank you very much

please post proggies

P1nky
12-11-2007, 05:50 PM
ok guys i am NEARLY finished with draynor banker willows =) ill add it asap =) and make it to powerchopper/draynor willow banker and soon oak banker too just letting yall know thankz

noobscam
12-21-2007, 02:26 PM
How I start the scar thing???

I click play and it says:

Include file C:\Programfiler\SCAR 2.03\includes\srl/srl.scar does not exist.
Include file C:\Programfiler\SCAR 2.03\includes\srl/srl/skill/woodcutting.scar
does not exist.
Failed when compiling



So, what I do?

[S]paz
12-21-2007, 02:28 PM
download srl 4

i always make a small tut on how to and i cbf so search the tut island for beginner tuts

the file -> download srl...

~Spaz

noobscam
12-21-2007, 05:08 PM
When I copy it and paste it in SCAR, and get the colors I have to get, and click run, it says this:



Include file C:\Programfiler\SCAR 2.03\includes\srl/srl.scar does not exist.
Include file C:\Programfiler\SCAR 2.03\includes\srl/srl/skill/woodcutting.scar does not exist.
Failed when compiling




What I have to do???

Please help, I really wanna try this!!!!

noobscam
12-21-2007, 05:21 PM
I can't download the Subverson Repository download thing...


Please help...

Mushroomhead4lyfe
12-21-2007, 08:29 PM
When I copy it and paste it in SCAR, and get the colors I have to get, and click run, it says this:



Include file C:\Programfiler\SCAR 2.03\includes\srl/srl.scar does not exist.
Include file C:\Programfiler\SCAR 2.03\includes\srl/srl/skill/woodcutting.scar does not exist.
Failed when compiling




What I have to do???

Please help, I really wanna try this!!!!


download SRL and includes under SCAR -> file -> download srl/includes

Benz
12-22-2007, 01:40 AM
I liked it,
nice job.

noobscam
12-22-2007, 09:56 PM
nice! I got a proggy here:


||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 13 Minutes and 30 Seconds
Chopped 81
Dropped(by loads) 3
||===========================||
||====P1nkys FIRST SCRIPT====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
Find~OAK~CHOPPING~

P1nky
12-22-2007, 11:36 PM
finally thanks lol

since people getting to use it ill update it aND GET BETTER ANTI-BAN

autochatter/better rsdestroyer

noobscam
12-23-2007, 11:04 AM
oh, and btw, I got the box random 2 times, and the autoer just kept on woddcutting...
So the box anti-random doesnt work :(



But nice anyway :)

Datakovis
12-23-2007, 07:00 PM
yeah they should really do something bout postcountlovers ! .. and btw nice work :O

P1nky
12-23-2007, 07:13 PM
ok noobscam thanks for the suggestion (remember to post PROGGIES GUYS)

update is comming out soon ive added so much
even a draynor banker



program P1nkys_PowerChopper_C;
{$DEFINE SMART}
//$define srl5}
{$i srl\srl.simba}
//$i SRL\SRL\Misc\Stats.simba}
//$loadlib sps}
//$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.scar}

{================================================= ==}
{ P1nky' PowerChopper Since 11/12/07 }
{================================================= ==}
{
Step 1: Have a Hatchet(axe) either on FIRST SLOT or WIELDED.
Step 2: Surrond your Character around the Trees that you have chosen.
Step 3: Start the script.
Step 4: Watch the script run for a good Minute.
Step 5: Enjoy The Script. Also, Please post PROGGIES keep the Thread Alive <3.

{================================================= ==}
//\\ Make Sure To Progress Reports on The Thread! //\\
{================================================= ==}

const
DoWhatToLogs = 'burn';
TakeBreaks = False;
PowerChop = True;
DropType = 'fast';
Loads = 18;
AntiBan = False;
OakColor = 3492702;
WillowColor = 2374714;
RegTreeColor = 3690597;
Ver = 'C';
DoYouLoveSRL = True;
SRLStats_Username = 'p1nky';
SRLStats_Password = 'jara99';


{================================================= ==}
{######## ## ## ## ## ## ## ##
## ## #### ### ## ## ## ## ##
## ## ## #### ## ## ## ####
######## ## ## ## ## ##### ##
## ## ## #### ## ## ##
## ## ## ### ## ## ##
## ###### ## ## ## ## ##}
{================================================= ==}

procedure DeclarePlayerz;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with players[0] do
begin
Name := 'pur3pker7';
Pass := 'desert99';
Active := True;
Pin := '';



with players[1] do
Name := 'pur3pker7';
Pass := 'desert99';
Active := True;
Pin := '';
end;
end;

var
DTM4, FailFind, e, PLANBB, Burned, DTM3, SPOTCDTM, WCLVL, Loads1, Debugged, sleeper, Breaktime, Break, x, y, TreesChopped, Dropper, level, axe, Chopped, NextBreak, DTMSPOT, DTM1, DTM2: integer;
Chop: TComboBox;
Version: string;
LastestVersion: Boolean;

procedure Grats;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
exit;
if (FindBlackChatMessage('Congratulations')) or (FindBlackChatMessage('you just advance')) or InChat('Congratulations') or InChat('just advance') or InChat('congratulations,') then
begin
Writeln('Gained a levled!!!');
begin
case Random(18) of
0: TypeSend('woot finnally LEVELED!!');
1: TypeSend('muwahah lvled');
2: TypeSend('leveled yay me!');
3: TypeSend('woot got wcing lvl :)');
4: TypeSend('omg.. i didnt even know i just leveld');
5: TypeSend('yay me');
6: TypeSend('w00t grats');
7: TypeSend('Dang!');
8: TypeSend('fireworks@!');
9: TypeSend('yay leveld!');
10: TypeSend('woot didnt notice since lagged lol');
11: Typesend('good i just leveld wc');
12: TypeSend('yay!');
13: TypeSend('Hleveled');
14: TypeSend('.lvld just now guys grats me jk');
15: TypeSend('lol');
16: TypeSend('lol...');
17: TypeSend('fireworkz');
end;
end;
writeln('you HAVE JUST LEVELED WOODCUTTING!');
level := level + 1;
end;
end;

procedure FindRandoms;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Grats;
Status('Looking For Randoms');
FindNormalRandoms;
wait(400) FindLamp('Woodcutting');
end;

procedure RandomButton;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Grats;
case Random(3) of
0:
begin
KeyDown(VK_Left);
wait(Random(600) + 500);
KeyUp(VK_Left);
end;
1:
begin
KeyDown(VK_Right);
wait(Random(600) + 500);
KeyUp(VK_Right);
end;
2:
begin
KeyDown(VK_Up);
wait(Random(600) + 500);
KeyUp(VK_Up);
end;
end;
end;

procedure randomcompass;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Grats;
case Random(6) of
0: makecompass('N');
1: makecompass('S');
2: makecompass('E');
3: makecompass('W');
4: setangle(1);
end;
end;

procedure MyAntiBan;
var
DBanMe: Integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Grats;
Status('Performing P1nkys AntiBan');
DBanMe := Random(12);
case DBanMe of
0: PickUpMouse;
1: GameTab(1 + Random(15));
2: DoEmote(1 + Random(15));
3: RandomRclick;
5: RandomButton;
7: ChooseOption('cancel');
8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
9:
begin
HoverSkill('woodcutting', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
ChooseOption('Cancel');
RandomButton;
MMouse(Random(MSY1), Random(MSX1), 0, 0);
end;
10:
begin
GameTab(1 + Random(13));
wait(1000 + Random(600));
gametab(4);
RandomButton;
ChooseOption('Cancel');
setangle(1);
end;
11:
begin
HoverSkill('random', false);
sleepandmovemouse(200 + Random(100));
RandomButton;
ChooseOption('Cancel');
setangle(1);
end;
end;
end;

Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer; //Add another Pic here (I used Pic2)
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(286, 40, 'meJztvddzo8e2L9YACAIgiJxzz' +
'jkHIgMEwZxzjpPICZwoTqQmaUZhpJlR3gqjra19tu65TlUuu+ q6yv' +
'aDy74vfrD96v/Fq/sDQDCNRvucU/uUr6paKpLzodG9ev1W7vUhGkJ' +
'/jD/GH+OP8cf4Owb+j4HHP3wl/z7Xg5fE+He3pH/5XuCXf/xi6GS0' +
'k8FCiEl+/XewsKO0YuCFveunaGQXzMa+muOdZ/g32UjreoDUbX8nP' +
'x/sjtWYik6morU8QMh18EBb45kTH/gXL+kfOw5IcWSwfuPEKZqcJl' +
'gO8d7vQesBoNrpqI2BmAzURjs4febvmOrfhFzHCdUYb/sUrcnAZEc' +
'Hg47Z5hjE8H+Mf1u5jWfG504jFG6sp62xTtbv+N6W3bXM1nYa oRgn' +
'HOvBoB08wDz8GBGwpzHYP5AlTqctLL4NtbUjBjVYiEFHzMZ2j nHyI' +
'W3SHMwG0OjoVJIeg2orNusfpDDObFkPnQz8M+OAwv8IId8gF5 2Qi9' +
'WgFfzcgo6TFtYgF6z/8KYOtkY/iceOUe9fiX8aSgG+lHXKeg4U2Tu' +
'RpY6XY7ur8xKZDcOkcayHvo4QkBIyJz6An2EeQP6tJPo7j/Xv1QIn' +
'T1gHDkVbJqKzEJsa7aidebCdI7K0ralN6JgIdCYhHePorjGVm lBlY' +
'hHUdohDTiEOvY5x+PY2spgODo0Pg4U47YhFFtlkQuY77JH+r0 c0Wi' +
'vkmXjjB4NijwZJGcfWgLfGrO+LxUYcDk1A7YtN4xGCt7Xii0a ox2y' +
'RdQ3mbMf0/33ccgzph9ZDnfvBegip2dSODo7st7iIQigT44gDH2+d' +
'qh2zAb39gMfaW7+OjbjNr2t5hsOmcZuTkGc4zMP4YhAwNsQCJ n5jt' +
'b9T/vw2WlvN2nedsCFC22Dx5JQFbCTCg8aDvVP4Yh5TQA3IUMzPae' +
'ya3txjK5VaeY91oHSOQq9l0Ml6OghJhWwk7kCKDiSFnznwK40 Hq4J' +
'nGuB6u7F6qjVyVBG8C9HImhsrZLEb507oxoe/UBSon9QxUgMZKdlF' +
'9iXgIAkLSdhIykEi2BclOloZ7Dj12t8iUhrK9B0GsxVWQEwOP nQBC' +
'5Na1o5PX0htjQJ7g11PoQ8BKb2OnXY2rROfERJ1IBmcGsVLHB qPgg' +
'8MeICNfxWRZxQcJCNfJ6AwSA0MOiQgxy1j4tOXw/LIM8CQIG0Osco' +
'REh3oNdq7HCirqWpbdOWBAm0xj3+P2XDAJ20UD8MW+EjViRQC pOYj' +
'GQcfOuyIdxhc1AIaHFJnfhE5CwHFG9TAZMRobUpCwXHOOaIo6 8SnM' +
'I7XIxMhtRipBEglRGoh0vAwkUVkKnYDXKdo/xYN2Eo05t9NNKJkGf' +
'W9c/CO8OmL4ejZeAgaWpV+lBXJr22YJeggh4FQsK9OpIS9pNx5nzb' +
'Kwz8DqaVErHW0EwAe0Wucxj+1sDrRXPi/o/EQykOhtsk64JNDplQL' +
'rGAjEgFSCpDCr4smXDkukhA6C5vgqjsFtJN0PWI1xGM7QYREi JRSc' +
'l5waiIyCDSwSKTwAr/CmcLgI6UIaSRIDdRgg5ChCahnOARNnfgxTW' +
'9uQM208JCCi0WruCl/WvTaUQZj1YXbb5mFdSeI0nr09sacBLxHDeN' +
'j/hHrJFuoGXih5mQSNgaCqKRID8jqclalyChGBhnScjC+YL8dFLg o' +
'GmIOQZhDYLOCBnHgBy6WwAcWBQdTSQiSsB2JWYT9MNEO9CD9A ER4A' +
'URUYjFF/SCGg5YinQjpAqrsQHIy76rpmR74VYyUHHwKvBZL9Zh1dE' +
'ixMhpEA9iyTiQa5b7R3u7BEWOsyY1svC+RpsM61jup4ZrYjXM n+rT' +
'JigeLoWQRu05quUsZTpiLbnEsqi94pAmvKibAEl7c0IOEjIQg oNfa' +
'MWGxHmE3WP24AcPAeGxrP6T3W4X5IW/usLaC9SgMXFfO22vmBrOun' +
'ogxq2wz84nGITvCauIURdnW0MUMMpUYpAQIQEO7N64vTVUWYq ayAG' +
'llSC9CSkAKF8mAVYDNhMgQ0RdWR8/4JGk4VnhGitQcouY6kYxHMNU' +
'dH9DS3N3xYQ1yZb1VJc0M/8QiGpDQR0AYDHMLEzOYhBIFbNTZoghO' +
'dxYIrBp0YMKn6nwI+hTP35BmNErVcloQ99vuHmWcgCQEghA5Y 1Qg2' +
'9Xt984u7nzy4SchaU6CLCB5gBpsAoemisGancbnY843yJFZjC xyZJ' +
'MjK1CMsL2UQ5ltWN1L+EhaTQ9EzCkBtjQocB1YUJRigqmAS0E uEUE' +
'HR6MGVSVDBjVyDCVne4Pj3/zw1dfffJ1UV5OmigDDTUU4jdte9xeY' +
'xyDQdKUpq1JwEtF4LURjnepU1ged8n3asd6BD/IlHEN3st/CD0z1L' +
'lmFwWq6X8O3tSMegXyL2iI8STRmGxhCIGe82qCK5vDLU1M9y9 XY4G' +
'hubqQ4nbSUVG0ODddMRDdZJxIBufhIHrYnMqESSLx2Aq6GxK5 7qbQ' +
'WX6wBIhaBMK/VbzriPZGHGdgwQ0KL3KPnuuydkeXxzZJvYKa6Otm3' +
'YGR7Ne02GVsLOyW68rCsOExqQhPgIqEQWxeasdysk5v4888/ffvTn' +
'wbiMyOZeTEySZBeiocOftAg92Byam1o+9U3r3788ScTLVyLjg uQXk' +
'ZOFqAXd2R4SNeTGq6GJlant2K60tbceWAwk8AjaYcliYjNySc kksj' +
'atIPlEbPEzcK/UnqW2VjwaWqL0eIHMevsgTU1OB1yAQE4hVkOcYta' +
'OOfA7jpmMR4Jv8BxC8AU0bBtbmHyk+cvpcj3zbffLfaei8qqV 8/es' +
'osjsFkyP4gCBjFxsX8BWJBjJDq7DL0fPf708tpe2T+iRG7YPm g6Ll' +
'4bFlBZfynpLnbHh6yCEOArakuDbGnBHTb2ANTANk8ePvMrU0K kkyG' +
'LAlmUyKZG7pSp/Pnr12aUmcmdTUkHF7vPL49tJixlMdJ1YLx3tpNY' +
'x+ETpzUgQO2Owq+4kxANTFwuJprkGNF4lIV5ODxCPzItRQEWP las4' +
'sd7pmtdI5XYYC0xPNO3KGZosOvUINQRIcYipOYiuZnvWRhem+ pe6g' +
'4PByUFD7erFh4fykxP9czpOHYBXh62DEHLJ5xduUDFp05lPN2 FSC1' +
'kijc4p/2wOU3ZKpwWNPEafooUdk3OgrLH4I/chrXZjj0XJNOyrVM9' +
'C5PdSx5l3E7rCilzFe/IYGpybnBZxQRdLOHU3QHGCQYhERoUSMERB' +
'uslpElvb+6OJzYDzO6zk9dVKPrNn74tOAcVyKpAZjhZA9OXc9 e+/O' +
'JrIfLtrt6xoOxyz4Xdc7ecgrgEmWTIKEKgxfs257d7oiM5e6+ 3MxM' +
'Q5EZLc9OVpZ7UIDAej5AIFgYMVopW/drkdN+iFJlGq5MGsbMdb7yT' +
'CLe3WbAIR1GwLOLQhAzEoSE4GjEXq8u6buVS9jkS0ZGAGPyyp k1LG' +
'I/ZkFEnmECYIKCwaEIiKIxzA6v/4//633to5axyXI+yN7f2v/r6Kx' +
's3BHoZn3X9QLFH1oFEYqQ1MP3nZ24VVTPbCzd6zQthzsD9i48 tjBB' +
'AA8AlxJ6aspYdne1bKof78r7q6sSWWxnm44OWESsaDAMNUHKs NCdH' +
'zjvXH3k7chXfiI0d1SKvDnktKPb0wfOf/vxmLn0+J5tIcsdvnr3/p' +
'2++2bt8T4ks2BHAWGAeRVY9VkB0K2YJLg3xOjCygGhgaSgI6i UdGF' +
'wiBhK2YdEkbRCNTxmZ7XVcsN6CLGW73ikLJe3dN67cyrq6ndK ItsN' +
'6GrII52NTUIglkjluKCZUPZ6O3GB8uuwZgY2HpUUdzStHFgn2 c7GL' +
'ARsMGpILQ6uFQK0Y6lsYXfVoAsRcFBKxySAAwUullHLDEOIyU CcDC' +
'WgIzksIuxZiB0rFxXxIdt1QXlTUAr4FeNInS6RNPR5Wfrhrbj A+40' +
'SZWnCKGCGGDuL9EZnzdmThqURIuzV/4etvv7qy+l6IMZhXTg5Hlv/' +
'6y1+fPHwOchKMOg1y+ATpV69evXz9edU6XTHMBuh9+9ef/vjTj4PJ' +
'GRWyKZBdjay2jmDZN2xGybimezQ9l7MNWlAyaSzLkV1M7CIiJ AFi8' +
'r7s2ChYnfHBnKe6Mr0hpqmJuQhYoDcY48Q0a132AiXbEDsTL9 +6dv' +
'vswqUrZ25dOrO3NXfl5pV782MrGX+py5u/uHkpGyqaBA7gEB7+ahl' +
'Wl5hVuIcjCQJi/NQ9HRK0AZiordzwxvilCL/Wa53fHLq0ULwQE/T2' +
'BmYmiytCpBVgNuYTY6aDUlggf9wdXf/t//DPH+29unLmei08Vor0v' +
'fnz9xX3hBI5wLCUIg2AK2RKmzuC59YuLo6u6ZhuryZKNJRSjB Ratg' +
'0UogBZZrs38vrR+3sPV4cvDMcX7SgTkVUSqioQU4MiCpR0oO5 bl++' +
'uD13UoS4x8qmQBzQaF3xezCEnIotJYr+wR67LHLyxu3d+5fLF zZuX' +
'z+ydWdjdvbC3uXg+F+pOewrrcxu9uUGHwkugB5KwLpRazEJmI 3PHa' +
'CKLMupk7fr1xU2/Mu1Vp/yq9JmVbTXHCJx/HFn0ug3JZWNWl/amR7' +
'cWt7u85bJjNMoZDLF7S67BlLN0aWs3YS0QgwrEJv6/X5cwsT2LIxu' +
'bC+etnUG3Ksgl8oTYD/RGmJGyZIQ0xGUiUTKYL6RrtcLwztrFs0sX' +
'BvLj1djIcGlqZ/PqZO8Cj0gVdiPUz8G7lmYDle31i6VQX942kBAOB' +
'dprFfdY2T906fxu0pYHFU98ARbzwLlrpiwZTScLnunEQsOqRl 4R8u' +
'hRZrV35+57D5yoIkYBBfIYUNBA9+phoKAM+ZQoHkADDx7sz+T OKFE' +
'CPqJFPhCnagKu7Y0rkz0LBV+tzz9rRqW4tK8/ORa35G/t7mnaHZSR' +
'AwwAkjlqy7oFkesX3xvITujYbgPPiiMDND6zHqQ9FVkNZwHEn agN8' +
'bUsx/3b78uQVYQszx990h0cFGDtAJwPSkf73tU7YUvX1Us3AFagaL' +
'jY5aH8Gh7R+0LidPMpi5GwBxd+JoEarZUfunH2XlY93OdcBJp Mxtf' +
'zqvG5wpmF/g3Qzjh82vBQwMMCHQfbH4ovJPkDM5U1LRfcMW2Xqzsr' +
'HZ5Mr+tRAMQyWMsA8Ine+ZWxDbsgDIrs6sUbUWtGSAxpmMEmC Lx++' +
'frq2fcWyuc1KHNr62GWPZ0Wj+0sXP/uu+/TmgEL6nrx9OWnn7yaTK' +
'xXFNNF5ey5ud1PPvrs/s2HirfqrGaoCsQ7yG2Qcld3bjo7Y0JkvrR' +
'+c3lkXYQ9aBgawPjZ5e20t7S9dQVceAGWhIfAdbg8gHngnmCB D6as' +
'0qOKXjx7xadJyJCGEu8U2zftcCpcgFFA64DjEGENovPx092u8 YS81' +
'uud6Q/NpFT9BceQWwCTmODgRFixAvMo0p7ihbWLWuQwcrxn5i8kHB' +
'kqgEaUTkf9RHC0XAJe6uLsytz4ooAGfrGYIEga0KduXtpbHFp jI/W' +
'Flcv77z0i5reyYdJgZIEOBWqokac/NBsWVSZza5sTF50oP9uzZmGD' +
'+WHkIzWFrEO5rcPJFwpZgEExMuys74Kltzp6Ps0dK2umJxObH z//7' +
'NWrL5XIqaeBKeJ2diT+9P13D+8/rTlmqsb5dOfY7vre9z/+MJKdU2' +
'BgOlTILkTG0a45Oy1TMA9PFzaK1mEvqzSYmdIitwQZRDjwqOS SYOZ' +
'E79xoYSqoSfGR/s6NO1qulUXiSL+FLFbDX8DIIjFn9URpvmAd2V2/' +
'++LDlyJk09E8cBygtcEx5GI+OQ/y/OdffgbxK8PRAHAuZEwkoJP4M' +
'FBSxTMRM76JL4wsCdIBUvryI//Lf/5PXlQtaKaNKH9l+farz186uD' +
'GYn6STxI3jkIKsIMiaj/P7L6xfSjlKKqCY2ZORjY8mV3TIR5ClAbX' +
'ViZQaln1pYqMQrRl4bj4OP2rIP+nlyMFFprnezZcfv14rXL6+ vD9i' +
'3fj8xZd3dt/XoqQZdblohap38ocfvneh2nh8PcTs2xq+NjOwkrFW5' +
'ciE47SnWoNUygMjS4CJoE5Zygs9W/2hhV//469qLBs9gE1CNLB2FO' +
'uzZ+DXr778WsdxCbEwlLIPO/stg8R8wBrEdJAIcHpCZhV5iPumpJB' +
'Fmc2H8571vAZ4dmCe+TTxsfJ0X2S65BzyMIpJVX9vdBw4eb5/zcBx' +
'g0HFw3YOyB/gHLWR6+/pGp7om7UK/XxsJVJfUT87Ev+RKNn6vvyg3' +
'xCFMyKRNyCvDswGEoAyZiw9T/afBxWZh7cf87BXq+5oWCAkjya3ib' +
'zj1bme8HjZO+hhZ4OS/Gh2frRrYWloXcOyNXMBJ1GjGQnBlkwnNiz' +
'1WXvPzUu3l0uX3aiyXNnRo/Sffvg2Y61ha5BmB2vQzo71RSd/+eUv' +
'EhS9MHVdj7q2xi5fWLnkFaWUyC7HroSpPzk6kJkYiM8EhcUAu zuhr' +
'C4Mrc1UNobyE+CJgx7hYXAppOQHhzh2bn07bO7SssFLlbNows PIOj' +
'HM24bqvio4pwI+tmMN/YlxKXLvrt59dO+pArl0NLeM+H3AJ0Jkmup' +
'ZAtSfXby0NbvDw9FO0FzSmDd7YW27y1fMRar/0//8n4hYroOLOJ4Y' +
'WQa218GJff7yGxWKfP/m+7X+HZBg17b2fJIE/Cvx+pvIksHBaZA7K' +
'e/79b/59e7m8/fvPxksjeUdfU+ePB6JrgDKZARZEsweIIE1+k4HiZ' +
'9jWIEdSE7fqKd5zq9dtKGcHhWGnWuv/vTyw/ufOhAYgYXzc1fy+hE' +
'TiptRfKq8XjCO/vwf3oBtnlYMlFwjEgwKLUH6SRGMhtnGIh56J5IA' +
'fBLGkoudHgwv/PjmRx3yN5FFwGVM26tJY6kUHHj26GMuTiKoKJPpc' +
'PDwIPJGRTxIWgonHUB7CrH9RuUCBHWRhTqoTzUjdVS4Dx4DBg Dpl7' +
'CUVsa3+lKTfcnx0dJs0dunQg59h1OEJ1SSRA9YO1ox0qkYNi3 HSfJ' +
'62L+goklEJILfpDDwLQ55YKI2BwYkxQZkGOEINMgORAaWNqHI jcs3' +
'9m7d68SU13HruWkYUiGSq9utoCb8stTZlYtF99BIZm6ismjjh IGR9' +
'DxnU1w0SUHJnNZB1sMnWRK9FFlnKusuZubnn3767qdvi6bRhd 4tUF' +
'hamoMEkO065DKgyHRlfTy58vM///jps9dOZmYoPSPDdqBZiiOEJtD' +
'R8OT0wMJAfHpraTuoyJ6d34G9GFgeVbuZj0mErWUp3rIO7CW7 OCTE' +
'tAJuV7GPIOvkehV6A1lMIiRBlWsHkhMKElR5fP8DCllEOqklW EyZr' +
'R3+njB4Os43f/5BUI9zaijXJmrN0pH4xz+/EWPrUdnQXDjoDfyvRF' +
'Ytgu14bm0/2JjYfnzvWVhSVmLVbJOSZARx3CQcwktwgnrkM6DYUvd' +
'OF3vy9tmHS4nLMdrg7uI9DQrpaC7CsbBTEGJaCUaTmgKaAHML Nlzh' +
'3OHr7LTUYGxhZ/K9xzc/vLpxZ3fu/sPdZzPJ82nFoAFFzSgGLKFG/' +
'qpvohacBJ/axUmpCWxJuBI8mo72Zu3isVADFeUmQTxt0lTy8XKArD' +
'dv3lDIkuM4sIaEUEx6hmsgPS1F9levXls7A2JsKBJJgmNrgkb 8kN/' +
'INNV/paghIhAg+KqTiE0KKthUgO4gvwD6BQcGpXj7ehDOTm4MtlN2' +
'jWUt/U5Owi2IE0Wvp6gkwmxDqR4D+SMMoKSKIEtCBQ8B0co2s1UY3' +
'N68YukMwpxgSICnIEFmQ7vHJgxrkUsLLg/dh/+PPG9+eqNkWsTE8S' +
'eTSEi+Q0lmNhqZXo8wHtdVKoGhkCxv5QRJOEXTMI87m3HUw9R oumw' +
'gNMBM0mtoThCtYXGl5BwdTMz2RadkyAFWHDAYbBDm1CKnAflV yDuc' +
'WBjLL+Utw05OXIWcasxplGTQk8iwM6Yu6lBovmfLwU6GFTmAp ASfm' +
'o7QXEEJahmRJGIcUsauPR/bumANgjHPOTBfTwgPMhqxFzrRtjJgkv' +
'7UKPiDl1duU8gC3SHFZAcmgclNIIpXx85ykOb/+n//H2IlmijeBkg' +
'mnEUB0vzl57+K8WGpCHlx6BKccRFmfoMWCxNwNt1JXQ8wMGE/hwgv' +
'W0Psdpx14uI1qMTIqEYu0CngCoH7c3F2r9s41+uaV6KgEQWkJ AtGJ' +
'd9JYArMbxCV4A+CF4MNe5Lu1wInjOUWXr/84vLSHhifNzffzzAnB2' +
'wrn7/+fHvlOji8euQ30PDQIC8MFfJosK4xk3S2ghzuifks+kGlBI3' +
'LRRJYf8Kc8/IyAwRZMC1wmgyfkZZgHMS7aWX8bCcy/Ff/9X+XMldl' +
'5CtEJAJDbZkIeXBepFxCtAZvSzpx7kMpxDoLhgpsQgEOP8pZm KpiE' +
'jkXtOEIMIhQEQvnvnGkDkiqRGYVDoK5QEAZGT7gIkndOsWHJS CpUj' +
'iyTkxAkI1GAeYZFfGJ4FsUfCxjMXm73GUt3fXlyy/FyEL25XXzk6D' +
'+gFxeYcrFS0Q1eQIrrxJZwobMcGmSS8ot2nGRA2ATzlROxB3W 3aA1' +
'gAccvChoTxmOwoHE1hCJUY/bE1KIufiz8H8pTnyQ2D5VhiTAU6kVy' +
'AQ8qcZH5lfj73WDe6UmZh5xkQwqZFZjvvWp8DMBFY5deCmNRs iuFe' +
'GssUVBwKVBLisnDOsBbhEhs4wsiRRvYEoKcX4HFg/OqaET/xHUuoI' +
'EefiHw4MnGoT1yBKx0mHlqlpiDJB1aXmPQpaW5mnqLBlOGdjm B9Z5' +
'yPSf/+//nXDIAbKygR4R0v3881/l+BB1fJxsFYtZ6mKi5lGHetKDZ' +
'g7wMAYXSBgtzQ0gTbmKCXfBrQ4Woz0pT07RZijHaz5tIqzJdI eGq/' +
'5RJ6OraBrPakeymsHJ7HpvfAJo6FbGCpGKTxsJGGNBc6IU6zH wnEA' +
'Hny5Wjve6VcGUp9CXGfFrk5e3rkmRCz7oQZVH+x+MJdbzhjEj ik+U' +
'liZ75inaAgfCWSfMpbyvL2YspLxlOUPLrXsK3JN0Fna1qJQuC 9u6o' +
'LPUEWMekNUXmqd0FkGWuaGzQJBa5wfXwGn9699+TRqqGvKlCp wB16' +
'lp9rgzC+o+bs/Bk8J6tQkOjCfcWb8h5tNFYF9JT1HNtPflRlyqAPw' +
'lbEpVkjXYspZvL6SqVq3Xa45GbUkj35kNVgLadECbLYZ6I7pc KdBf' +
'Dg165Im4teBShLEcpmkLkdpYz5RTHtm9cB2wEDbl5sdW5kdXE 44Co' +
'FWKGQ/OVGfs9PnlqaJv4P7Nx0qAEr8rLM2HpcWlkc2h7NRk98pEfr' +
'kWBW5xOoQROHSQFVYJuLq4sCrlzweMcTijsDVdjvVqOXaSyTU FtV2' +
'90eGoLh9Qd9Uyo1qWQ4Jzu6BAcZQMrJ2YPRuz5RKOvJppo+qX yP8V' +
'IFiywVI+WCtG+vKuWl98LKTMdTm6I7o8nCPFijZhqJocyftrJ V9fN' +
'TScc/aFlNmMu+rgRQS44AdOxBi35WK2QkSfS1iLGVd31FDoS40nrA' +
'WPPAmTy2hGgJWWbZ0eXkh7S0DJZ0+ehQ25lKcCtBoojquYVh6 We7K' +
'm2jo1X1zPFNNJFgkjqy851tRZKuTTYtPLSKw+I0hCOzdU9g/7hV1f' +
'f/OtiNjbFP8AsjL+qhiZGsgCDaIiFaEiEUOdcOWUdNtf/vYXwCkxI' +
'XB8BnQ3WLPgnQHZb9+4C7IOJtGynJO12bix/MGDT8Dws6CEDoW7fe' +
'P3b70/VpwjQAZ3T6HnOdyqcBsS7W7f0LE9YmI8g0DzGyMOmW95bk3' +
'JxFwqxErWdnbuUlxVvn35/axxeHn8jIsbBxEhJpYD2LeFQK0vPQzr' +
'gYUZ2Z6Xn7326aPsuh/0rsiKmZo660cDCutwRpsy6Q0AKwPD2xsbt' +
'6L4F198AYaHHgV0oErowbnB1enKqgGFQLTqUWiyslQMgjpwES/brG' +
'I6pnoX1Qznnb0HZrZfhEweRWJheF2BrPt3H9mEQTEWv0qj0G5 RuGa' +
'GFhUMAwjVrK8KcmlrccfKCoHcABsprE93ectBQ6qc6hFgJxTk hqI3' +
'MxLVF1598iUf6bTEAA5qU/3pkc2F8x3YGgc6W4K6DCx1Y3Ln3MIlP' +
'Yo46dmh+Nxobt4jjwWlOTvKVML9vbHpxYEtryQuJTqah2MgKh ICVc' +
'4MLcA8Hz7+RIC1gF5W5xajQxx1dIbv3ti38wLEfgNxbQGvZ6g wvT5' +
'50UiooUUB8ID6sqNgQ4qJCUeMNP3qFLhUjvt7D41tfqK5HHlf daw6' +
'k/f1yLDOskYN2VpstBoeWxxZh1PWYBUZLMf7tlcvCbE6A7Vlmh9a N' +
'bM9lzavwx4pKZf1VKLmzHjvtJypJ56FFvRCNTH03pV9ODhQdv AYLN' +
'6nSd65ftchDZCoi5DU0Z2eLz6GrP7UmJxEMChkgckKclVGstv ApYt' +
'Dm6DH7157NNuzRpAFhjqsBNeyNpElaUEWZdhEbWmPOm5s8/zy669g' +
'4qowMe2E8Yyg6LdWzosx8SnDyRxW5bemLg93zehQBA40LKncu HQLv' +
'lqIvw5QrORiOSazSf3GTs/rV6990gS1NuzvOIvlVC8bR8JxTSaxk0' +
'2wTgHSPXv0CTiqImSU1wMy4KZp3cpoLTMMf9HTfHrkEiDjVP/CWHW' +
'CSQqA3x1ZCYIsKoJhRGHQyxoaGDwWwjb2oncgKq/O95x5cOOhCvnN' +
'KOFkdvXHpocTi3rUFeL0TEXPBek9dlTMGPpHcrM2VhRMZfALE oYif' +
'Pbu7vvYtaGDUefyK1IZR8+DG4/A3CXlKEZYwMbCWRlNR0IQBnOHL6' +
'rLvf7sC0AifARYAhhMiHS92ZH+3CgfR5Ng48agJpvQl/f3HsuwVxI' +
'CS8/REXfwYs8ef+IRx6RYpVoHUhNi5Hj+/ieb45eNKJXTjvQlJnzS' +
'VFRSAUc1IelPKHoThnJvbMLC8RNnRIWTU8Q3BPM1bO6yCaKPH z/nI' +
'o2ciERS3mYxMhwwybfffC8kUSY9ydoXvUOL/WdVKBZk9cwkzrtRxd' +
'9WTShq/fHJgCRDRDEMS0iTM7cHwMIHTtNjZAFn2j3K+I2L78GCdcg' +
'BszkFsf1bH8T0eQ32ONwAt7Ap6xCEzy9vy7H37YrjNY9dXLsp xx+B' +
'bwfOAbFgPL9+ySL2EPcKF+p4RMlbl+4VXf0ajIIQmJSgBIF0b 978x' +
'MSFT/Ws1qn54pOQBToLkPXw7hM5DiD79HTYPkAbhmeqsJK3Dr348B' +
'MRUQdSjG4l8XfUgCyQKoAs6WFkgb0dMsVVbRaLwB9Qpf7yy59 FxLA' +
'kgtEInw3oY3K6nvLjNMgeUuU3xnancusaFMyaByaq88QqtpDv UrDr' +
'Dgg4U/KoLatjuV+9eAlGMlBe3ebMBEqd+BvlpH5VQlVAUaXsdqlXR' +
'gMhryb1TiANsI8WMqY/fPqxkeEHSWigebVYNJnGajNU5SpBFuNYdd' +
'NJyDLXkfXDjz9oURAHMTDPgNfsUiLnZGklLC1//fIbM0qBqHegTNk' +
'xsbNwI4JG5sMXlyKXQT5cm3gyotsasK0mZQNXN26Dj6BHQTMj EtMW' +
'717ft7ZH4VfwDQF0UU353s2HTl6M8JVZRjO41WEhCRQAP5g7A 1F97' +
'sXz11LQlTi24FDTXep2Cyj0oCVBimHA2DNFDfmErvvhHRCeuB bFjK' +
'IubtLGiX364etKYBCcJqDnWGleglyfPfvq3MIuIMvbXhpNLma MvWl' +
'LT7dtKqMe6otMhBX5WnpoojonwN6ZgjpxIXbiNDFbxi2MffDw IxFW' +
'3HYqvAAKwsD0eiWpr774RoLsoKGAaXt8U8v95zKi8Zng9ojuz Odfv' +
'L6z/lGPcGXctZVSDN29/D745pQTAUa7uS308sVrEDWAShWuGbAFtb' +
'mUrbA8hNUZ6DKPMH1391HSVMTIojnl2Kdz+GWp9+88lGIo+dL mnmp' +
'o5OIqiGsXkVd2A9crIk6xTx+hkAXy3ydL3dp5UPYMG7DtFAP6 5539' +
'fKT/P/7P/60NCXCo5+1ZrWPIovysy8u3P/vs1VzPVkxd0eCYnsMny' +
'tza3Rsrzm9N7cjwTv0KXJ2CkcU/CVn8BrLakQi8IVgtWHpWbjhpL3' +
'3/3Xc8XBCLRS74GiFjQkE3UMgCPoyoixtjl0diK73eub7wtBrkPz Z' +
'XQKqoqFpcEikC0xF/b9peBBl+79ZDEIDFcK+IoI+qVOc0Ytfserky' +
'j1V3hwUUNuHJiCUTMefe/PSm4OkVE+MQTl9QD7/g2CARSidchjruZ' +
'/nAGgzN/+Vvvyz0n8nZBvSYPk57e+zixpW5/vXt2etmlHaivBMVyv' +
'rpgmr67s6jxfTOV4//sr/+2e3zDwa6JlfSu/s3nmRkI+vDlwvmMTh' +
'Q8NC7AyNTlbXBJNABsBZwcpPD+Zmh9OxEZVFJkGXie6xisIeV FGQc' +
'/HBMX3jx4SspCHCaD55J27uj1pyQRCSIAwWPGaP6YkJbfX/vqRxPG' +
'9GicEhW8giSP4DOZYCms+Na5eyUHHlunL97/fwdQJYNZf3s7p3FW1' +
'5WIaGuBHhlJy85mJkquYc6CDdy67EXClnauC3vFSaf7D8TYmS BF2Y' +
'QkRQYqGOPKPXlF9/IkcuM4j5OsWyaun/90ZBt9Zfv/vna0LP9q08G' +
'ElOjjs2XH7/qtkwO+JcncmukgiKQMHabGdGXL141kQVMmLDlferU9' +
'so1MA8wskQpQFaiBVlwEAFV4snD5zIcoA5QyLq8elOBox9+UE MrE2' +
'd59QIDNUmGYmQFpJmbO/dLzmEN1ukRDQrHdd09kdEnj55R1ZK/F1m' +
'9SUpn3Xl4+5kSBULS0mhudnX4wurwdk4/YkRpPU6zps0oBkYsUfFq' +
'yukmyDIcQRYorHYk9JljEpoOQKRjO5U0x0Bm4smjD3hIKcf+j i5kS' +
'isaOgvETlRV2hi6srO6e/3s3Str7ykRHDS4LUYujjmLGrkeAUl74S' +
'BP3Jpfn7pw+9p9IbbGyU2cevkrLsun8iOHr3FRSUx8i8TIc8K 5gK+' +
'xNLz56ScvwJszcfydJNjIqV/VOZYpPh1ZWGf98EaHop6O7GB6eqFv' +
'c3P8UsU5YUN5I8q6UNWHej2o1uuYHzZvPNh90uOeOl+7c25uN yatm' +
'JihnvjISvfOeuXauPfchYVrOhQC3RdRloruwStnbgB7aJG/y1INSn' +
'IpY+XO9X0pDoAbI9Yu6uoTyeXprbxQQlt58fyViBQCucWxO7f u+nQ' +
'JcoVHTQ4LwGWK6AtJbc/zpx8XHSMzxY252sba7NnNuQvOzigJKjpw' +
'RsxU9PBSY13Lb978RYVCcUltpnsNsFCLjFbjQ7CwSnTQLUzkv T3lW' +
'F8nqdU8giw3P/Hy5ec9yZHezFgtNVpLj9ZSI6OV2aAi/9Xn3yiR34' +
'KSBetIlDX00ZMXZcvYeun6rYv3wvKCDWUK6epM6uzV2ftJxui zh5+' +
'oscoGZFVAj7/89HMJspFUGlittpglN1FbqMYGwX42tgWwzrr6CEik' +
'wZWETg2ygYXslEaff/DhIZ21fIMCXSHY8+ThBxycsNAQDwKYSgec6' +
'Zdmb23fn+xeGorNzxa31qbOTPUtbi9f5pE4eRNZ724NNpH16N 5zA4' +
'qbUMyAwOwPgyVjQNnN3t2Ly+9dXtjToyioLRKT0TYiGN2tfha fZDY' +
'pZHksYSkdywTAkZbjAMNgfmR9/86TTnzQ5jBGFk61HCBr+MqVjVta' +
'FH398Ze1yAQV7hBhbhe1lHZICbeYUuYSSOmHd55wSWKreYnpW E6fS' +
'jvSmlebudgjUGlZjkq0v+Cq8ZHByYt+8fmXpQjmk6PIak0Ino 6sH3' +
'/8yYrFTgKIpkdhE0roUXYhc+HW2qOt2o0sZyaEhmrG+Xn/5ee3XkX' +
'RUsU1UnKMMjpoQIesvzuJZgF0o66z711+QMIaATsrDu7hrct3 TIyw' +
'pS2SNFZMKBSUZ25dvOsRx8El9+piQhwkVxBLT2/uDMZ0xRcfvQSju' +
'svaszlzfmF8LWBICes8oz1Alq7nyYOP5MhfdoydW7xUNI9KMH g9Gh' +
'ygBnPCaudHcq4+Jyvx17/9lewlDvZ5Uls9v3TFJ8hlzLWBzNRIeZq' +
'Hw/hKUh8uYeLweIvOEqWO6CywCiidBdagAvksKFG2jsfaR/760z8F' +
'0FSXZGAoPM+TcGGStKPcBdSwbUXoo199+Y0KBcB0TFLIevFai EPru' +
'EjJyPXCF105t8tBKhAIRoYX/CPQWTFDHvwXUqVmSLmL0wPzEX1WjX' +
'WWB5DVHRja290PKXOgg5ZGN3bOXOHi2I6GYmYptqutAUDWzoN aYFK' +
'NQovDWyDryFUL8InAVNM1asgbF89PQhb9VGQ9M6AY7B2GC+VN KLe3' +
'/KTfsvzRg8+CqPfG0j5BnIfyTEFaZv01UKwkNgiyFNeik1vwgCy R2' +
'xbopKuoxJMYafQcFw9pd87s7mxe4SBl2NilpANCDa3W4Exuq+ waB0' +
'X85uc3dlwBZSYl8fJGhpTHwnXdKvjehLmQtlT29wBZuCSDUy9 FPlS' +
'VR2/cqaTKhyitxyL3ZaT4qqMR7IpyaDCsyXCQ4t7tfRWzWYP9O5H1' +
'5g3IYTISDpQ1o9zN5cd5/szzBy/KwoXF6KUR42ZNuzhuvPDg8rOdo' +
'bu35p9cmb8zkdwIyfJdjur5md2FzMUR38a5uSugcUgIwlVw90/3LN' +
'ZCEy5+wiNOqpEnY+vpiY1Ndi+aO312qa+TGMYizBsGO5/ys7DO0uL' +
'iVePMwFLY3CVqpNSpMG+MIOvp/oegC0AOxJTVezcegtOkweFEG5Ue' +
'BSyMFKbEyHr7yoOewIQWO/Lg7HjAANMz3FFThqS8KbQqybV3QVc4D' +
'+Di44OuW4MfPPyQRJXtJHBkwneg2n1ecfqrL74lOitRtU+G0C CIgt' +
'XU7t6ZRzc2Hkym1uOivqita3Pi4oWBvVT78PPHL4ATjCgIOst Ej3z' +
'51ZcxbSHlKA+Xplem1rPhSgdOFuAwrI7u8YgTe1feH8pPRvXZ XKhv' +
'Y+5sb37YKg7wcbmCDQ46Ze4GnXVp+Qb4X2rkFiL9nZv3CLL0D RIZQ' +
'P2BznpvB2/ciGJ21BWSFr/97k9CzKJ2EdEaFLIYJyPrIFN8JJ9Fou' +
'5PQTFhDqGlDSj9/P6LR5c+++L11zMTC8VU5dbZ/ZX+czgfR7ORuJC' +
'h6AdXxfznn39RYlDjFBh1UwkjywrIUpBcm1KMh1rFtIJx/mj/ycLo' +
'ul0cVNBNFLLAwg+r8xtjV+Z7Ngwo1ReecXOyv/4N9KCJpPkUrQYhq' +
'SVQR8x5QNbD21gDEvSJWDTOQeQBb/yggQOzfmWG1454dn3ALHKQK5' +
'BGKtBt5vot/PDMwLJPEybX37DOOnatuDVTfCifNUBigxac4E7aaCn' +
'wTXYX73z14rsPH7w8s3qhGKteGL+1d+5Rj2K5R7H45MZnU64L n975' +
'7nzh0e2NhwPuxdX01Rvz+32uhXMz1yreUQ0OgDjBgPFIY3lP7 dzyd' +
's7Rq8ZqxekRxUO6zN61+0FdmjIFSc4XRydMnX6MrA9fS3FMxq dFdj' +
'Mv6FFHCQrUajbYBgaARlRfSGiqT/c/IsiKB8TZhL4b2JtPyldIyFe' +
'D021tzsH0uJER2L/9VIQjqF4NzU6gZxI3KnAk5O4MA/GdJr9Z5Ybj' +
'FpIa7Lgt5xLEAVlCXMNppsqiYHJdm8crwX6WjBQDhISVvGb84 8efg' +
'7J+/fS7jejde9uPBu0rg6b1Zzc+HY2sDoaW10cuUXEh7GfRoy8/eS' +
'XEFo5VgI1/GQ8HqdTE1tVr6HbQWXeuPYwbilIsjY2klAtn2GWkoAI' +
'+lTZXq6HhZgQD2LXL1y0ilZDwsK4Dl2oAH/qxn7VfC04YsNkWyTv7' +
'RnNLy2ObPJJ6+y2dVa9uatRg1PNZcuQGZD2695TKKNlQKiboX Shcm' +
'CtuDSZmPdJE2BFPy/vOjlwzYOcX519gC4WGzpLVKa8mFoIYSO2zRX' +
'm4ckZK9R8gdQIqbaeNicSfvXh1YfOSmJTZkKi7BcyYtbGduZ4 NcBt' +
'9HcWIrNQTmbj73n4HgSRJJVAlQGDOyQiysuBq3d97CvMTE1TM Jsg6' +
'Gi0/hiy1yLqzcRmQKKt/tUmE9CFzarw6oxc5yDWcE61BWnMeqgYDW' +
'Jrks7r6QxhZJlw3hYnmb68sVS4MeheXhrb8yi6fIp6zDax0XS sJZv' +
'tsC9eW7mTbpnvEyxvlq8AqFydu9+lWsrKxAK98+9I+Dvph1a+ Doe9' +
'wGbmee3v3QbnLcXGFTYMcHmV8+8zV7mR/J87MyklMBssZY6c3pst9' +
'+hHl43tJtQPmaqB/yJQcLI0BTwKywFhK6CtP9j+U46g7LkfJuXvPz' +
'u1U4kMC4sUL6uFTtU+dKPirBU+tJz4oxCLIKqtnW6iktgK4ES GuTe' +
'cNeWJ0xOLgUwBrUB2zZR2C6JNHH3LrNUIakvo0aNtcPmkSdBb 4Ska' +
'siSI9/vGl3nNFxXRBNDPj3/7y86+2J24OGzfS4smErPb+jadKXGDg' +
'1yF3wlQ2MwOvXnzeSXwHKV6nnCrhoLxjBc3iFsXA0kuYchKSh xXje' +
'BS+lMrDD+BaIGCYahiQdVNBakJAB5EnwZFXTPZNu1URKSmJxL HBiw' +
'+qQRBxOHbk6IwGZOmff/6ZhR38OrIaPTGOlWEQSU7dz+KQonT49r7' +
'0BGjJi8u3nj8DsnvNhE+iwt6ceOrK3J2KfTzoim6P7C317JSM U8BF' +
'sDZiqhky/h4B0vzTP/1KsgMG0gME11QzkHB94YyGb2nHhdPSZt0O2' +
'AyaThsbyT548gGxKNSUBRJUZTamLk5VljU4o+pP6as65L1z9d 5k/z' +
'wHCbkHVfEC6npaxJyJ2fL37zwmN/eVJFrecVK1JK0FWQAZXidN+vj' +
'RE6cS7AQ5Eb+49CVsTa/PbbXVmzhxD1zUg45tzEZFLouY0BIQR2FD' +
'zivM9IVmfvrlJz0KmVAEJJKfXS6pZza6rw1HF4OO2FJl+9LMn W75Q' +
'oYz3iUZnS1vTXatmVDWg2p59ZgNFU2oC6yyc4s7Tl6ElAOBgQ cOLH' +
'CvLBfszvgr+g4niezhyiiPNuLWhFzqAKtOUmknyS8YuM6wIfv ZJ+C' +
'JaEnozAZsI0SahKsw3jsds2ZF2OaxhHT5pLEMOgscVS0Np1y9 irhV' +
'ELh/9302EpGeEriMh1SEKtzKSCU+CO5n0lFmI6m4bliqOkl7BIQ6K' +
'119QWeMhkuU8SVQSnhGrV02Yfjpo49IrElD0m24XldJt7ilsa +++h' +
'bUhJ7m0iOvjRkfLy1sjG9rUMKOigXdhBUVbSgfEpQWBtZTxpK GZFV' +
'AVkQNBRPT/enL1x2kbIPf7OxR9+9AMenMAt/dG48C+hSpYlLV+4fg' +
'mLBUQNpfgG1cjQ1uL1+VYATZyJ0pbCGXE33bm5dgtaSEwOaTJ e9cf' +
'VjyDYJDp6MBk1sznopXE99cOsPEvPHWutzGdVSqCQwDCXQ8e3 dqUI' +
'TtYfvf/uOvQVkOfjChsB4l7t3c312/tbd9f6Z3sScz9OL91wsDGxp' +
'c+wcL03bge801NlLu330UsXSR5jxSUhKmkHH1Hn3k3u0HCBcz N2sv' +
'+WS/WOk4VEE+XUvV++k67FFLNuPsvnLuBuxXj1wiZB5KT9KQ8PH7H' +
'3T5SgzSeKdet0mKWhOejEng3r/9kE1q5ygn6zRkUbdmSPsaUFsCpz' +
'o8UZuxij2duGxPsrV0frQ2xaaqXuuN7Bo361ucrJaKXB44FyK 6ti8' +
'3KsM2sO35k4/Hi4s4l4RLHONrIxdA9V/f2psfXOuJju5ffXZr+64D' +
'FS0o5WSlNubPjWbnNcivwZkF/2hubm50WctwC3DGTcUl7bxIHYvUI' +
'HXUsgOkGE9O9bxS8k19xSFCDSqpzSNxOZFDGVC1We/ffh8MOQG2W9' +
'QJZ6EYw0IP/qhl2URYDxq7vGU1zfHo/pMO7F+AvjaAfPBrY0lvfrh' +
'7HMDCqTc9wHW5wJCKNkMhWl2cXLt0dtcm93JwXZ/cqvTOTiyvzq93' +
'tokZ9QaA1LkAASWFUDeYIk8fP29DfBGpyuCTizA6rtUi8L767 EtSM' +
'qonyXQzmLiTvQubUzsqHAoGagTK7uGN+bNeaUJYL6PVAXukPA Vwl1' +
'5/+jkT98Ro9Guqbx9sM4mSYzILXRO980OVCS4SkRYr9VWRvhZAUk n' +
'E0aVjOx/df9yOt6aV00y5SBVYC2TR04fPOkj1rEXod8pixWDv2tQm' +
'BwPWTIW7U67CaP+UUeakk2hzC7JYJ+osEjTjBl3x967dGS6Pj 3bPD' +
'JenwT3cu/pgun9JgyvzAxFR9fG1l73u+Z3FGyF+973t5yFpQYlLKQ' +
'xd/kItN1hJ9Kbd+aQze+vy7Vp2sJDsFTCVYo5manjeYfJOjy0N946 ' +
'qxHoWbmIjqN/+xvUhfLXY0EHHnfEEbar5saWkKxuxpBZG1nrTowCu' +
'8epsNojv5wYMsSs715KhXDvgAsHx8Tro/FpxKO7Jh02xWmE0HS6RA' +
'k585bbtxI6UB13amMQg7FTyDB5beGFqOebLxHxZBdeI8MxC6q 50S4' +
'uetuPIIv/aYdY4drevzQwsjFSmRiozA/mJazu3lyc2bR1BLfKGBZU' +
'nN16WDNOXVm9GhbWl8qXx5JoRSyqvmlQj26SBcqw34crlw90W sY+L' +
's2xKLlWJ2rwKingijoLPkpFMnLBRoSrUSIzt6KAXZRvipMPFa n444' +
'chmAxXQvEC0s8vbpUg1bk/ng6X50SVgbAVdM90/2+UtJpzZ3szQ9P' +
'Ccnm8XkAJ4OAIFV5eKlHpKA+QyOK/RQ0xCgupg5smirszG3NbFC9c' +
'Xp1eDnjgT8UnDh85GPyigP3A4PxsvFlLdMUemJzMwO7ok7zSx cPsj' +
'UdTbtbF0PmxJ9KQGdjYvqrkWCTFipaQ0F4BfSQ4ANWD9Pl2cu CdY0' +
'5EmG5JyqrcvOxBxZnozA33l0Q6aCFZIdRch12x5cp56emzeaw vHrK' +
'nVuS2zwsUkzEZu4Haycd0yd2Z8KebOAYlGu6fGa1PFSHVn4wr wG5B' +
'oqDSSD1VAKdil7rmRBXgG/r42u1WIg4jAeSWqCY9eapsYnnNb/G2k' +
'pwHr5LskdHTQuAke60CIw8bl+lJS8IzLsPlY7eqIbe9RIe983 8bHD' +
'19tjF5QI5+aBJEEuC2ShLSNEpHuZFIG6mzD/R94hM8FdHypjUdDHD' +
'q+ScRrNnMjySY2xTmERPh5GkYN1d9MQqwR3Nmps95mEwyPjjb 8QPM' +
'QeQzcZwAUh4h8KZcILtYJiqYFFNQ1aqrVHgvfQO+k4UkAj3A6 za6q' +
'He0HRDuhFUzjLjbIpU6EVZuAEE1O4YJPyvOUyKJGbnydoWvu0 w9er' +
'wyed7YnqWo3Ga5+pGrd8UVI0ulORExlCbtxr6Rx/YrqkdhJdt0y8E' +
'47G3ea2NR22vBG+NQV4Lb6ccBj+AcYDNKIDwYTf5eog2h8Bu6 KJmL' +
'X28XAz2C6sBmYDXiNxpi8RudDIamul9AQD+HuH3Csnew6pvhU O7h6' +
'L1yEYc7AJBWRjhlc3KCJ2CqEE+BXCXAIuS0rofL4pEGijHQtw wsjd' +
'9Ul9eYhpFcPBy8V999g4g/CuXcQ6UpJPwbV0AYYiU7OAiZHuNFNJ9' +
'XPsMFv7RzMjfCAmOri2FZnWh5FH1gtE+tiBWk3KiRmLTwjYFK NZxs' +
'CDXZNxzzWSXVwOiU2SGu5JE6vU4nMQ9yZpm+IDXgZ8XxlyCbG gLIQ' +
'l1/DOeg2Q2VvqftuopbmYM0hoHrPntijtdG5tHkZR9jcSyttGx2Qm ' +
'o0W2Ufyv+11FXx6L7iWS/GNtr2trb1g8o5mBzP6iYrv0CTNlptUqy' +
'h5K9GoFBIpN6WIZqWuQ5IcurR1a81LSURcHLRQO5aMO+js19r Vttl' +
'eqaUBhYhqYNVyIvwjF6CaUdajx9SgALNxQOT2NK9p7HEOf4rV 8vDh' +
'5wWHnxS0dsM+3EGu3sKOc2iRB+s5fNBNVc4+RoH2g9ZSjS5SR x4g9' +
'7X5RBEfJ1ErfUhzKprgRE5uNi47kL0nVOQeNIim9Ai7bq0dun dGtb' +
'7sJEqEtCjBF1hYdStX0JScLYNzWDcdEL/Z3P5IP97mAo5NdTDnacA' +
'81hz4xIZ+1H4ZLTbhyTMc7lBxIjwZlMvW6Pjd1uxudIxoIKPk 5CpE' +
'nWiNziGgFjmHt8ZqXUCz7WfjPSn4u1gtvS+o9wLQWxrVNgjIq muxO' +
'nd1HDmU5r3dxveyD7fiPETelsa/FCO1zsBpdD+rP3xkJZTYaTaobK' +
'Fw+5G7w61yo2XyZiPZ1laH7a0dL5sq4/j3NvmtSaVmq/zGAii0Ck6' +
'hTyuJmCeSqKXf5in9PBsv5miYhYde0NBitlFWioDcaaUaV7Z2 Rfvt' +
'cbjj+tFO4IzDKHv7JM2XShxGWesbE05vxt6QM60v+2idvKWT7 Vs6R' +
'bc2ymYcoRuz8S6Ghn/NbyHaCYq79dvf8tqatw/a4dcfHIfJ28exjt' +
'lH2k0zWad/8MjDx1byTl99fP7Wt4ccf+D4e1WOvOzmeKfZY5P8DhK' +
'd3on9re/UaFlA60uFDusUekOpcVgNecI6eiLH30Z04mi8Agwz+XFG' +
'an3R0mkN0t8y3uHVV4fe9XN8vNubJloS0PTfIFobIVqzMXUrf k/59' +
'tYtnNDc+3iv75NP8K3jXd5oc7Sje/PFVYdfyNV8+9uJb8Q7QQjQ/1' +
'4BchIvveWVT+2NBukH76Gjncpgv5fl3vmNJG+lSfMFZ9Qg2Pl dFPi' +
'tl5gcdJn7rb2c3En+73q9zqEXPjJ+x2tWDmZ4C0Lb6ScQ7VAb tBP2' +
'8ru+/XSwv/OhtB1aw98z+fFX/NAaEx576+LRGd5ylO8gT05Y4RFiH' +
'ukL+pY3JP4W3/6rHdBpL0F4Z6T8lzZOfXPEkZP6F5/OH+P/h4P2r/' +
'bGuv+ixh9E+2P8Mf4Yf4x/wfj/AEvH8eg=')

TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 40, 100); //The 40 & 100 is the X/Y of where the image will be printed
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;

procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;

procedure ReportSmart;
begin
ReportScreen(['P1nkys PowerChopper', '', 'Worked For ' + TimeRunning, '', 'Chopped ' + IntToStr(TreesChopped), '', 'Dropped(by loads) ' + IntToStr(Dropper)], Point(350, 223), 255);
end;

procedure BurnSmartReport;
begin
{ ReportScreen(['P1nkys Chopper & Burner'], Point(5, 310), 255);
ReportScreen (['Worked For ' + TimeRunning],Point(165, 310), 255);
ReportScreen (['Chopped ' + IntToStr(TreesChopped)],Point(320, 310), 255);
ReportScreen (['Burned ' + IntToStr(Burned)],Point(400, 310), 255); }
ReportScreen(['P1nkys Chopper & Burner',
'',
'Worked For ' +TimeRunning,
'',
'Chopped ' +IntToStr(TreesChopped),
'',
'Burned ' + IntToStr(Burned)],
Point(350,223),255);
end;

procedure ActReport(Activity: string);
begin
end;

procedure Report;
var
Answer, WC: Integer;
begin
Grats;
WC := GetSkillInfo('Woodcutting', true);
Answer := (WCLVL - WC);
cleardebug;
SRLRandomsReport;
ReportSmart;
Writeln('||===========================||');
Writeln('|| P1nkys Draynor ||');
Writeln('||===========================||');
Writeln('|| ' + TheDate(Date_Formal) + ' ||');
Writeln('||===========================||');
Writeln(' Worked For ' + TimeRunning);
Writeln(' Chopped ' + IntToStr(TreesChopped));
Writeln(' Dropped(by loads) ' + IntToStr(Dropper));
Writeln(' Broken Axes ' + IntToStr(Axe));
Writeln(' Leveled ' + IntToStr(Answer));
Writeln(' Sleeped ' + IntToStr(Sleeper));
Writeln(' WoodCutting level ' + IntToStr(WCLVL));
Writeln('||===========================||');
Writeln('||==== By P1nky ====||');
Writeln('||===========================||');
Writeln('||===========================||');
Writeln('||=====DESTROY THE TREES=====||');
Writeln('||===========================||');
begin
// Stats_Commit;
Disguise('P1nky PowerChopper ' + TimeRunning);
ActReport('Break in Approx:');
Debugged := Debugged + 1;
if TakeBreaks then
if Debugged > 5 then
begin
Writeln(IntToStr(Loads - Loads1) + ' Loads Left Until Sleep.');
Debugged := 0;
end;
end;
case LowerCase(Players[CurrentPlayer].Strings[1]) of
'Oaks', 'oaks', 'Oak', 'oak': Writeln('Chopping Oaks');
'Willows', 'Willow', 'willows', 'willows': Writeln('Chopping Willows');
'Tree', 'tree', 'Trees', 'trees': Writeln('Chopping Regular Trees');
end;
end;

procedure FireReport;
var
Answer, WC: Integer;
begin
Grats;
cleardebug;
SRLRandomsReport;
BurnSmartReport;
//PrintOnSmart([''],Point(45, 310), 255);
Writeln('||===========================||');
Writeln('|| P1nkys FireChopper ||');
Writeln('||===========================||');
Writeln('|| ' + TheDate(Date_Formal) + ' ||');
Writeln('||===========================||');
Writeln(' Worked For ' + TimeRunning);
Writeln(' Chopped ' + IntToStr(TreesChopped));
Writeln(' Burned ' + IntToStr(Burned) + ' logs ');
Writeln('||===========================||');
Writeln('||===========================||');
Writeln('||===========================||');
begin
// Stats_Commit;
end;
end;

procedure GoodNight;
var
l, s, Time: integer;
begin
l := RandomRange(5, 7);
s := l;
Status('Sleeping');
MarkTime(Time);
Sleeper := Sleeper + 1;
repeat
Disguise('Sleeping For ' + IntToStr(l) + ' minutes');
Writeln('Break Time: ' + IntToStr(l) + ' minutes left until Login.');
Wait(1000 * 60 * 1);
l := l - 1;
until (TimeFromMark(Time) > 1000 * 60 * s);
if not (LoggedIn) then
NextPlayer(true);
LoginPlayer;
end;

function FindWillows: Boolean;
var
TreeColors: array [0..3] of integer;
TreeTPA: TPointArray;
RandomOption, Chill, a, I: Integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
SetAngle(1);
RandomButton;
Setangle(1);
repeat
if FindObj(x, y, 'Chop', 1910310, 1) or FindObj(x, y, 'down', 1910310, 1) or FindObj(x, y, 'Willow', 3096126, 20) then
Report;
FindRandoms;
MMouse(x, y, 0, 0);
if WaitupText('Chop down', 545) then
begin
Mouse(x, y, 0, 0, true);
end;
Chopped := Chopped + 1;
wait(1675 + random(654)) Fflag(0);
writeln('Success Finding Willow');
FindNormalRandoms;
if AntiBan then
begin
MyAntiBan;
RandomButton;
end;
begin
FindRandoms;
Grats;
if Chopped = 5 then
begin
Writeln('Cant find any Willows - checking every angle!');
RandomButton;
RandomCompass;
end;
end;
until (Invfull);
end;

function FindOaks: Boolean;
var
TreeColors: array [0..3] of integer;
TreeTPA: TPointArray;
Chill, a, I: Integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Setangle(1);
repeat
if FindObj(x, y, 'Oak', 2441301, 15) or FindObj(x, y, 'Oak', 2441301, 15) or FindObj(x, y, 'Oak', 2441301, 15) or FindObj(x, y, 'Oak', 1261120, 1) or FindObj(x, y, 'Tree', OakColor, 1) then
Report;
FindRandoms;
MMouse(x, y, 0, 0);
if WaitupText('Chop down', 545) then
Mouse(x, y, 0, 0, true);
Chopped := Chopped + 1;
wait(3477 + random(1001)) Fflag(0);
writeln('Success Finding Oak');
if AntiBan then
begin
MyAntiBan;
RandomButton;
end;
begin
FindRandoms;
Grats;
if Chopped = 5 then
begin
Writeln('Cant find any Oaks - checking every angle!');
RandomButton;
end;
end;
if not FindSymbol(x, y, 'fish') then
begin
end;
until (Invfull);
end;

procedure RegularTreeBan;
var
NoBan: Integer;
begin
FindRandoms;
Grats;
Noban := Random(18);
case Move of
0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
5: RandomRclick;
10: setangle(1)
end;
end;

function FindTrees: Boolean;
var
TreeColors: array [0..3] of integer;
TreeTPA: TPointArray;
Chill, a, I: Integer;
begin
if (not (loggedin)) then
Exit;
Setangle(2);
repeat
if FindObj(x, y, 'Tree', 3359565, 1) or FindObj(x, y, 'Tree', 3359565, 1) or FindObj(x, y, 'Tree', RegTreeColor, 1) then
Report;
FindRandoms;
MMouse(x, y, 0, 0);
if WaitupText('Chop down', 545) then
Mouse(x, y, 0, 0, true);
Chopped := Chopped + 1;
wait(1500 + random(1001)) Fflag(0);
writeln('Success Finding Regular Tree');
report;
if AntiBan then
begin
RegularTreeBan;
RandomButton;
end;
begin
FindRandoms;
Grats;
if Chopped = 5 then
begin
Writeln('Cant find any Regular Trees - checking every angle!');
RandomButton;
end;
end;
if not FindSymbol(x, y, 'fish') then
begin
end;
until (Invfull);
end;

procedure PinkyBAN;
var
DBanMe: Integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
DBanMe := Random(12);
case DBanMe of
0: PickUpMouse;
1: GameTab(1 + Random(33));
2: DoEmote(1 + Random(75));
3: RandomRclick;
5: RandomButton;
7: ChooseOption('cancel');
8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
9:
begin
HoverSkill('woodcutting', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
ChooseOption('Cancel');
RandomButton;
MMouse(Random(MSY1), Random(MSX1), 0, 0);
end;
10:
begin
GameTab(1 + Random(13));
wait(1000 + Random(600));
gametab(4);
RandomButton;
ChooseOption('Cancel');
setangle(2);
end;
11:
begin
HoverSkill('random', false);
sleepandmovemouse(200 + Random(100));
gametab(4);
RandomButton;
ChooseOption('Cancel');
setangle(2);
end;
end;
end;

procedure SmartDrop;
var
logdtm: integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Writeln('using Dtm (smart way) slower though but more accurate');
logdtm := DTMFromString('78DA63CC63626078C880029A536D18FE036 94' + '620FE0F048C054035EF18D000231209A463816A9E13509301 5473' + '87809A3222D45413B60B0046720E26');
gametab(4);
repeat
if finddtm(logdtm, x, y, 550, 203, 731, 464) then
begin
Mouse(x, y, 3, 3, false);
begin
wait(random(400) + 100);
chooseoption('Drop');
wait(1200 + random(1000));
{ case LowerCase(Players[CurrentPlayer].Strings[1]) of
'tree': ReportVars[4] := ReportVars[4] + 28;
'oak': ReportVars[5] := ReportVars[5] + 28;
'willow': ReportVars[6] := ReportVars[6] + 28;
'all': ReportVars[7] := ReportVars[7] + 28; }
//end;
end;
end;
until (not (finddtm(logdtm, x, y, 550, 203, 731, 464)));
freedtm(logdtm);
begin
Dropper := Dropper + 1;
TreesChopped := TreesChopped + 27;
report;
FindRandoms;
Report;
end;
end;

procedure FIREFIREFIRE;
begin
end;

function SetDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 688;
dtmMainPoint.y := 195;
dtmMainPoint.AreaSize := 2;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 3757408;
dtmMainPoint.Tolerance := 10;
dtmSubPoints[0].x := 688;
dtmSubPoints[0].y := 195;
dtmSubPoints[0].AreaSize := 2;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 3757408;
dtmSubPoints[0].Tolerance := 10;
dtmSubPoints[1].x := 691;
dtmSubPoints[1].y := 182;
dtmSubPoints[1].AreaSize := 2;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 8751242;
dtmSubPoints[1].Tolerance := 10;
dtmSubPoints[2].x := 697;
dtmSubPoints[2].y := 193;
dtmSubPoints[2].AreaSize := 2;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 2308154;
dtmSubPoints[2].Tolerance := 10;
dtmSubPoints[3].x := 678;
dtmSubPoints[3].y := 187;
dtmSubPoints[3].AreaSize := 2;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 9014414;
dtmSubPoints[3].Tolerance := 10;
dtmSubPoints[4].x := 685;
dtmSubPoints[4].y := 185;
dtmSubPoints[4].AreaSize := 2;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 9014414;
dtmSubPoints[4].Tolerance := 10;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

function SETDTMOAK: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..5] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 919;
dtmMainPoint.y := 182;
dtmMainPoint.AreaSize := 3;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 732210;
dtmMainPoint.Tolerance := 10;
dtmSubPoints[0].x := 919;
dtmSubPoints[0].y := 182;
dtmSubPoints[0].AreaSize := 3;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 732210;
dtmSubPoints[0].Tolerance := 10;
dtmSubPoints[1].x := 919;
dtmSubPoints[1].y := 187;
dtmSubPoints[1].AreaSize := 3;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 2177591;
dtmSubPoints[1].Tolerance := 10;
dtmSubPoints[2].x := 921;
dtmSubPoints[2].y := 180;
dtmSubPoints[2].AreaSize := 3;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 1860415;
dtmSubPoints[2].Tolerance := 10;
dtmSubPoints[3].x := 922;
dtmSubPoints[3].y := 177;
dtmSubPoints[3].AreaSize := 3;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 1467183;
dtmSubPoints[3].Tolerance := 10;
dtmSubPoints[4].x := 915;
dtmSubPoints[4].y := 181;
dtmSubPoints[4].AreaSize := 3;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 934168;
dtmSubPoints[4].Tolerance := 10;
dtmSubPoints[5].x := 916;
dtmSubPoints[5].y := 179;
dtmSubPoints[5].AreaSize := 3;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 1202463;
dtmSubPoints[5].Tolerance := 10;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

function SpotC: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 690;
dtmMainPoint.y := 197;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8752521;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 690;
dtmSubPoints[0].y := 197;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8752521;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 689;
dtmSubPoints[1].y := 190;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 2570808;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 690;
dtmSubPoints[2].y := 202;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 8028798;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 684;
dtmSubPoints[3].y := 197;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8752521;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 697;
dtmSubPoints[4].y := 197;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8752521;
dtmSubPoints[4].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

function SPOTD: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 595;
dtmMainPoint.y := 208;
dtmMainPoint.AreaSize := - 1;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8753038;
dtmMainPoint.Tolerance := 15;
dtmSubPoints[0].x := 595;
dtmSubPoints[0].y := 208;
dtmSubPoints[0].AreaSize := - 1;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8753038;
dtmSubPoints[0].Tolerance := 15;
dtmSubPoints[1].x := 595;
dtmSubPoints[1].y := 199;
dtmSubPoints[1].AreaSize := - 1;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 2571581;
dtmSubPoints[1].Tolerance := 15;
dtmSubPoints[2].x := 595;
dtmSubPoints[2].y := 220;
dtmSubPoints[2].AreaSize := - 1;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 3100246;
dtmSubPoints[2].Tolerance := 15;
dtmSubPoints[3].x := 582;
dtmSubPoints[3].y := 203;
dtmSubPoints[3].AreaSize := - 1;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8753038;
dtmSubPoints[3].Tolerance := 15;
dtmSubPoints[4].x := 605;
dtmSubPoints[4].y := 208;
dtmSubPoints[4].AreaSize := - 1;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8753038;
dtmSubPoints[4].Tolerance := 15;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

function SPOTDD: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 655;
dtmMainPoint.y := 219;
dtmMainPoint.AreaSize := 2;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8948109;
dtmMainPoint.Tolerance := 18;
dtmSubPoints[0].x := 655;
dtmSubPoints[0].y := 219;
dtmSubPoints[0].AreaSize := 2;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8948109;
dtmSubPoints[0].Tolerance := 18;
dtmSubPoints[1].x := 657;
dtmSubPoints[1].y := 226;
dtmSubPoints[1].AreaSize := 2;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 15920881;
dtmSubPoints[1].Tolerance := 18;
dtmSubPoints[2].x := 655;
dtmSubPoints[2].y := 211;
dtmSubPoints[2].AreaSize := 2;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 2766396;
dtmSubPoints[2].Tolerance := 18;
dtmSubPoints[3].x := 644;
dtmSubPoints[3].y := 216;
dtmSubPoints[3].AreaSize := 2;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8948109;
dtmSubPoints[3].Tolerance := 18;
dtmSubPoints[4].x := 663;
dtmSubPoints[4].y := 212;
dtmSubPoints[4].AreaSize := 2;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 15724793;
dtmSubPoints[4].Tolerance := 18;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

procedure LightTime;
var
l, s, Time: integer;
begin
l := RandomRange(1, 2);
s := l;
Status('Fire Should Be Extinguised');
MarkTime(Time);
repeat
Wait(1000 * 60 * 1);
l := l - 1;
until (TimeFromMark(Time) > 1000 * 60 * s);
if not (LoggedIn) then
NextPlayer(true);
LoginPlayer;
end;

procedure WalkOut;
begin
Writeln('.');
Status('Going below Oak');
MakeCompass('N');
SetAngle(0);
DTM1 := SetDDTM;
if DTMRotated(DTM1, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, True);
wait(3000);
FLAG;
if FindSymbol(x, y, 'water') or FindSymbol(x, y, 'quest') or FindSymbol(x, y, 'staff shop') then
wait(3464);
if RadialRoadWalk(8686993, 87, 86, 68, 1, 1) then
flag;
exit;
end;

procedure LeftOverLogs;
begin
if FindObj(x, y, 'Oak', 3564412, 1) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, False);
ChooseOption('ake Oak');
end;

procedure Fail;
begin
if FindSymbol(x, y, 'quest') then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, true);
if FindSymbol(x, y, 'water') then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, true);
WALKOUT;
end;

procedure FireProblem;
begin
if IsChatBoxTextBetween('light a fire', clBlack, 8, 8) then
FAIL;
exit;
end;

procedure WalkIn;
begin
MakeCompass('N');
Writeln('Finding Route to Oak');
Status('Going to Oak');
DTM2 := SETDTMOAK;
if DTMRotated(DTM2, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, True);
wait(500);
FLAG;
MakeCompass('N');
SetAngle(2);
end;

function VarrokOaks: Boolean;
var
TreeColors: array [0..3] of integer;
TreeTPA: TPointArray;
Chill, a, I: Integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
begin
Status('Chopping Oaks');
Makecompass('S');
KeyDown(VK_up);
wait(Random(123) + 170);
KeyUp(VK_up);
end;
repeat
if not FindObj(x, y, 'Oak', 1384994, 1) or FindObj(x, y, 'Oak', OakColor, 1) then
begin
FailFind := FailFind + 1;
result := false;
end
else
result := true;
FireReport;
FindRandoms;
MMouse(x, y, 0, 0);
if WaitupText('Chop down', 545) then
Mouse(x, y, 0, 0, true);
Chopped := Chopped + 1;
wait(3477 + random(1001)) Fflag(0);
writeln('Success Finding Oak');
if AntiBan then
begin
MyAntiBan;
end;
begin
FindRandoms;
Grats;
if FailFind = 2 then
begin
Walkin;
end;
if Chopped = 5 then
begin
Writeln('Cant find any Oaks - checking every angle!');
RandomCompass;
end;
end;
until (InvFull);
end;






procedure Arsonist;
var
l, s, Time, I, K: integer;
begin
SetAngle(0);
l := RandomRange(2, 3);
s := l;
MarkTime(Time);
K := 0;
FindRandoms for I := 1 to 25 do
begin
if ExistsItem(I) then
begin
invmouse(I, 0);
wait(RandomRange(700, 100));
WaitOptionMulti(['ight', 'ght', 'Light'], 1500);
// ChooseOption('Ligh');
Wait(RandomRange(1000, 1000));
Status('Fire Should Be Extinguised');
l := l - 1;
FireReport;
end;
end;
end;


procedure WalkFar;
begin
Writeln('...');
Status('Going to Far End');
MakeCompass('N');
SetAngle(0);
DTM3 := SPOTD;
if DTMRotated(DTM3, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, True);
FLAG;
end;

procedure WalkTowardsFar;
begin
Writeln('...........');
Status('Going to Far End');
MakeCompass('N');
SetAngle(0);
Writeln('Going Toward Far');
DTM4 := SPOTDD;
if DTMRotated(DTM4, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, True);
FLAG;
wait(5000);
end;

procedure SpotClight;
begin
Writeln('..');
MakeCompass('N');
Status('Going Near Arrow Shop');
SPOTCDTM := SpotC;
if DTMRotated(SPOTCDTM, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, True);
Flag;
end;

function SpotB: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 728;
dtmMainPoint.y := 186;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8618626;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 728;
dtmSubPoints[0].y := 186;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8618626;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 734;
dtmSubPoints[1].y := 192;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 2438453;
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 728;
dtmSubPoints[2].y := 192;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 2438453;
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 722;
dtmSubPoints[3].y := 187;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 9079177;
dtmSubPoints[3].Tolerance := 5;
dtmSubPoints[4].x := 723;
dtmSubPoints[4].y := 180;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 9079177;
dtmSubPoints[4].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

{procedure WalkToSpotA;
var
Spot1: TPointArray;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['11_7']);
Writeln('Walking to Spot 1');
Spot1 := [Point(10, 135), Point(20, 134)];
Flag;
MakeCompass('S');
Setangle(True);
end;

procedure WalkToSpotB;
var
Spot2: TPointArray;
begin
MakeCompass('N');
begin
if RadialRoadWalk(8949387, 87, 86, 68, 1, 1) then
flag;
exit;
end;
SPS_Setup(RUNESCAPE_SURFACE, ['1_0']);
Spot2 := [Point(434, 238), Point(423, 239)] if (SPS_WalkPath(Spot2)) then
Flag;
MakeCompass('S');
Setangle(True);
end;}

procedure SPOT;
begin
MakeCompass('N');
DTMSPOT := SpotB;
if DTMRotated(DTMSPOT, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, True);
end;

procedure FastDrop;
var
i: Integer;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
Writeln('Using Fast Dropping');
if not (LoggedIn) then
Exit;
GameTab(4);
for i := 2 to 28 do
begin
if ExistsItem(i) then
DropItem(i);
end;
begin
Dropper := Dropper + 1;
Loads1 := Loads1 + 1;
TreesChopped := TreesChopped + 27;
report;
FindRandoms;
Report;
if TakeBreaks then
if Loads1 > Loads then
begin
writeln('Going to Sleep');
Logout;
GoodNight;
Loads1 := 0;
end;
end;
end;

function PlanB: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 664;
dtmMainPoint.y := 202;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8752521;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 664;
dtmSubPoints[0].y := 202;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 15201007;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 667;
dtmSubPoints[1].y := 199;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 15201007;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 665;
dtmSubPoints[2].y := 207;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 8752521;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 667;
dtmSubPoints[3].y := 202;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8752521;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 660;
dtmSubPoints[4].y := 203;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8752521;
dtmSubPoints[4].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

procedure SECOND;
begin
MakeCompass('N');
PLANBB := PlanB;
if DTMRotated(PLANBB, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(1500);
Mouse(x, y, 0, 0, True);
Flag;
exit;
end;

procedure SymbolWalk;
begin
if findsymbol(x, y, 'water') or findsymbol(x, y, 'fur trader') then
mmOuse(x, y, 0, 0);
wait(500);
Mouse(x, y, 0, 0, true);
wait(3430);
FFlag(0);
end;

function SPOTe: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array [0..3] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 730;
dtmMainPoint.y := 218;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 1261931;
dtmMainPoint.Tolerance := 15;
dtmSubPoints[0].x := 730;
dtmSubPoints[0].y := 218;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 1261931;
dtmSubPoints[0].Tolerance := 15;
dtmSubPoints[1].x := 723;
dtmSubPoints[1].y := 217;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 2833725;
dtmSubPoints[1].Tolerance := 15;
dtmSubPoints[2].x := 724;
dtmSubPoints[2].y := 213;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 2833725;
dtmSubPoints[2].Tolerance := 15;
dtmSubPoints[3].x := 728;
dtmSubPoints[3].y := 213;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 3764813;
dtmSubPoints[3].Tolerance := 15;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;

procedure THIRD;
begin
MakeCompass('N');
E := SPOTe;
if DTMRotated(E, X, Y, MMX1, MMY1, MMX2, MMY2) then
MMouse(x, y, 0, 0);
wait(1500);
Mouse(x, y, 0, 0, True);
Flag;
exit;
end;

procedure FreeDTMS;
begin
FreeDTM(SPOTe);
FreeDTM(PlanB);
FreeDTM(SpotB);
FreeDTM(SetDTMOak);
FreeDTM(SpotD);
FreeDTM(SpotC);
FreeDTM(SetDDTM);
end;




procedure Test;
begin
repeat
Status('Testing');
WalkOut;
WalkTowardsFar;
until (false);
end;

procedure PinkyFireMaking;
begin
repeat
FreeDTMS;
SetRun(true);
begin
FindRandoms;
WalkIn;
VarrokOaks;
begin
WalkOut;
begin
WalkTowardsFar;
end;
begin
FindRandoms;
Arsonist;
TreesChopped := TreesChopped + 25;
stats_IncVariable('Oak Logs Chopped',TreesChopped);
Burned := Burned + 25;
stats_IncVariable('Oak Logs Burned',Burned);
SymbolWalk;
wait(3500);
WalkIn;
wait(3500);
end;
end;
end;
until (false);
end;

procedure PinkyPowerChopper;
begin
if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
NextPlayer(false);
if (invfull) then
begin
case (DropType) of
'Smart': SmartDrop;
'Fast': FastDrop;
end;
TreesChopped := TreesChopped + 27;
report;
end;
end;

begin
if not DoYouLoveSRL then
begin
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
wait(500);
writeln('Sorry. Terminating Script. Love SRL or GTFO.');
TerminateScript;
end;
begin
Disguise('P1nky PowerChopper & Burner - Since 2007 - Version C');
ClearDebug;
ClearReport;
Smart_Server := 17;
Smart_Members := false;
Smart_Signed := true;
Smart_SuperDetail := false;
case DoWhatToLogs Of
'Burn' , 'burn' , 'fire':
if (SRLStats_Username = '') then
SetupSRLStats(486, 'Anonymous', 'anon1337')
else
SetupSRLStats(486, SRLStats_Username, SRLStats_Password);
'drop' , 'Drop' :
if (SRLStats_Username = '') then
SetupSRLStats(485, 'Anonymous', 'anon1337')
else
SetupSRLStats(485, SRLStats_Username, SRLStats_Password);
end;
SetupSRL;
declareplayerz;
LoginPlayer;
Dropper := 0;
TreesChopped := 0;
Burned := 0;
WCLVL := GetSkillInfo('Woodcutting', true);
repeat
case DoWhatToLogs of
'Burn', 'burn', 'fire': PinkyFireMaking;
'drop', 'Drop': PinkyPowerChopper;
'test', 'Test': Test;
end;
case LowerCase(Players[CurrentPlayer].Strings[0]) of
'Oaks', 'oaks', 'Oak', 'oak': FindOaks;
'Willows', 'Willow', 'willows', 'willows': FindWillows;
'Tree', 'tree', 'Trees', 'trees': FindTrees;
end;
if (InvFull) then
begin
FastDrop;
end;
until (false);
end;
end.

Pierre14
12-24-2007, 08:23 AM
from what i can see Great job i used it a little to get up to 60 wc!! thanks

Exaligo I
12-24-2007, 12:22 PM
Not bad. Good work P1nky. It's a decent script, it works, lol.

Good to see your standards sorted out. Remember, you need to get into a good habit now so that you won't end up in trouble later on.

Anyway, here's my proggy:
||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 19 Minutes and 30 Seconds
Chopped 113
Dropped(by loads) 4
||===========================||
||====P1nkys FIRST SCRIPT====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||

Hope I could be of help!

P1nky
12-24-2007, 04:37 PM
why thank you =D
yeah im not too good with standards but ill try to learn (lazy) im making a willow/banker/powerchopper and a huge ass anti-ban =D/random chat

Master Duckling
12-24-2007, 05:39 PM
Nice, but it does not run away from randoms for me :S

P1nky
12-24-2007, 05:46 PM
yeah i noticed that too ima have to make a update for that soon =D

thanks dude just post proggies please

P1nky
12-24-2007, 05:51 PM
alritey redownload v.1 i just added more finding randoms..

but , i wont release my other script its not ready to be released its really nice though =D

Lee Lok Hin
12-25-2007, 02:17 AM
Only two proggies? O.o

I will use this on my VM for 1 hour, see how it goes

Be Back in a hour

*Goal in life is to get the best proggie of a script. I tried it with forefeathers o.O :p*

Okay, wait a bit

EDIT:


for i := 2 to 28 do
begin
if ExistsItem(i) then
DropItem(i);
end;

Im not a really good scripter, but cant you put


for i :=2 to 28 do
begin
if existsItem(i) and {shrugs, dont really know how to code} if (IsUpText('og'))
then dropitem(i);
end


EDIT number 2!!!

When do they switch players?

P1nky
12-25-2007, 02:19 AM
why thank you -=D

Lee Lok Hin
12-25-2007, 03:04 AM
||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 26 Minutes and 40 Seconds
Chopped 108
Dropped(by loads) 4
||===========================||
||====P1nkys FIRST SCRIPT====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||

Repeat: When does it change players

and at 26 minutes, it lagged like hell, so i stopped the script, and it stopped lagging

strange...

ill try again

When does it switch players? XD

Timer
12-25-2007, 03:09 AM
goes to a next player when one is forced out, by lagging or sumthing..

and p1nky, u still didn't gime creadits on main post for doing srl stats for uuuuuu lol

Lee Lok Hin
12-25-2007, 03:26 AM
Okay

Somehow, everytime it cant find a tree, it starts lagging. And i mean lagging

Runescape basically froze

hmm?

i got niles, got teled to wizzys tower, it didnt spot that random

couldnt find a tree, and started lagging like mad again

P1nky
12-25-2007, 04:17 AM
use High Details if not that than use LOW!

and timer sorry i will asap i update my script big

MasterSparta
12-26-2007, 04:00 PM
It works fine. I ran it for about an hour.

P1nky
12-26-2007, 06:03 PM
ok thanks ill appreciate if you just post proggies

im stalling my new update =)

Paradox King
12-26-2007, 08:58 PM
I've fallen in love with this, great job :)

P1nky
12-26-2007, 10:07 PM
Lol well yeah i would appreciate if YOU POST PROGGIES

TheChineseMan
12-28-2007, 09:25 AM
good work but after my guy drops the willows it jsut stops and does nothing and also after my guy has cut like 2 trees it just stays there and do nothing help please! really good script though

P1nky
12-28-2007, 06:12 PM
wow really... um im going to have to test this than... i havent used my script for a 1 month so yeah lol.. ill try to fix it and see if this happening to me if not idk

Naum
12-28-2007, 07:43 PM
Dont wrry P1nkster ill update it fo ya!!!

P1nky
12-29-2007, 12:16 AM
nty you can help though =D

Naum
12-29-2007, 12:29 PM
it has a loop?

z0mg D0es it????

Well duh genious.

P1nky
12-29-2007, 06:16 PM
lol yes it does... every script needs one ( its ok i know you are starting scripting)

P1nky
01-01-2008, 05:33 AM
ok EVERYONE PLEASE TELL ME THE BUGS SO I CAN UPDATE!

minimo11
01-01-2008, 10:48 AM
mine for some reason just simply wont work

minimo11
01-01-2008, 10:50 AM
do u need srl4 for the script

P1nky
01-01-2008, 05:40 PM
yes DAH lol anything else?

x-x-umbra-x-x
01-10-2008, 10:56 PM
||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 3 Seconds
Chopped 0
Dropped(by loads) 0
||===========================||
||====P1nkys FIRST SCRIPT====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
catmandoo256
Successfully executed

it wont click on anything, it just logs on and does nothing

P1nky
01-11-2008, 04:07 AM
oh ok ( havent updated it because no one used since u want to use ill update it for you hehe )

thanks

x-x-umbra-x-x
01-11-2008, 10:38 PM
.ok thanks, but if ur busy on ur team script don't worry about it.

P1nky
01-11-2008, 10:44 PM
the script is working for me/though ill update it a bit/

i think i know the problem
USE HIGH DETAIL
AND WHAT TREE YOU USINg to cut

x-x-umbra-x-x
01-13-2008, 02:46 AM
oh ok il try that thanks

Pur3 x mage7
01-13-2008, 02:51 AM
nice nice had probs in the beginning but now its fine.

P1nky
01-13-2008, 05:30 AM
it solves them

hope yall post proggies so i can see if its still good... (ill update if not)

@ stano what u mean update to allow 2 axes?

ShowerThoughts
01-13-2008, 10:33 AM
p1nky, do i need to (try) make it work for low details?

woodjedi
01-13-2008, 07:17 PM
didnt work so good for me... didnt chop any trees but good script without that xD

P1nky
01-13-2008, 07:28 PM
high detail?
or try low

scar 3.12c

P1nky
01-22-2008, 04:47 AM
~~~~~~~~~~~~~~~~UPDATED TO REV #10~~~~~~~~~~~~~~~~

nothing new but just updated for the people who would uses this script still

thanks


BTW NEXT UPDATE WILL BLOW YOUR ASS AWAY! 300 to 1.5k+lines !

with over 4 options!

get ready soon

P1nky
01-23-2008, 02:23 AM
lol thanks

hope to see you post a proggie

MasterOfStuff
01-23-2008, 01:36 PM
Some stupid error, gonna fix it. I'm sure its on my end. Will try it out over night and post a proggie.

ironup
01-23-2008, 06:12 PM
hmm this is just one of the woodcuting mod/script just put in scar??

P1nky
01-23-2008, 11:47 PM
@master what you mean what does error say

@iron uhh what? no i made this the script and yes its for SCAR all scripts are

alexispigy
01-26-2008, 12:03 PM
im getting line 31 errors on all scripts help me plz

P1nky
01-26-2008, 05:59 PM
paste the error..
and its probally becuase you dont have SRL 4 or REV 10

Dynamite
01-26-2008, 06:02 PM
lol woop can't wait for new version when it coming p1nky!

T ~ M

cj_404
01-27-2008, 09:57 PM
||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 1 Hours, 16 Minutes and 15 Seconds
Chopped 459
Dropped(by loads) 17

Good script, worked fine for me.

P1nky
01-27-2008, 10:07 PM
why thank you :D happy to see a good proggie :P

any need for updates?

the 1 im doing is too big update probally a whole new script so, let me know i you want me to update, if theres any problems thanks

craydron
01-28-2008, 11:52 PM
Worked for about 1 hour for me. Then it shut.

P1nky
01-29-2008, 01:00 AM
reason????

proggie??

cj_404
01-29-2008, 01:53 AM
why thank you :D happy to see a good proggie :P

any need for updates?

the 1 im doing is too big update probally a whole new script so, let me know i you want me to update, if theres any problems thanks

Yes, ent protection doesn't quite alwasy work.

P1nky
01-29-2008, 02:08 AM
hmm ill look into that after my h.w

ruffer
02-20-2008, 12:04 AM
I have an error that says

Line 108: [Error] (12608:7): Unknown identifier 'FindMime' in script C:\Documents and Settings\Security\My Documents\AnyWherePowerChopper V[1].2 REV 10 BETA.scar

I always get an errorlike that in almost all scripts i use can anyone help?

P1nky
02-20-2008, 01:07 AM
get rev #13 AND USE SCAR 3.13 on this script

P1nky
02-25-2008, 11:14 PM
Updated To V.3!

With Smart.
Rev #14

jaimefire2
02-26-2008, 09:36 AM
i keep getting errors is this outdated?

KillSwitch
02-26-2008, 04:08 PM
It is so unstable. -.- I am botting ONLY 2 chars and it "crashes"(logs out or just screen goes white) in about every ~30 minutes.

I have 1GB RAM, Nvidia Geforce 6600 GT gfx card and AMD Athlon 3500+, 2.21GHZ.

What might be the problem? >.<

P1nky
02-26-2008, 05:40 PM
jaime redownload

and trollvete thanks for the proggie!

and

killswitch use high detail or try low detaill
and sorry im not good in computer info so i cant tell you why

does it happen to every script or just mine?

Naum
02-26-2008, 05:41 PM
P1nky rev 14#.. :rolleyes:

P1nky
02-26-2008, 05:51 PM
oh woopsy i meant REV #14

updated to rev 14!

lol thanks NAUM!

KillSwitch
02-26-2008, 06:30 PM
jaime redownload

and trollvete thanks for the proggie!

and

killswitch use high detail or try low detaill
and sorry im not good in computer info so i cant tell you why

does it happen to every script or just mine?

Huh? I am using your newest version and it opens rs window itself. :O

Richard
02-26-2008, 06:48 PM
Thats what smart is... what is it that actually happens when it stops?

P1nky
02-26-2008, 09:11 PM
please go to the S.M.A.R.T thread for info

Richard
02-26-2008, 09:37 PM
I take it you are talking to the other guy, cos I already know all about it :p

KillSwitch
02-26-2008, 10:05 PM
I am so mad now.

Your script crashes every 30 min, just freezes.

It doesn't handle a single event! I have broken axe twice at ent and 2 times got to frog (your script didnt solve frog event).

Add more random event protection.

P1nky
02-26-2008, 10:09 PM
RRRRRRRrrrrrrrrreaaaaallllllllllly?????


oh wow im sorry ill update it atm.
and btw why THE HELL IS IT CRASHING!

Richard
02-26-2008, 10:25 PM
I am so mad now.

Your script crashes every 30 min, just freezes.

It doesn't handle a single event! I have broken axe twice at ent and 2 times got to frog (your script didnt solve frog event).

Add more random event protection.

Sort it out yourself, stop being a leecher and getting mad at people who are actually making scripts. p1nky is being nice updating it for you and you are just getting mad at him...

KillSwitch
02-26-2008, 10:26 PM
I am not mad at him, I just don't understand why he says that it can solve most of randoms if it can't?

P1nky
02-27-2008, 02:13 AM
dude ive been running just now. for 3 hours and stopped just now heres proggie. and i got no problems!



and i did update it added new dtm droppin proc ill hold that release for a bit to update more

||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 3 Hours, 46 Minutes and 27Seconds
Chopped 972
Dropped(by loads) 36
||===========================||
||==== BETA VERSION ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
Successfully executed

btw look at the stats:

atm its
2 days 3 hours 50 minutes <i did the 3 hour and 46 mins :)

osmm
02-27-2008, 02:25 AM
Did you get your "RandomBotton" from my script?

P1nky
02-27-2008, 03:46 AM
no... you prob got from me :P

this script is older than yours .

KillSwitch
02-27-2008, 02:53 PM
p1nky, can you please then just *.rar whole your scar folder and send me? Cause it dies for me very very often and it made only 5 loads. -.-
Works MAX 30-50 min, then after first random it freezes/crashes/dies.

P1nky
02-27-2008, 06:00 PM
wow really

this happens to this script only?

KillSwitch
02-27-2008, 06:08 PM
I havent tested others yet cause thought yours was reliable.

I had 5 mins ago sandwich lady, I watched abit and all your script did was continue chopping willows - nothing special happened.


Screen is on highest brightess level.

Also one error i get when it crashes is:

GTL: No GameTab

Richard
02-27-2008, 08:24 PM
Those errors you are getting are nothing to do with his script, the game tab problem is thanks to jagex being ass's again and the sandwich lady obviously wasn't noticed because you didn't put your nick in right...

Torrent of Flame
02-27-2008, 08:29 PM
I like this. I cant woodcut, but I tried it for 20 mins on my brothers account and it works fine :]

KillSwitch
02-27-2008, 08:39 PM
Those errors you are getting are nothing to do with his script, the game tab problem is thanks to jagex being ass's again and the sandwich lady obviously wasn't noticed because you didn't put your nick in right...
OH!
So if my username is: Black And Jacko and I write in script username: black and jacko then it's normal if it doesn't work ?

I guess that should fix it all. :)

Torrent of Flame
02-27-2008, 08:45 PM
No, the nickname.

Your Nick should be like acko

KillSwitch
02-27-2008, 09:09 PM
but if it is: Icy Sty should the nickname be: cy?

P1nky
02-27-2008, 09:53 PM
no make it

"cy(space)"

dont add the (space) thing k

just press space bar
or do this
"y st" or "y s"

KillSwitch
02-27-2008, 10:29 PM
I made it 2 letters AND IT WORKED!


|===========================||
||Post this on the thread plz||
||===========================||
Worked For 1 Hours, 15 Minutes and 56 Seconds
Chopped 513
Dropped(by loads) 19

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 3 |
| Dwarfs : 1 |
| Ricks : 1 |
| Frog Solved : 1 |
| Boxes Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Gonna run it all night, baby. :)
Thanks!


//Best proggy so far? :D

P1nky
02-27-2008, 10:35 PM
glad it worked :)

GRATS! but, idk if this script is managble for overnight proggies

i havent updated this script since im making a other script.

ill update it if i got timezoe

KillSwitch
02-27-2008, 10:50 PM
glad it worked :)

GRATS! but, idk if this script is managble for overnight proggies

i havent updated this script since im making a other script.

ill update it if i got timezoe

Can't wait until you release your next one.

Can you also make your next script with SMART? It really owns. :)

P1nky
02-27-2008, 10:52 PM
yeah sure.

k ill make sure to update this and add more anti-ban

KillSwitch
02-27-2008, 10:54 PM
yeah sure.

k ill make sure to update this and add more anti-ban
BTW, what is your next script about? :)


I am gonna go sleep now, gonna restart script before going to sleep, to prevent any possible laggs etc :D
Best proggy so far:


Worked For 1 Hours, 41 Minutes and 19 Seconds
Chopped 675
Dropped(by loads) 25

P1nky
02-27-2008, 10:56 PM
oh thanks for another great proggie :)
next script will INCLUDE:
-better anti-ban
-better failsafes
-multi players that work
-possible form
-better side features

and more info lata!

KillSwitch
02-27-2008, 10:57 PM
Great.
Also try to add those new random events, like that studying room with red dragon or smth.


Btw, is there out a special script made by you that is up to date, works as good as this one and cuts willows and banks them? (for example draynor).

P1nky
02-27-2008, 11:56 PM
yes there is

me and naum made

ill link you

btw the demon random is atm not solveable SRL is working on that one.

yeah i hate that 1 too :(

here it is
http://www.villavu.com/forum/showthread.php?t=23246

though i like this 1 more :) since its faster just for training purpose!!

Iamk
02-28-2008, 01:54 AM
Thanks for refering me to this script p1nky. I really needed something like it! I'll try it right away)

P1nky
02-28-2008, 02:19 AM
no problemo :)

SiLEnT KiLLz
02-28-2008, 03:22 AM
thanks ill use it =] even tho im goona have to get 1 that banks the logs soon lol

P1nky
02-28-2008, 03:42 AM
cool btw TLP suck :P

i got alot of pures :)

94 mage 92 range 52 pray BANNED
83 str 85 mage 90 range LOCKED
93 str 85 mage 52 pray BANNED
lol lost over 150m+ :)
sure its cool heh
was in foes,eops,tlp for a bit and so on

oh well rs sucks anyways with clans !

KillSwitch
02-28-2008, 04:49 AM
Ok, I put it up to bot for 6 hours, but it worked only for like 1 h 30 min with 19 loads BECAUSE I got in maze. :/
I am sure it would have been WAY longer if that stupid random event werent coming. :D

Can you maybe add maze event too?

KillSwitch
02-28-2008, 08:56 AM
I am abit disappointed - SMART froze when I tried to open a movie -.-
Oh well, gonna start script all over again.
Current best:


||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 2 Hours, 5 Minutes and 43 Seconds
Chopped 810
Dropped(by loads) 30

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 2 |
| Old Men : 1 |
| Boxes Solved : 4 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/



Btw, how is it possible to make an "army" with many characters? Cause when I open up second SMART window it usually "freezes" in like 20 min or longer.

P1nky
02-28-2008, 05:29 PM
killswitch.
you dont understand.... some randoms are impossible to solve unless someone scripts it to work. you know? so SRL is going to do it somehow later or so its hard dude.

yeah use 2 players :) for bigger proggie or use more

thanks for the proggie and idk why your smart freezes. its probally your comp

KillSwitch
02-28-2008, 06:04 PM
thanks for the proggie and idk why your smart freezes. its probally your comp

But I just made format c:

And 1GB ram.. with XP.


I should be able to bot atleast 5 ppl :o


Well Besides botting I also host rsc server with normal 30 ppl on, is this maybe it ?

jj147258369
02-28-2008, 06:43 PM
i tried to run it and i got this

Include file C:\Program Files\SCAR 3.14\includes\SRL\SRL\misc\Smart.scar does not exist.
Failed when compiling

where can i get this include?

how do i fix this?

:confused:

Richard
02-28-2008, 06:46 PM
Update your srl and download includes

jj147258369
02-28-2008, 08:02 PM
thanks for the help :f:

already did that and it's still not working!

i have SCAR 3.14 and SRL 4 and i have all the includes and i keep getting:

Include file C:\Program Files\SCAR 3.14\includes\SRL\SRL\misc\Smart.scar does not exist.
Failed when compiling

i don't know what the hell is wrong!!

:f: :f: :f: :f: :f: :f: :f: :f: :f: :f: :f:
:fiery: :fiery: :fiery: :fiery: :fiery: :fiery:

P1nky
02-28-2008, 08:58 PM
DAWG STOP FLICKING US OFF! NOT FUNNY AT ALL! i w0nt even help YOU FOR THE TRIPLE POST! goodness im so mad at you

P1nky
03-02-2008, 05:18 AM
heres a great proggie with 1 player chopping oaks got from 20-40

HERES THE PROGGIE:

||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 3 Hours, 35 Minutes and 51 Seconds
Chopped 810
Dropped(by loads) 30
||===========================||
||==== BETA VERSION ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
Find~OAK~CHOPPING~

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 3 |
| Talks : 6 |
| Dwarfs : 1 |
| Ricks : 2 |
| Lamps Solved : 5 |
| Capn Hand[s] : 1 |
| Boxes Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Roh123red
03-02-2008, 10:47 AM
Hey awesome script P1nky loving 2 chop willows all night very nice script +Rep.

=)

ShadowMinion
03-02-2008, 01:38 PM
You could have better failsafes but like you said that you should be releasing within the next version of this spectacular script :)

Keep it up
ShadowMinion [exppo] ;)

spykids007
03-03-2008, 01:58 AM
This one works! thanks lol

P1nky
03-03-2008, 03:35 AM
np and please post proggies

thanks :)

laurenssie1
03-03-2008, 02:05 PM
If this works, i will sure use it.

laurenssie1
03-03-2008, 02:06 PM
huh, downloading doesn't work :confused:

P1nky
03-03-2008, 05:58 PM
dont double post and post useless shit if you had learn scripting you would know k?

so dont come here tell me its not working

POST THE DAM ERRORS!

Smokefree
03-04-2008, 11:53 AM
Works very good!

Chops allot of willows in a short amount of time and great xp. Only downside I can see is that it does NOT run for 6 or more hours.

So give a truthful number of hours next time, yer?

GJ +REP :google:

Richard
03-04-2008, 07:10 PM
It should run for more than 6 hours, if it doesn't it means that your account must always get an unsolvable random within 6 hours of running, do you have a proggy to show how long it worked for?

exppo
03-04-2008, 07:44 PM
ok thanks for the report yeah the ent finder isnt that great but surely works for me =S but yes it may break=) sorry and i can change it but not many people do that thing u do fill it with axes the 1st row =)

thanks

Worked EXTREMELY well, again another amazing script made by another amazing person..
Congratulations

GoodLuck with future scripts ;)

Exppo :)

XjagexisgayX
03-05-2008, 01:57 AM
I used this. First script that actually works. I ran it for 2 hours, and it did all the random events! Awsome.

P1nky
03-05-2008, 01:59 AM
thanks EVERYONE! expo thanks alot.SMOKE what you talking about

Vapor
03-07-2008, 12:23 AM
thanks ill post proggies soon and I want to add the your sig in mines

P1nky
03-07-2008, 05:49 PM
alrite thanks

:) glad you added my script sig in yours lol

P1nky
03-12-2008, 02:24 AM
Well I would love to post this on the forums but I forgot what tread it was...

Your AMAZING

||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 2 Hours, 52 Minutes and 25 Seconds
Chopped 2052
Dropped(by loads) 76
WOAH HOW U GET 76 LOADS DONE!??!?!? WHAT TREE?!


lol idk how he got that but if its true GOD DANG! thanks killer he pmed me it

ninjamaste89
03-12-2008, 02:58 AM
mine didn't work. Im going to try looking over my settings, i think something was off, ill post back when i figure it out. im really excited to use it though!

killer_game0
03-12-2008, 03:04 AM
Np. I love this script. I think the only thing It cant do are the box's and so far the evil sister random. But other then that its awesome.

P1nky
03-12-2008, 03:09 AM
well the box's should work, does 100% for me if not i think it be your color or srl idk though and the evil sis is unsolvable atm

btw thanks for the proggie , pm's

BTW GUYS he chopped REGULAR TREES!

ninjamaste89
03-12-2008, 03:11 AM
It's working so far for me... I haven't gotten any randoms yet...hehe.

P1nky
03-12-2008, 04:49 PM
k please post proggies thanks

erwinn
03-12-2008, 09:34 PM
||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 4 Minutes and 4 Seconds
Chopped 27
Dropped(by loads) 1

I'll sooner or later run it for a longer time and update this post.

Mistri_Soulja
03-13-2008, 12:00 PM
now this is a good script p1nky, dint realize it was your first but still its cool i like the willow killow better tho.

P1nky
03-13-2008, 01:37 PM
acaully it isnt anymore

thanks though

xltb
03-13-2008, 04:57 PM
Line 101: [Error] (12565:7): Unknown identifier 'FindMaze' in script C:\Documents and Settings\User\Local Settings\Temporary Internet Files\Content.IE5\XWIRS63X\AnyWherePowerChopper%20 V.2%20REV%2010%20BETA[1].scar
can sum 1 tel me what i need to do

P1nky
03-13-2008, 10:44 PM
READ TUTS :P

well hint: get REV 14!

Mistri_Soulja
03-13-2008, 11:57 PM
i take it back p1nky this aint a good script,

it is wicked, it worked for 3 hours and 38 mins, then i went to get something to eat came back and my cpu had crashed, i had to restart it.

so i couldnt post progie soz, but id thought id tell u ne way.

EDIT: and could u tell me what drugs numan is on i got called a lyer on the willow killow thread for tellin u and him it was a good script.
hes tellin me it doesnt even work, but its funny how im using it right now tho.

P1nky
03-14-2008, 12:14 AM
how about you learn scripting

and get a LIFE!?

Mistri_Soulja
03-14-2008, 12:23 AM
i know how to script, and i have a life wft p1nky.
i just sayin i dont like getting called a lyier ova something i aint lying about.
and just to prove to you, gaman and who ever else thinks im a lyier
i will post the willow killow right here so u all can try for ya selfs.

some kind of fucking lyer i am then ye.

P1nky
03-14-2008, 12:25 AM
i know how to script, and i have a life wft p1nky.
i just sayin i dont like getting called a lyier ova something i aint lying about.
and just to prove to you, gaman and who ever else thinks im a lyier
i will post the willow killow right here so u all can try for ya selfs.

some kind of fucking lyer i am then ye.

no you dont leecher

anyways reported you and got you cussing :O

Mistri_Soulja
03-14-2008, 12:32 AM
oooo big woop, like that hurts.
i think ill go start crying now..

i though u was pretty cool to p1nky but no ur a prick just like numan.
and only reason im cussing is because of arseholes like u, i come on here giving good reports and tryin to help people, and i get called a lyer and get told to get a life.

wtf report me if u want wats the worst thats gonna happen ill get banned big wow.

erwinn
03-14-2008, 02:26 AM
this is the best script i have tried. (oak logs 30-40)

||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 1 Hours, 28 Minutes and 50 Seconds
Chopped 567
Dropped(by loads) 21

P1nky
03-14-2008, 02:35 AM
thanks :) for the proggie lol did you stop it???

because usaully in the varrok east entrance oaks (2 of them) i got it run up to 3-4 hrs lol

still nice 21 loads

erwinn
03-14-2008, 03:08 AM
Yeah, I stopped it. I could have went on for a LONG time. :)

For that proggie, I was only using 1 tree. I was in the area near Draynor.

P1nky
03-14-2008, 01:32 PM
ok cool hope to see more proggies

thanks guys :P

Avenger
03-15-2008, 11:19 AM
is AnywherePowerchopper v.3 with SMART the last version? or it became junior members only?

P1nky
03-15-2008, 06:31 PM
nope i dont think it needs updates unless people say i need to :S

bean000
03-16-2008, 06:55 PM
already done it 4 more than a half hour and solved 2 boxes and 400 some logs:)

P1nky
03-17-2008, 03:44 AM
thanks btw ill appreciate it if you post the proggie :) thanks again

aaron4371
03-18-2008, 05:28 AM
this is a good power chopper but it didnt dectect the ent oh well

P1nky
03-18-2008, 04:46 PM
hm really?

post proggies please?

Denver
03-18-2008, 08:52 PM
this is great except after about 400 logs it didnt detect the ent so i broke my axe. but other than that its great!

P1nky
03-18-2008, 09:00 PM
hm k thanks btw please post proggies :)

aaron4371
03-19-2008, 04:44 AM
hmm cant get it to work everytime i hit run it will say waiting for smart to stat then will auto close it self now any ideas on this?

T-BOLT
03-19-2008, 10:33 AM
Line 1: [Error] (1:1): Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Integer): T2DPointArray; in script C:\Documents and Settings\AGMJ\My Documents\AnyWherePowerChopper V[1].3 WITH SMART.scar

I get same error every where
iv never been able 2 make a script work

P1nky
03-19-2008, 07:19 PM
hmm no i dont guys :S this happenign to any1 elesE?

aaron4371
03-20-2008, 01:46 AM
never mind i got smart to work doh idiot me

P1nky
03-20-2008, 02:31 AM
okay great yeah that happened to me today twice for some reason :)

zealkctro
03-29-2008, 04:17 PM
thanks
let me try it out

P1nky
03-29-2008, 06:00 PM
please do and post proggies thankz

Torrent of Flame
03-29-2008, 06:19 PM
p1nky, i sent you a PM.

P1nky
03-29-2008, 07:58 PM
go ahead please CREDIT!

simpee2
03-30-2008, 05:43 PM
this script is great, works fine for me
good job
only problem i have is when it finds an ent, it runs away but then doesn't find its way back to the willow :(

will post a proggy when i get one!

Th3Nightmare
03-30-2008, 07:50 PM
Awesome script dude. o-o

P1nky
03-31-2008, 01:35 AM
this script is great, works fine for me
good job
only problem i have is when it finds an ent, it runs away but then doesn't find its way back to the willow :(

will post a proggy when i get one!

k thanks happened to me once ill get onto that :P and ill update

simpee2
04-01-2008, 02:58 PM
got a proggy, only a short one though

Worked For 12 Minutes and 55 Seconds
Chopped 81
Dropped(by loads) 3

P1nky
04-01-2008, 04:46 PM
thanks :)

juufkk
04-01-2008, 05:27 PM
Good script but it never left clicks. Proggie coming soon.

e: Sorry for the shortness.

||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 23 Minutes and 23 Seconds
Chopped 108
Dropped(by loads) 4

P1nky
04-01-2008, 07:54 PM
alrity thanks btw why left click.. same thing? right click make sures if its a willow or w/e and there are some more reasons. you know what i mean

juufkk
04-02-2008, 01:50 PM
Oh ok.

Here is another proggie with oaks south of Varrock

||===========================||
||P1nkys POWERCHOPPER||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 2 Hours, 0 Minutes and 53 Seconds
Chopped 594
Dropped(by loads) 22

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fights : 3 |
| Talks : 5 |
| Dwarfs : 2 |
| Ricks : 1 |
| Sandwiches : 1 |
| Capn Hand[s] : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

P1nky
04-02-2008, 02:10 PM
oh not bad :P btw if you want like a long proggie well ima add better multi player and better dropping once im home. GO TO EAST BANK IN VARROk and go outside from THE EAST entrance there are 2 oaks beside ea other

juufkk
04-02-2008, 07:01 PM
Spot south of Varrock has 4 oaks just around a yew with no players around :p

P1nky
04-02-2008, 07:54 PM
oh gotta take a look at that ^^ lol

P1nky
04-02-2008, 09:07 PM
http://img207.imageshack.us/img207/104/v4bannerkk7.gif (http://www.srl-forums.com/forum/p1nkys-powerchopper-p267527.html#post267527)

^ THAT SHOULD TELL YOU ALL!

ENJOY! TRIED TO FIX ALL ERRORS didnt test though please let me know!:spot:READ THE FIRST PAGE! GOT SOMETHING NEW [DROPPING]
smart- drops only logs [] fast-drops everything!
smart- drops only logs [] fast-drops everything!
smart- drops only logs [] fast-drops everything!
smart- drops only logs [] fast-drops everything!
smart- drops only logs [] fast-drops everything!
smart- drops only logs [] fast-drops everything!

btw i fixed the multi players problem! so should work for a looong time if you have about 3-4 players

synchyas
04-03-2008, 01:44 AM
Sry but im kinda new to this still.......and how do u set it to low detail if it uses SMART???? just a bit confused

P1nky
04-03-2008, 02:34 AM
its already done on the script d/w

Keith102030
04-03-2008, 08:42 AM
Hey I would like to ask if this script could solve all ramdom events?

P1nky
04-03-2008, 04:32 PM
most of them that srl has done :)

well the easy 1's but they taking them out(well reducing them)

nickienine
04-04-2008, 01:28 AM
doesnt look very undetectable, good script not many bugs, but randoms arent well varied

P1nky
04-04-2008, 01:29 AM
sorry nick its srl not me :P we try our best to get all randoms solved!

synchyas
04-04-2008, 09:19 PM
Can i get some help plz.....well it just kinda moves around and right clicks the willow and then doesnt click chop.......not sure wats wrong

P1nky
04-04-2008, 09:33 PM
hmm really k ima look into it right now :)


EDIT: what tree are you talking about ????

SPARTA!
04-10-2008, 10:16 PM
how can i open the file? with what program?

P1nky
04-10-2008, 10:43 PM
READ TUTS

get scar
!

P1nky
04-11-2008, 04:48 PM
nujo wow u posted over 5 threads saying same thing. im reporting you

EvilScripter
04-11-2008, 09:42 PM
Not bad for a first script :D

I would like to see a few more scripts with some improvements in the future :D

P1nky
04-12-2008, 02:59 AM
say what... lol

i did try my best well for this script :)

hurted my feelings lol

emoelmo21
04-14-2008, 04:24 PM
um having a problem it logs in but it stays on the screen after u log in on the click here to play
any one no how to fix

P1nky
04-15-2008, 01:04 AM
yeah idk how to fix that too just do it by your self...

its prob srl or im forgetting a update function for it?

Pu3rto0wn
04-15-2008, 02:59 AM
it works very nice ill have proggy when im done = )

MananRulz
04-15-2008, 05:46 AM
does this bank the logs? or just drop

P1nky
04-15-2008, 04:49 PM
READ THE first page its called A POWERCHOPPER SO DROPS!

sunny
04-19-2008, 10:34 AM
hi i got this come up

Line 94: [Error] (12915:7): Unknown identifier 'FindMime' in script

bashbro900
04-19-2008, 07:59 PM
dangit it doesnt work as well as others

P1nky
04-20-2008, 02:44 AM
whats wrong with it?

and sunny dl SRL 4
and
get #15 rev

sunny
04-20-2008, 05:06 AM
whats wrong with it?

and sunny dl SRL 4
and
get #15 rev

thanks will give it a try later

P1nky
04-20-2008, 05:12 AM
ok please post proggies !

Rubenos
04-21-2008, 05:34 PM
Script works great! Took me some messing around but I got it to work!

P1nky
04-21-2008, 07:52 PM
please post proggies and tell me any errors >or bugs that need to be fixed

jimsta
04-22-2008, 05:12 AM
it says:

Line 1: [Error] (1:1): Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Integer): T2DPointArray; in script C:\Documents and Settings\home\Local Settings\Temporary Internet Files\Content.IE5\3VI6BSDU\AnyWherePowerChopper%20 V.4%20SMART[1].scar

what do i do plz hep me

P1nky
04-22-2008, 01:07 PM
oh what the heck :S never heard of that error

is it only my script thats doing that

P1nky
04-24-2008, 01:43 AM
Update V5.0=
ADDED A L33T FORM! FIRST FORM FTW! ownz naum!
added more ENT protection
Axe Broken Detector!
Updated to REV # 16

Form SneakPeak
this is my first form eva..
http://i30.tinypic.com/2mxh3df.jpg

CHANGED: Tree Chopping procedure!

spartan6934
04-24-2008, 04:06 AM
this is very helpful

P1nky
04-24-2008, 12:03 PM
yah and ur a spammer

well guys i ran a 1 player report here it is:

||===========================||
||P1nkys AnyWherePowerChopper||
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 1 Hours, 8 Minutes and 5 Seconds
Chopped 216
Dropped(by loads) 16
Broken Axes 0
||===========================||
||==== By P1nky ====||
||===========================||
||===========================||
||=====DESTROY THE TREES=====||
||===========================||
FOUND~WILLOWS~CHOPPING~


/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 5 |
| Ricks : 1 |
| Sandwiches : 1 |
| Frog Solved : 1 |
| Capn Hand[s] : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/


so its good :)

NiCbaZ
04-24-2008, 12:06 PM
erm dude the bitmap is a bit big??? why not use n3ss3s download fuction?? take the lines down to like 10 lines instead of 2000

pedilus1
04-24-2008, 01:00 PM
does it run away from random events?

P1nky
04-24-2008, 01:18 PM
yes it does ped.

nicbaz can you link me :P

x5586
04-24-2008, 08:17 PM
Insane script i LOVE IT!!!!!!!!!!

P1nky
04-24-2008, 10:19 PM
no you dont your just trying to get your post count up