Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 55

Thread: Need help with this Script please! Noob Here!

  1. #26
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    okay thank you for the thousandth time ur a great help much appreciated!

  2. #27
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by loser69 View Post
    this should work.
    Thanks. We were trying to figure that out. We will be adding more functions and procedures so more will be added to that loop but otherwise it will work.
    @Mike I assume you found one you are using? And its not a problem lol. I do it to learn, help and to look good lol jks. Feel free to keep asking and I will do my best. Its hard for me to help cuz Im f2p and most scripts requiring work and help are p2p and so I cant test or actually see what the problem is in game.
    Last edited by kevin33; 01-11-2012 at 04:54 AM.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  3. #28
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Can you tweak for compiling issues? Thanks a lot!

    Simba Code:
    program FriendlyFletcher ;
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.scar}
    {$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;
      BoxRewards := ['xp'];
      LampSkill := 'fletching'; // or change to whatever skill exp you want
      end;
    end;

    procedure ArrowCreation;

    var
     ArrowShaft: Integer;
     x, y: Integer;
     Feather: Integer;
     HeadlessArrow: Integer;
     Arrowtips: Integer;
    Begin
     SetupSRL;
     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, True);
     End;
     Begin
     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, True);
      wait (11 + Random (1));
     end;
     function ChooseOption(Txt: String): Boolean;
    begin
      Result := ChooseOptionMultiEx([Txt], 'eadless', ClickLeft);
    end;
    Begin
     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, True);
     end;
     Begin
     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 IsUpText ('eadless','rrow') then
      Mouse (X, Y, 0, 0, True);
     end;
     Begin
     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, True);
     end;
     function ChooseOption(Txt: String): Boolean;
    begin
      Result := ChooseOptionMultiEx([Txt], 'rrow', ClickLeft);
      wait (11 + Random (1));

    FreeDTM(ArrowShaft)
    end;
    End;

    begin
    SetUpSRL;
    DeclarePlayer;
    LogInPlayer;

    repeat
    ArrowCreation
    until(false)
    end.

  4. #29
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by mikeym View Post
    Simba Code:
    program FriendlyFletcher ;
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$i SRL\SRL.scar}
    {$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;
      BoxRewards := ['xp'];
      LampSkill := 'fletching'; // or change to whatever skill exp you want
      end;
    end;

    procedure ArrowCreation;

    var
     ArrowShaft: Integer;
     x, y: Integer;
     Feather: Integer;
     HeadlessArrow: Integer;
     Arrowtips: Integer;
    Begin
     SetupSRL;
     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, True);
     End;
     Begin
     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, True);
      wait (11 + Random (1));
     end;
     function ChooseOption(Txt: String): Boolean;
    begin
      Result := ChooseOptionMultiEx([Txt], 'eadless', ClickLeft);
    end;
    Begin
     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, True);
     end;
     Begin
     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 IsUpText ('eadless','rrow') then
      Mouse (X, Y, 0, 0, True);
     end;
     Begin
     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, True);
     end;
     function ChooseOption(Txt: String): Boolean;
    begin
      Result := ChooseOptionMultiEx([Txt], 'rrow', ClickLeft);
      wait (11 + Random (1));

    FreeDTM(ArrowShaft)
    end;
    End;

    begin
    SetUpSRL;
    DeclarePlayer;
    LogInPlayer;

    repeat
    ArrowCreation
    until(false)
    end.
    After school I will take a look for sure!
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  5. #30
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sounds good but i also want it to repeat one step at a time for x amount of times do u know how i can do that?

  6. #31
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by mikeym View Post
    sounds good but i also want it to repeat one step at a time for x amount of times do u know how i can do that?
    About to try it out to fix. Also for the repeat you make a repeat...until kinda thing and set a constant for how many to do so you can use it as your x amount.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  7. #32
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok can u show me that line in simba with an example if repeat 1000x just so I can see it thanks

  8. #33
    Join Date
    Feb 2006
    Location
    Canada
    Posts
    2,254
    Mentioned
    21 Post(s)
    Quoted
    238 Post(s)

    Default

    Nice work guys, mikeym are you wondering about loops?
    http://villavu.com/forum/showthread.php?t=54339 is a great tut on loops
    Simba Code:
    var
      x, y, COUNTER: integer;
    begin
     repeat
       if (CurrentOre.ID >= STEEL) and (CurrentOre.ID <= ADDY) then
        if not FindDTM(CoalDTM, x, y, 386, 86, 430, 125) then
         begin
           inc(COUNTER);
           wait(100 + Random(100));
         end;
       if COUNTER>5 then
        begin
          GameTab(tab_Inv);
          wait(100 + Random(100));
        end
       else
        begin
          Break;
        end;
      until(COUNTER>10);
      if COUNTER >= 10 then
       begin
         QuitPlayer('Out of coal');
         Exit;
       end;
    end;
    this is a bit of code from marpis's autoheater, I added the loop to it.

  9. #34
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks! no i was going to do loops but then I decided its more humanlike and faster to do one item at a time. You know... I would like to put feathers on the arrowshafts at x amounts, then put arrowtips onto the headless arrows at x amount, then script shuts off

  10. #35
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by mikeym View Post
    Thanks! no i was going to do loops but then I decided its more humanlike and faster to do one item at a time. You know... I would like to put feathers on the arrowshafts at x amounts, then put arrowtips onto the headless arrows at x amount, then script shuts off
    I will help after I get the problem I have compiling your script looked at. I dont know how to fix it so I pmed someone who can help.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  11. #36
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thanks alot! Looking forward to seeing whats up.

  12. #37
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Alright I think hes coming here to help you a little better using posts. Its easier then pming him a bunch.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  13. #38
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Update to SRL5. Change "{$i srl/srl.scar}" to "{$i srl/srl.simba}". Then, for all of your "Mouse" procedures, need to change the True/False parameters to "mouse_Left" or "mouse_Right".
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  14. #39
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Compiling Error line 60

    Exact error:[Error] (61:2): Identifier expected at line 60
    Compiling failed.


    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
     ArrowShaft: Integer;
     x, y: Integer;
     Feather: Integer;
     HeadlessArrow: Integer;
     Arrowtips: Integer;
    Begin
     SetupSRL;
     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, True);
     End;
     Begin
     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, True);
      wait (11 + Random (1));
     end;
     function ChooseOption(Txt: String): Boolean;
    begin
      Result := ChooseOptionMultiEx([Txt], 'eadless', ClickLeft);
    end;
    Begin
     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, True);
     end;
     Begin
     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 IsUpText ('eadless','rrow') then
      Mouse (X, Y, 0, 0, True);
     end;
     Begin
     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, True);
     end;
     function ChooseOption(Txt: String): Boolean;
    begin
      Result := ChooseOptionMultiEx([Txt], 'rrow', ClickLeft);
      wait (11 + Random (1));

    FreeDTM(ArrowShaft)
    end;
    End;

    begin
    SetUpSRL;
    DeclarePlayer;
    LogInPlayer;

    repeat
    ArrowCreation
    until(false)
    end.

  15. #40
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    and for mouse movements like MMouse those do not need true/false right?

  16. #41
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    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.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  17. #42
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  18. #43
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    • 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
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  19. #44
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default You duplicated this?

    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!

  20. #45
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  21. #46
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  22. #47
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Add:
    Simba Code:
    Smart_Server := S_World;
      Smart_Members := S_Members;
      Smart_Signed := S_Signed;

    Right above the "SetupSRL;"
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  23. #48
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  24. #49
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default So do I take this out then? And will it work if its at the bottom?

    Simba Code:
    S_World = 65;
      S_Signed = True;
      S_Member = True;

  25. #50
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by mikeym View Post
    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.
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

Page 2 of 3 FirstFirst 123 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •