- Joined
- Jan 31, 2007
- Sythe Gold
- 0
- Messages
- 535
REMEMBER TO JOIN MY SITES FOR MORE SCRIPTS!
DONT TAKE THIS SCRIPT AND PASTE SOMEWHERE ELSE WITH OUT MY PERMISSION!
DO NOT COPY MY BANNER IDEA =D
NOTE THIS: this script only took probally 2 hours to work so we did not put all of our work.
-I AM GOING TO HAVE TO UPDATE THE BANKING ! LATER SO PLEASE GO TO A LOOOOOOW WORLD SO IT BE EASY TO BANK
NEXT SCRIPTS(TEAM SCRIPTING):
Chicken Killer =D or something lol
===================================
this script includes A FORM! yay
FINALLLYYYY its out we were so lazy fo 2 weeks to release it but here it is!
THIS SUPPOSE TO BE A SRL JUNIOR MEMBERS BUT WE WANNA GIVE YALL LEECHERS A X-MAS PRESENT! =D HOPE WT FAWKI WILL UNDERSTAND THAT!
THIS IS
P1nkys and naumanakhlaq 1st TEAM script!
LOCATION:
Draynor(willows)
Start at:
Draynor Bank last slot towards the willows!
CREDITS:
naumanakhlaq
P1NKY
What we DID:
WE GOT A FORM<THANKS NAUM
BEST ANTI-BAN<P1NKY SPECIAL!
GOOD CHOPPIN<P1NKY
wALKING/BANKING<naumanakhlaq
POSTPROGGIES!
ENJOY! BLOODY LEECHERS JK =p
have a happy x-mas or holidays
OTHER LINKS:
SOON A VARROK EAST YEW CUTTER<MEMEMEMME P1NKY
SOON A FALADOR YEW CUTTER<NAUM
POWERCHOPPER<BY P1NKY>
http://www.srl-forums.com/forum/p1nkys-pow...per-t22730.html
VERSION CHECK:
V.1 DOESNT HAVE a really good anti-ban but it still compatable to work well....ill make sure to fix it
V.2 INCLUDES Better Ent Finding from Fr0ze ent finder eh let me use it on our script AND i added better ANTI-BAN such as random movement and more small things tried to check for ent finding everytime it searches for a willow!
MORE UPDATES WILL HAPPEN IF YALL POST BUGS AND PROGGIES!:spongebob:
BEST PROGGIES:
Code:Worked For 6 Hours and 13 Minutes Willows Chopped 918 Deaths Avoided 1 Banked 34
just got the main stuff. thanks guys, awesome script. not near as good as mine
THANKS SEBO FOR 2 WELL 1 HALF PROGGIES
SCRIPT CAN BE FOUND AT SRL FORUMS!
Here it is:
program P1NKYnNaumanWillowKillow;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
var
frmDesign : TForm;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label5 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Load1 : TEdit;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Label6 : TLabel;
Label7 : TLabel;
Label10 : TLabel;
Label8 : TLabel;
Edit5 : TEdit;
Edit6 : TEdit;
Load2 : TEdit;
GroupBox4 : TGroupBox;
Button1 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
Loads1 : integer;
Loads2 : integer;
procedure StartClick(sender: TObject);
begin
Loads1:=StrtoInt(Load1.text)
Loads2:=StrtoInt(Load2.text)
frmDesign.ModalResult:= mrOk;
end;
Procedure Form;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 525;
frmDesign.Height := 262;
frmDesign.Caption := ' [<P1nkys>] And ->{Naumans}<- W1ll0w K1ll0w_.';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 24;
GroupBox1.Top := 8;
GroupBox1.Width := 233;
GroupBox1.Height := 177;
GroupBox1.Caption := 'P1nky and ->{Nauman}<- WillowKillow Playa 1';
GroupBox1.TabOrder := 0;
Label1 := TLabel.Create(GroupBox1);
Label1.Parent := GroupBox1;
Label1.Left := 32;
Label1.Top := 24;
Label1.Width := 50;
Label1.Height := 13;
Label1.Caption := 'UserName';
Label2 := TLabel.Create(GroupBox1);
Label2.Parent := GroupBox1;
Label2.Left := 32;
Label2.Top := 56;
Label2.Width := 49;
Label2.Height := 13;
Label2.Caption := 'PassWord';
Label5 := TLabel.Create(GroupBox1);
Label5.Parent := GroupBox1;
Label5.Left := 32;
Label5.Top := 96;
Label5.Width := 68;
Label5.Height := 13;
Label5.Caption := 'Loads To Do?';
Label3 := TLabel.Create(GroupBox1);
Label3.Parent := GroupBox1;
Label3.Left := 40;
Label3.Top := 144;
Label3.Width := 3;
Label3.Height := 13;
Label4 := TLabel.Create(GroupBox1);
Label4.Parent := GroupBox1;
Label4.Left := 32;
Label4.Top := 136;
Label4.Width := 144;
Label4.Height := 13;
Label4.Caption := 'Use Different Cutting Motions?';
Edit1 := TEdit.Create(GroupBox1);
Edit1.Parent := GroupBox1;
Edit1.Left := 96;
Edit1.Top := 24;
Edit1.Width := 57;
Edit1.Height := 21;
Edit1.TabOrder := 0;
Edit2 := TEdit.Create(GroupBox1);
Edit2.Parent := GroupBox1;
Edit2.Left := 96;
Edit2.Top := 56;
Edit2.Width := 57;
Edit2.Height := 21;
Edit2.TabOrder := 1;
Load1 := TEdit.Create(GroupBox1);
Load1.Parent := GroupBox1;
Load1.Left := 112;
Load1.Top := 96;
Load1.Width := 25;
Load1.Height := 21;
Load1.TabOrder := 2;
Load1.Text := '1';
GroupBox2 := TGroupBox.Create(GroupBox1);
GroupBox2.Parent := GroupBox1;
GroupBox2.Left := 192;
GroupBox2.Top := 16;
GroupBox2.Width := 1;
GroupBox2.Height := 1;
GroupBox2.Caption := 'GroupBox2';
GroupBox2.TabOrder := 3;
GroupBox3 := TGroupBox.Create(frmDesign);
GroupBox3.Parent := frmDesign;
GroupBox3.Left := 264;
GroupBox3.Top := 8;
GroupBox3.Width := 233;
GroupBox3.Height := 177;
GroupBox3.Caption := 'P1nky and ->{Nauman}<- WillowKillow Playa 2';
GroupBox3.TabOrder := 1;
Label6 := TLabel.Create(GroupBox3);
Label6.Parent := GroupBox3;
Label6.Left := 32;
Label6.Top := 24;
Label6.Width := 50;
Label6.Height := 13;
Label6.Caption := 'UserName';
Label7 := TLabel.Create(GroupBox3);
Label7.Parent := GroupBox3;
Label7.Left := 32;
Label7.Top := 56;
Label7.Width := 49;
Label7.Height := 13;
Label7.Caption := 'PassWord';
Label10 := TLabel.Create(GroupBox3);
Label10.Parent := GroupBox3;
Label10.Left := 32;
Label10.Top := 96;
Label10.Width := 68;
Label10.Height := 13;
Label10.Caption := 'Loads To Do?';
Label8 := TLabel.Create(GroupBox3);
Label8.Parent := GroupBox3;
Label8.Left := 32;
Label8.Top := 136;
Label8.Width := 144;
Label8.Height := 13;
Label8.Caption := 'Use Different Cutting Motions?';
Edit5 := TEdit.Create(GroupBox3);
Edit5.Parent := GroupBox3;
Edit5.Left := 96;
Edit5.Top := 24;
Edit5.Width := 57;
Edit5.Height := 21;
Edit5.TabOrder := 0;
Edit6 := TEdit.Create(GroupBox3);
Edit6.Parent := GroupBox3;
Edit6.Left := 96;
Edit6.Top := 56;
Edit6.Width := 57;
Edit6.Height := 21;
Edit6.TabOrder := 1;
Load2 := TEdit.Create(GroupBox3);
Load2.Parent := GroupBox3;
Load2.Left := 112;
Load2.Top := 96;
Load2.Width := 25;
Load2.Height := 21;
Load2.TabOrder := 2;
Load2.Text := '1';
GroupBox4 := TGroupBox.Create(GroupBox3);
GroupBox4.Parent := GroupBox3;
GroupBox4.Left := 192;
GroupBox4.Top := 16;
GroupBox4.Width := 1;
GroupBox4.Height := 1;
GroupBox4.Caption := 'GroupBox2';
GroupBox4.TabOrder := 3;
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @StartClick;
Button1.Parent := frmDesign;
Button1.Left := 184;
Button1.Top := 192;
Button1.Width := 145;
Button1.Height := 25;
Button1.Caption := 'Start Chopping!';
Button1.TabOrder := 2;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 376;
CheckBox1.Top := 160;
CheckBox1.Width := 17;
CheckBox1.Height := 17;
CheckBox1.Caption := 'CheckBox1';
CheckBox1.TabOrder := 3;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 136;
CheckBox2.Top := 160;
CheckBox2.Width := 17;
CheckBox2.Height := 17;
CheckBox2.Caption := 'CheckBox1';
CheckBox2.TabOrder := 4;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Var
x,y,deathsavoided, Banker:integer;
AxeMask, TreesChopped: integer;
NoBankFound:boolean;
W0ot: integer;
Axe: String;
Procedure LoadVarz;
Begin
AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
'613500332671D01350A4062150135D244B84703482C23A0461248' +
'ACC5AF06001A0805A5');
end;
//----------------------------------------------------------------------------//
//---> Setup Players // with form. leave! //
//----------------------------------------------------------------------------//
procedure DeclarePlayers;
begin
Disguise('SRL - Forms- Index...');
getapplication.MINIMIZE;
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Edit1.text;
Players[0].Pass := Edit2.text;
Players[0].Active := True;
Players[0].Integers[1] := Loads1;
Players[1].Name := Edit5.text;
Players[1].Pass := Edit6.text;
Players[1].Active := True;
Players[1].Integers[1] := Loads2;
writeln(inttostr(Loads1) + ' loads');
writeln(inttostr(HowManyPlayers) + ' Players');
end;
Procedure FindFightin;
Begin
If(FindFight) then
Begin
Writeln('We is being attacked')
Writeln('Not to worry well run like shit booya!')
Begin
RunTo('E',True)
end;
end;
end;
procedure GetAxeHead;
begin
if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin;
writeln('Found An Axe!!')
Axe := 'Present'
end;
if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Axe := 'Absent';
writeln('Axe Absent')
end;
end;
Procedure NaumanAR;
var c: integer;
Begin
Repeat
FindFightin;
FindNormalRandoms;
c:=c+1
until(c=3)
end;
Procedure ScriptSetup;
Begin
If Not (loggedin) then
Begin
LoginPlayer
setangle(true);
SetRun(True)
GameTab(4)
wait(800+Random(300))
end;
end;
procedure AlmostSearch;
var
f, e : integer;
begin
MMouse(645, -15, 1, 1)
MMouse(727, -9, 1, 1)
e := 5 + Random(6);
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
end;
procedure PinkyMoveBan;
var //just take SOME IDEAS! only
MoveM: Integer; //the variable
begin
MoveM := Random(18);
case MoveM of
0: MMouse(x, y, (10 + random(350)) , (10 + random(200))); //random movement
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;
end;
end;
procedure PinkyAntiBan;
var
DBanMe : Integer;
begin
DBanMe:= Random(12);
case DBanMe of
0,1,2:GameTab(1+Random(13))
3,7:Mmouse(MMX1,MMY2,1,1)
6:AlmostLogout;
9:HoverSkill('Random',False)
11,5:AlmostSearch
12:
begin
PinkyMoveBan;
AlmostLogout;
gametab(4);
PickUpMouse;
end;
end;
end;
function CheckForEnt: Boolean; //got permission from Fr0ze to use his ENT FINDER
var
i, Counter : Integer;
begin
if Not(LoggedIn) then Exit;
Counter := 0;
While Counter < 8 do
begin
i := GetColor(86 + Counter, 17);
Counter := Counter + 1;
if SimilarColors(i,119764,60) then
begin
Result := true;
Writeln('We found an ent!! Trying to avoid now..');
Runto('W',true);
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 NWait;
Begin
MarkTime(W0ot)
begin
repeat
NaumanAR;
FindEnt(x, y, true);
PinkyAntiBan;
NaumanAR;
until(not (IsUpText('Will'))) or
(TimeFromMark(W0ot) > 60000)
end;
end;
Procedure CutDown;
Begin
case Random(8) of
1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
5,6,7: begin
Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
wait(200 + Random(234))
ChooseOption('Chop')
end;
end;
end;
Procedure FindTheBank;
Begin
If FindSymbol(x,y,'Bank') then
Begin
Mouse(x,y,1,1,true);
NoBankFound:=False
Exit;
end;
Begin
If (Not(FindSymbol(x,y,'Bank'))) then
Begin
NoBankFound:=True
Writeln('Bank Symbol Not Found')
RadialWalk( FindRockColor , 0, 80, 30, 0, 0);
FFlag(0)
end;
end;
end;
Procedure ToBank;
var Banker:integer;
Begin
Banker := DTMFromString('78DA632C616260506340017FFE30816946289' +
'FB114C8574155F3EF1F1FAA9A32A01A750634C088AAA69808BB4A' +
'B0D9258CA2060004B70B24');
If (NoBankFound = False) then
Exit;
If (NoBankFound = True)then
Begin
If FindDTM(Banker,x,y,623, 26, 675, 60) then
Mouse(x+14,y-1,0,0,true)
FFlag(0)
end;
end;
Procedure Report;
begin
ClearDebug;
If (CheckBox1.checked) or (CheckBox2.checked) then
Begin
Writeln('Using Random Techniques')
end else
Writeln('Using Default Techniques')
writeln('||===========================||');
writeln('|| [<P1nkys>] And ->{Naumans}<- W1ll0w K1ll0w ->');
Writeln('||===========================||');
Writeln('||Post this on the thread plz||');
Writeln('||===========================||');
writeln(' Worked For '+ TimeRunning );
writeln(' Willows Chopped '+inttostr(TreesChopped));
writeln(' Deaths Avoided '+inttostr(DeathsAvoided));
writeln(' Banked '+inttostr(Banker));
writeln('||===========================||');
writeln('||TEAM SCRIPT1NKY AND NAUMANS||');
writeln('||===========================||');
writeln('||===========PNWK0===========||');
writeln('||===========================||');
SRLRandomsReport;
end;
Procedure Walking;
var
PPLSUQBAWLZ:integer;
Begin
MarkTime(PPLSUQBAWLZ)
GetAxeHead;
MMouse(x,y,2,2)
MakeCompass('W')
Wait(1+Random(800))
If FindColor(x,y,FindRockColor,MMX1,MMY1,MMX2,MMY2) then
Begin
Mouse(x-23,y,0,0,true)
Wait(1000+Random(3000))
FFlag(0)
If FindSymbol(x,y,'Fishing Spot') then
Begin
Mouse(x,y,2,2,true)
FFlag(0)
If (TimeFromMark(PPLSUQBAWLZ) > 180000) Then
Begin
Writeln('Player Not Walking?')
NextPlayer(false);
end;
end;
end;
end;
procedure ChopWillow;
begin
Writeln('Willows to CHOP');
begin
repeat
PinkyMoveBan;
if FindObjCustom(x,y,['wil','llo','ow'],[1926744,1326389,529683],2)then
If IsUpText('Willow') then
CheckForEnt;
Wait(200+Random(200))
begin
MMouse(x, y, 2, 2);
FindEnt(x,y,True);
If (CheckBox1.checked) or (CheckBox2.checked) then
Begin
CheckForEnt;
CutDown;
CheckForEnt;
end else
Mouse(x,y,1,1,true)
CheckForEnt;
Nwait;
PinkyMoveBan;
end;
until(invfull);
Treeschopped := TreesChopped +27;
end;
end;
Procedure AssignClientAfterP1nkiesAntiBan;
Begin
Clickmouse(192, -187,true)
wait(100+Random(800))
end;
Procedure Bank;
Begin
If (InvFull) then
AssignClientAfterP1nkiesAntiBan
Begin
MakeCompass('N')
FindTheBank;
ToBank;
Wait(1000+Random(1000))
FFlag(0)
OpenBankQuiet('db')
wait(2000+Random(100))
if (bankScreen) then
begin
Deposit(2,28,2);
wait(1000 + Random(200))
CloseBank
Banker := Banker + 1;
Writeln('Banked
end;
end;
end;
begin
SetupSRL;
LoadVarz;
SafeInitForm;
SafeShowFormModal;
GetApplication.Minimize;
DeclarePlayers;
Repeat
Repeat
ScriptSetup;
Walking;
Report;
ChopWillow;
Report;
Bank;
Report;
until (Banker > Players[CurrentPlayer].Integers[1])
IF (Banker = Players[CurrentPlayer].Integers[1]) THEN
BEGIN
WriteLn('next player, your noob is logged out');
NextPlayer(false);
Banker := 0;
END ELSE
BEGIN
WriteLn('succesfull switch');
NextPlayer(true);
Banker := 0;
END;
Until(false)
end.
NOTE: DONT PASTE THIS ANYWHERE ELSE WITHOUT MY PERMISSIOn!
. We will update this soon
