SRL Archive - Help

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

Does AK = al kharid?

Post some code.

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.

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

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

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

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

nope…………

any other tool to chat?

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

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

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

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

From: StickToTheScript
man… it still doesnt work for me… Did it work for you?

What happens?