Results 1 to 6 of 6

Thread: [SRL] J2G's PowerChopper V.1

  1. #1
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default [SRL] J2G's PowerChopper V.1

    My first (real) SRL Scar script ever

    It has multiplayer, and I'm almost positive it works (didn't test it long enough to see.)

    It uses DisguiseScar to tell you what's going on (switching players, logging in, etc).

    It's only the first in my series, so don't expect everything.

    Please post any bugs you find

    Thanks!

    Mike.

  2. #2
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice job for first script!
    Keep it up!
    Now
    procedure TreeFinderChopper;
    begin

    if(FindMSColor(x, y, Treecolor1))or
    FindMSColor(x, y, Treecolor2)then
    begin
    DisguiseScar('Looking for ' +(Treename))
    MMouse(x, y, 2, 2);
    if(IsUpText(Treename))then
    Mouse(x, y, 0, 0, True);
    wait(4000 + Random (2000));
    end;
    end;
    maybe you should add a repeat-until in here for finding the tree, tip: repeat (find out were ) until(your IsUpText)

  3. #3
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Thanks

    You mean to add a repeat..until for finding the tree in the main loop?

  4. #4
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    no not in mainloop, but this:
    procedure TreeFinderChopper;
    begin
    repeat
    if(FindMSColor(x, y, Treecolor1))or
    FindMSColor(x, y, Treecolor2)then
    begin
    DisguiseScar('Looking for ' +(Treename))
    MMouse(x, y, 2, 2);
    until(IsUpText(Treename))then
    Mouse(x, y, 0, 0, True);
    wait(4000 + Random (2000));
    end;
    end;
    Somekinda like that for example, it keeps searching for the treecolor until the ISUpText is about chopping (Treeame)

  5. #5
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not sure if this is just a personal thing, but instead of putting
    SCAR Code:
    procedure LogDropper;
        begin
       
         if(InvFull)then
          begin
           DisguiseScar('Dropping Logs')
           DropAllLogs;
           Loadsoflogs := Loadsoflogs + 1
          end;
        end;
    and
    SCAR Code:
    procedure TreeFinderChopper;
        begin
       
         if(FindMSColor(x, y, Treecolor1))or
         FindMSColor(x, y, Treecolor2)then
          begin
           DisguiseScar('Looking for ' +(Treename))
           MMouse(x, y, 2, 2);
            if(IsUpText(Treename))then
           Mouse(x, y, 0, 0, True);
           wait(4000 + Random (2000));
          end;
        end;
    I'd do this:
    SCAR Code:
    procedure TreeFinderChopper;
        begin
        repeat
         if(FindMSColor(x, y, Treecolor1))or
         FindMSColor(x, y, Treecolor2)then
          begin
           DisguiseScar('Looking for ' +(Treename))
           MMouse(x, y, 2, 2);
            if(IsUpText(Treename))then
           Mouse(x, y, 0, 0, True);
           wait(4000 + Random (2000));
        until(InvFull);
          end;
        end;
    and for dropping procedure I'd just put:
    SCAR Code:
    procedure LogDropper;
        begin
           DisguiseScar('Dropping Logs')
           DropAllLogs;
           Loadsoflogs := Loadsoflogs + 1
          end;
        end;
    and that would just keep chopping until Inventory is full, then does the dropping procedure. Not sure if that'd work any better, but that'd be just how i would do it

  6. #6
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    That would leave you without Randoms protection !

    You would just keep chopping, oblivious to any randoms.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Powerchopper
    By TViYH in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 06-04-2008, 03:24 AM
  2. First PowerChopper
    By omgnomorenames in forum First Scripts
    Replies: 10
    Last Post: 03-20-2008, 01:30 AM
  3. srs powerchopper help
    By catman817 in forum OSR Help
    Replies: 1
    Last Post: 02-17-2008, 07:45 PM
  4. Best powerchopper
    By spermis in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 04-28-2007, 01:41 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
  •