Page 3 of 10 FirstFirst 12345 ... LastLast
Results 51 to 75 of 243

Thread: [AeroLib] HoodzFletcher - Color

  1. #51
    Join Date
    Mar 2015
    Location
    Netherlands
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by anth_ View Post
    EDIT: I tried it, that version just ran for me okay. Try commenting lines 77-79 in Includes/Reflection/lib/misc/Misc.simba out. Maybe that's it, or you haven't set the P_USERNAME/PASS?
    yeah i already had removed those lines but forgot to set username and pass. Now its working! thx

  2. #52
    Join Date
    Jun 2015
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Just got 99 fletching yesterday with this script.

  3. #53
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by sinnerog View Post
    Just got 99 fletching yesterday with this script.
    congratulations.

  4. #54
    Join Date
    Mar 2015
    Location
    Sweden
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    32 Post(s)

    Default

    whos tom on stats? (im mur20222)

  5. #55
    Join Date
    Jul 2013
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    44 Post(s)

    Default

    It clicks chest and clicks deposit inventory then takes out 14 bowstring. Can't seem to figure out what the problem is.

    I tried with adn without banktabs same thing. tried moving my items.

    Code:
     
    Time running: 00:00:05
    Bows made: 0   (0 p/h)
    Xp gained: 0   (0 p/h)
    Error: You passed a wrong ye to a finder function: 502. The client has a height of 502, thus the ye is out of bounds. at line 115
    Execution failed.
    The following DTMs were not freed: [0, 1]
    The following bitmaps were not freed: [0, 1]
    Edit: This script either cuts OR strings. Not AIO. Sorry for my incompetency.

    However still getting this error when withdrawing logs. (only does this when I try to use with OSBuddy :/ otherwise SMART works fine.
    Code:
    Error: You passed a wrong ye to a finder function: 502. The client has a height of 502, thus the ye is out of bounds. at line 115
    Execution failed.
    The following DTMs were not freed: [0, 1, 2]
    The following bitmaps were not freed: [0, 1]

  6. #56
    Join Date
    Aug 2015
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    All it does for me is click the knife and then goes to make longbows when theres no messages....

    Edit: its started cutting bows but after inviteoty full of cut bows it stops and doesnt want to get more from back...
    Last edited by exeplosion; 08-07-2015 at 12:53 AM.

  7. #57
    Join Date
    Apr 2015
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by exeplosion View Post
    All it does for me is click the knife and then goes to make longbows when theres no messages....

    Edit: its started cutting bows but after inviteoty full of cut bows it stops and doesnt want to get more from back...
    Same, It is broken.

  8. #58
    Join Date
    Jul 2014
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Works really well - ran for 3 hours, no problem. Thanks Hoodz

  9. #59
    Join Date
    Mar 2015
    Location
    Sweden
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    32 Post(s)

    Default

    Quote Originally Posted by Linked View Post
    Works really well - ran for 3 hours, no problem. Thanks Hoodz
    I ran this for quite some more time: http://stats.grats.pw/script.php?sid=12

    Im mur20222

  10. #60
    Join Date
    Jun 2013
    Location
    Scranton
    Posts
    496
    Mentioned
    5 Post(s)
    Quoted
    220 Post(s)

    Default

    It does have one problem with the knife DTM. My character spent 3 hours trying to withdraw shark from the bank thinking it was a knife (i guess).

  11. #61
    Join Date
    Jun 2015
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    could someone fix it that it cuts the magic longs instead of shorts? i am trying to learn to script but i am not there yet

  12. #62
    Join Date
    Sep 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It cuts magic short bows... i need longbows dude how do i fix that? Could you fix it i need is asap

  13. #63
    Join Date
    May 2015
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    im trying to use this with maple longs not stringing and im at clan wars bank and it clicks on the bank and just sits there my logs are in first slot and knife in second. when i manual take the logs out and close the bank it starts to fletch. then when it gets done it opens the bank and just sits there any ideas on this?

  14. #64
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Was having a problem with stringing - It would sometimes not take unstrungs or bowstrings out and get stuck trying to click the chest.
    I've added a wait to deal with lag.
    Also, it will repeat to click the chest until the bank is open, as well as the check for materials I implemented.
    Seems to be working better now!

    Code:
    program HoodzFletcher;
    {$DEFINE SMART}
    {$i AeroLib/AeroLib.Simba}
    {$i Reflection/Reflection.Simba}
    
    var
      x, y, failCount, bowsMade, xp: Integer;
      DTM_longBowU, DTM_1st, DTM_2nd: Integer;
      breakAfterTime, breakLength: Integer;
      BowID : String;
      MyPlayer: TReflectLocalPlayer;
    
    const
      P_USERNAME = '';
      P_PASSWORD = '';
      P_PIN = '';
    
      LOG = 'maple'; {oak, willow, maple, yew, magic}
      MODE = 'string';  {cut, string}
      BOW = 'Maple longbow (u)';
    
      USEBREAKS = true;
      breakAfterHours_MIN = 2;
      breakAfterHours_MAX = 3;  {breaks after random (MIN, MAX) hours}
      breakForMinutes_MIN = 30;
      breakForMinutes_MAX = 90; {for random (MIN, MAX) minutes}
    
      VERSION = '2';
    
    procedure declarePlayer();
    begin
      BowID := BOW; //Name for the cut bows. Case sensitive.
      Me.Name := P_USERNAME;
      Me.Pass := P_PASSWORD;
      Me.Pin := P_PIN;
      Me.Active := True;
      Me.Member := True;
      MyPlayer.UserName := P_USERNAME;
      MyPlayer.Password := P_PASSWORD;
      MyPlayer.Active := True;
      MyPlayer.Create;
      MyPlayer.Login;
    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(260 + random(-22, 22), 400 + random(-17, 30)));
      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;
    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: TPoint;
      t: Timer;
      tCol : TColEx;
    begin
      if (Interfaces[PINSCREEN].isVisible()) then
        inPin(P_PIN);
      if (isBankOpen()) then
        exit;
      tCol.create(3425887, 21, 0.04, 0.09);
      //tCol.create(660063, 4, 0.08, 0.85);      //cellar chest
      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', 'est'], 300)) then
        begin
          repeat
          fastClick(MOUSE_LEFT);
          wait(randomRange(500,1000));
          until(isBankOpen = True);
          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 bowCheck;
    var Bow: TReflectBankItem;
    
    begin
      if Reflect.Bank.IsOpen then
      begin
      if not Bow.Find(BowID) then
        begin
          WriteLn('Low on bow, Quiting!');
          TerminateScript;
        end;
      end;
    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-one', 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
          bowCheck;
          customMouse(point(x, y));
          sleep(random(20, 100));
          fastClick(MOUSE_RIGHT);
          waitOption('Withdraw-14', 300);
          sleep(RandomRange(500, 1000));
        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();
      stats_setup('12');
      stats_check;
      stats_initVariable('65', 0);
      repeat
        executeState(getState());
      until (false);
    end.
    Yer a wizard, 'oopi

  15. #65
    Join Date
    Sep 2015
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Awesome script. Literally have gained 3M exp. in two days. I can't figure out how to link it with the stats acc though

  16. #66
    Join Date
    Sep 2015
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    so far 19M fletching xp

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

    Default

    Quote Originally Posted by The GP King View Post
    Awesome script. Literally have gained 3M exp. in two days. I can't figure out how to link it with the stats acc though
    https://villavu.com/forum/showthread...2103&p=1332139

    May help you setup.
    Last edited by GetHyper; 09-23-2015 at 04:58 PM.

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

    Default

    Quote Originally Posted by anth_ View Post
    Was having a problem with stringing - It would sometimes not take unstrungs or bowstrings out and get stuck trying to click the chest.
    I've added a wait to deal with lag.
    Also, it will repeat to click the chest until the bank is open, as well as the check for materials I implemented.
    Seems to be working better now!

    Code:
    program HoodzFletcher;
    {$DEFINE SMART}
    {$i AeroLib/AeroLib.Simba}
    {$i Reflection/Reflection.Simba}
    
    var
      x, y, failCount, bowsMade, xp: Integer;
      DTM_longBowU, DTM_1st, DTM_2nd: Integer;
      breakAfterTime, breakLength: Integer;
      BowID : String;
      MyPlayer: TReflectLocalPlayer;
    
    const
      P_USERNAME = '';
      P_PASSWORD = '';
      P_PIN = '';
    
      LOG = 'maple'; {oak, willow, maple, yew, magic}
      MODE = 'string';  {cut, string}
      BOW = 'Maple longbow (u)';
    
      USEBREAKS = true;
      breakAfterHours_MIN = 2;
      breakAfterHours_MAX = 3;  {breaks after random (MIN, MAX) hours}
      breakForMinutes_MIN = 30;
      breakForMinutes_MAX = 90; {for random (MIN, MAX) minutes}
    
      VERSION = '2';
    
    procedure declarePlayer();
    begin
      BowID := BOW; //Name for the cut bows. Case sensitive.
      Me.Name := P_USERNAME;
      Me.Pass := P_PASSWORD;
      Me.Pin := P_PIN;
      Me.Active := True;
      Me.Member := True;
      MyPlayer.UserName := P_USERNAME;
      MyPlayer.Password := P_PASSWORD;
      MyPlayer.Active := True;
      MyPlayer.Create;
      MyPlayer.Login;
    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(260 + random(-22, 22), 400 + random(-17, 30)));
      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;
    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: TPoint;
      t: Timer;
      tCol : TColEx;
    begin
      if (Interfaces[PINSCREEN].isVisible()) then
        inPin(P_PIN);
      if (isBankOpen()) then
        exit;
      tCol.create(3425887, 21, 0.04, 0.09);
      //tCol.create(660063, 4, 0.08, 0.85);      //cellar chest
      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', 'est'], 300)) then
        begin
          repeat
          fastClick(MOUSE_LEFT);
          wait(randomRange(500,1000));
          until(isBankOpen = True);
          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 bowCheck;
    var Bow: TReflectBankItem;
    
    begin
      if Reflect.Bank.IsOpen then
      begin
      if not Bow.Find(BowID) then
        begin
          WriteLn('Low on bow, Quiting!');
          TerminateScript;
        end;
      end;
    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-one', 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
          bowCheck;
          customMouse(point(x, y));
          sleep(random(20, 100));
          fastClick(MOUSE_RIGHT);
          waitOption('Withdraw-14', 300);
          sleep(RandomRange(500, 1000));
        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();
      stats_setup('12');
      stats_check;
      stats_initVariable('65', 0);
      repeat
        executeState(getState());
      until (false);
    end.
    Thank you Anth, going to try this version just cause it checks

  19. #69
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Quote Originally Posted by GetHyper View Post
    Thank you Anth, going to try this version just cause it checks

    No problems dude, I haven't used this in a while but I'm pretty sure that one of my accounts got banned because it was stuck trying to withdraw for ~4hrs :P didn't use anything else on it.
    Yer a wizard, 'oopi

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

    Default

    Quote Originally Posted by anth_ View Post
    No problems dude, I haven't used this in a while but I'm pretty sure that one of my accounts got banned because it was stuck trying to withdraw for ~4hrs :P didn't use anything else on it.
    As bad as it is, it makes sense why it was banned :')

  21. #71
    Join Date
    Jun 2015
    Location
    New Zealand
    Posts
    322
    Mentioned
    2 Post(s)
    Quoted
    131 Post(s)

    Default

    Quote Originally Posted by anth_ View Post
    No problems dude, I haven't used this in a while but I'm pretty sure that one of my accounts got banned because it was stuck trying to withdraw for ~4hrs :P didn't use anything else on it.
    Hahahahaha

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

    Default

    3 fletchers banned today, whoops!

  23. #73
    Join Date
    May 2015
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    thanks for the script hoodz, managed to fix the issue with it making magic shorts instead of longs, cant figure out how to change the X,Y of the clicking when making a longbow tho, any suggestions?

  24. #74
    Join Date
    May 2013
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by jsand View Post
    thanks for the script hoodz, managed to fix the issue with it making magic shorts instead of longs, cant figure out how to change the X,Y of the clicking when making a longbow tho, any suggestions?
    change line 287 to

    Simba Code:
    customMouse(point(350 + random(-22, 22), 400 + random(-17, 30)));

    350 + random(-22, 22) is X and 400 + random(-17, 30) is Y, changing the random will make the box bigger or smaller. depends on how you want it

  25. #75
    Join Date
    Nov 2015
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Do i use the script that is there in the opeining page and make all the corrections people mentioning here or what? sorry am new here.

    Exception in Script: Unable to find file 'AeroLib/AeroLib.Simba' used from 'C:\Simba\Scripts\HoodzFletcher V2.simba'
    getting that error message
    Last edited by Zufall; 11-17-2015 at 04:04 PM.

Page 3 of 10 FirstFirst 12345 ... LastLast

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
  •