I need help writing the banking part of my fishing guild fisher. I think if I can get the bank walk and banking procedures, then I can post my guild fisher for everyone.
Thanks for your Help,
Korn
I need help writing the banking part of my fishing guild fisher. I think if I can get the bank walk and banking procedures, then I can post my guild fisher for everyone.
Thanks for your Help,
Korn
I'm not sure if this will work. It's the best I could do.
You need to fill in some stuff in BankOpener;
SCAR Code:Function BankOpener(Tol: Integer): Boolean;
var
a,b: Integer;
begin
if(FindColorSpiralTolerance(a,b,BankColor,x1,y1,x2,y2,Tol))then
begin
MMouse(a,b,5,5)
Wait(200+random(200))
if(IsUpText('ank'))then
begin
GetMousePos(a,b)
Mouse(a,b,0,0,false)
Wait(100+random(200))
Writeln('Bank found')
if(ChooseOption('Use-quickly'))then
begin
Result:= True;
Writeln('Bank opened')
end;
end;
end;
end;
Procedure GetBankOpen;
var
I: Integer;
B: Boolean;
begin
I:= 0;
repeat
I:= I + 1;
if(BankOpener(5+I))then
begin
Break;
end else
begin
Writeln('Did not find bank')
end;
until(I = 10)
end;
-Knives
Thanks man,
Ill try putting it in there and testing if it works out.
I might tweak it a little bit, and ill put you in the script.
Thanks,
Korn
wow.. cool.. im going to work this out..thx .
Nice i must say, for the banking part, you should use something like this:
This script isnt for SRL 4, did you make this?SCAR Code:function OpenBank12: Boolean; // I edited the procedure from SRL
var
x, y,c: Integer;
counter, BankCounter:integer;
begin
if (FindObjCustom(x, y, ['ank', 'Bank booth'], [3626593], 5)) then
begin
Mouse(x, y, 1, 1, False);
if (ChooseOption('quickly')) then
begin
FFlag(0);
repeat
Wait(100);
Inc(c);
until (BankScreen) or (c >= 50);
end;
end;
Result := BankScreen;
if BankScreen then
begin
wait(200);
FixBank;
if (FindDTM(Lobster, x, y, 568, 209, 742, 460)) then
begin
Mouse(x, y, 3, 3, false);
ChooseOption('All');
Result := True;
end;
if(FindDTM(Tuna, x, y, 568, 209, 742, 460))then
begin
Mouse(x, y, 3, 3, false);
ChooseOption('All');
Result := True;
end;
if(FindDTM(SwordFish, x, y, 568, 209, 742, 460))then
begin
Mouse(x, y, 3, 3, false);
ChooseOption('All');
Result := True;
end;
Exit;
end else
if not BankScreen then
begin
Result := False;
Writeln('Player coulnt find the bank');
Players[CurrentPlayer].Loc := 'Couldnt find the bank, Trying to get back.';
Players[CurrentPlayer].Active := False;
Logout;
Exit;
end;
end;
I have not set up SRL 4 for the script yet, i am not very far along on it. After i get all basic functions and procedures together i will add the SRL stuff.
theres some problems for me T.T
There are currently 1 users browsing this thread. (0 members and 1 guests)