procedure DoBankStuff;
var
Item : TPoint;
begin
if FindDTM(FullBucket, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 0, 0, False);
Wait(100);
ClickOption('mpty', 2);
end;
if OpenMyBank then
Writeln('FoudnBank');
if not BankScreen then Exit;
Writeln('Starting');
Item := ItemCoords(1);
if FindDTM(EmptyBucket, x, y, Item.x - 10, Item.y - 15, Item.x + 10, Item.y + 15) then
Deposit(2, 28, 2)
else
Deposit(1, 28, 2);
Deposit(2, 28, 2); //Make Sure It Gets All
Wait(1000);
if not FindDTM(EmptyBucket, x, y, MIX1, MIY1, MIX2, MIY2) then
Withdraw(1, 1, 1);
Writeln('Done Withdrawing');
Wait(1000);
i := 0;
repeat
Writeln('Finding Clay');
if FindDTM(Clay, x, y, MSX1, MSY2, MSX2, MSY2) then
begin
Writeln('Found Clay!');
Mouse(x, y, 0, 0, False);
if ClickOption('All', 1) then
Break;
end;
i := i + 1;
until(i > 2)
if i > 2 then
begin
Players[CurrentPlayer].Loc := 'No Clay!?!?!';
Exit;
end;
Writeln('CLosing Bank');
CloseBank;
Wait(2000);
Writeln(Players[CurrentPlayer].Loc);
end;
it banks the empty bucket and doesn't withdraw any clay..
maybe its my DTMS, or my halfbaked-5minutemaded banking procedure above?
and yes im making a sexy flawless (if i can get banking flawless) clay softener =p