Need help with this Script please! Noob Here!

This compiles.

Simba Code:

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.

thanks can i ask you what you did and if you took out anything?

• You don't need to define "ChooseOption" as a function since that's already included in SRL, so I took those out.
• I made all the Mouse methods use "mouse_Left" per SRL5.
• I made sure everything had a ";" where applicable.
• I added FreeDTM()'s at the end of your procedure.
• Just cleaned up the standards

Simba Code:

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;

and you took out my choose option like make headless arrow

^^ we posted at the same time sorry and thanks for explaining!

when I start it said members false? I have it as true?

also I tried to run it it finds the feathers good but has trouble with the arroqshafts can some1 experienced try it out the members thing isnt a huge deal atm.

Add:

Simba Code:

Smart_Server := S_World;
  Smart_Members := S_Members;
  Smart_Signed := S_Signed;

Right above the "SetupSRL;"

Thanks do you think you can test it out, or contact some1 because i am not sure whats it wrong thanks.

This is a arrow maker it should go from arrowshafts,to feathers, then headless arrows to arrowtips.

Thanks

Simba Code:

S_World = 65;
  S_Signed = True;
  S_Member = True;

Quote:

---

Originally Posted by mikeym

Simba Code:

S_World = 65;
  S_Signed = True;
  S_Member = True;

---

Yes it should. I would love to test but no membership here so it is not possible I'm f2p only. Sorry bout before I'm sick at the moment so I needed a break.

its okay do u know why it isn't doing the right thing by just looking at it?

Quote:

---

Originally Posted by mikeym

its okay do u know why it isn't doing the right thing by just looking at it?

---

No I have no idea sorry. Testing would be much more useful because then you will know where you went wrong.

Do u know any1 that can test this then :/

Quote:

---

Originally Posted by mikeym

Do u know any1 that can test this then :/

---

Sadly no. Anyone in this community really can. Ask some of the active people. Or make a new thread asking for a few testers. I can ask a few people maybe but no promises.

ok thanks