Results 1 to 21 of 21

Thread: Major Need For Help!

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Major Need For Help!

    Hey Guys,
    I'm encountering many problems:
    And all these problems are in this part of the script.
    I am looking for good scripters that can edit and feedback on this part of the script. I am sure there are many problems to this part.
    Please be detailed and specific.
    ALL help WILL be REPPED and credited( depending on how much you help)

    Here is the part of the script:
    SCAR Code:
    procedure ClickRock;
    begin
      Replylaugh;
      Mouse(x, y, 1, 1, True);
      Makesurepick;
      FindGas;
      Leveled;
      Myrandom;
    end;
     
    procedure MinedaRock;
    var MiningTime : integer;
    begin
      MakeCompass('N');
      SetAngle(True);
      repeat
        if Not(LoggedIn) then exit;
        if FindObjCustom(x, y, ['ocks', 'ine'], [2832989], 8)then
        ClickRock;
        MarkTime(MiningTime);
        repeat
          Wait(250);
        until FindBlackChatMessage('anage') or FindBlackChatMessage('vailable') or (timefrommark(MiningTime) > (WaitperRock +random(250)));
      until InvFull;
      if InvFull then
      begin
        writeln( 'Inventory Full walking to bank.' );
      end;
    end;

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    if FindObjCustom(x, y, ['ocks', 'ine'], [2832989], 8)then
    TPointArrays please


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Hy71194 View Post
    TPointArrays please
    You mean you want me to use If FindObjTPA(blah blah) ? If yes, thanks. and anything else anyone? And BTW guys now its not even doing anything...it does click the rock or anything help?

  4. #4
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Can SOMEONE AT LEAST TELL ME! if my Mindarock and clickrock procedure will work properly and if it makes sense or not..any can someone ALSO tell me if my "CheckBlackTextMessage" is used properly and will actually work in this script?! PLEASE HELP PEOPle..Because I am trying MY BEST! To release the new version of my script today. THanks TO EVERYONe!

  5. #5
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Why don't you just test it instead of going mad?!?!

    And if you want to know how to do your TPA thing, then do this:

    SCAR Code:
    If (FindObjTPA(x, y, 2832989, 8, -1, 10, 10, 10, ['ock', 'ine'])) then

  6. #6
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Dude Richard View Post
    Why don't you just test it instead of going mad?!?!

    And if you want to know how to do your TPA thing, then do this:

    SCAR Code:
    If (FindObjTPA(x, y, 2832989, 8, -1, 10, 10, 10, ['ock', 'ine'])) then
    Lol, sorry but Like i wana get my new version released so BADLY..and yes I've tested it and thats why I am posting my problems now..and thanks for the TPA...and is that enough for the TPA or do you think i have to add anything else?

    I've replaced the Findobjcustom for the findobjTPA but now it works well but it is a little slow...(let me explain more) : whats happening is that it finds the rock it goes on it, then waits for like a very short time and clicks the rock. But I want it to find the rock and click RIGHT away so the mining goes faster..

  7. #7
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Well, test it, then test it on another world, then another. This is because RS changed everytime you log in.

    And btw, thats just the simple way of using TPAs, the more complicated ways would be more reliable, but I'm not very good at the proper ones...

  8. #8
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    I've replaced the Findobjcustom for the findobjTPA but now it works well but it is a little slow...(let me explain more) : whats happening is that it finds the rock it goes on it, then waits for like a very short time and clicks the rock. But I want it to find the rock and click RIGHT away so the mining goes faster..

  9. #9
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    FindRock(var x,y : Integer; Color,Tol : Integer): Boolean;
    var
      TPA : TPointArray;
      ATPA : T2DPointArray;
      i : Integer;
    begin
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, MSX1, MSY1, MSX2, MSY2, Tol);
      if Length(TPA) > 0 then
      ATPA := TPAtoATPAEx(TPA, 3, 3);
      for i := 0 to High(ATPA) do
      begin
        MiddleTPAEx(ATPA[i], x, y);
        MMouse(x, y, 2, 2);
        wait(RandomRange(100, 200));
        if IsUpText('Rocks') then
        begin
          Result := True;  
          GetMousePos(x, y);
        end else Continue;
      end;
    end;


  10. #10
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    SCAR Code:
    FindRock(var x,y : Integer; Color,Tol : Integer): Boolean;
    var
      TPA : TPointArray;
      ATPA : T2DPointArray;
      i : Integer;
    begin
      FindColorsSpiralTolerance(MSX, MSY, TPA, Color, MSX1, MSY1, MSX2, MSY2, Tol);
      if Length(TPA) > 0 then
      ATPA := TPAtoATPAEx(TPA, 3, 3);
      for i := 0 to High(ATPA) do
      begin
        MiddleTPAEx(ATPA[i], x, y);
        MMouse(x, y, 2, 2);
        wait(RandomRange(100, 200));
        if IsUpText('Rocks') then
        begin
          Result := True;  
          GetMousePos(x, y);
        end else Continue;
      end;
    end;
    Thanks!!! So is this a function or procedure, and I have to replace the color for the actual color rite? and is there anything else to replace? And thanks again buddy@

  11. #11
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by faster789 View Post
    Thanks!!! So is this a function or procedure, and I have to replace the color for the actual color rite? and is there anything else to replace? And thanks again buddy@
    Oops, i forgot cuz i wrote it fast, yes it is a function, and you have to put: If FindRock(x, y, THECOLORHERE, THETOLERANCEHERE) then...


  12. #12
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    New rocks -

    SCAR Code:
    Function FindAllRocks(VeinColor: Integer): TPointArray;

    Var
       TPAA: T2DPointArray;
       CTS, I, Z: Integer;
       TPA: TPointArray;
    Begin
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.15, 0.15);
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, VeinColor, MSX1, MSY1, MSX2, MSY2, 15);
      SetColorSpeed2Modifiers(0.2, 0.2);
      ColorToleranceSpeed(CTS);
      TPAA := SplitTPA(TPA, 1);
      SetArrayLength(Result, GetArrayLength(TPAA));
      For I := 0 To High(TPAA) Do
        If InRange(GetArrayLength(TPAA[i]), 5, 30) Then
        Begin
          Result[z] := MiddleTPA(TPAA[i]);
          z := z + 1;
        End;
      SetArrayLength(Result, z);
    End;

    Enter the color of the rock 'vein', returns a TPointArray of the rocks, then you go through the array in your Function FindRock(Var X, Y: Integer): Boolean function, checking if there is gas, if not, check for uptext.

    Gl & Hf.

  13. #13
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    Oops, i forgot cuz i wrote it fast, yes it is a function, and you have to put: If FindRock(x, y, THECOLORHERE, THETOLERANCEHERE) then...
    Lol , im kinda confused now...so what is the actualy function...can it be anythin for example
    Function FindRock;

    and where do i put the "if Findrock(x,y,THe colorhere, the tolhere) then...? Do i put it in the function or in my mindarock procedure?

  14. #14
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    New rocks -

    SCAR Code:
    Function FindAllRocks(VeinColor: Integer): TPointArray;

    Var
       TPAA: T2DPointArray;
       CTS, I, Z: Integer;
       TPA: TPointArray;
    Begin
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.15, 0.15);
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, VeinColor, MSX1, MSY1, MSX2, MSY2, 15);
      SetColorSpeed2Modifiers(0.2, 0.2);
      ColorToleranceSpeed(CTS);
      TPAA := SplitTPA(TPA, 1);
      SetArrayLength(Result, GetArrayLength(TPAA));
      For I := 0 To High(TPAA) Do
        If InRange(GetArrayLength(TPAA[i]), 5, 30) Then
        Begin
          Result[z] := MiddleTPA(TPAA[i]);
          z := z + 1;
        End;
      SetArrayLength(Result, z);
    End;

    Enter the color of the rock 'vein', returns a TPointArray of the rocks, then you go through the array in your Function FindRock(Var X, Y: Integer): Boolean function, checking if there is gas, if not, check for uptext.

    Gl & Hf.
    I dont think he knows TPointArray's yours look sexyer'r and my function works with new rocks too(TPAtoATPAEx(ATPA, 3, 3) ).

    P.S: im using your gobliner


  15. #15
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Wow, (confused like hell) lol , so what n33s3 posted is the samething as Cazax? if not, do I need both of those functions?

  16. #16
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    No what N3ss3s posted uses TPA's which work with new rocks.
    N3ss3s' function also checks for gas.
    So use N3ss3s' function.

  17. #17
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    No what N3ss3s posted uses TPA's which work with new rocks.
    N3ss3s' function also checks for gas.
    So use N3ss3s' function.
    Ok thanks, but If you see wat n3ss3 posted he said to use another function
    'find rock(x,y :integer) or something like that...so do I need another function with n3ss3 function? if yes, can you explain more on what kind of function I need?

  18. #18
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Ok sorry for double Post.

    SCAR Code:
    procedure ClickRock;
    begin
      Replylaugh;
      Makesurepick;
      FindGas;
      Leveled;
      Myrandom;
     Begin
       Case Random(3) of
       1:Mouse(x, y, 1, 1, True);
       2:Begin                          // Added cases :).
           Mouse(x,y,1,1,false);
           ChooseOption('ine');
         end;
       0:Begin
           Mouse(x,y,2,3,False);
           Wait(200+Random(500));
           ChooseOption('ine');
         end;
      end;
      Replylaugh;
      Makesurepick;
      FindGas;
      Leveled;
      Myrandom;
    end;

    procedure MinedaRock;
    var MiningTime : integer;
    Banks : Integer;
    begin
      MakeCompass('N');
      SetAngle(True);
        repeat
          if Not(LoggedIn) then exit;
            if FindObjCustom(x, y, ['ocks', 'ine'], [2832989], 8)then // Might want to use an array here :)
              Begin
                ClickRock;
                MarkTime(MiningTime);
              end;
            repeat
              Wait(250+Random(500));   //Add Random Wait!!!
            until FindBlackChatMessage('anage') or FindBlackChatMessage('vailable') or (timefrommark(MiningTime) > (WaitperRock +random(250)));
        until (InvFull);
      if (InvFull) then
        begin
          writeln( 'Inventory Full walking to bank.' );
          Banks := Banks+1; //Banks variable
      end;
    end;

    I smartened up your script. You dont really need to use TPA's but you can if you wish.
    You need randomness in every thing

    Hope I Helped .

  19. #19
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    @ Thanks you sure helped a LOT...REP, and so when u said "might want to use array" u mean TPA rite? and thats all what N3ss3 just posted rite?

  20. #20
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    No an array is this.

    Read about them there usefull .

  21. #21
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    anything else people..so anyone have any add-ons? Please let me know what to improve on..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need Major Help!
    By Da Der Der in forum OSR Help
    Replies: 5
    Last Post: 12-14-2006, 07:48 PM
  2. Need major help
    By Wyn in forum OSR Help
    Replies: 2
    Last Post: 11-24-2006, 04:47 PM

Posting Permissions

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