CRASH_OVERRIDE
12-01-2012, 04:55 AM
Hey guys,
Im not sure if it is because of an update or not, But it seems the "OpenDepositBox" does not work. When i use this it looks like the red dots sweeping my screen clean of dust or something. It scanning non stop and keeps saying 'Could not find the deposit box'. I think the function needs to be updated?
function OpenDepositBox : Boolean;
var
X, Y, T:integer;
begin
result := false;
If(not(LoggedIn)) then exit;
begin
if FindObjTPA(x, y, 739167, 10, -1, 30, 30, 200, ['deposit']) then
begin
GetMousePos(X, Y);
Mouse(x, y, 0, 0, mouse_left);
Result := True;
T :=0;
repeat
Inc(T);
Wait(500+random(500));
until (DepositScreen) or (T>=30);
end else
Writeln('Could not find the deposit box');
end;
end;
My Custom deposit banking is 100% more accurate and faster than the above. And mine is not even using a TPA?
{Banks Inventory at the Deposit Box.}
Procedure BankInventory;
Var
CX, CY: Integer;
Begin
CX := MSCX;
CY := MSCY;
If(InvFull) Or Not(InvEmpty) Then
Begin
IncEx(SapphireMined, CountItems('dtm', DTM_Sapphire, []));
IncEx(EmeraldMined, CountItems('dtm', DTM_Emerald, []));
IncEx(RubyMined, CountItems('dtm', DTM_Ruby, []));
IncEx(DiamondMined, CountItems('dtm', DTM_Diamond, []));
MakeCompass('W');
SetAngle(SRL_ANGLE_LOW);
StatusReport('Status: Locating DepositBox');
Flag;
Repeat
If (FindObj(CX, CY, 'eposit', 6125962, 10)) Then
Case Random(2) Of
0: Begin
Mouse(CX, CY, 0, 0, True);
StatusReport('Status: Banking all Items');
End;
1: Begin
Mouse(CX, CY, 0, 0, False);
WaitOption('eposit', 150);
StatusReport('Status: Banking all Items');
End;
End;
Flag;
QuickDeposit(SRL_DEPOSIT_All);
Until(InvEmpty);
End;
End;
I would very much like to be able to not need this and just use "OpenDepositBox" and "DepositAll" But neither work.
Even the DepositAll function doesn't work, Yet the function it refers to Does?
QuickDeposit(SRL_DEPOSIT_ALL);
Also a suggestion: Could you add a Case for the banking so instead or rightclicking and banking it has 2 options, right click or left click with a 50/50 possibility. So theirs 50% chance it will right click the depositbox. Or 50%chance it will just single left click it? I use that in my script and it works rather well. And its another antiban type feature i guess.
Im not sure if it is because of an update or not, But it seems the "OpenDepositBox" does not work. When i use this it looks like the red dots sweeping my screen clean of dust or something. It scanning non stop and keeps saying 'Could not find the deposit box'. I think the function needs to be updated?
function OpenDepositBox : Boolean;
var
X, Y, T:integer;
begin
result := false;
If(not(LoggedIn)) then exit;
begin
if FindObjTPA(x, y, 739167, 10, -1, 30, 30, 200, ['deposit']) then
begin
GetMousePos(X, Y);
Mouse(x, y, 0, 0, mouse_left);
Result := True;
T :=0;
repeat
Inc(T);
Wait(500+random(500));
until (DepositScreen) or (T>=30);
end else
Writeln('Could not find the deposit box');
end;
end;
My Custom deposit banking is 100% more accurate and faster than the above. And mine is not even using a TPA?
{Banks Inventory at the Deposit Box.}
Procedure BankInventory;
Var
CX, CY: Integer;
Begin
CX := MSCX;
CY := MSCY;
If(InvFull) Or Not(InvEmpty) Then
Begin
IncEx(SapphireMined, CountItems('dtm', DTM_Sapphire, []));
IncEx(EmeraldMined, CountItems('dtm', DTM_Emerald, []));
IncEx(RubyMined, CountItems('dtm', DTM_Ruby, []));
IncEx(DiamondMined, CountItems('dtm', DTM_Diamond, []));
MakeCompass('W');
SetAngle(SRL_ANGLE_LOW);
StatusReport('Status: Locating DepositBox');
Flag;
Repeat
If (FindObj(CX, CY, 'eposit', 6125962, 10)) Then
Case Random(2) Of
0: Begin
Mouse(CX, CY, 0, 0, True);
StatusReport('Status: Banking all Items');
End;
1: Begin
Mouse(CX, CY, 0, 0, False);
WaitOption('eposit', 150);
StatusReport('Status: Banking all Items');
End;
End;
Flag;
QuickDeposit(SRL_DEPOSIT_All);
Until(InvEmpty);
End;
End;
I would very much like to be able to not need this and just use "OpenDepositBox" and "DepositAll" But neither work.
Even the DepositAll function doesn't work, Yet the function it refers to Does?
QuickDeposit(SRL_DEPOSIT_ALL);
Also a suggestion: Could you add a Case for the banking so instead or rightclicking and banking it has 2 options, right click or left click with a 50/50 possibility. So theirs 50% chance it will right click the depositbox. Or 50%chance it will just single left click it? I use that in my script and it works rather well. And its another antiban type feature i guess.