Page 10 of 10 FirstFirst ... 8910
Results 226 to 243 of 243

Thread: [AeroLib] HoodzFletcher - Color

  1. #226
    Join Date
    May 2014
    Posts
    633
    Mentioned
    8 Post(s)
    Quoted
    322 Post(s)

    Default

    Quote Originally Posted by codexfiles981 View Post
    Hoodz, a bug I've noticed after using it recently:

    Sometimes, the script will select shortbows rather than longbows when cutting. Then, once the inventory is done being fletched, it'll repeatedly open and close the bank without depositing or withdrawing anything. Can you take a look into it?

    Thanks
    The coordinates for cutting longbows are wrong / changed, increasing the X coordinate at the point in fletchHandler() where it's clicking the longbow in the menu fixes this.

    This is a very solid script, especially for stringing longbows (it's what I did from 50 to 80+). Only kink I saw is that it seems to be under-reporting the bows made / hr slightly (for example, I'm getting 1840 bows/hr but the script says it's 1800 bows/hr). Also the bowstring DTM matches sharks so it's probably not a good idea to have that as the first item in any tab

    I mostly copied the banking from this script to make a lunar spell bankstanding script for personal use so I'd say this script is very stable.

  2. #227
    Join Date
    Nov 2016
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Don't use this script on main acc

  3. #228
    Join Date
    Jan 2012
    Posts
    134
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Lukutukas02, why wouldnt you? have you encountered an issue? also,unable to get script on konduit or osbuddy but great work.
    Beep Bop

  4. #229
    Join Date
    Nov 2016
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I was banned when reach 95 fletching from 55.

  5. #230
    Join Date
    Jan 2012
    Posts
    134
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Did you use any other script?? or what. You got banned from using this amazing color bot? im sure it was something else.
    Beep Bop

  6. #231
    Join Date
    Nov 2016
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    All colors bots are detectable if you use the same script and skill longer than 6~8 hours.

  7. #232
    Join Date
    Mar 2017
    Posts
    32
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by lukutukas02 View Post
    I was banned when reach 95 fletching from 55.
    Did you use the smart client? I've been using this w/ SMART and no bans yet (lv 85)

  8. #233
    Join Date
    Apr 2013
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    I am getting this error, and i can't figure out what's wrong:

    Exception in Script: Plugin(rstext) has not been found

  9. #234
    Join Date
    Feb 2013
    Posts
    342
    Mentioned
    8 Post(s)
    Quoted
    110 Post(s)

    Default

    Have you installed everything properly?

  10. #235
    Join Date
    Mar 2017
    Posts
    32
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    did you figure out the error? I started getting this error :/

  11. #236
    Join Date
    Sep 2017
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Phenomenal script! Achieved 65-92 fletch so far with no issues. just use responsibly and you wont get banned

  12. #237
    Join Date
    Nov 2015
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Is this bot fixed after the new "Make all" update ? doesnt seem to click the make all picture when it want to string bows.

    It just hover the bow-picture before it try to use another bow string on a bow (u)

  13. #238
    Join Date
    Nov 2015
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    "#bump" anyone know what to do ?

  14. #239
    Join Date
    Apr 2015
    Location
    Gielinor
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Used this script to achieve 99 fletching some time ago, is it still up to date?

  15. #240
    Join Date
    Jan 2018
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Hey Hoodz,

    Sorry to disturb you but I want to use your fletching script. May I know why I get this error?

    Error: Unknown declaration "Interface" at line 8
    Compiling failed.

    Please help me. Currently using updated Aerolib 2.1, updated plugins, srl, sps.

  16. #241
    Join Date
    Mar 2018
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Hi. I try to run this script but I keep getting error for some reason. I am using AeroLib_2.1_1, have installed Plugins, StatChars07, WorldListChars07 and use Simba.i386-win32 renamed to Simba.exe. When I use about it says revision 1206.

    I would really appreciate it if somebody could help out with this. Thanks.

    Error: Variable expected at line 351
    Compiling failed.
    Edit: I commented out line 351 and added:
    Wait(1000);
    fastClick(MOUSE_LEFT);
    after line 287 with:
    customMouse(point(260 + random(-22, 22), 400 + random(-17, 30)));
    It works okey for me now when I use stringing option.
    Last edited by Nixes; 03-27-2018 at 12:55 PM.

  17. #242
    Join Date
    Oct 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by Nixes View Post
    Hi. I try to run this script but I keep getting error for some reason. I am using AeroLib_2.1_1, have installed Plugins, StatChars07, WorldListChars07 and use Simba.i386-win32 renamed to Simba.exe. When I use about it says revision 1206.

    I would really appreciate it if somebody could help out with this. Thanks.

    Error: Variable expected at line 351
    Compiling failed.
    Edit: I commented out line 351 and added:
    Wait(1000);
    fastClick(MOUSE_LEFT);
    after line 287 with:
    customMouse(point(260 + random(-22, 22), 400 + random(-17, 30)));
    It works okey for me now when I use stringing option.
    worked for me

  18. #243
    Join Date
    Mar 2018
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    I tried it out again after a year. I made one more change to change to inv tab with Ftab this time, because it was unable to switch on it's own.

    Error: Variable expected at line 351
    Compiling failed.

    I commented out line 351.

    after line 287 with: customMouse(point(260 + random(-22, 22), 400 + random(-17, 30)));
    I added:
    Wait(random(203, 2411));
    fastClick(MOUSE_LEFT);

    after line 320 with: end;
    that was after 46..50: pickUpMouse;
    I added:
    Wait(random(233, 2301));
    FTab(24);
    Wait(random(113,1151));

    I was using Simba 1.2, AeroLib_2.1_1 It works okey for me now when I use stringing option. I got 26 million xp with in fletching without getting banned. Thanks a lot Hoodz for helping me get my first ever lvl 99 in RS.

    Simba Code:
    program HoodzFletcher;
    {$DEFINE SMART}
    {$i AeroLib/AeroLib.Simba}

    var
      x, y, failCount, bowsMade, xp: Integer;
      DTM_longBowU, DTM_1st, DTM_2nd: Integer;
      breakAfterTime, breakLength: Integer;

    const
      P_USERNAME = '';
      P_PASSWORD = '';
      P_PIN = '';

      LOG = 'maple'; {oak, willow, maple, yew, magic}
      MODE = 'string';  {cut, string}

      USEBREAKS = true;
      breakAfterHours_MIN = 4;
      breakAfterHours_MAX = 5;  {breaks after random (MIN, MAX) hours}
      breakForMinutes_MIN = 10001;
      breakForMinutes_MAX = 10008; {for random (MIN, MAX) minutes}

      VERSION = '3';

    procedure declarePlayer();
    begin
      Me.Name := P_USERNAME;
      Me.Pass := P_PASSWORD;
      Me.Pin := P_PIN;
      Me.Active := True;
      Me.Member := True;
    end;

    procedure free;
    begin
      freeDTM(DTM_longBowU);
      if (MODE = 'cut') then
        freeDTM(DTM_1st);
      freeDTM(DTM_2nd);
    end;

    procedure randomBreakTime();
    begin
      breakAfterTime := GetTimeRunning + (RandomRange(breakAfterHours_MIN, breakAfterHours_MAX) * 3600000) + RandomRange(2000, 3500000);
      Writeln('breakAfterTime = ' + MsToTime(breakAfterTime, 3));
      breakLength := (RandomRange(breakForMinutes_MIN, breakForMinutes_MAX) * 60000) + RandomRange(2000, 59000);
      Writeln('breakLength = ' + MsToTime(breakLength, 3));
    end;

    procedure breakHandlerCustom();
    begin
    writeln('starting breakhandler');
      while (isLoggedIn) do
        logoutPlayer;
      while not (getTimeRunning >= (breakAfterTime + breakLength)) do
      begin
        Writeln('Break handler active');
        Writeln('TimeRunning: ' + MsToTime(getTimeRunning, 3));
        Writeln('Breaking till: ' + MsToTime((breakAfterTime + breakLength), 3));
        Writeln('Time left until break is done: ' + MsToTime(((breakAfterTime + breakLength) - getTimeRunning), 3));
        Sleep(5000);
        ClearDebug;
      end;
      randomBreakTime;
    end;

    procedure setupPlayer();
    begin
      writeln('player setup...');
      if (not isLoggedIn()) then
        loginPlayer(false);
      if (isLoggedIn()) then
      begin
        toggleRunning(true);
        setAngle(ANGLE_HIGH);
      end;
    end;

    procedure setup();
    begin
      mouseSpeed := Random(18, 25);
      writeln('mouseSpeed set at: ' + intToStr(mouseSpeed));
      {1st = log, 2nd knife or bs}
      case LOG of
      'oak':
       begin
        if (mode = 'cut') then
          DTM_1st := DTMFromString('mggAAAHicY2NgYKhhZmAoBuIWIM4G4nYgrgJiTyYGhhAgDgBiPyD2AOJgIC6JNAXqYsTA7AzYAaZKCIYAAFa7Be4=');
        DTM_longBowU := DTMFromString('mggAAAHicY2NgYAhmZmAIA+IoII6Gsv2AeBsjA8MuID4KxIeAeC8QbwbifbPEGHqKBIA6GVEwO5AEYXTAiANDAABMoQkc');
        xp := 25;
       end;
        'willow':
          begin
            if (mode = 'cut') then
              DTM_1st := DTMFromString('mbQAAAHicY2VgYPBkZGDwAOIgILYE4nAgfgAUfwXEz4H4KQOE7+EgASQZUTA7AyZgxILBAAATEQak');
            DTM_longBowU := DTMFromString('mWAAAAHicY2FgYPBmZGAIBuIAIHYD4kSgWAEQZwBxHBBvXOEAJBnhmJ0BFTCiYRAAABdJBHs=');
            xp := 42;
          end;
        'maple':
        begin
          if (MODE = 'cut') then
            DTM_1st := DTMFromString('mggAAAHicY2NgYHgOxE+A+BYQvwfit0B8BYgrgbgBiOuBuBaIi4G4HIizPXiBJCMGFmHADjBVQjAEAAC3NQka');
          DTM_longBowU := DTMFromString('mWAAAAHicY2FgYLjLzMDwBIgfQGkjRgYGRyA2B2IbIN63ZDZQFSMcszOgAkY0DAIAt4MGiw==');
          xp := 58;
        end;
        'yew':
          begin
            if (MODE = 'cut') then
              DTM_1st := DTMFromString('mlwAAAHicY2dgYKhkZGCoAeJWIM4E4hIgbgPiHCCeA5RfAsSzgHgeEC8H4oVAPBOI/W04gCQjVszFgBtg1wHBUAAAzqcIWw==');
            DTM_longBowU := DTMFromString('mlwAAAHicY2dgYHBlYmCwAWJHIPYEYl8o7QTEj4DyN4D4ARC/AuKPQPwMiG8D8b5lYkCSESvmYsANsOuAYCgAAC0gCcA=');
            xp := 75;
          end;
         'magic':
          begin
            if (MODE = 'cut') then
              DTM_1st := DTMFromString('mggAAAHicY2NgYNBkZmCQZobQckBsDMSmQHyPkYHhARA/h+InQHwXiPNTbRk0l84A6mREwexAEoTRASMODAEAHvkI7g==');
            DTM_longBowU := DTMFromString('mbQAAAHicY2VgYFBmYWBQA2ItINYEYj0gvsnIwHAXiJ8D8X0gfgnECl31DALOtkAdjHDMDiRBGBkwYsFgAAAYYwcd');
            xp := 92;
          end;
      end;

      if (MODE = 'cut') then
        DTM_2nd := DTMFromString('mlwAAAHicY2dgYHjAzMBwA4gfA/FzIH4ExLeA+DoQOzEyMAQCsSMQmwOxBRC7AbEPEOelpQF1M2LF/Ay4AXYdEAwFAIDWCWQ=')
      else
      begin
        DTM_1st := DTM_longBowU;
        DTM_2nd := DTMFromString('mWAAAAHicY2FgYHgJxJ+B+B4Q3wbiYCAOgdKxQNxcHgkkGeFYhAEVMKJhEAAAs7wGXw==');
      end;
      addOnTerminate('free');
      randomBreakTime();
      setupPlayer();
    end;

    procedure stats_check;
    begin
      if (STATS_ID = '') then
      begin
        writeln('You MUST have a stats account registered to use this script');
        writeln('You can register for free here: http://stats.grats.pw/reg.php');
        writeln('More information about stats here: https://villavu.com/forum/showthread.php?t=112103&p=1332139');
        TerminateScript;
      end;
    end;

    procedure updater();
    var
      NewFile: integer;
      OnlineVersion, NewScript, NewFileName: string;
    begin
      writeln('Checking for script updates...');
      OnlineVersion := GetPage('http://pastebin.com/raw.php?i=KEDqiLid');
      if (trim(OnlineVersion) > VERSION) then
      begin
        writeLn('Script update available!');
        writeLn('Updating script to v' + OnlineVersion);
        NewScript := GetPage('http://pastebin.com/raw.php?i=gktWX9u8');
        NewFileName := 'C:\Simba\Scripts\' + 'HoodzFletcher Aero V' + Trim(OnlineVersion) + '.simba';
        NewFile := Rewritefile(NewFileName, true);
        try
          WriteFileString(NewFile, NewScript);
        except
          begin
            writeLn('Fatal error writing to ' + NewFileName + '!!');
            terminatescript;
          end;
        end;
        CloseFile(NewFile);
        writeLn('New script downloaded to ' + NewFileName + '. Please restart Simba.');
        TerminateScript;
      end
      else
        writeLn('You have the latest version of the script!');
    end;

    procedure customMouse(point: TPoint);
    begin
      case random(0, 6) of
        0..2: BrakeMMouse(point, random(5), random(5), true);
        3: BrakeMMouse(point, random(5), random(5), false);
        4..5: MissMouse(point, random(5), random(5));
        6: HumanMMouse(point, random(5), random(5));
      end;
    end;

    function waitForPixelShift(amount, timeOut: Integer; box: TBox): Boolean;
    var
      x1, y1, BMP, BMP2, tempShift: Integer;
      t: Timer;
    begin
      result := false;
      t.start();
      BMP := bitmapFromClient(box.x1, box.y1, box.x2, box.y2);
      repeat
        if (t.timeElapsed() >= timeOut) then
          break;
        sleep(250);
        BMP2 := bitmapFromClient(box.x1, box.y1, box.x2, box.y2);
        tempShift := calculatePixelShift(BMP, BMP2, IntToBox(0,0,(box.x2 - box.x1),(box.y2-box.y1)));
        if (calculatePixelShift(BMP, BMP2, IntToBox(0,0,(box.x2 - box.x1),(box.y2-box.y1))) >= amount) then
          result := true;
        freeBitmap(BMP2);
      until (Result);
    {  if (Result) then
        writeln(toStr(tempShift) + ' pixels (amount: ' + toStr(amount) + ') changed after: ' + toString(t.timeElapsed()) + '  result: true')
      else
        writeln('less than ' + toString(amount) + ' pixels changed after: ' + toStr(timeOut) + ' (timeout)    result: false');
    }
     freeBitmap(BMP);
    end;

    function getLocations(DTM, slots: Integer): TIntegerArray;
    var
      I: Integer;
      tempArray: TIntegerArray;
    begin
      setLength(tempArray, 0);
      for I := 1 to slots do
      begin
       if (FindDTM(DTM, x, y, invBox(I).x1, invBox(I).y1, invBox(I).x2, invBox(I).y2)) then
       begin
        SetLength(tempArray, Length(tempArray) + 1);
        tempArray[High(tempArray)] := I;
       end;
      end;
      result := tempArray;
    end;

    function textVisible(): Boolean;
    var
      t: Timer;
      numb: Integer;
    begin
      result := false;
      numb := random(2000, 3000);
      t.start();
      repeat
      if (t.timeElapsed() > numb) then
        break;
      sleep(random(320, 600));
      if (countColor(0, 211, 392, 307, 411) = 277) then
        result := true;
      until (result);
    end;

    procedure fletchHandler();
    var
      randomNumb, count, I: Integer;
      ARRAY_DTMs, ARRAY_locs: TIntegerArray;
      mousePoint: TPoint;
    begin
      if (MODE = 'cut') then
        ARRAY_DTMs := [DTM_1st, DTM_2nd]
      else
        ARRAY_DTMs := [DTM_longBowU, DTM_2nd];
      randomNumb := random(0, 1);
      repeat
        ARRAY_locs := getLocations(ARRAY_DTMs[randomNumb], 28);
        if (length(ARRAY_locs) = 0) then
          exit;
        for I := 0 to high(ARRAY_locs) do
        begin
          writeln(mode + '  randomNumb: ' + toStr(randomNumb) + '  count: ' + toStr(countColor(clOutline_black, invBox(ARRAY_locs[I]).X1, invBox(ARRAY_locs[I]).Y1, invBox(ARRAY_locs[I]).X2, invBox(ARRAY_locs[I]).Y2)));
          if (MODE = 'string') and (randomNumb = 0) and (countColor(clOutline_black, invBox(ARRAY_locs[I]).X1, invBox(ARRAY_locs[I]).Y1, invBox(ARRAY_locs[I]).X2, invBox(ARRAY_locs[I]).Y2) = 106) then
            continue;
          mousePoint := MiddleBox(invBox(ARRAY_locs[I]));
          customMouse(mousePoint);
          sleep(random(20, 100));
          if (isUpText('epo')) then
            exit;
          case random(0, 12) of
            0..11: fastClick(MOUSE_LEFT);
            12:
            begin
              fastClick(MOUSE_RIGHT);
              waitOption('Use', 300);
            end;
          end;
          sleep(random(30, 100));
          break;
        end;
        if (randomNumb > 0) then
          randomNumb := 0
        else
          randomNumb := 1;
        inc(count);
      until (count = 2);
      customMouse(point(259 + random(-23, 21), 399 + random(-18, 29)));
      Wait(random(215, 2442));
      fastClick(MOUSE_LEFT);
      if (waitUptext('ake', 670)) then
      begin
        fastClick(MOUSE_RIGHT);
        if (MODE = 'cut') then
        begin
          waitOption('Make X', 300);
          if (textVisible()) then
            typeSend(toStr(random(28, 99)), true);
        end else
          waitOption('Make All', 300);
      end else
      begin
        inc(failCount);
        if (failCount > 3) then
        begin
          compassMovement(-30, 30, false);
          failCount := 0;
        end;
      end;
    end;

    procedure antiban();
    begin
      if (random(0, 20) = 0) then
        case random(0, 50) of
        0..35:
            if (pointInBox(getMousePnt(), intToBox(1, 1, 765, 500))) then
              MMouseOffClient('random');
        41..45: hoverSkill(SKILL_FLETCHING, false);
        46..50: pickUpMouse;
        end;
        Wait(random(421, 2731));
        FTab(24);
        Wait(random(351,2351));
    end;

    procedure terminate(reason: string);
    begin
      writeln('**TERMINATING** reason: ' + reason);
      closeInterface;
      logoutPlayer;
      terminateScript;
    end;

    procedure incVars();
    var
      totalXP: Integer;
    begin
      if (MODE = 'cut') then
        totalXP := round(27 * xp)
      else
        totalXP := round(14 * xp);
      stats_incVariable('65', totalXP);
    end;

    procedure openBank();
    var
      TPA: TPointArray;
      ATPA: T2DPointArray;
      I: Integer;
      spot, firstInv: TPoint;
      t: Timer;
      tCol : TColEx;
    begin
      if (anySlotActivated()) then
      begin
    //    firstInv := invBox(1).MidPoint;
        customMouse(Point(firstInv.x + RandomRange(-5, 5), firstInv.y + RandomRange(-5, 5)));
        fastClick(MOUSE_LEFT);
        sleep(random(150, 350));
        exit;
      end;
      if (Interfaces[PINSCREEN].isVisible()) then
        inPin(P_PIN);
      if (isBankOpen()) then
        exit;
      tCol.create(3425887, 21, 0.04, 0.09);
      if (not tCol.findAllIn(AREA_MS, TPA)) then
        exit;
      ATPA := FloodFillTPA(TPA);
      if (length(ATPA) <= 0) then
        exit;
      SortATPAfromFirstPoint(ATPA, Point(275, 155));
      for I := 0 to high(ATPA) do
      begin
        if (length(ATPA[I]) < 36) then
          continue;
        spot := middleTPA(ATPA[I]);
        customMouse(spot);
        if (waitUptextMulti(['ank', 'ast'], 300)) then
        begin
          fastClick(MOUSE_LEFT);
          break;
        end;
      end;
      t.start();
      while ((not isBankOpen()) and (not Interfaces[PINSCREEN].isVisible())) and (t.TimeElapsed() < 3000) do
        sleep(random(150, 250));
      incVars();
    end;

    procedure bankHandler();
    var
      locs, ARRAY_DTMs: TIntegerArray;
      I, randomNumb, count: Integer;
    begin
      if (not isBankOpen()) and (not Interfaces[PINSCREEN].isVisible() ) then
        exit;
      if (Interfaces[PINSCREEN].isVisible()) then
        inPin(P_PIN);
      if (mode = 'cut') then
      begin
       locs := getLocations(DTM_longbowU, 14);
       if (length(locs) < 1) then
        begin
         SetLength(locs, Length(locs) + 1);
         locs[High(locs)] := 1;
        end;
       I := random(locs[0], locs[high(locs)]);
       if (findDTM(DTM_longBowU, x, y, invBox(I).X1, invBox(I).Y1, invBox(I).X2, invBox(I).Y2)) then
       begin
        customMouse(point(x, y));
        sleep(random(20, 100));
        fastClick(MOUSE_RIGHT);
        waitOption('Deposit-All', 300);
       end;
      end else
      begin
        case random(0, 10) of
          0..9: quickDeposit('inv');
          10:
            begin
              locs := getLocations(DTM_longbowU, 14);
              if (length(locs) < 1) then
                begin
                 SetLength(locs, Length(locs) + 1);
                 locs[High(locs)] := 1;
                end;
              I := random(locs[0], locs[high(locs)]);
              if (findDTM(DTM_longBowU, x, y, invBox(I).X1, invBox(I).Y1, invBox(I).X2, invBox(I).Y2)) then
              begin
                customMouse(point(x, y));
                sleep(random(20, 100));
                fastClick(MOUSE_RIGHT);
                waitOption('Deposit-All', 300);
              end;
            end;
        end;
      end;
      if (MODE = 'cut') then
      begin
        if (findDTM(DTM_1st, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          customMouse(point(x, y));
          sleep(random(20, 100));
          fastClick(MOUSE_RIGHT);
          if (random(0, 1) = 0) then
            waitOption('Withdraw-All ', 300)
          else
            waitOption('Withdraw-All-but-1', 300);
        end;
      end else
      begin
        ARRAY_DTMs := [DTM_longBowU, DTM_2nd];
        randomNumb := random(0, 1);
        repeat
        if (findDTM(ARRAY_DTMs[randomNumb], x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          customMouse(point(x, y));
          sleep(random(20, 100));
          fastClick(MOUSE_RIGHT);
          waitOption('Withdraw-14', 300);
          sleep(RandomRange(200, 350));
        end;
        if (randomNumb > 0) then
          randomNumb := 0
        else
          randomNumb := 1;
        inc(count);
      until (count = 2);
      end;
      closeInterface();
      fletchHandler();
    end;

    procedure recoverKnife();
    begin
      if (not isBankOpen()) then
        openBank();
      if (isBankOpen()) then
      begin
        if (getInvCount() > 1) then
          quickDeposit('inv');
        if (getInvCount() = 0) then
        begin
          if (FindDTM(DTM_2nd, x, y, MSX1, MSY1, MSX2, MSY2)) then
          begin
            customMouse(Point(x, y));
            sleep(random(20, 50));
            fastClick(MOUSE_LEFT);
            sleep(2500 + random(500));
          end;
        end;
      end;
    end;

    procedure progress();
    var
      bowsHour, xpGained, xpHour: Integer;
    begin
      clearDebug;
      bowsHour := Round((bowsMade) / (GetTimeRunning / 3600000.0));
      xpGained := (xp * bowsMade);
      xpHour := Round((xpGained) / (GetTimeRunning / 3600000.0));
      writeln('Time running: ' + MsToTime(GetTimeRunning, 3));
      writeln('Bows made: ' + toStr(bowsMade) + '   (' + toStr(bowsHour) + ' p/h)');
      writeln('Xp gained: ' + toStr(xpGained) + '   (' + toStr(xpHour) + ' p/h)');
    end;

    function getState(): Integer;
    begin
      if (getTimeRunning >= breakAfterTime) and (USEBREAKS) then
        exit(8);
      if (not isLoggedIn()) then
        exit(0);
      if ((getCurrentTab <> TAB_INV) and (not isBankOpen())) then
        exit(1);
      if ((not FindDTM(DTM_2nd, x, y, MIX1, MIY1, MIX2, MIY2)) and (MODE = 'cut')) then
        exit(7);
      if ((not FindDTM(DTM_1st, x, y, MIX1, MIY1, MIX2, MIY2)) or (not FindDTM(DTM_2nd, x, y, MIX1, MIY1, MIX2, MIY2))) and (not isBankOpen()) then
        exit(5);
      if ((not FindDTM(DTM_1st, x, y, MIX1, MIY1, MIX2, MIY2)) or (not FindDTM(DTM_2nd, x, y, MIX1, MIY1, MIX2, MIY2))) and (isBankOpen()) then
        exit(6);
      if (FindDTM(DTM_1st, x, y, MIX1, MIY1, MIX2, MIY2) and (FindDTM(DTM_2nd, x, y, MIX1, MIY1, MIX2, MIY2)) and (isBankOpen())) then
        exit(2);
      if (FindDTM(DTM_1st, x, y, MIX1, MIY1, MIX2, MIY2) and (FindDTM(DTM_2nd, x, y, MIX1, MIY1, MIX2, MIY2)) and (not isBankOpen()) and (not waitForPixelShift(10, 2500, intToBox(MIX1, MIY1, MIX2, MIY2)))) then
        exit(3);
      inc(bowsMade);
      exit(4);
    end;

    procedure executeState(State: Integer);
    begin
      case (State) of
        0: setupPlayer();
        1: gameTab(TAB_INV);
        2: closeInterface();
        3: fletchHandler();
        4: antiban();
        5: openBank();
        6: bankHandler();
        7: recoverKnife();
        8: breakHandlerCustom();
      end;
      stats_Commit();
      progress();
      sleep(random(150, 200));
    end;

    begin
      updater();
      declarePlayer();
      initAL();
      setup();
        HumanMMouse([715, 315], 0, 0);
    //  stats_setup('12');
    //  stats_check;
    //  stats_initVariable('65', 0);
      repeat
        executeState(getState());
      until (false);
    end.
    Last edited by Nixes; 05-02-2019 at 06:07 AM.

Page 10 of 10 FirstFirst ... 8910

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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