SRL Archive - First Scripts

program FriendlyFletcher ;
{$DEFINE SMART}
{$DEFINE CRASHSMART}
{$i srl/srl.simba}
{$i SPS\SPS.simba}

const
  S_World = 65;
  S_Signed = True;
  S_Member = True;
  Version = '1.00';
  SRLstats_Username = '';
  SRLstats_Password = '';
  BreakEvery = '';// How long until you break
  BreakFor = '';// How long the break is

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

  with Players[0] do
  begin
    Name := ''; //USERNAME
    Pass := ''; //PASSWORD
    Pin := ''; //PIN (if any)
    Active := True;
  end;
end;

procedure ArrowCreation;
var
  x, y, ArrowShaft, Feather, HeadlessArrow, Arrowtips : Integer;
Begin
  ArrowShaft := DTMFromString('m6wAAAHic42ZgYOAFYkkGCOAGYgEg5gJiMSBmAmIRIBYCYj6oOANUTAJKs0PFuaFqYMBRlRNqAmFsxEA8YCQBIwEAMF0B1w==');
  If FindDTM (ArrowShaft, X, Y, MIX1, MIY1, MIX2, MIY2) then
  begin
    WriteLn('Found Object');
    MMouse(X, Y, 7, 7);
    If IsUpText ('rrow') Then
      Mouse (X, Y, 0, 0, mouse_Left);
  End;

  Feather := DTMFromString('mwQAAAHic42RgYBBggABmIOYGYiEglgBiWSgWh4rLQ+VAfDEg5gViNqheRiBet3w5kGTCi+UYCANGIjAcAACoeQNT');
  If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
  begin
    WriteLn('Found Feathers')
    MMouse(X, Y, 7, 7);
    If IsUpText ('eather') then
      Mouse (X, Y, 0, 0, mouse_Left);
    wait (11 + Random (1));
  end;

  HeadlessArrow := DTMFromString('mkwEAAHicrc5JCoAwDIXhVIsTDljHIngx738P/8JbuHDZwEehSR5ZzKxHpzeVg0eFgEG9E5uk/4gdJUZcmHCov2LWbqO5lFuj1Wz4ZHhlR93xhLRZZHFbvnIZ/dQLS2oC3Q==');
  If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
  begin
    WriteLn('Found HeadlessArrows')
    MMouse(X, Y, 7, 7);
    If IsUpText ('eadless') then
      Mouse (X, Y, 0, 0, mouse_Left);
  end;

  HeadlessArrow := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
  If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
  begin
    WriteLn('Found HeadlessArrow')
    MMouse(X, Y, 7, 7);
    If IsUpTextMultiCustom (['eadless','rrow']) then
      Mouse (X, Y, 0, 0, mouse_Left);
  end;

  Arrowtips := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
  If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
  begin
    WriteLn('Found Arrowtips')
    MMouse(X, Y, 7, 7);
    If IsUpText ('rrowtips') then
      Mouse (X, Y, 0, 0, mouse_Left);
  end;

  FreeDTM(ArrowShaft);
  FreeDTM(Arrowtips);
  FreeDTM(Feather);
  FreeDTM(HeadlessArrow);
End;

begin
  SetUpSRL;
  DeclarePlayer;
  LogInPlayer;

  repeat
    ArrowCreation;
  until(false);
end.

This is supposed to make arrows from arrow shafts, then headless arrows, then to the product of arrows but it doesn't seem to work.

what does the script currently do?
does any of it work?

I suggest breaking it down a bit by making more procedures after every end;

I am not sure since i am new,but it tries to click arrowshafts, somehow missed it clicks on feathers, then it clicks on the task tab…and the mouse shakes very fast