PDA

View Full Version : WithdrawBankSlot(Slot,Amount:Integer):Boolean;



Sin
03-19-2012, 02:02 PM
function WithdrawBankSlot(Slot,Amount:Integer):Boolean;
var
Much:String;
begin
Result := False;

if BankScreen then
begin
MouseBankSlot(Slot,0);
Wait(250);
Much:= IntToStr(Amount);
if OptionsExist([Much],True) then
begin
ClickMouse2(True);
Result := True;
end else
begin
ChooseOption('X');
TypeSend(Much);
Result := True;
end;
end;
if Result then
exit else writeln('Failed to withdraw');
end;

Thought this might be useful since I use it alot.

footballjds
03-19-2012, 04:18 PM
function WithdrawBankSlot(Slot,Amount:Integer):Boolean;
var
Much:String;
begin
Result := False;

if BankScreen then
begin
MouseBankSlot(Slot,0);
Wait(250);
Much:= IntToStr(Amount);
if OptionsExist([Much],True) then
begin
ClickMouse2(True);
Result := True;
end else
begin
ChooseOption('X');
TypeSend(Much);
Result := True;
end;
end;
if Result then
exit else writeln('Failed to withdraw');
end;

Thought this might be useful since I use it alot.

this needs fail-safed significantly more if it will ever go in an include.
I'd say start by fail-safing the time between chooseoption and typesend.
note, lag etc could delay the appearance of the text box to type into.

Nebula
03-21-2012, 02:14 AM
Sorry I can't see how this is different than Withdraw();
(Mind explaining?)