Log in

View Full Version : Bank Pin Support



(s)okkr7
05-13-2012, 06:47 AM
Couldn't find anything about this, but is there any certain way I could implement bank pin support into an astral crafter? I have Pin:= ' ' , and:

Procedure HandleBanking;
Begin
If (BankScreen) or (PinScreen) Then
Begin
If (PinScreen) Then
Repeat
InPin(Players[0].Pin);
Until (BankScreen);
If (Bankscreen) Then
Begin
MouseSpeed := 40
If UseFamiliar = ('No') Then
Begin
HandleFood;
End;
DepositAstral;
WithdrawSupps;
FillPouch;
End;
MouseSpeed := 22
End;
End;

: but it doesn't seem to work, any help is welcome!

YoHoJo
05-13-2012, 06:49 AM
Did you make this, or someone else's script?

From the code it looks like it supports pins already.
Contact the script marker to ask for support.

Abu
05-13-2012, 01:27 PM
In your Declare Players procure, if you have .Pin := ; then your procedure should look like this:
procedure HandleBanking;
begin
if (PinScreen) then
InPin(Players[CurrentPlayer].Pin);

if (Bankscreen) then
begin
MouseSpeed := 40
if UseFamiliar = ('No') then
HandleFood;
DepositAstral;
WithdrawSupps;
FillPouch;
end;

MouseSpeed := 22
end;

(s)okkr7
05-13-2012, 01:51 PM
@YoHoJo, sorry, forgot to mention this is GOOGLE's code.

@abu_jwka, changing the (0) to (currentplayer) won't effect it will it?

putonajonny
05-13-2012, 01:58 PM
@YoHoJo, sorry, forgot to mention this is GOOGLE's code.

@abu_jwka, changing the (0) to (currentplayer) won't effect it will it?

It will do if you aren't using player 0


This Line Made Me LOL:
if UseFamiliar = ('No') then

Abu
05-13-2012, 02:24 PM
@abu_jwka, changing the (0) to (currentplayer) won't effect it will it?

That's not all I changed, I also changed the way you set it out which could stop it from working.