SRL Archive - FAQ

won't withdraw? help!


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

CephaXz

2012-06-12 21:34:23

Did you already withdraw it once with Withdraw X and type in 14? If not it won't have the 14 option.

chris91

2012-06-12 21:40:35

let me try that.

johnbrown8976

2012-06-12 23:01:01

There is a predefined function in srl which withdraws the given DTM.

WithdrawItem('dtm', ashDTM, 14, 'ash',[10])