Bot not typing in Pin number

[Blazeron]

Players[0].Pin :='';

Is my current line but when it gets to the part where it needs to type in the pin it does nothing.

Thanks for any help

PS my main is

begin
Activateclient;
MouseSpeed:=RandomRange(10,15);
SetupPlayers;
SetUpSRL;
LoginPlayer;
SetupSps;
wait(1000);
Main;
end.

[YoHoJo]

Post entire script and put the code in Simba tags.

[Blazeron]

program Oak Planks;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}

const
BnkTab = 2;

var
PlanksMade,BSlotc,BSlotr,x,y:integer;
GotSlot,Location:string;
Walking: TPointArray;

procedure SetupPlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Location:='Bank';
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Pin :='';
Players[0].Active:=True;
Players[0].loc := Location;
end;

procedure SetupSps;

begin
SPS_Setup(RUNESCAPE_SURFACE, ['12_7', '12_6']);
SPS_Continue := false;
end;

procedure DoWalking;
begin
if Location = 'Bank'then
begin
Walking := [Point(4835,2954),Point(4844,2823)
,Point(4886,2923), Point(4943,2919)
,Point(4955,2880),Point(4962,2833)
,Point(4978,2791),Point(5004,2752)
,Point(5021,2713),Point(5028,2688)
,Point(5027,2671)];
Writeln('walkin there');
Mouse(630,54,5,5,true);
if SPS_WalkPath(Walking) then
begin
WriteLn('We made it');
Location:='SawMill';
Wait(RandomRange(500,600));
end else
Writeln('we got lost... Please post where you got lost');
end else
if Location = 'SawMill'then
begin
InvertTPA(Walking);
Writeln('walkin back');
if SPS_WalkPath(Walking) then
begin
WriteLn('We made it');
Location:='Bank';
Wait(RandomRange(500,600));
end else
Writeln('we got lost... Please post where you got lost');
end;
end;

procedure GetPlanks;
var
T,a,b,c,d: Integer;
begin
if not(LoggedIn)then exit;
T:=RandomRange(2,6);
d:= 0;
b:= 0;
if Location ='SawMill'then
begin
repeat
FindObjCustom(x,y,['awm',' oper'],[13616847,14340570,12564415],25);
MMouse(x,y,T,T);
Inc(c)
Wait(RandomRange(250,500));
until (IsUpText('awmill')) or (c>=5);
if (IsUpText('awmill')) then
begin
repeat
Mouse(x, y, T, T, false);
Inc(b)
Wait(RandomRange(500,700));
until ChooseOption('y-p')or (b>=5);
repeat
if not IsUpText('ak') then
begin
FindColorSpiralTolerance(x,y,16764672,MSCX,MSCY,MS X2,MSY2,20);
MMouse(x,y,T,T);
Inc(a)
end;
Wait(RandomRange(500,700));
until(IsUpText('Oak'))or(a>=5);
if IsUpText('ak') then
begin
Mouse(x,y,T,T,false);
while not(ChooseOption('l O'))and(d>=5)do
begin
Wait(RandomRange(500,700));
Mouse(x,y,T,T,false);
Inc(d);
end;
end;
end;
end;
end;

procedure rest;
begin
end;

procedure CheckInv;
begin
//Check banking worked
//Check planking Worked



end;

procedure DoWithdraw(uptext:string;Amount:integer);
var
i,Col,Row:integer;
begin
i:=0;
BankTab(BnkTab);
repeat
if WithdrawEx(Col,Row,Amount,[uptext])then
begin
i:=1;
BSlotc:=Col;
BSlotr:=Row;
GotSlot:='yes';
end else
Inc(Col);
Until ((Col=10) or (i=1));
end;

procedure DoDeposit;
var
I: Integer;
begin
GameTab(tab_inv);
for I := 2 to 28 do
if (ExistsItem(I)) then
begin
Wait(500+RandomRange(100,200));
Findobj(x,y,'ak',3690596,35);
Mouse(x,y,0,0,false);
Wait(500+RandomRange(100,200));
ChooseOption('t-A');
end;
end;

procedure Bnk;
var
tri:integer;
begin
if FindObj(x, y, 'ank', 1324353, 35) then
begin
Mouse(x,y,30,30,false);
ChooseOption('ank');
Wait(RandomRange(500,600));
// OpenBank('veb',false,false);
// wait(RandomRange(500,700));
if BankScreen then
begin
wait(400+RandomRange(30,70));
DoDeposit;
MouseSpeed:= RandomRange(30,45);
DoWithdraw('ak ',27);
tri:=7;
CloseBank;
//BreakTiming;
end else
Inc(tri);
if tri <= 5 then
begin
Bnk;
if tri >= 5 then
Writeln('Failed Banking');
exit;
end else
if tri >= 6 then
begin
Writeln('Banking Dne');
tri:=0;
end;
end;
end;



procedure CheckLoc;
begin
//Case Location of
// 'Bank': WalkMil;
// 'SawMill': WalkBnk;
//end;
end;

procedure proggy;
begin
cleardebug;
writeln('||----------------------------------------||');
writeln('||----------- Cru1z1ns Plank O Matic ----------||');
writeln(' Ran for '+TimeRunning+'');
writeln('||-----'+'Planks made : '+IntToStr(PlanksMade)+'-----------------||');
writeln('||----------------------------------------||');
end;

Procedure main;
var ii:integer;
begin
Bnk;
repeat
inc(ii);
DoWalking;
GetPlanks;
PlanksMade:=PlanksMade+27;
proggy;
DoWalking;
Bnk;
until(ii = 2)
proggy;
writeln('Thanks for using Plank O Matic please post your proggy');
end;

begin
Activateclient;
MouseSpeed:=RandomRange(10,15);
SetupPlayers;
SetUpSRL;
LoginPlayer;
SetupSps;
wait(1000);
Main;
end.

I know there is alot of problems it was reflection when i got it although this shouldn't stop anyone from telling me exactly what those problems are :)

[YoHoJo]

That's still not the entire script. Need to see ALL of it.
Also what do you mean. Are you trying to revive a reflection script?
Reflection for Simba has been broken/dead for a long time and it would be easier to start from scratch rather than trying to revive it.

[baja_blast1]

I had the same problem so i just made the pin a const.