
Originally Posted by
VastlySuperior
Can Anyone Run this procedure and tell me why it is not finding the dtm for the softclay.
I really need some help here as well as some advice.
Simba Code:
procedure WithDrawItems;
var
Temp, x, y:Integer;
Begin
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
DTM_SoftClay := DTMFromString('mAAEAAHic42FgYOABYhYg5gNiMSCWBmIJIBYFYmGoPBsQMzNAABdUPQgwQeVAaoSgemBYCGpmhAMvVCVx2IiBNMBIIkYGAI2tAj0=');
DTM_Clay := DTMFromString('mFQEAAHicnc05CoBAEETRanFBcUm8jBMo7oGH8RLeW78wieFY8KiCDrqSlJl00xEdI0WBEg1a1Mj93TBixooNu+8FE3o4dH4PuM7j/RIkUXjsh08eBisGRg==');
OpenbankFast('db');
Wait(500 + random(400));
// Withdraw Soft Clay From Bank
While (not(InvFull)) do
Begin
If WithDrawItem(DTM_SoftClay, 'dtm', 28, 'oft', []) then // WithDraw item From Bank
Begin
WriteLn('Success');
Wait(400 + random(200));
CloseBank;
FreeDTM(DTM_SoftClay);
FreeDTM(DTM_Clay);
End;
End;
End;
You can change OpenbankFast('db'); to any bank, all you will need is soft clay.
I would really appreciate it.
Thanks
So assuming your DTM is correct here is what I would do:
Simba Code:
procedure WithDrawItems;
var
x, y, DTM_SoftClay : Integer;
aFound : Extended;
begin
repeat
SetAngle(SRL_ANGLE_HIGH);
MakeCompass('N');
OpenBankNPC;//assuming it is a npc banker you can change to a chest if you want
until BankScreen or PinScreen;
{if PinScreen then //use this if you declare a pin
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
end;}
if not(InvFull) then
begin
DTM_SoftClay := DTMFromString('mAAEAAHic42FgYOABYhYg5gNiMSCWBmIJIBYFYmGoP'+
'BsQMzNAABdUPQgwQeVAaoSgemBYCGpmhAMvVCVx2IiBNMBIIkYGAI2tAj0=');
{DTM_Clay := DTMFromString('mFQEAAHicnc05CoBAEETRanFBcUm8jBMo7oGH8RLeW78wieFY'+
'8KiCDrqSlJl00xEdI0WBEg1a1Mj93TBixooNu+8FE3o4dH4PuM7j/RIkUXjsh08eBisGRg==');}
// you arnt using regualr clay...
if FindDTMRotated(DTM_SoftClay, x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4,
Pi/60, aFound) then
begin
MMouse(x, y, 5, 5);
if (IsUpText('oft')) then
begin
GetMousePos(x,y);
Mouse(x, y, 0, 0, false);//right clicks dtm
WaitOptionMulti(['All'], 200);
end;
Wait(600);
end;
Freedtm(DTM_SoftClay);
end;
end;
Does that work for you?