Finding bank

[Xx pk xX]

Hey. Can some1 say me how can i make a great bank finder+opener in catherby bank? I don t like SRL bankers, becuase they are lagging too mutch, so they are slow (or if i will buy a new grafical card it will be better? Now i have 32mb graf. card, i will buy 128mb, will it help?).
What color finder/what procedure do you thing if i have to use to find bank?
Thank You.

[YoHoJo]

Naah graphic card doesnt matter much for most scar stuff.
I some some cruddy built in stock card its horrible.
I also agree, some of the SRL Bank finding is a bit slow =/

Here is a procedure i made for my fletcher.
Its never failed for me, might be slow, but if you choose good colors it should work great.

Program Banka;
{.include SRL\SRL.scar}
Const BankColor1=5328984;
Const BankColor2=9543334;
Const BankColor3=341581;

Procedure LoadShit(WhatShit:String);
Begin
Case (LowerCase(WhatShit)) Of
'bex':
BEX := DTMFromString('78DA637CC6C8C0A0CE80061819E4C02494F 71' +
'8C8D225A0E62190A54240CD4B204B87083504CC0100690E05 EF');
End;
End;

Function YoHoFindBank:Boolean;
Begin
If Not(LoggedIn) Then Exit;
Status('Finding Bank');
LoadShit('bex');
L:=0;
G:=0;
For I:=1 To 3 Do
Begin
If G=1 Then Break;
L:=L+1
Case L Of
1: BankBit:=BankColor1;
2: BankBit:=BankColor2;
3: BankBit:=BankColor3;
End;
X:=MSCX;
Y:=MSCY;
For P:=0 To 5 Do
Begin
If FindDTM(BEX,x,y,479, 33,495, 52) Then
Begin
Status('Bank Found');
Break;
Exit;
End;
If G=1 Then Break;
Wait(1000+Random(500));
FindNormalRandoms;
Writeln('Trying Color ' + InttoStr(BankBit)+ ' with a tol of ' + IntToStr(P*2));
If FindColorSpiralTolerance(x,y,BankBit,MSCX-P*30,MSCY-P*30,MSCX+P*30,MSCY+P*30,P*2) Then
Begin
MMouse(x,y,2,2);
Wait(300+Random(700));
If IsUptextMulti('ank B','ank','an') Then
Begin
Mouse(x,y,0,0,False);
PopUp('ick');
Flag;
Result:=true;
G:=1;
Banked:=Banked+1;
Exit;
End Else begin
Case Random(2) Of
0:Begin X:=X+Random(20) Y:=Y+Random(20) End;
1:Begin X:=X-Random(20) Y:=Y-Random(20) End;
End;
End; //just in case
End;
End;
End;
End;

Begin
YoHoFindBank
end.

You might need to tweak a few things and add the variables i used, but except for that it should work =).

Just make sure you get a nice compass angle, for cathbery just Do
PerfectNorth
YoHoFindBank

Tell me if you need help getting it to complie.

[Smartzkid]

Try using a series of findcolors? That's what I do for my first try at finding the bank, because it doesn't lag much.

If(findcolortolerance(...bankcolor1...))or
(findcolortolerance(...bankcolor2...))or
[...]
(findcolortolerance(...bankcolor6...))then
if(findcolorcircletolerance(...secondbankcolor1... ))or
(findcolorcircletolerance(...secondbankcolor2...)) or
[...]
(findcolorcircletolerance(...secondbankcolor6...)) then
begin
mouse(x,y,5,5,false);
chooseoption(x,y,'bank');
end;

I could post a real, working example later.