Pin Screen Problem.

[Mattie403]

Why doesn't my bank method work?


procedure Bank;
begin
MakeCompass('E');
SetAngle(SRL_ANGLE_HIGH);
MMouse(223,168,5,12);
if IsUpText('ank') then
begin
Mouse(223,168,5,12,True);
end else
begin
Writeln('Could not find bank!');
FailSafe('No bank found');
end;
Writeln('Banking..');
if PinScreen then
InPin(Players[CurrentPlayer].Pin);
Wait(800+random(200));
DepositAll;
Withdraw(0,0,14);
Withdraw(1,0,14);
CloseBank;
end;

Here's what I have for my DeclarePlayers procedure:


procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['XP'];

With Players[0] do
begin
Name := 'name'; //Username.
Pass := 'pass'; //Password.
Active := True;
Pin := 'pin' // Bank Pin
end;

end;

[NickMystre]

This needs to be a 'string'.

Players[CurrentPlayer].Pin

If ...

CurrentPlayer := StartPlayer.
What is StartPlayer set to ?

And just to finish, what are you observing when you run the script ? Nothing ? An error ?

[YoHoJo]

Can you explain what exactly is going wrong?
Where does it mess up?
Also you can change your Mouse(223,168,5,12,True); to Mouse(223,168,0,0,True);
Because your MMouse moves to bank and checks uptext, and if it's right then you don't need any randomness before you click, you can just click.

[Mattie403]

Here are my constants:
Also, it compiles with no problem. When the pin screen opens up, it just ignores it and continues as if it's taking the items out of the bank.


const
SERVER = 0; // Enter "0" to pick a random server.
MEMBERS = True; //False if F2P
//BreakEvery = 250; // How long to bot before break(min)
//BreakFor = 10; // Break Length(min)
NumbOfPlayers = 1;
StartPlayer = 0;
AntibanAttempt = 8; //How much Antiban? 1=Always 10=Rare

[Sin]

What you should do:


repeat
wait(100);
until(PinScreen or BankScreen);
if PinScreen then
begin
saifubsifbsdi
wait(1000)
end;
if BankScreen then
iufnsinfs



Add a timeout there though.

[Mattie403]

The actual problem is typing in the pin. That's where I really need help.

[Sin]

Here-


if DidRedClick then
begin
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 7000 then
begin
Bank;
exit;
end;
until(PinScreen or BankScreen);
end;
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
end;





add T as a Integer

[Mattie403]

Shit ya! Tyvm Sin. what an amazing community.

[Sin]

Your welcome :)
If you need any more help, just ask.