Can I put a loop like this?
Simba Code:
If PinScreen then
Repeat
Writeln('Attempted to Input Bank Pin');
InPin(BankPin);
Wait(500 + Random(200));
Until (not (PinScreen))
Will this also do a loop until the PinScreen do not appear?
Edit: PinScreen Still Not Working after Changes.
Ok, I have made some changes, First, I have Removed the BankPin From the Constants and have declared it under DeclarePlayers as I think it should have been in the first place.
Here is the code as it looks now:
Simba Code:
procedure DeclarePlayers;
begin
HowManyPlayers := NumbOfPlayers;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
with Players[0] do
begin
Name := 'UserName'; // Username
Pass := 'Password'; // Password
Pin := ''; // Leave Blank If No Bank Pin Number
Active := True; // Set to true if you want to use Player 0
Integers[2] := 0;
end;
end;
Should I declare it in any other way under DeclarePlayers,
Should I convert it to a string maybe as mentioned or is that unnecessary?
The Shop Function I have changed like this.
Simba Code:
Mouse(44, 90, 10, 10, mouse_Right);
Wait(RandomRange(600 * SPEED, 800 * SPEED));
ChooseOption('500');
If PinScreen then
Begin
Writeln('Attempted to Input Bank Pin');
InPin(Players[0].Pin);
Wait(500 + Random(200));
End;
I`ll wait for some more response otherwise I will just isolate these two functions in a script in its simplest form and try to make it happen. Also create a bank procedure where it use PinScreen and compare the two. Does a PinScreen work different in a shop from a bank?
If it works in a bank then it is supposed to work in a shop in the same way?
Thanks for the response guys. Appreciate it.