P1nky
2007-11-03 13:37:00
p1nky - SRL Member Application Form
p1nky
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no hoping to learn JAVA and C
Other Communitys
sythe
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hey well my main pure was lvl 70 94 mage 92 range 52 pray lost 78m =p from real life trading which was not true or they did not have prove but ok well i stopped playing Runescape for a bit because i was so like ticked off so i was hmmmm i have been a old member of sythe which i dont like much but, yes i scrolled down saw rs cheating/scripts and ect.
so i was let me download this srl and SCAR. i went to this site was LEECHING for 1 month or so … than like people did not really like me in this community cause they said im leeching im like oh ok so i read some tutorials about 3-4 and yeah there you go im here into this community and been trying experiments and got alot of helped thanks CLAY(pwnz0r)
and monkey(rs monkey) so yes i made a script draynor willow/banker worked perfectly but i knew i got too much helped on it. 1 problem about it was the Radial Walking but yes ill release that asap so heres the PowerChopper got some ideas from other scripts but didint copy it completley and i have left some procedures and such for future update or so =)
thanks
~P1nky~
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
{===================================================================
P1NKY'S 1ST SCRIPT DONT TAKE WITHOUT PERMISSION UNLESS I POSTED!!!
change willow colors if they dont work for you! or just leave the same
====================================================================}
//Start Instructions (FOLO INSTRUCTIONS BELOW!):
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.Setup LINES 27-54~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2.|START Script where The Picture LOCATION| ~~~~~~~~~~~~~~~~
3.|HIGH DETAIL| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4.START logged off
5.AXE WIELDED or IN 1ST SLOT OF INVO
6.PUT EXTRA AXES IN 1ST SLOT OF BANK JUST INCASE BREAKS (may work)
7.READ DETAILS AND MORE ON THE THREAD THANKS<><>P1NKY<><>
8.This will chop any kind of trees just pick what kind of trees you want to chop(willow/oak/tree/or all)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End OF Instructions!
===================================================================}
const
//==================================================================
PowerChop = True; //Dont TOUCH!!!!!
MySRLID = ''; // Your SRLID here.
MySRLPassword = ''; // Your SRL Password here.
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
//END OF SETUP DONT TOUCH BELOW PLEASE UNLESS NEEDED
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
var
tx, ty, TTimes ,Dropper, WillowsBanked, WillowsChopped ,x, y, p : integer;
procedure DeclarePlayers;
begin
NumberOfPlayers(2);
CurrentPlayer := 0;
Players[0].Name :='srlforums'; //username of account
Players[0].Pass :='srl'; //password
Players[0].Nick :='lro';//3-4 Letters Of Username ( No Capitals! )
players[0].integers[0] := 5;
Players[0].Strings[0] := 'willow';//oak or willow or tree or all (LOWERCASE)!
Players[0].Active :=True;
Players[1].Name :='username';
Players[1].Pass :='password';
Players[0].Strings[0] := 'willow'; //oak or willow or tree or all
Players[1].Nick :='ern';
players[1].integers[0] := 5;
Players[1].Active :=True;
{Players[2].Name :=''; //GO AHEAD ADD MORE PLAYERS IF NEEDED
Players[2].Pass :='';
Players[2].Nick :='';
players[2].integers[0] := 5;
Players[0].Strings[0] := 'Willow';
Players[2].Active :=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
players[3].integers[0] := 5;
Players[0].Strings[0] := 'Willow';
Players[3].Active :=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
players[4].integers[0] := 5;
Players[4].Active :=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
players[5].integers[0] := 5;
Players[5].Active :=True;
}
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;//will run from fight and will come back
begin
FindNormalRandoms;
FindFastRandoms;
if (FindFight) then
begin
Status('Running...');
RunAwayDirection('W');
Wait(13500 + random(2500));
RunBack;
end;
end;
procedure FindRandoms; //find randoms!@!@!
begin
FindFastRandoms;
FindNormalRandoms;
wait(400)
Findtalk;
RunningFromFights;
FindLamp('Woodcutting');
Solvepinball;
end;
procedure Report; //debug section
begin
writeln('||===========================||');
writeln('||P1nkys PowerCutter||');
Writeln('||===========================||');
Writeln('||Post this on the thread plz||');
Writeln('||===========================||');
writeln(' Worked For '+ TimeRunning );
writeln(' Chopped '+inttostr(WillowsChopped));
writeln(' Dropped(by loads) '+inttostr(Dropper));
writeln('||===========================||');
writeln('||====P1nkys FIRST SCRIPT====||');
writeln('||===========================||');
writeln('||=====Thanks SRL Forums=====||');
writeln('||===========================||');
SRLRandomsReport;
end;
procedure DoChats; //will set your player chat!
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; //part of antiban its a bit good =)
begin
case random(6) of
0: makecompass('N');
1: makecompass('S');
2: makecompass('E');
3: makecompass('W');
4: HighestAngle;
end;
end;
function RandomWColor: integer;
begin
if not(LoggedIn) then
begin
LoginPlayer;
Exit;
end;
Status('LOOKING for WILLOW random color!.');
case Random(5) of
0: Result := 3693410;
1: Result := 3495774;
2: Result := 2376509;
3: Result := 2579794;
4: Result := 4689280;
end;
end;
{DONT NEED TO SET ANYTHING ATM WILL FIX THIS SECTION LATER! FOR MORE ACCURATE
WOODCUTTING THANKS}
//===============================================================
const
WillowColor = 3696222; //go ahead change if doesnt WORK pROPERLY
WillowColor1 = 1914674; //Another WILLOW Color | this too
WillowColor2 = 1327160; //ANY other WILLOW Color |this too
//======================================================================
const
Oak1 =1721412;
Oak2 =4558722;
Oak3 =1450528;
//======================================================================
const
tree1 =1257520;
tree2 =3232584;
tree3 =2774098;
//======================================================================
//DONT TOUCH ANYMORE end of setting!
function RandomOColor: integer;
begin
if not(LoggedIn) then
begin
LoginPlayer;
Exit;
end;
Status('LOOKING FOR Random Oak Color.');
case Random(5) of
0: Result := 3763299;
1: Result := 2190948;
2: Result := 3565409;
3: Result := 1981237;
4: Result := 4096116;
end;
end;
function RandomTColor: integer;
begin
if not(LoggedIn) then
begin
LoginPlayer;
Exit;
end;
Status('Looking for random regular tree color.');
case Random(5) of
0: Result := 2045494;
1: Result := 2184007;
2: Result := 735019;
3: Result := 3301207;
4: Result := 2504761;
end;
end;
function CheckForEnt: Boolean; //thanks harry
var TPA: TPointArray;
begin
if(not(LoggedIn))then
Exit;
if(FindColorTolerance(tx,ty,55255,6,6,117,27,10))or
(FindColorTolerance(tx,ty,976101,6,6,117,27,10))then
begin
if(not(IsUpText('op'))) and (not(IsUpText('own')))then
Exit;
wait(1);
FindColorsSpiralTolerance(tx,ty,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 ClickTheDarnTree; begin
Status('will look for the specific Tree!!');
begin
FindRandoms;
Mouse(tx, ty, 1, 1, False);
ChooseOption('cho');
randomcompass; // heres some anti-bannage =)
RandomButton;
if not(IsUpText('cho')) then
begin
wait(870+Random(1000));
MMouse(tx, ty, 10, 10);
end
else
ChooseOption('canc');
end;
begin
Mouse(tx, ty, 1, 1, True);
wait(700+Random(1000));
end;
end;
procedure MyAntiBan; //ULTIMATE ANTI-BAN !!!!
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 AxeBanker; //bankz axe but doesnt work atm next update will!
begin
MakeCompass('N');
Wait(10000);
Flag;
if (FindSymbol(x, y, 'bank')) then
MouseFlag(x,y,2,2);
if not (FindSymbol(x,y, 'bank')) then
logout;
begin
MakeCompass('W')
Wait(1000);
if OpenBankFast('db') then
begin
Deposit (2, 1 , 2);
if(IsUpText('axe'))then
begin
GetMousePos(x, y);
Mouse(x, y, 2, 2, true);
if BankScreen then Closebank;
begin
Mouse(621,126,1,1,true);
end;
end;
end;
end;
end;
procedure WillowChopper; // GOT IDEAS from ChopYBank by Stephen(Tails111)
begin
repeat
if(findColorspiralTolerance(tx, ty, RandomOColor, MSX1, MSX2, MSY1, MSY2, 5)) Then
FindEnt(x,y,True);
CheckForEnt;
begin
TTimes := TTimes + 1;
Status('Trying to Find Willowz Try #: ' + IntToStr(TTimes));
if(TTimes > 57) then
WriteLn('Didn''t Find Tree after 57 tries!aw man! got to LOGOUT' );
Players[CurrentPlayer].Loc:='Damn Cant find any WILLOWZ';
FindRandoms;
TTimes := 0;
begin
Logout;
NextPlayer(False);
Exit;
begin
if(IsUpText('illow'))then
FindEnt(x,y,True);
CheckForEnt;
ClickTheDarnTree;
flag;
Wait(4000+random(1000));
MyAntiBan;
if FindFastRandoms then
begin
RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
end;
until(invfull);
end;
procedure OakChopper; // GOT IDEAS from ChopYBank by Stephen(Tails111)
begin
repeat
if(findColorspiralTolerance(tx, ty, RandomOColor, MSX1, MSX2, MSY1, MSY2, 5)) Then
begin
wait(150+Random(500));
MyAntiBan;
FindEnt(x,y,True);
CheckForEnt;
begin
TTimes := TTimes + 1;
Status('Trying to Find Oaks Try #: ' + IntToStr(TTimes));
if(TTimes > 57) then
begin
WriteLn('Didn''t Find Tree after 57 tries!aw man! got to LOGOUT' );
Players[CurrentPlayer].Loc:='Damn Cant find any oaks';
FindRandoms;
TTimes := 0;
begin
Logout;
NextPlayer(False);
Exit;
begin
if(IsUpText('ak'))then
begin
FindEnt(x,y,True);
CheckForEnt;
ClickTheDarnTree;
flag;
Wait(600+random(1000));
if FindFastRandoms then
begin
RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
end;
end;
end;
end;
until(invfull);
end;
procedure RegularTreeChopper; // GOT IDEAS from ChopYBank by Stephen(Tails111)
begin
repeat
if(findColorspiralTolerance(tx, ty, RandomTColor, 1, 1, 514, 336, 4)) Then
begin
wait(150+Random(500));
MyAntiBan;
FindEnt(x,y,True);
CheckForEnt;
begin
TTimes := TTimes + 1;
Status('Trying to Find trees Try #: ' + IntToStr(TTimes));
if(TTimes > 57) then
begin
WriteLn('Didn''t Find Tree after 57 tries!aw man! got to LOGOUT' );
Players[CurrentPlayer].Loc:='Damn Cant find any trees';
FindRandoms;
TTimes := 0;
begin
Logout;
NextPlayer(False);
Exit;
begin
if(IsUpText('ree'))then
begin
FindEnt(x,y,True);
CheckForEnt;
ClickTheDarnTree;
flag;
Wait(600+random(1000));
if FindFastRandoms then
begin
RunAwayDirection('N');
FindNormalRandoms;
MyAntiBan;
end;
end;
end;
end;
end;
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;
FindRandoms;
Report;
MyAntiBan;
end;
procedure SetPlayer; //will set up the player
begin
dochats;
LowestAngle;
SetRun(True);
MakeCompass('N');
HighestAngle;
end;
//=========================================================
//MAIN LOOP STARTING!
//=========================================================
begin
SetupSRL;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
DeclarePlayers;
ActivateClient;
ScriptID := 'none'; // SCRIPT ID DONT TOUCHZOR!tho none atm!
report;
if LoggedIn then LogOut;
LoginPlayer;
SetPlayer;
Dropper:= 0;
Willowschopped:= 0;
p:= 0;
repeat
repeat
if Not(LoggedIn) then Exit;
Begin
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'willow' then
Begin
WillowChopper;
end;
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'oak' then
Begin
OakChopper;
end;
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'tree' then
Begin
RegularTreeChopper;
end;
if LowerCase(Players[CurrentPlayer].Strings[0]) = 'all' then
Begin
RegularTreeChopper;
OakChopper;
WillowChopper;
end;
If(InvFull)then
Willowschopped := Willowschopped + 27;
report;
begin
if PowerChop then
PowerDrop;
Dropper := Dropper + 27;
report;
end;
end;
if not LoggedIn then
begin
NextPlayer(False);
SetPlayer;
end;
until(p = players[currentplayer].integers[0]);
until(false);
end.
OLD APPLICATION! LOOK! http://www.villavu.com/forum/showthread.php?t=16889
——————————————————
<!– END TEMPLATE: formanswers –>