Page 3 of 3 FirstFirst 123
Results 51 to 73 of 73

Thread: [07Scape] Lumbridge Oak chop-seller!

  1. #51
    Join Date
    Feb 2012
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    i made a fix to this script to check when fletching, woodcutting, and waiting. It uses the make x, and istead of clicking sell 10 three times, it will keep doing sell 10 until it sold all of them. I currently edited it to make longbows instead of shortbows, but i dont feel like fixing the walking. I already finished my oak fletching so i might as well release this to you guys, and if anyone wants to fix the walking and maybe clean it up a little. It was lazy/sloppy coding as i didnt really feel like doing too much. Here it is for you guys. This also fixes the problem when it clicks chop oak over and over again, instead this checks if your in the process of woodcutting then waits a little and checks again, etc.

    Simba Code:
    program kChop; //edited by Real Regulater

    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}

    var
    x,y,shopDTM,invCounter,knifeDTM,aInteger,thaTime,logDTM,shortBowDTM,oakDTM,fletching,fletchtype: Integer;
    procedure Settings;
    begin
    //fletching := 0-1 0=No, 1=Yes
    fletching := 1
    //fletching 0-3 0=nothing,, 1= short bow, 2= long bow 3 = crossbow
    fletchtype := 1
    end;
    procedure DTMFree;
    begin
      FreeDTM(ShopDTM);
      FreeDTM(knifeDTM);
      FreeDTM(logDTM);
      FreeDTM(oakDTM);
      FreeDTM(shortBowDTM);
      writeln('Freed DTM''s');
    end;
    procedure DTMZ;
    begin
      //shopDTM := DTMFromString('mQwAAAHicY2ZgYFjCxMCwDIqjgPxQIA4C4iNXbzB0BksBWYwMyIARCQMBACIZBmY=');
      shopDTM := DTMFromString('mrAAAAHic42BgYFjKxMCwGojXAPFyIJ4PxYuAeBkQRwDVhANxLBAnAXEcEEcCcSgQhwAxKycjAyMjKmZgQGbjB4wEMAwAAI8dCDo=');
      knifeDTM := DTMFromString('mrAAAAHic42BgYEhjYmDIBuICIC4B4iIgzgHidCBOBuKPQDWvgPghEN8E4mtAfB+InwPxewYQYCSA8QNidQMAf2MKpg==');
      logDTM := DTMFromString('mWAAAAHicY2FgYOhjYmCYDsT9QNwLxNyMDAxcQCwAxKxAnOUlyZAXYsSwrs8fjNEBIxoGAQCU9wdX');
      oakDTM := DTMFromString('mFQEAAHic42VgYJjAxMAwD4iXAPECIJ4GxN1A3A7lLwXiPiCeDcRToXKijAwMgkDMB8T/gWYwAGkWIOaG0pyMELG/QEoYqhYsQDImHVBsCwCL+Qpl');
      shortBowDTM := DTMFromString('mlwAAAHicY2dgYOhiYmCYCsSzgHgOEC8G4vlA3A3EZowMDEZArAvEqkCsAMRaUDEGBkY8GDcgQhcAwXAFgw==');
       writeln('Loaded DTM''s');
    end;
    Function IsCutting: Boolean;
    var
      PBox : TBox;
    Begin
      PBox := IntToBox(238, 149, 286, 186);
      Result := (AveragePixelShift(PBox, 250, 350) > 350);
      //Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
    End;
    Function IsWcing: Boolean;
    var
      PBox: TBox;
    Begin
      PBox := IntToBox(238, 149, 286, 186);
      Result := (AveragePixelShift(PBox, 250, 350) > 150);
      //Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
    End;
    Function IsFletching: Boolean;
    var
      PBox: TBox;
    Begin
      PBox := IntToBox(250, 145, 273, 175);
      Result := (AveragePixelShift(PBox, 250, 350) > 75);
      //Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
    End;
    Function sell: Boolean;
    begin
      wait (100+Random(10));
      writeln('Found the shortbow!');
      MMouse(x,y,5,5);
      ClickMouse2(mouse_right);
      wait(1000+Random(200));
      P07_ChooseOptionMulti(['10']);
    end;
    Function AntiBan: Boolean;
      Begin
        case random(300) of
        0: P07_HoverSkill('woodcutting', random(5000));
        1: P07_MakeCameraAngleLow;
        2: P07_MakeCompassSouth;
        3: P07_MakeCompassEast;
        4: P07_MakeCompassWest;
        5: MMouse(random(700), random(400), 0, 0);
      end;
    End;
    procedure chopOak;
    begin
    If not IsWcing then
    if P07_FindObjCustom(x,y, ['Oak'], [1199684, 3300694], 5) Then
      ClickMouse2(mouse_left);
      writeln('Choppin'' some oak!');
    Wait (RandomRange(5000,6000))
    end;
    procedure waiting;
    begin
        MarkTime(thaTime);
        aInteger := P07_InvCount
      if IsCutting then
        repeat
          if TimeFromMark(thaTime) > 12000 then Break;
            if not isCutting then break;
              Wait(500);
            Until (P07_InvCount > aInteger)
          end;
    procedure chopTree;
    begin
    If not IsWcing then
    if P07_FindObjCustom(x,y, ['ree'], [1199684, 3300694], 5) Then
      ClickMouse2(mouse_left);
      writeln('Choppin'' some oak!');
    Wait (RandomRange(5000,6000))
    end;
    procedure arrowShafter;
    begin

      writeln('We are shafting!');
      wait(Random(1000));
      if(findDTM(knifeDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
      begin
      MMouse(x,y,Random(10),Random(5));
      ClickMouse2(mouse_left);
      writeln('We found a knife!');
      wait(Random(500));
      if(findDTM(logDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
        begin
        MMouse(x,y,Random(10),Random(5));
        wait(10+Random(5));
        ClickMouse2(mouse_left);
        writeln('SUP LOG');
        MMouse(75, 408,Random(20),Random(15));
        wait(10+Random(5));
        ClickMouse2(mouse_right);
        wait(10+Random(5));
        P07_ChooseOptionMulti(['10']);
        wait(20000+Random(10000));
        end;
      end;


    end;
    procedure shortBower;
    begin
      writeln('We are shortBowing!');
      wait(Random(1000));
      if(findDTM(knifeDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
      begin
      MMouse(x,y,Random(10),Random(5));
      ClickMouse2(mouse_left);
      writeln('We found a knife!');
      wait(Random(500));
      if(findDTM(oakDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
        begin
        MMouse(x,y,Random(10),Random(5));
        wait(10+Random(5));
        ClickMouse2(mouse_left);
        writeln('SUP LOG');
        MMouse(262,407,7,7);
        wait(randomrange(15,100));
        ClickMouse2(mouse_right);
        P07_ChooseOptionMulti(['ke X', 'X']);
        Wait(RandomRange(750,900));
        SendKeys(IntToStr(RandomRange(27, 99)), 95, 35);
        Wait(RandomRange(300, 400));
        P07_UseKey(13);
        wait(randomrange(10000,30000));
        end;
      end;
    end;
    procedure makeShortBows;
    Begin
      invCounter := P07_InvCount;
     repeat
      MarkTime(thaTime);
        If not (P07_InvCount < invCounter) then
          begin
            If FindDTM(oakDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2) and not IsFletching then
              shortBower;
          end
         else
          invCounter := P07_Invcount;
           repeat
              Wait(5000);
           until (TimeFromMark(thaTime) > 2000);
         until not FindDTM(oakDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)
    end;
    procedure dropOak;
    begin
    If P07_InvFull then
      P07_DropAllExcept([1]);
      Wait(200+Random(100))
    end;
    procedure walkShop;
    begin
    P07_MakeCompassSouth;
    if P07_InvFull then
      writeln('Trying to walk to shop!');
    begin
      if(findDTM(ShopDTM, x, y, 565, 7, 717, 157)) then
        begin
          writeln('Getting to tha shoppah!');
          Mouse(x, y, random(10), random(10), true);
        end;
      P07_FFlag;
      wait (1000+Random(200));
    end;
    end;
    procedure walkOak;
    begin
    P07_MakeCompassNorth;
    MMouse(608, 84, random(1),random(1));
    ClickMouse2(mouse_left);
    writeln('Walking back to the Oak');
    end;
    procedure openShop;
    begin
    if P07_FindObjCustom(x,y, ['hop', 'assistant'], [3367053, 5728897], 5) then
      begin
        Mouse(x,y, Random(2), Random(2), false);
        P07_ChooseOptionMulti(['rade']);
        writeln('Trading!');
      end;
    P07_FFlag;
    wait(10+Random(5));
    if(findDTM(shortBowDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)) then
    begin
      invCounter := P07_InvCount;
     repeat
      walkShop;
      openShop;
      writeln('Trying to walk to shop!');
      if(findDTM(ShopDTM, x, y, 565, 7, 717, 157)) then
        begin
          writeln('Getting to tha shoppah!');
          Mouse(x, y, random(10), random(10), true);
        end;
      P07_FFlag;
      wait (1000+Random(200));
      MarkTime(thaTime);
        If not (P07_InvCount < invCounter) then
          begin
            If FindDTM(shortBowDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2) and not sell then
              sell;
          end
         else
          invCounter := P07_Invcount;
           repeat
              Wait(200);
           until (TimeFromMark(thaTime) > 2000);
         until not FindDTM(shortBowDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)
      walkOak;
    end;
    end;
    begin
    SetupP07Include;
    DTMZ;
    AddOnTerminate('DTMFree');
    Settings;
      repeat
     // chopTree;
     // arrowShafter;
     if(P07_InvFull) then
                repeat
                  makeShortBows;
                until not FindDTM(oakDTM, x, y, P07_MIX1, P07_MIY1, P07_MIX2, P07_MIY2)
             else
                  walkShop;
                  openShop;
             if not (P07_InvFull) then
              repeat
                AntiBan;
                chopOak;
                waiting;
              until (P07_InvFull);
      until(not P07_Loggedin);
    end.

  2. #52
    Join Date
    Mar 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    how the hell you use this script the script just finish cutting and stuck there

  3. #53
    Join Date
    Mar 2013
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by kz1rs0dmg View Post
    how the hell you use this script the script just finish cutting and stuck there
    +a .

  4. #54
    Join Date
    Feb 2012
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Ziqo View Post
    +a .
    look at some of the people who have edited the script. I put in a edited version that works much better, just a little glitchy with the walking method.

  5. #55
    Join Date
    Nov 2006
    Location
    Planet Earth
    Posts
    351
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    im fully updated and and tried to use the edited version and it doesn't work - keeps saying "we are shortbowing" i just wanted it to cut oaks. and the script posted by OP is just cutting but wont sell them

  6. #56
    Join Date
    Mar 2013
    Location
    Rhode Island
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    25 Post(s)

    Default

    i noticed a couple times it froze when got a woodcutting level up message once it hits full inventory

    also log has to be in top left slot anything else seems to freeze it when full inv knife/shafts

  7. #57
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Can i use Smart with this? =O And for few scripts i've defined smart and it doesnt open the client.. same here.

  8. #58
    Join Date
    Mar 2013
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Yes, you can
    Simba Code:
    {$DEFINE SMART8}
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}

  9. #59
    Join Date
    Mar 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    added smart, and it is opening in a client window
    BUT whenever the bot is making a click (in the botclient) the active window goes inactive (which makes it hard to type)
    any solution?
    kind regards

  10. #60
    Join Date
    Mar 2013
    Location
    Rhode Island
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    25 Post(s)

    Default

    when its chopping it keeps clicking the tree

    also would be nice if you could also make it buy logs from shop fletch then and sell back

  11. #61
    Join Date
    Mar 2013
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    help when i start the mouse goes to the tree and this Error: Exception: Font [P07UpChars] not found. at line 108
    The following DTMs were not freed: [0, 1, 2, 3, 4, 5, 6, 7, 8]

  12. #62
    Join Date
    Mar 2013
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    i downloaded the script, ran it, but it doesn't open the client? it says "Choppin some oak!" and the mouse just hovers over the simba tabs and that's it. any help? read through the posts on this topic but nothing really helped

  13. #63
    Join Date
    Mar 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Getting this error:

    [Error] C:\Users\Alistair\Downloads\Simba stuff\CutterShafter[DONE].simba(9:4): is ('=') expected at line 8
    Compiling failed.

  14. #64
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I have the latest release, it chops oaks but it doesn't go to shop and sell them, Help?

  15. #65
    Join Date
    Mar 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by KnootStart it by between the 2 oaks behind the shop.
    ;1178252
    Hello, this skiddie script chops Oak and sells to the General Store at Lumbridge.


    Features [Added/In progress/Not Added]
    Chops Oak behind General Store in Lumbridge.
    Sell Oak logs to the Shop Assistant.
    Makes Oak shortbows and sells
    Deathwalking.
    Home tele if lost.
    Fix broken axe.

    Update log:
    v0.3 - Added Fletching
    v0.4 - Fixed bad DTM's

    Known bugs:
    Wont free DTM's.
    Bad DTM's
    I've downloaded v.04 and it just keeps trying to cut logs instead of selling to shop. is there anything more specific i need to know?

  16. #66
    Join Date
    Mar 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    This script feels great, but there are minor errors occuring that are messing the whole operation up..
    Sometimes the transition between the Oak and the "make Shortbow" is too quick, thus missing it.
    If you level up whilst fletching, he doesn't start the cut again, which messes everything up..
    This is a great looking foundation though, thanks for the upload!

  17. #67
    Join Date
    Mar 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    The following DTMs were not freed: [0, 1, 2, 3, 4, 5, 6, 7, 8] what do i do, please help. thanks

  18. #68
    Join Date
    Apr 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    mine just says choppin some oak and it stands there and does nothing?

  19. #69
    Join Date
    Apr 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    same as above

  20. #70
    Join Date
    May 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just keep getting this.... Help pleaaaase?!

    New window: 10617330
    Exception in Script: Unable to find file 'P07Include.Simba' used from 'C:\Users\Downloads\Alpha Kchop v0.4 (1).simba'

  21. #71
    Join Date
    Apr 2013
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Error: Exception: Font [P07UpChars] not found. at line 108
    The following DTMs were not freed: [0, 1, 2, 3, 4, 5, 6, 7, 8]

  22. #72
    Join Date
    Apr 2013
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    How do you even log in? >< I've always logged in via the Script having a login box with username/pw etc.

  23. #73
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

Page 3 of 3 FirstFirst 123

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
  •