phantombmx
2006-04-26 03:23:09
i noticed no one ever made somethin for the deposit boxes in banks but i see people use the deposit boxes all the time.. im not sure if all banks have it but hey heres the code.. it could be used for a more human-like banking without involving a pin.. its 3 differents procs/funcs there.. one to see if the deposit screen is open.. one to open it.. one to close it.. things can be added to this whole setup by adding a depositboxall; or somethin like that.. i find it to possibly be useful..
function DepositScreen:Boolean;
var DepositBox :Integer;
begin
DepositBox := BitmapFromString(20, 2, 'z78DA7373B3B43074330' +
'003134B1303631308E90616C72491D590A9DEC2D8D5D8D80DC35E' +
'645D0648009769E4A90700E17034B7');
if(FindBitmapIn(DepositBox, x, y, 260, 30, 315, 50))then
Result:=True
FreeBitmap(DepositBox)
end;
procedure OpenDeposit;
var p :Integer;
begin
if(DepositScreen)then Exit;
MarkTime(p)
if(FindColorTolerance(x, y, 538442, 5, 5, 513, 336, 2))then
begin
MMouse(x, y, 2, 2)
if(Option2('Deposit'))or
(IsUpText('Deposit'))then
begin
Mouse(x, y, 2, 2, false)
ChooseOption(x, y, 'Deposit')
repeat
Wait(1)
until(DepositScreen)or(TimeFromMark(p)>=20000)
end;
end;
end;
procedure CloseDepositbox;
begin
if(DepositScreen)then
Mouse(374, 37, 20, 5, true)
end;