P1nky
2011-12-24 01:29:03
Hallow Mates!
Sad… that i totally forgot to make the 5 year thread ~ which was 3 days ago!
I was quite inactive for a good couple months, but have been active ever since the Bot Nuke!
I have quite a bit Infractions (last one I got a infraction was Year 2009), especially when I was age 14ish-17 , quite immature,so I will like to apologize to SRL and the Users that I argued with or offended. Good news is that I have not gotten any infractions for long time and not many de-reps :)!
Might not be a perfect or advance Scripter, but I sure do enjoy it and love solving the little bugs that my scripts come up with.
Proud to say that my PowerChopper has been alive since year 2007, and still do have the first copy of it:
Haha and from there learned stuff from here and there, and came up with couple of scripts, which most of them are outdated ever since SIMBA has been released(also had became inactive during that time period).
I will like to Thank :
-First of all SRL Staff , y'all do hell of a job, when there are updates and what not, and love the enthusiasm! Keep it all.
-Naum - Don't know much what happen with you, but we did have quite a badass script going on , when we did partner up for 'Willow Killow'.
-Camo Developer - Thank you for helping me out on my C# projects recently:).
-Pwnaz0r - (hope someone remembers this fella) - Helped me start out, thanks mate and wish you luck where ever you are.
-Hobbit - haha love talking to this guy , and glad he is a Admin now :).
I hate the fact that I have forgotten many, and don't really have much friends around SRL anymore :/ due to me really busy irl. Also, how I never get on MSN lols.
Please remind me on this Thread if I have forgotten to mention you, Thank you and Forgive me, my Friends :).
I joined SRL when I was 14, well now I am 19 and in Uni.
I hope to stay in SRL for a good time period and have no plans to leave again, if so I'll let y'all know. Hope SRL lives for long and much Love for this Community and the Friendly Staff, really do appreciate it Mates.
before I finish off this Thread, here is a Picture of me now:
(me being on the Right hand side).
Excuse my grammar Mates, typed all this up in like 15ish mins :)
-Cheers Mate, Hands down to SRL once again.
Sad… that i totally forgot to make the 5 year thread ~ which was 3 days ago!
I was quite inactive for a good couple months, but have been active ever since the Bot Nuke!
I have quite a bit Infractions (last one I got a infraction was Year 2009), especially when I was age 14ish-17 , quite immature,so I will like to apologize to SRL and the Users that I argued with or offended. Good news is that I have not gotten any infractions for long time and not many de-reps :)!
Might not be a perfect or advance Scripter, but I sure do enjoy it and love solving the little bugs that my scripts come up with.
Proud to say that my PowerChopper has been alive since year 2007, and still do have the first copy of it:
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 =4881568; //OAK COLORS work for me!
OakColor1 =1860692;
OakColor2 =4681835;
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] := 'willow';//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[0].Strings[1] := 'Willow';
Players[2].Active :=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[0].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('FOUND~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
if Not(LoggedIn) then Exit;
Begin
if LowerCase(Players[CurrentPlayer].Strings[1]) = 'tree' then
Begin
RegularTreeChopper;
end;
if LowerCase(Players[CurrentPlayer].Strings[1]) = 'oak' then
Begin
OakChopper;
end;
if LowerCase(Players[CurrentPlayer].Strings[1]) = 'willow' then
Begin
WillowChopper;
end;
if LowerCase(Players[CurrentPlayer].Strings[1]) = 'all' then
Begin
RsDestroyer;
end;
if LowerCase(Players[CurrentPlayer].Strings[1]) = 'dead' then
Begin
DeadTreesChopper;
end;
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.
Haha and from there learned stuff from here and there, and came up with couple of scripts, which most of them are outdated ever since SIMBA has been released(also had became inactive during that time period).
I will like to Thank :
-First of all SRL Staff , y'all do hell of a job, when there are updates and what not, and love the enthusiasm! Keep it all.
-Naum - Don't know much what happen with you, but we did have quite a badass script going on , when we did partner up for 'Willow Killow'.
-Camo Developer - Thank you for helping me out on my C# projects recently:).
-Pwnaz0r - (hope someone remembers this fella) - Helped me start out, thanks mate and wish you luck where ever you are.
-Hobbit - haha love talking to this guy , and glad he is a Admin now :).
I hate the fact that I have forgotten many, and don't really have much friends around SRL anymore :/ due to me really busy irl. Also, how I never get on MSN lols.
Please remind me on this Thread if I have forgotten to mention you, Thank you and Forgive me, my Friends :).
I joined SRL when I was 14, well now I am 19 and in Uni.
I hope to stay in SRL for a good time period and have no plans to leave again, if so I'll let y'all know. Hope SRL lives for long and much Love for this Community and the Friendly Staff, really do appreciate it Mates.
before I finish off this Thread, here is a Picture of me now:
(me being on the Right hand side).Excuse my grammar Mates, typed all this up in like 15ish mins :)
-Cheers Mate, Hands down to SRL once again.