Huthaifah
2011-07-11 03:28:43
I want it to ChopTree until(InvFull)
Bank and repeat
Tell me how to do this and which commands and where to put what, cause I mess things up a lot.
Thanks.
2011-07-11 03:28:43
2011-07-11 04:12:59
2011-07-11 04:27:06
2011-07-11 04:34:19
2011-07-11 04:36:34
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
with Players[0] do
begin
Name := '*********';
Pass := '*********';
Nick := '';
Pin := '*********'; // Bank Pin
Member := True;
Active := True;
end;
end;
function FindTree: Boolean; // i suggest you change this to a function
Var
TreeLocation :Tpoint;
begin
if not LoggedIn then Exit; // this is good practice, and helps not causing infinite loops
if (FindColorTolerance(TreeLocation.x, TreeLocation.y, 1324067, MSX1, MSY1, MSX2, MSY2, 5)) then // searches for the colour
begin
MMouse(TreeLocation.X, TreeLocation.Y, 0, 0); // moves to the exact point the correct colour is found
if (WaitUpTextMulti(['Tree', 'ree', 'etc'], RandomRange(400, 550))) then // searches for correct uptext,
begin // need a wait as uptext doesnt appear right away
Result := True;
writeln('Successfully found and clicked a tree');
Exit
end else
begin
Result := False;
writeln('FindColor true but uptext false, Result := False');
Exit;
end
end else
begin
Result := False;
writeln('Could not find the correct colour, Result := False');
Exit;
end;
end;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
FindTree;
end.
2011-07-11 04:40:11
2011-07-11 04:43:47
2011-07-11 04:44:17
From: Huthaifah
No, I'm a member, so it's easier for me. Right now having trouble with banking IDK where to put it, this is what I have so far
http://paste.villavu.com/show/8ImCvwiqRQORIVhsnB5w/
And how easy is an alcher?
2011-07-11 04:49:31
1. Got this now. But when I put play it opens tab with bank includes.
2011-07-11 05:04:18
2011-07-11 05:08:37
From: Huthaifah
No lol, on simba it opens a new tab about bank includes. like OpenBank, DepositItems, you know what I mean.
@Master easier no bots so I can take my time and not wait for the tree to regrow.
repeat
repeat
ClickTree;
WaitWhileCutting;
until(InvFull);
Bank;
until(loadsdone = loadsyouwanttobedone);
2011-07-11 05:10:39
2011-07-11 05:23:52
willow banker
start off in bank
check levels and if axe is equiped
if equiped walk to trees, if not search bank for one
when character is at the tree find and cut
wait until full
repeat
2011-07-11 06:47:22
From: Huthaifah
And how easy is an alcher?
2011-07-11 06:49:39
2011-07-11 11:34:33
2011-07-11 11:38:10
From: Bonfield
i would suggest learning colour then reflection, another good idea is to read scripts to see how people use the srl include
the script ma seem hard if you look at it like one massive piece of code, try to break it up into sections
2011-07-11 11:41:17
2011-07-11 13:08:44
From: Huthaifah
All of the draynor woodcutters are old :(. Help me fix this error, [Error] (6:1): Duplicate identifier 'Bank_DR' at line 5
Compiling failed.
http://paste.villavu.com/show/OE0tK3EGnOZaLNJxHsMu/
const
Bank_FE = 'feb'; // (Falador East Bank)
Bank_FW = 'fwb'; // (Falador West Bank)
Bank_VE = 'veb'; // (Varrock East Bank)
Bank_VW = 'vwb'; // (Varrock West Bank)
Bank_GE = 'geb'; // (Varrock GE Bank)
Bank_DR = 'db' ; // (Draynor Bank)
Bank_AK = 'akb'; // (Al-Kharid Bank)
Bank_EV = 'eb' ; // (Edgeville Bank)
Bank_CT = 'ctb'; // (Catherby bank)
Bank_CM = 'clt'; // (Camelot bank)
Bank_NA = 'nab'; // (North Ardougne bank)
Bank_SA = 'sab'; // (South Ardougne bank)
Bank_YN = 'ynb'; // (Yanille bank)
Bank_NG = 'ngb'; // (North gnome bank)
Bank_SG = 'sgb'; // (South gnome bank)
Bank_WG = 'wgb'; // (Warrior guild bank)
Bank_FG = 'fgb'; // (Fishing guild bank)
2011-07-11 13:13:54
From: Huthaifah
All of the draynor woodcutters are old :(. Help me fix this error, [Error] (6:1): Duplicate identifier 'Bank_DR' at line 5
Compiling failed.
http://paste.villavu.com/show/OE0tK3EGnOZaLNJxHsMu/
2011-07-11 14:21:48
2011-07-11 14:27:21
2011-07-11 15:03:43
2011-07-11 16:02:33
function FindTreeAndChop: Boolean; // i suggest you change this to a function
Var
TreeLocation :Tpoint;
begin
if not LoggedIn then Exit; // this is good practice, and helps not causing infinite loops
if (FindColorTolerance(TreeLocation.x, TreeLocation.y, 1324067, MSX1, MSY1, MSX2, MSY2, 5)) then // searches for the colour
begin
MMouse(TreeLocation.X, TreeLocation.Y, 0, 0); // moves to the exact point the correct colour is found
if (WaitUpTextMulti(['Tree', 'ree', 'etc'], RandomRange(400, 550))) then // searches for correct uptext,
begin // need a wait as uptext doesnt appear right away
Mouse(TreeLocation.x, TreeLocation.y, 5, 5, True); // this is where you click the tree
Result := True;
writeln('Successfully found and clicked a tree');
Exit
end else
begin
Result := False;
writeln('FindColor true but uptext false, Result := False');
Exit;
end
end else
begin
Result := False;
writeln('Could not find the correct colour, Result := False');
Exit;
end;
end;
Mouse(TreeLocation.x, TreeLocation.y, 5, 5, True);
2011-07-11 16:49:58
2011-07-11 18:32:26
while not InvFull do
begin
if FindTree then WaitWhileChopping else FindTree
// etc
end else
Bank;
2011-07-11 18:35:10
2011-07-11 18:41:17
2011-07-11 18:46:36
2011-07-11 18:49:52
2011-07-11 19:09:22
2011-07-11 19:19:53
2011-07-11 19:39:49
2011-07-11 19:51:43
2011-07-11 19:53:58
2011-07-11 20:34:12
From: Bonfield
I wouldnt really use reflection for that, a simple count colour, or TPA check would work fine plenty of ways to check that you are cutting a tree
Does marpis' isanimating still work?
2011-07-11 20:34:23
2011-07-11 20:39:34
2011-07-11 20:40:33
2011-07-11 20:47:17
2011-07-11 20:50:42
*
(TreeLocation.x)(TreeLocation.y, 3, 3, true));
* * while (not(InvFull)) do
* * * FindTree; // need a begin here, you also dont want all these things happening while the inventory is empty
* * * WalkToBank;
* * * BankLogs; // is this finished? Cause it won't work it just counts at the moment
* * * WalkToTrees;
* until (Logs_Chopped >= LOGS);
2011-07-11 20:51:22
2011-07-11 20:57:42
2011-07-11 20:58:10
2011-07-11 20:59:14
2011-07-11 21:10:09
2011-07-11 21:42:36
2011-07-14 18:37:41
2011-07-14 18:38:43
2011-07-14 18:39:41
From: Huthaifah
It's okay, I quit making the script, I don't understand anything I'm doing so I don't want to leech, thanks for the help though :)
2011-07-14 18:56:51
2011-07-14 19:05:22
2011-07-14 19:12:41
From: Huthaifah
I'm only 13 and don't understand half the things I read from the tuts….
2011-07-14 19:34:56
From: Huthaifah
It's okay, I quit making the script, I don't understand anything I'm doing so I don't want to leech, thanks for the help though :)
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Logs_Chopped := 0;
repeat
while (not(InvFull)) do
begin
FindTree;
//your wait function
end;
WalkToBank;
BankLogs;
WalkToTrees;
until (Logs_Chopped >= LOGS);
Logout;
end.SetupSRL;
DeclarePlayers;
if not(LoggedIn) then
LoginPlayer;2011-07-15 00:22:06
2011-07-15 03:52:41