Help With Banking In AK

[StickToTheScript]

Hello,

I am currently working on a banking script that works pretty nicely, except for the issue that the AK Bank will rarely open.

I've used many guides to help me but none of them seem to work.

Any help would be nice!

Thanks,

StickToTheScript

[Nebula]

Does AK = al kharid?

Post some code.

[StickToTheScript]

ive used tons of stuff, but the closest i can get to constantly doing the opening of the bank is this:

Procedure Bank;
begin
MakeCompass('E');
OpenBankQuiet('akb')
Flag;
wait(500 + random(500));
FixBank;
Writeln('Entering In PIN... If there is one...')
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
writeln('Pin Entered.');
end;
end;

And yes, this is al kharid.

[Gucci]

If it's Al-Kharid bank then OpenBankFast('akb');

OpenBank('akb', true, true); --> this work?

[StickToTheScript]

Gucci, i tried it... so many times already...... it doesnt work.......

[Nexz]

if it can't find the bank i'm sure i can help you with that, do u use skype/msn?

[StickToTheScript]

nope............

[Nexz]

any other tool to chat?

[StickToTheScript]

not that i know of... Uhm, would just a thread work? or we could just PM eachother..

[Nexz]

normally i love to use FindObjTPA
but that might not work in this case so maybe FindColoredAreaTolerance or a diff FindTPA'er

oh and
http://www.chattingeasy.com/free-chat-rooms-no-registration.html
if u want

[JuKKa]

use this


function OpenAKBank: Boolean;
var
P: TPoint;
arP: TPointArray;
ar2P: T2DPointArray;
c, tmpCTS, i: Integer;
begin
//WaitFunc(@Inverted_Ismoving, 50, 3000);

tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);

FindColorsSpiralTolerance(MSCX, MSCY, arP, 10340332, MSX1, MSY1, MSX2, MSY2, 23);
ar2P := TPAtoATPAEx(arP, 40, 40);
SortATPAFrom(ar2P, Point(MSCX - 50, MSCY - 40));
for i := 0 to high(ar2P) do
begin
P := MiddleTPA(ar2P[I]);
//usually around 250 the "Inrange" can be lowered.
C := CountColorTolerance(4409678, P.X - 30, P.Y - 30, P.X + 30, P.Y + 30, 16);
If ( InRange(C, 200, 350))Then
Begin
MMouse(P.x, P.y, 8, 8);
if WaitUpTextMulti(['Bank', 'ank', 'booth', 'ooth'], 500)then
Begin
//Writeln('boothcount '+inttostr(C));
GetMousePos(P.x, P.y);
Mouse(p.x, P.y, 0, 0, true);
if not DidRedClick then break;
FFLag(0);
MarkTime(c);
repeat
Wait(100);
until (BankScreen) or (PinScreen) or (TimeFromMark(c) > 10000);
Wait(Random(300));
if (HowManyPlayers > 0) then
if (Players[CurrentPlayer].Pin <> '') then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
if (Result) then Break;
End else
writeln(inttostr(I)+' = '+inttostr(c));
End;
end;
If(Result)Then
Writeln('Bank open');
ColorToleranceSpeed(tmpCTS);
end;

try this instead of the SRL bank opener

[StickToTheScript]

man... it still doesnt work for me... Did it work for you?

[Wyn]

man... it still doesnt work for me... Did it work for you?

What happens?