SRL Archive - Help

So, I have been working on a script, and I have been coming across this error :( i am kinda new to Simba, so, I will be thankful for any advice!

I also am having trouble on logging in :-/. If anyone would know any working logging in 'declare players', plz tell me :D

program Script;

{$DEFINE Smart}
{$i SRL\SRL.scar}
{$i sps/sps.simba}

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
    begin
    Name        := 'XXXXXXX';
    Pass        := 'XXXXXXX';
    Pin         := '';
    BoxRewards  := ['XP','xp','lamp'];
    LampSkill   := 'Farming';
    Active      := True;
  end;
end;

var
X, Y, pieshell : Integer;

procedure LoadDTM;
begin
pieshellDTM := DTMFromString('78DA636C676060486040014BAB3DC0342394C' +
       'F381948A830A0012654350F81841501353F80441401352780C426' +
       '026AFA80C40E026A2280C41E026ADC89B00BE4A79504D42802892' +
       '904D448028942026AA488081F2520E14D408D2611716100244C08' +
       'A8B103123A04D4441291365281840C11E9670601352F81440F013' +
       '59F8044357E3500B7E31420');
       end;

procedure Findpieshell;
begin
Recult:= FindDTM(pie shellDTM, X, Y, MIX1, MIY1, MIX2, MIY2);
if Find pie shell then
Mouse(x,y, 0, 0, True);
end;


begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  FreeDTM(PieShellDTM);
  LoadDTM;
  Findpieshell;
end.
       

Thanks for any help xD, I know I have been posting a lot … :-(

What line has the error?

You need to put

LoginPlayer

after DeclarePlayers ;)

Edit: Oh, and DeclarePlayers should look like this:

procedure DeclarePlayers;
begin
  HowManyPlayers:= 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name      := '';
  Players[0].Pass      := '';
  Players[0].Nick      := '';
  Players[0].Pin       := '';
  Players[0].Active    := true;

end;

change:

pieshell-DTM := to pieshell := (line 28)
procedure Findpieshell; to function Findpieshell:boolean; (line 36)
Recult:= FindDTM(pie shellDTM to to Result:= FindDTM(pieshell (line 38)
if Find pie shell then to if result then (line 39)
FreeDTM(PieShellDTM); to FreeDTM(PieShell); (line 48)

thanks :-)

As always, great response from the community :D

Griff, the way DeclarePlayers is setup in that script is fine ;) Your way is old school :p