Page 1 of 2 12 LastLast
Results 1 to 25 of 27

Thread: My Script

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

    Default My Script

    Ok so I decided that I needed to make a ChopNBurn script in the end because I need a good working one. I had made progress on one before although with all these updates, a couple things are in need of change. My computer was fixed for me for Christmas so now Ive started reworking it. I just hit a speed bump and am in need of assistance. I cant for the life of me figure out how to script the burning part of the script. The toolbelt thing has thrown me off and so I ask how can I script the burning of logs after being chopped using the toolbelt option?

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

    Default

    You'll need to be a bit more specific and you should probably post any of your code to get help lol. Question: is this toolbelt f2p? Cuz I've never heard of it

  3. #3
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    function ClickAllItemsExcept(ItemType: String; Identifier: Integer; option: string; SlotIgnores: TIntegerArray; waitnum: Integer; tol: TIntegerArray):Integer;
    By: WT-Fakawi, Sumilion & Nava2
    Description: Performs "option" popup menu action on all items with:
    ItemType - 'dtm', 'bitmap', 'bitmap mask', 'color'
    Identifier - name/value of your dtm/bmp/color/bmpmask.
    Tol - 'dtm' - [] (dtm's can't have tolerance).
    'bmp' - [BMPTol].
    'color' - [COLOUR Tol, Colour Count].
    'bmpmask' - [BMPTol, ContourTol].
    Will not click items in slots SlotIgnores
    From Core.
    Having tinderbox on toolbelt, you simply need to right-click on the log and select the option 'fire', if I'm not wrong about the option.
    That function, if not mistaken, will right click, and select the fire option. But since it's the first option, you can simply left click.
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

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

    Default

    Quote Originally Posted by onilika View Post
    From Core.
    Having tinderbox on toolbelt, you simply need to right-click on the log and select the option 'fire', if I'm not wrong about the option.
    That function, if not mistaken, will right click, and select the fire option. But since it's the first option, you can simply left click.
    Ok so how would I code that in the form of logs??
    Sorry I still am drawing a blank on how to code it so it will perform. I am about to eat so I cant do it atm. Ive been working like all day so Im gonna go to bed soon. If someone could please show me how to code it, credit will be given when I release script for testing Anyways Ill be back in like 20 minutes hopefully to chck up, work on the script and hopefuly complete it, then go to bed in about an hour.

    @cause I will probably post some of it after dinner. And yes toolbelt is both f2p and p2p. You are able to put necessary items like a needle, pick, hatchet, fishing net, etc in it so you dont have it take up room in the inventory.
    Last edited by kevin33; 12-25-2011 at 11:25 PM.

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

    Default

    Alright so Im done dinner. here is my script up to the burning part. Keep in mind it has some old functions that I am in the process of changing because it has been on my computer for a bit as it was my bros (sorry forget username for vill) and I just got the computer back now. He is at University right now and he stopped playing so I have some of his stuff here at home. Anyways here it is:
    program ChopNBurn;

    Simba Code:
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/firemaking.scar}

    //have hatchet equipped
    //be near some trees you want to cut
    //Maples I do not have the colours for
    //Colors may be off, fix them as you need to, I will do my best to fix them also
    Const
      TREE_TOL=5;
      TREE = 0;
      OAK =  1;
      WILLOW = 2;
      MAPLE = 3;
      YEW = 4;
      //Tree_Colors
      //Tree_Names
    var
      TreeDTM: Integer;
      Tree_Colors:Array[0..4] of TIntegerArray;
      Tree_Names:Array of String;

    procedure declarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[1].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      With Players[0] do
      begin
        Name := ''; //username
        Pass := ''; //password
        Nick := ''; //3-4 letters from your username
        Active := true;
        Integers[1] := 2; //tree you wish to cut

      end;
    end;
    procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;

    procedure setupScript;
    begin
      ClearDebug;
      SetupSRL;
      ActivateClient;
      declarePlayers;
      Tree_Colors[0] := [3622483, 3754069, 3820120] //Trees
      Tree_Colors[1] := [1845555, 2437176, 2700350] //Oaks
      Tree_Colors[2] := [2964027, 2963771, 2832184] //Willows
      Tree_Colors[3] := [] //Maples  don't currently have colors for
      Tree_Colors[4] := [3358796, 4017756, 4542554] //Yews
      Tree_Names := ['ree', 'ak', 'illow', 'aple', 'ew'];
      while not(RSReady) do
        Wait(1000)
    end;
    procedure IdentifyTree;  //just extra info just in case I make a pure firemaker
    var
      x,y: integer;
    begin
      if not LoggedIn then Exit;

      if TreeDTM <= 0 then
        case Players [CurrentPlayer].Integers[1] of
          TREE:
            TreeDTM := DTMFromString ('mlwAAAHicY2dgYOhiYWCYDMRtQFwHxM1A3A/EM4A4mZGBIQKIo4A4BYjzgTibESLubiYP1M0ExsUxRnA2BOMGjHgwFAAAwEQIWg==');
          OAK:
            TreeDTM := DTMFromString ('mlwAAAHicY2dgYOhmYWCYDMRtQFwLxC1A3A/EM4C4nZGBoQaI64C4GYgnA3E/EHcCcaa/HlA3Ew6MGzDiwVAAAPTwCJ8=');
          Willow:
            TreeDTM := DTMFromString ('mlwAAAHicY2dgYLjPwsDwHIhvAPFFIL4OxI+B+A0QJzEyMEQAcRQQJwNxPhBnQ9nGuvxA3Uw4MG7AiAdDAQCWsAl2');
          Maple:
            TreeDTM := DTMFromString ('mlwAAAHicY2dgYNjCwsCwF4jXAfFyIN4MxPuA+BAQJzMyMEQAcRQQJwFxLhBnAXEKELvrcwF1M+HAuAEjHgwFAAXtCGk=');
          Yew:
            TreeDTM := DTMFromString ('mlwAAAHicY2dgYOBiZWAQBGJmIP7NwsDABOWLAXEyIwNDBBBHAXEcEOcDcRYjRNxOlwOomwkHxg0Y8WAoAAAN1ASo');
         end;    //just showing I can use DTMs :)
    end;

    procedure setupPlayer;
    begin
      if LobbyScreen then LeaveLobby;
      if not(LoggedIn) then LoginPlayer;
      SetAngle(True);
      MakeCompass('N');
      Players[CurrentPlayer].Integers[1] := 0; //chopped
      Players[CurrentPlayer].Integers[2] := 0; //burned
    end;

    procedure BurnOfChop;

    There is more after just the burning part is all I need help with. Anyone think they could help me code it asap.

  6. #6
    Join Date
    Dec 2011
    Location
    Argentina
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice code right there mate! nice DTMS.

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

    Default

    Quote Originally Posted by Valkyrie View Post
    Nice code right there mate! nice DTMS.
    Well thank you sir. If only I could finish it off. I am seriously getting impatient. I am trying to code the burning but it just wont work. Wish they never added the whole toobelt thing atm. I like it when I use it but not coding it So can anyone code the burning of logs for me with the new toolbelt function? Credit will be given when the script is released in beta form for testing and feedback.
    Last edited by kevin33; 12-26-2011 at 04:32 AM.

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

    Default

    This should work, and it's simple.

    Simba Code:
    With Players[0] do
      begin
        Name := ''; //username
        Pass := ''; //password
        Nick := ''; //3-4 letters from your username
        Active := true;
        Integers[1] := 2; //tree you wish to cut
        Booleans[0] := True; // Tinderbox is in your toolbelt
      end;

    And this should work for the burning:
    Simba Code:
    procedure BurnOfChop();
    var
      I : Integer;
      invSlot1, logSlot : TPoint;
    begin
      case(Players[CurrentPlayer].Booleans[0])of
        True:
          begin
            if({FIND A LOG HERE})then
            begin
              Mouse(x, y, 4, 4, False);
              Wait(RandomRange(250, 750));
              ChooseOption('raf');
              // Wait till done igniting all logs
            end;
          end;
        False:
          begin
            if({FIND TINDERBOX HERE, SHOULD MAKE IT REQUIRED TO BE IN FIRST SLOT})then
            begin
              invSlot1 := ItemCoords(1);
              for I := 2 to 28 do
              begin
                logSlot := ItemCoords(I);
                Mouse(invSlot1.X, invSlot.Y, 4, 4, True);
                Wait(RandomRange(250, 1000));
                Mouse(logSlot.X, logSlot.Y, 4, 4, True);
                Wait(RandomRange(750, 1250)); // Wait for the log to be ignited
              end;
            end;
          end;
      end;
    end;

    Didn't test these, just wrote them out so they may need to be altered.
    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.


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

    Default

    if({FIND A LOG HERE}) //here
    if({FIND TINDERBOX HERE, SHOULD MAKE IT REQUIRED TO BE IN FIRST SLOT}) //and here
    Sorry I am like dying to release the script before I pass out from needing sleep. Boxing day ruined me
    What would I put in the {} sets??
    And after I test would u mind if I sent script to you to test and help me improve. Its pretty old school scripting and I apologize. I just got computer back so its all in old form.
    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

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

    Default

    Between the curly brackets, you'd put in code to either find a log for the "FIND A LOG HERE". Or, you'd put in code to find the tinderbox in the first slot for the "FIND TINDERBOX HERE", just to make sure the tinderbox is there.

    I can look it over, but can't test, sorry.
    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.


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

    Default

    Wait what would I write for the coding?? Sorry for asking so many noobie questions. I just dont grasp it atm. Like for logs would i write something like this or is it all much simpler?/
    for itemNum:=1 to 27 do
    Simba Code:
    begin
        if not(LoggedIn) then exit;
        FindNormalRandoms;
        LevelUp;
        if CantLightCheck then exit;
        if ExistsItem(itemNum) then
        begin
          InvMouse(itemNum, 3)
          if WaitUpText('ogs', 200) then
          begin
            ClickMouse2(True);
            InvMouse(28, 1);
            wait(1500);
            LevelUp;
            LightWait;
            inc(Players[CurrentPlayer].Integers[2]); //number burned
    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

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

    Default

    The procedure I wrote already handles that for you, all you have to do is FIND a log in the inventory. You can use FindColor(), some other made function or make a function that returns True/False if it does/doesn't find a log. Whatever you decide to do, replace the "{}" with it. That is for the "True" part of the case statement.

    For the "False" part, all you need to do is double check and make sure the tinderbox is in the 1st slot of the inventory. Same goes for here, either use FindColor(), some other made function, or make a function that returns True/False if the tinderbox is/isn't found. You'd replace the "{}" with whatever you decide to do.
    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.


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

    Default

    Quote Originally Posted by Kyle Undefined View Post
    The procedure I wrote already handles that for you, all you have to do is FIND a log in the inventory. You can use FindColor(), some other made function or make a function that returns True/False if it does/doesn't find a log. Whatever you decide to do, replace the "{}" with it. That is for the "True" part of the case statement.

    For the "False" part, all you need to do is double check and make sure the tinderbox is in the 1st slot of the inventory. Same goes for here, either use FindColor(), some other made function, or make a function that returns True/False if the tinderbox is/isn't found. You'd replace the "{}" with whatever you decide to do.
    Ok great I took that way outta perspective then. Will do thank you. I will test then send it to you. It is probably buggy but still. Do I need to do the colour for all the types of logs or just one type? Also is it just colors or do I need like tolerance or something?
    Last edited by kevin33; 12-27-2011 at 05:06 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

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

    Default

    Kyle do you mind checking this over please and tell me anything to change, etc.
    Simba Code:
    var
      I : Integer;
      invSlot1, logSlot : TPoint;

    begin
      case(Players[CurrentPlayer].Booleans[0])of
        True:
          begin
            if(FindColor(2771040, 15790320, 1325891, 3892358, 669516))then   //colors may need changing and again no maple log you may fix that yourself
             //^Line 102 here
            begin
              Mouse(x, y, 4, 4, False);
              Wait(RandomRange(250, 750));
              ChooseOption('raf');
              // Wait till done igniting all logs
            end;
           end;
        False:
          begin
            if({FindColor(5790300, 5527128)})then
            begin
              invSlot1 := ItemCoords(1);
              for I := 2 to 28 do
              begin
              logSlot := ItemCoords(I);
              Mouse(invSlot1.X, invSlot.Y, 4, 4, True);
              Wait(RandomRange(250, 1000));
              Mouse(logSlot.X, logSlot.Y, 4, 4, True);
              Wait(RandomRange(750, 1250)); // Wait for the log to be ignited
              end;
            end;
          end;
        end;
      end;

    I got an error about a variable expected at line 102 so far. Any thoughts?
    Last edited by kevin33; 12-27-2011 at 06:03 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

  15. #15
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What is line 102?

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

    Default

    Add this above your Burn procedure:

    Simba Code:
    function colorIsFound(colors : TIntegerArray) : Boolean;
    var
      TPA : TPointArray;
      I : Integer;
    begin
      for I := 0 to High(Colors) do
      begin
        FindColors(TPA, colors[I], MIX1, MIY2, MIX2, MIY2);
        if(Length(TPA) > 0)then
          Break;
      end;

      Result := Length(TPA) > 0;
    end;

    Then, for both of your "FindColor" areas, change them to this:
    Simba Code:
    if(colorIsFound([color, color, etc]))then
    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. #17
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Mouse(x, y, 4, 4, False);
    [Error] (118:17): Unknown identifier 'x' at line 117
    Compiling failed.
    Do i need variable declared or something??
    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

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

    Default

    Yes. You always need variables declared when trying to use them.
    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. #19
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Yes. You always need variables declared when trying to use them.
    Simba Code:
    var
      I : Integer;
      invSlot1, logSlot : TPoint;

    begin
      case(Players[CurrentPlayer].Booleans[0])of
        True:
          begin
            if(colorIsFound([2771040, 15790320, 1325891, 3892358, 669516]))then   //colors may need changing and again no maple log you may fix that yourself
            begin
              Mouse(x, y, 4, 4, False);
    //need to declare variable for x and y but when I type them in it still says unknown type. How would I declare them? I was writing x, y: Integers; is this correct cuz it wasnt working
    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

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

    Default

    Simba Code:
    x, y : Integer;
    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.


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

    Default

    Simba Code:
    invSlot1, logSlot : TPoint; //here

    begin
      case(Players[CurrentPlayer].Booleans[0])of
        True:
          begin
            if(colorIsFound([2771040, 15790320, 1325891, 3892358, 669516]))then   //colors may need changing and again no maple log you may fix that yourself
            begin
              Mouse(x, y, 4, 4, False);
              Wait(RandomRange(250, 750));
              ChooseOption('raf');
              // Wait till done igniting all logs
            end;
          end;
        False:
          begin
            if(colorIsFound([5790300, 5527128]))then
            begin
              invSlot1 := ItemCoords(1);
              for I := 2 to 28 do
              begin
              logSlot := ItemCoords(I);
              Mouse(invSlot1.X, invSlot.Y, 4, 4, True); //here
              Wait(RandomRange(250, 1000));
              Mouse(logSlot.X, logSlot.Y, 4, 4, True); //probably here
    [Error] (133:29): Unknown identifier 'invSlot' at line 132
    Compiling failed.
    Isnt it identified? How do I fix it?
    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

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

    Default

    Simba Code:
    Mouse(invSlot1.X, invSlot1.Y, 4, 4, True);

    Come on dude, read.
    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. #23
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Ok so the script compiles and everything. One problem now is that when I run it, the Simba game window doesnt open. Any cause of this?
    I also just tested and the mouse just hovers around the screen with a thing popping up in the debug. I know the colours I chose were quickly and poorly done so I have to change them. What is the best way to get colours of the various forms of trees?
    Also what should the tolerance be set to for each?
    Simba Code:
    Const
      TREE_TOL=5;
      TREE = 0;
      OAK =  1;
      WILLOW = 2;
      MAPLE = 3;
      YEW = 4;
      //Tree_Colors
      //Tree_Names
    var
      TreeDTM: Integer;
      Tree_Colors:Array[0..4] of TIntegerArray;
      Tree_Names:Array of String;

    procedure declarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
      SMART_Server := 4;
      SMART_Signed := True;
      SMART_Members := False;

      With Players[0] do
      begin
        Name := ''; //username
        Pass := ''; //password
        Nick := ''; //3-4 letters from your username
        Active := true;
        Integers[1] := 2; //tree you wish to cut
        Booleans[0] := True; // Tinderbox is in your toolbelt

      end;
    end;
    procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;

    procedure setupScript;
    begin
      ClearDebug;
      SetupSRL;
      ActivateClient;
      declarePlayers;
      Tree_Colors[0] := [3622483, 3754069, 3820120] //Trees
      Tree_Colors[1] := [1845555, 2437176, 2700350] //Oaks
      Tree_Colors[2] := [2964027, 2963771, 2832184] //Willows
      Tree_Colors[3] := [] //Maples  don't currently have colors for
      Tree_Colors[4] := [3358796, 4017756, 4542554] //Yews
      Tree_Names := ['ree', 'ak', 'illow', 'aple', 'ew'];
      while not(RSReady) do
        Wait(1000)
    end;
    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

  24. #24
    Join Date
    Dec 2011
    Location
    New York, USA
    Posts
    1,242
    Mentioned
    12 Post(s)
    Quoted
    193 Post(s)

    Default

    If you want SMART to open you have to include SMART at the beginning of your script and at the beginning of your mainloop.

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

    Default

    Quote Originally Posted by Nebula View Post
    If you want SMART to open you have to include SMART at the beginning of your script and at the beginning of your mainloop.
    Ahhh that would be why. I forgot about that. Thank you. Now I need the other questions answered.
    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 1 of 2 12 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
  •