SRL Archive - Help

Deposit Box


NexPB

2012-01-17 15:32:26

Nevermind.

heshbush

2012-01-17 16:40:37

    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

2012-01-17 16:51:57

From: heshbush
    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

2012-01-17 20:18:04

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

2012-01-18 10:20:55

From: Nebula
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

2012-01-18 10:25:22

From: NexPB
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

2012-01-18 10:34:48

From: XxX Toxin XxX
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;