View Full Version : Deposit Box
NexPB
01-17-2012, 08:32 PM
Nevermind.
heshbush
01-17-2012, 09:40 PM
if FindObjCustom(x, y, ['posit'], [6784665], 14) then
begin
Mouse(x, y, 2, 2, True);
To left click the box then;
QuickDeposit(SRL_DEPOSIT_ALL);
To deposit all.
NexPB
01-17-2012, 09:51 PM
if FindObjCustom(x, y, ['posit'], [6784665], 14) then
begin
Mouse(x, y, 2, 2, True);
To left click the box then;
QuickDeposit(SRL_DEPOSIT_ALL);
To deposit all.
No Iknow how to do it, but the script just stops with looping cause it doesn't see the inv.
Nebula
01-18-2012, 01:18 AM
If you want it to repeat the procedure forever, use "repeat...until".
procedure Loop;
begin
repeat //repeats the procedure.
if not (InvFull) then
begin
MineIron;
end else
if not (AtResource) then
begin
EnterResource;
end else
Bank;
Until(false); //repeats until False, but since the script never makes the procedure false, this repeats it forever.
end;
Hope this helps. Post if this doesn't work.
NexPB
01-18-2012, 03:20 PM
If you want it to repeat the procedure forever, use "repeat...until".
procedure Loop;
begin
repeat //repeats the procedure.
if not (InvFull) then
begin
MineIron;
end else
if not (AtResource) then
begin
EnterResource;
end else
Bank;
Until(false); //repeats until False, but since the script never makes the procedure false, this repeats it forever.
end;
Hope this helps. Post if this doesn't work.
It wil not execute the next procedures cause it doesn't see the inventory.
'Toxin
01-18-2012, 03:25 PM
It wil not execute the next procedures cause it doesn't see the inventory.
I'd be willing to help however I don't understand what the problem is here... why is it that the inventory must be seen in order for the deposit to be done, is this a failsafe of yours you've added?
NexPB
01-18-2012, 03:34 PM
I'd be willing to help however I don't understand what the problem is here... why is it that the inventory must be seen in order for the deposit to be done, is this a failsafe of yours you've added?
Check the loop please. but here this is wat I do in short.
if (InvFull) then
begin
MineOre;
end else
Bank;
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.