need help with first script

[hopetobedabest]

like u said i would have to know tree finding so say im all rady at the trees would i find them by like searching the screen some how and if symbol is not found than search tell it is found if found chop

[hopetobedabest]

and how would i deal with axe breaking and what not

and is normalrandom a built in function so it just deals with all the randoms for u?

[i luffs yeww]

Axes don't break anymore.

FindNormalRandoms will deal with randoms, you just have to use it effectively (at the right places and what not).

[hopetobedabest]

wow so much has changed lol


ok can u just explain declareplayers as a hole y use it what does it do and y use it

[RISK]

I'm sorry for the late reply to your question.

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

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Pin  := '';
    Active:=True;
  end;
end;

What "DeclarePlayers" is:
DeclarePlayers is for character information that is used to log in to the game and detecting. This is a very needed procedure. All you have to do is "Call" on it in your main loop procedure and then you are set!

What "DeclarePlayers" is used for:
Logging in your character and random detection.

--

"with Players[0] do":
This is a neater and more "Advanced" way to say this:

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

Name: Character username
Pass: Character password
Nick: Character nickname (3 ~ 4 letters of the username)
Pin: Character bank pin
Active:=True: This tells your script that this character / player is active and is to be used in the script.


Here is a script that uses DeclarePlayers and MainLoop procedures. It is a very rough example of what could be done with a MainLoop procedure. It should be self explanatory though.

program new;
{$i SRL/SRL.scar}

var X, Y : Integer;

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

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Pin  := '';
    Active:=True;
  end;
end;

procedure MainLoop;
begin
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  LogInPlayer;
  ClearDebug;
  if InvFull then
  begin
    WalkToBank;
    UseBank;
    WalkToTrees;
  end else
    repeat
      ChopTrees;
      WalkToBank;
      UseBank;
      WalkToTrees;
    until(Runs >= 1);
end;

begin
MainLoop;
end.

wow so much has changed lol


ok can u just explain declareplayers as a hole y use it what does it do and y use it

If you need anymore help, feel free to ask.