SRL Archive - Help

Bank Pin Support

(s)okkr7

2012-05-13 02:47:31

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

2012-05-13 02:49:30

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

2012-05-13 09:27:23

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

2012-05-13 09:51:56

@YoHoJo, sorry, forgot to mention this is GOOGLE's code.

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

putonajonny

2012-05-13 09:58:16

From: Sokkr7
@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

2012-05-13 10:24:25

From: Sokkr7

@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.