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.
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.