chris91
2012-06-12 21:13:58
I filled in '14', but it will not withdraw, any help?
procedure WithdrawMaterials;
var
x,y:integer;
t,t2:Integer;
begin
SetAngle(SRL_ANGLE_HIGH);
Writeln('Opening Bank…');
OpenBankChestEdge(SRL_BANK_SW);
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 15000 then
TerminateScript;
until(PinScreen or BankScreen);
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
end;
if BankScreen then
begin
Writeln('Despositing…');
DepositAll;
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 5000 then
exit;
until(InvEmpty);
Writeln('Searching for SerumUnf…');
if FindDTM(SerumUnf,x,y,MBX1,MBY1,MBX2,MBY2)then
begin
Writeln('Found SerumUnf!');
Mouse(x,y,0,0,False);
WaitOption('14',2000);
end;
Writeln('Searching for Ashes…');
if FindDTM(Ashes,x,y,MBX1,MBY1,MBX2,MBY2)then
begin
Writeln('Found Ashes!');
Mouse(x,y,0,0,False);
WaitOption('14',2000);
end;
MarkTime(t2);
repeat
wait(100);
if TimeFromMark(t2) > 15000 then
exit;
until(InvFull);
if InvFull then
Writeln('Done banking!');
CloseBank;
end;
end;
// * Procedure MakeSerums