mine woodcuts fine but when it enters bank it doesent deposit anything. then it clicks on one of the whilows to start chopin but it cant cause inv is full.
please help
Printable View
mine woodcuts fine but when it enters bank it doesent deposit anything. then it clicks on one of the whilows to start chopin but it cant cause inv is full.
please help
Keep up the good work.
Line 729: [Error] (16375:3): Unknown identifier 'AlmostLogout' in script
:(
its outdated stop bumping until Naum updates..
It does 1 invent and it cannot bank. Also, all the trees are like chopped down by other players by the time the bot detects it
Line 729: [Error] (16927:3): Unknown identifier 'AlmostLogout' in script C:\Documents and Settings\*********\My Documents\Will0wKill0w V.11 Rev 16+.scar
Wow, dude. Like 3 post ubove you it says that it is outdated. Why don't you just try and fix it?
i got this how do i fix???
Line 729: [Error] (16927:3): Unknown identifier 'AlmostLogout' in script
Very nice script, I'll have a progress report up later, it's still goin and its been about an hour.
New Version Released, For the happyness of leechers, scince this never seems to die down :). I'll update well it when i get some real time.
nice script tested it a few times.. Amazing FIRST SCRIPT :P
One suggestion is to make it click multiple trees. Mine attempted to cut 1 tree the whole time, otherwise great script
good job.
Seems to work quite good have been running this for 1 hour. Lets see later.
And it sometimes try to cut only one tree, like Tom_Gover said.
insane script working fine (:
Awsome Willow Killow still alive :O
sweet, btw naum we gotta make a small project , im boreddd lol
Yeah, why not. I'll update will0w kill0w, fully tomorrow. Which will probebly be a whole re- write ;)
great script man helped me level loads
er i'm not sure, but are you allowed to post this in a free section? I thought all banking scripts had to be junior members or higher...
or did you get permission from a mod?
this is a first script not free for all.
Version Update:
As promised, I have completely re-updated this script. Giving up my spare time and my devotion to little projects. All I ask is this:
Post Proggies, over 11 pages i have seen not one!
If they arent posted I will remove this script, Of course why is there a point of continuing it when no one shows it works.
Update History.
Got rid of the complex anti-ban
added a new set run
used a different Tree Finder
e.g of a report
SCAR Code:Using Default Techniques
||===========================||
||->{Naumans}<- W1ll0w K1ll0w ->
||===========================||
||Post this on the thread plz||
||===========================||
Worked For 30 Minutes and 32 seconds
Willows Chopped 295
Deaths Avoided 2
Banked 11
||===========================||
||===========================||
||=============WK0===========||
||===========================||
In the future:
When I get time, I will re-create the form. Publish a new script under this name (complete REVAMP).
Enjoy!
VERSION 12.0 OUT NOW!!!
Quote:
Originally Posted by Vcanny
Thank-you for that, Now mind deleting that post?
dosnt work 4 me coz it always gets lost and directs it in a differant dirrection
I got this anybody know what I did wrong: Line 706: [Error] (16931:37): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\will0w kill0w.scar
Error:
include file C:\Program Files\SCAR 2.03\includes\srl/srl.scar does not exist
include file C:\Program Files\SCAR 2.03\includes\srl/srl/skill/woodcutting.scar does not exist
failed when compiling
:confused: Soz, i am new to this whole SCAR thing, help plz, havent found any script that works yet.... :eek:
@ wewaka is the line there mouseflag if it is change it to
SCAR Code:MouseFlag(x, y, 0, 0, 0)
@ Dave read some tutorials use the search button :)
I'm new to this stuff and It keeps saying that I dont have the program files included and how do i get those stuff?
I got this too.Quote:
Originally Posted by wewaka
It happens here (last line):
SCAR Code:Procedure FindTheBank;
Begin
SetRunFast(True);
MouseFlag(MMCX + 20, MMCY + 7, 5, 5);
Edit: Thnx for helping i see the post like 2 above me :P
Edit2: Now that I've got it working... GREAT!!!! First script in a while that I haven't wrote thats actually worked!!!! This is the kind of script that I plan on writing (eventually... when I learn more).
Problem: When I start logged off, it goes into settings but then keeps clicking on nothing... specifically, "Texture Detail" (the words, not the setting).
AND
now it keeps saying "Access violation".... this worked 20 minutes ago, WTF?
Ok i've upped a new version ;)
hey, im just starting to learn scripting, so if you don't mind can i use some of your procedures? ill give you lotsa credit :)
thanks for the help, I got it to start but it just keeps cicking the banker, what should I do
Naum check our Version 1 of this script lol:
:) i still got all the versions that we made 2gether lolSCAR Code: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[0] := 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;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 12 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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('E', True);
Wait(5000 + random(3000));
Runback;
DeathsAvoided:=DeathsAvoided+1;
end;
end;
10: if FindTalk then
Result := True;
11: if ClickToContinue then
Result := True;
12: if SolvePinball then
Result := 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 ScriptSetup;
Begin
If Not (loggedin) then
Begin
LoginPlayer
HighestAngle;
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
Move: Integer; //the variable
begin
Move := Random(18);
case Move 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: RandomCompass;
6: RandomButton;
7: RandomRclick;
end;
end;
procedure PinkyAntiBan;
var
DBanMe : Integer;
begin
DBanMe:= Random(15);
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;
function CheckForEnt: Boolean; //got permission from Fr0ze to use his ENT FINDER
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..');
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 NWait;
Begin
MarkTime(W0ot)
repeat
FindEnt(x, y, true);
PinkyAntiBan;
FindFastRandoms;
If FindChatText('wc') then
SayCurrentLevels('woodcutting');
until(not(IsUpText('Chop'))) or (TimeFromMark(W0ot) > 60000)
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 SCRIPT:P1NKY 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))
RadialWalk( FindRockColor , 280, 260, 60, 0, 0);
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;
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 Bank;
Begin
If (InvFull) then
GetApplication.Minimize;
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 :p')
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.
for somereson all the scripts ive ever got my mouse goes ape? keeps trying to click worng area./.?
I started it all went well then when it started working it just kept clicking crazy like an auto clicker :confused:
nice work. ;p looks nice.
you know i dont really like willow cutter. people don't buy willows in the g.e.
you did a nice job on the walking, it messes up on the banking some tho ;p
great script >><<
great script ran for hours fine!
Im closing this. Just another place where spammers cant spam!