Page 10 of 11 FirstFirst ... 891011 LastLast
Results 226 to 250 of 252

Thread: Rimmington Tele-Banker [F2P]

  1. #226
    Join Date
    Feb 2012
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Runaway View Post
    If you can get it to find the next rock locations and store their points while mining, and then loop through those after mining is finished; then be my guest

    As for right-click, all you have to do is find the WaitUptextMulti() in the MineOre function and replace everything after it with ClickMouse2(mouse_left) instead. I would go through it and do it for you, but I'm tired :/
    i tried that and for some reason it didnt want to bank. but when mining, it wasnt very buggy at all

  2. #227
    Join Date
    Feb 2012
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Have over 35 hours of proggies saved up for my next post, a very small number of them don't have the ores counted.

    All of the ones that do I will calculate the average ore per hour as well as xp per hour. I hope the bot nuke comes around soon, the mines are beginning to fill w/ injection/reflection bots

  3. #228
    Join Date
    Feb 2012
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok so I decided to add it all up into one big ass proggie, just so your eyes don't start to hurt:

    <=----------- Rimmington Tele-Banker ----------=>
    | Running for: 42 Hours
    | Ores Mined: 12571 iron
    | Banked: 488 loads
    | Mining XP gained: 439985 XP
    <=---------------------------------------------=>

    The script was running on various accounts ranging from 67 mining up to 79. Mainly in the 75-79 range. The levels were slightly crowded, a lot more crowded then when I first tried the script, I have not came across to many other players using the exact same banking method this script does, which is distinguished by the clan vexillium they have to carry.

    With similar variables as those mentioned above, you should get roughly:

    10-11k mining xp per hour
    300 iron ore per hour

    and in todays market in which iron ore sells for 186gp (and is rising quickly), you make:
    55.8k per hour

  4. #229
    Join Date
    Dec 2011
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    For anyone who used Brandon's fix for SMART here is the fixed version of the script:

    Simba Code:
    {=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
    |=----------------------------------------------------------------------------=|
    |=                                                                            =|
    |=                        Rimmington Tele-Banker v0.7                         =|
    |=                                                                            =|
    |=                               by: Runaway                                  =|
    |=                                                                            =|
    |=----------------------------------------------------------------------------=|
    |=                                                                            =|
    |=     This script mines any ore at the Rimmington mine. It uses the          =|
    |=     unlimited teleports supplied by the dungeoneering ring and the         =|
    |=     clan vexillum to bank and return to the mine.                          =|
    |=                                                                            =|
    |=     How to use:                                                            =|
    |=                                                                            =|
    |=          1) Fill out the setup below.                                      =|
    |=                                                                            =|
    |=          2) Place your character anywhere.                                 =|
    |=                                                                            =|
    |=          3) Equip both a clan vexillum and a ring of kinship.              =|
    |=                                                                            =|
    |=          4) Have a pickaxe in the first slot of your inventory.            =|
    |=                                                                            =|
    |=          5) Hit run!                                                       =|
    |=                                                                            =|
    |=     Requirements:                                                          =|
    |=                                                                            =|
    |=          - None!                                                           =|
    |=                                                                            =|
    |=----------------------------------------------------------------------------=|
    |=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}


    program RimmingtonTeleBanker;

    {$DEFINE SMART}
    {$I SRL/SRL.Simba}
    {$IFDEF SIMBAMAJOR980}
      {$I SRL/SRL/Misc/PaintSmart.Simba}
    {$ELSE}
      {$I SRL/SRL/Misc/SmartGraphics.Simba}
    {$ENDIF}

    var
      ClanToMine: array[0..3] of array[0..1] of array of Integer;
      DungToBank: array[0..1] of array[0..1] of array of Integer;
      MineToSpot: array[0..1] of array of Integer;
      NPC, InvOre, OreColor, CopperColor, TinColor, ClayColor, IronColor, GoldColor,
      BankerColor, PickaxeColor, ExColors, ExTol: array of Integer;
      cx, cy, t, Loop, OresMined, OresPicked, LoadsDone, lExColors, NPCColor,
      RockColor, VexColor, KinColor, MineWait, AvgMine, StartMine, Stolen, HopCount: Integer;
      OreUptext: String;
      OreXP: Extended;
      Aligned: Boolean;

    {=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
    |=-------------------------------=BEGIN-SETUP=--------------------------------=|
    |=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}


    const
      OreToMine   = 'iron'; // Valid choices: copper, tin, iron, clay, gold
      UserPin     = ''; // Leave blank if not using a pin
      TimeToRun   = 360; // Minutes to run the script for (0 to run until stopped)
      HopIfTaken  = False; // True to hop worlds if the spot is taken
      //PickupDrops = False; // True to pickup ores on the ground
      UseRest     = True; // Rest when low energy

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      with Players[0] do
      begin
        Name       := ''; // Player username
        Pass       := ''; // Player password
        BoxRewards := ['XP', 'ostume', 'mote', 'oins', 'une', 'ssence'];
        LampSkill  := Skill_MINING;
        Active     := True;
      end;
    end;

    procedure DeclareColors;
    begin
      // Only update if NPCs cannot be located \\
      NPC := [2162687, 1900543, 1783370, 1702399, 1701113, 1505535, 1437694, 1374705, 1372665, 1244415, 1179647, 1179644, 1043199, 981753, 916991, 786430, 783103, 777964, 773595, 720883, 718847, 717815, 717567, 654579, 653311, 651775, 648667, 645348, 640979, 589823, 589311, 588280, 587000, 584957, 584171, 583916, 579817, 579802, 578776, 575448, 574407, 522732, 458751, 450798, 393210, 391151, 327667, 326911, 326385, 325112, 323558, 322788, 319972, 318418, 317648, 315603, 314049, 313279, 257009, 255470, 196604, 127367, 65522, 65233, 63478, 61670, 61439, 61150, 60651, 59355, 56781, 55511, 55014, 53474, 51142, 50645, 49105, 47302];

    {=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
    |=-------------------------------=END-SETUP=----------------------------------=|
    |=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}


      BankerColor  := [2968144, 5408402, 8609098]; // Main color first
      PickaxeColor := [1517364, 2111304];

      RockColor   := 7834010;
      CopperColor := [RockColor, 4951024];
      TinColor    := [RockColor, 11513783];
      ClayColor   := [RockColor, 8174044];
      IronColor   := [RockColor, 2765644];
      GoldColor   := [RockColor, 5165309];

      ClanToMine[0][0] := [5068118, 3361105, 2965055, 2508359]; // Colors
      ClanToMine[0][1] := [675, 128]; // Sort point
      ClanToMine[1][0] := [5068118, 2177087, 2575706, 2771553];
      ClanToMine[1][1] := [628, 144];
      ClanToMine[2][0] := [2504253, 2967881, 2243141];
      ClanToMine[2][1] := [623, 139];
      ClanToMine[3][0] := [2114652, 5921623, 2444907];
      ClanToMine[3][1] := [632, 139];

      DungToBank[0][0] := [15198705, 10132641, 13619672, 15461616]; // Colors
      DungToBank[0][1] := [638, 38]; // Sort point
      DungToBank[1][0] := [15920097, 15922418, 13223098];
      DungToBank[1][1] := [619, 36];

      VexColor   := 9784898;
      KinColor   := 3162439;

      MMBox := IntToBox(MMX1, MMY1, MMX2, MMY2);
      MSBox := IntToBox(MSX1, MSY1, MSX2, MSY2);
    end;

    const
      Version     = '0.7';
      WalkTol     = 30;
      WalkMaxDist = 25;
      WalkFilter  = 25;
      WalkTrim    = 1000;

    procedure ProgressReport; forward;

    procedure Currently(Doing: String);
    begin
      Status(Doing);
      DebugLn(Doing);
    end;

    procedure Error(Reason: String);
    begin
      Currently(Reason);
      WriteLn('ERROR: '+ Reason);
      Logout;
      TerminateScript;
    end;

    procedure SetupVars;
    begin
      Currently('Gathering ore data...');
      OreXP := 0;
      if (OreToMine = '') then
        Error('Enter the ore you want to mine!');
      case Lowercase(OreToMine) of
        'copper':
        begin
          OreXP := 17.5; OreUptext := 'per ore'; OreColor := CopperColor;
          ExColors := []; ExTol := []; lExColors := Length(ExColors);
          InvOre := [3697338, 3558753];
          MineToSpot[0] := [3426135, 2511751]; // Colors
          MineToSpot[1] := [604, 101]; // Sort point
        end;
        'tin':
        begin
          OreXP := 17.5; OreUptext := 'in ore'; OreColor := TinColor;
          ExColors := []; ExTol := []; lExColors := Length(ExColors);
          InvOre := [6645354, 3558753];
          MineToSpot[0] := [2905180, 5987161];
          MineToSpot[1] := [623, 114];
        end;
        'iron':
        begin
          OreXP := 35; OreUptext := 'ron ore'; OreColor := IronColor;
          ExColors := [CopperColor[1]]; ExTol := [4]; lExColors := Length(ExColors);
          InvOre := [1581111, 4020076];
          MineToSpot[0] := [3294552, 5987161];
          MineToSpot[1] := [613, 84];
        end;
        'clay':
        begin
          OreXP := 5; OreUptext := 'lay'; OreColor := ClayColor;
          ExColors := [IronColor[1], GoldColor[1]]; ExTol := [3, 3]; lExColors := Length(ExColors);
          InvOre := [5010055, 4680318];
          MineToSpot[0] := [3163472, 2511751];
          MineToSpot[1] := [645, 76];
        end;
        'gold':
        begin
          OreXP := 65; OreUptext := 'old ore'; OreColor := GoldColor;
          ExColors := []; ExTol := []; lExColors := Length(ExColors);
          InvOre := [1675960, 3558753];
          MineToSpot[0] := [2905180, 5987161];
          MineToSpot[1] := [644, 110];
        end;
      end;
      if (OreXP = 0) then
        Error('Invalid ore entered!');
      MineWait := 5000;
      AvgMine := MineWait;
      HopCount := 15;
    end;

    function ColorWait(WaitTime, Color, Tol: Integer; Box: TBox): Boolean;
    var
      i, x, y: Integer;
    begin
      if not LoggedIn then Exit;
      Result := False;
      MarkTime(i);
      repeat
        Result := FindColorTolerance(x, y, Color, Box.x1, Box.y1, Box.x2, Box.y2, Tol);
        if Result then
          Break;
        Wait(100+Random(50));
      until(TimeFromMark(i) > WaitTime);
    end;

    function ColorWaitMulti(WaitTime: Integer; Colors: TIntegerArray; Box: TBoxArray; Strict: Boolean): Boolean;
    var
      hColors, Res, i: Integer;
    begin
      if not LoggedIn then Exit;
      Result := False;
      Res := 0;
      hColors := High(Colors);
      for i := 0 to hColors do
      begin
        if ColorWait(WaitTime, Colors[i], 15, Box[i]) then
          Inc(Res);
      end;
      if Strict then
      begin
        if (Res > hColors) then
          Result := True;
      end else
      begin
        if (Res > 0) then
          Result := True;
      end;
    end;

    procedure WaitLoggedIn(WaitTime: Integer);
    var
      HPBox: TBox;
    begin
      HPBox := IntToBox(695, 19, 718, 42);
      while not ColorWait(WaitTime, 143319, 10, HPBox) do
        Wait(WaitTime);
    end;

    function FindTPointCluster(Colors: TIntegerArray; Tol: Integer; SortFrom: TPoint; Filter, Trim, MaxDist: Integer; Box: TBox): TPointArray;
    var
      aPoints: T2DPointArray;
      TPA: TPointArray;
      hPoints, hColors: Integer;
      cError, Len, Match: Integer;
      t, r, i, ii: Integer;
    begin
      MarkTime(t);
      SetLength(aPoints, Length(Colors));
      hColors := High(Colors);
      cError := 0;
      r := 0;
      for i := 0 to hColors do
      begin
        if (FindColorsTolerance(TPA, Colors[i], Box.x1, Box.y1, Box.x2, Box.y2, Tol)) then
        begin
          SortTPAFrom(TPA, SortFrom);
          if (Filter <> -1) then
            FilterPointsDist(TPA, 0, Filter, SortFrom.x, SortFrom.y);
          if (Trim <> -1) and (Length(TPA) > Trim) then
            SetLength(TPA, Trim);
          aPoints[i - cError] := TPA;
        end else
        begin
          Len := Length(aPoints) - 1;
          SetLength(aPoints, Len);
          Inc(cError);
        end;
        if (cError >= 1) then
          Exit;
      end;
      hPoints := High(aPoints);
      for i := 0 to High(aPoints[0]) do
      begin
        Match := 0;
        for ii := 1 to hPoints do
        begin
          if NearbyPointInArray(aPoints[0][i], MaxDist, aPoints[ii]) then
          begin
            Inc(Match);
            if (Match >= hPoints) then
            begin
              SetLength(Result, r + 1);
              Result[r] := aPoints[0][i];
              Inc(r);
            end;
          end else
            Break;
        end;
      end;
      SortTPAFrom(Result, SortFrom);
    end;

    function CheckInvColor(Color: TIntegerArray; Slot, Tol: Integer): Boolean;
    var
      TPA: TPointArray;
      tSlot: TBox;
    begin
      if not LoggedIn then Exit;
      Result := False;
      tSlot := InvBox(Slot);
      if ExistsItem(Slot) then
      begin
        TPA := FindTPointCluster(Color, Tol, Point(tSlot.x1, tSlot.y1), -1, -1, 20, tSlot);
        Result := (Length(TPA) > 0);
      end;
    end;

    function TabWait(WaitTime, Tab: Integer): Boolean;
    var
      t: Integer;
    begin
      if not LoggedIn then Exit;
      Result := False;
      GameTab(Tab);
      MarkTime(t);
      repeat
        Result := (GetCurrentTab = Tab);
        if Result then
          Break;
        Wait(100+Random(50));
      until(TimeFromMark(t) > WaitTime);
    end;

    procedure Calibrate;
    begin
      ClickNorth(2);
      SetAngle(SRL_ANGLE_HIGH);
      SetAngle(SRL_ANGLE_HIGH); // In case of lag
    end;

    procedure DoRest;
    var
      EnergyBox: TBox;
      i: Integer;
    begin
      EnergyBox := IntToBox(742, 107, 760, 119);
      if not ColorWait(500, 255, 5, EnergyBox) then
        Exit;
      Currently('Resting...');
      SetRest;
      MarkTime(i);
      repeat
        Wait(1000+Random(1000));
        if ColorWait(500, 65280, 5, EnergyBox) then
          Break;
      until(TimeFromMark(i) > 30000);
      Wait(3000+Random(1000));
      SetRun(True);
    end;

    function Antiban: Boolean;
    begin
      if not LoggedIn then Exit;
      Result := False;
      if UseRest then
        DoRest;
      FindNormalRandoms;
      case Random(1600) of
        1: begin Result := True; Currently('Antiban...'); PickUpMouse; end;
        2: begin Result := True; Currently('Antiban...'); BoredHuman; Calibrate; end;
        3: begin Result := True; Currently('Antiban...'); RandomAngle(1); Calibrate; end;
        4: begin Result := True; Currently('Antiban...'); Wait(1000+Random(2500)); end;
        5,6: begin Result := True; Currently('Antiban...'); Wait(4000+Random(1000)); end;
        7,8,9,10: begin Result := True; Currently('Antiban...'); RandomMovement; Calibrate; end;
      end;
    end;

    procedure SetupPlay;
    var
      VexBox, KinBox: TBox;
    begin
      if not LoggedIn then Exit;
      VexBox := IntToBox(572, 291, 600, 318);
      KinBox := IntToBox(683, 371, 713, 386);
      Currently('Setting up player...');
      TabWait(1000, tab_EQUIP);
      if ColorWaitMulti(1000, [VexColor, KinColor], [VexBox, KinBox], True) then
        Currently('Found clan vexillum and ring of kinship!')
      else
        Error('Equip clan vexillum and ring of kinship!');
      TabWait(1000, tab_INV);
      if CheckInvColor(PickaxeColor, 1, 5) then
        Currently('Found pickaxe in first slot!')
      else
        Currently('Place pickaxe in first slot of inventory!');
    end;

    function Teleport(Which: String; Tries: Integer): Boolean;
    var
      CoordBox, ClanBox: TBox;
      Color, i, x, y: Integer;
      Area: String;
      Clan: Boolean;
    begin
      if not LoggedIn then Exit;
      case Lowercase(Which) of
        'clan':
        begin
          Color := VexColor; CoordBox := IntToBox(572, 291, 600, 318); Clan := True;
          Area := 'clan grounds';
        end;
        'dung':
        begin
          Color := KinColor; CoordBox := IntToBox(683, 371, 713, 386); Clan := False;
          Area := 'daemonheim';
        end;
      end;
      i := 0;
      repeat
        AntiBan;
        Currently('Teleporting to '+ Area +': Attempt '+ IntToStr(i + 1) +'...');
        TabWait(1000, tab_EQUIP);
        if ColorWait(2000, Color, 10, CoordBox) then
        begin
          MouseTBox(CoordBox, mouse_right);
          Result := WaitOptionMulti(['ele','port'], 2000);
          if Result then
          begin
            if Clan then
            begin
              ClanBox := IntToBox(223, 402, 298, 411);
              if ColorWait(2000, 2169874, 10, ClanBox) then
                MouseTBox(ClanBox, mouse_left);
              Break;
            end;
            Break;
          end else
          begin
            GetMousePos(x, y);
            MMouse((x+RandomRange(-30,30)), (y-50-Random(50)), 5, 5);
            Wait(250+Random(250));
          end;
        end;
        Inc(i);
      until(i > Tries);
      GameTab(tab_INV);
      if Result then
        Currently('Teleported to '+ Area +'!')
      else
        Currently('Failed to teleport to '+ Area +'!');
    end;

    function AtArea(Which: String; WaitTime: Integer): Boolean;
    var
      aTPA: T2DPointArray;
      TPA: TPointArray;
      Color: array of Integer;
      t, i: Integer;
      Area: String;
    begin
      if not LoggedIn then Exit;
      case Lowercase(Which) of
        'clangrounds':
        begin
          Color := [5264727, 4146883, 3228491, 16303475, 2446158];
          Area := 'the clan grounds';
        end;
        'mine':
        begin
          Color := [12632256, 8355708, 2511751, 5987161, 65536];
          Area := 'the mine';
        end;
        'dung':
        begin
          Color := [6251366, 15525876, 10986156, 13550787];
          Area := 'daemonheim';
        end;
        'bank':
        begin
          Color := [15526372, 14144976, 5263951, 2413294, 9002045, 262643];
          Area := 'the bank';
        end;
      end;
      MarkTime(i);
      repeat
        for t := 20 to 30 do
        begin
          Currently('Searching for '+ Area +': Tolerance is '+ IntToStr(t) +'...');
          TPA := FindTPointCluster(Color, t, Point(MMCX, MMCY), -1, -1, 100, MMBox);
          aTPA := SplitTPA(TPA, 100);
          if (Length(aTPA) > 0) then
          begin
            Result := True;
            Currently('At '+ Area +'!');
            Break;
          end;
          Wait(200+Random(50));
        end;
      until(i > WaitTime);
    end;

    procedure WaitMoving(WaitTime: Integer);
    var
      t: Integer;
    begin
      MarkTime(t);
      while IsMoving or FlagPresent do
      begin
        if (TimeFromMark(t) > WaitTime) then
          Exit;
        Wait(200);
      end;
    end;

    function GetNPCDotColor: Boolean;
    var
      aTPA: T2DPointArray;
      TPA: TPointArray;
      Color: array of Integer;
      i: Integer;
    begin
      if not LoggedIn then Exit;
      Currently('Grabbing NPC dot color...');
      Result := False;
      for i := 0 to High(NPC) do
      begin
        Color := [NPC[i], 65536];
        TPA := FindTPointCluster(Color, 5, Point(MMCX, MMCY), -1, -1, 5, MMBox);
        aTPA := SplitTPA(TPA, 10);
        if (Length(aTPA) > 0) then
        begin
          Result := True;
          NPCColor := NPC[i];
          Break;
        end;
      end;
      if Result then
        Currently('Found NPC color: '+ IntToStr(NPCColor))
      else
        Error('NPC color not found! See thread for fix.');
    end;

    procedure AlignWalking(Which: String; WaitTime: Integer);
    var
      aTPA: T2DPointArray;
      TPA: TPointArray;
      CustomMMBox: TBox;
      Color, Points: array of Integer;
      ArrFilter, i, w, x, y: Integer;
    begin
      if not LoggedIn then Exit;
      case Lowercase(Which) of
        'mine':
        begin
          Color := [NPCColor, 526498]; Points := [647, 68];
          ArrFilter := -1; w := 50;
        end;
        'bank':
        begin
          Color := [NPCColor, 65536]; Points := [627, 69];
          ArrFilter := -1; w := 12;
        end;
      end;
      CustomMMBox := IntToBox(MMX1, (MMCY - 40), (MMCX + w), MMY2);
      Currently('Aligning walk path...');
      Aligned := False;
      MarkTime(i);
      repeat
        TPA := FindTPointCluster(Color, 10, Point(MMCX, MMCY), ArrFilter, -1, 20, CustomMMBox);
        aTPA := SplitTPA(TPA, 10);
        if (Length(aTPA) > 0) then
        begin
          x := MiddleTPA(aTPA[0]).x;
          y := MiddleTPA(aTPA[0]).y;
          cx := Points[0] - x;
          cy := Points[1] - y;
          Currently('Altered walk path by: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
          Aligned := True;
          Break;
        end;
      until(TimeFromMark(i) > WaitTime);
    end;

    function WalkTo(Which: String): Boolean;
    var
      Arr: array of array of array of Integer;
      aTPA: T2DPointArray;
      TPA: TPointArray;
      P: TPoint;
      hArr, c, i, t, h: integer;
      Current: Boolean;
      Area: String;
    begin
      if not LoggedIn then Exit;
      h := 0;
      case Lowercase(Which) of
        'mine':
        begin
          SetLength(Arr, Length(ClanToMine));
          for i := 0 to High(Arr) do
          begin
            SetLength(Arr[i], 2);
            Arr[i][0] := ClanToMine[i][0];
            Arr[i][1] := [ClanToMine[i][1][0] - cx, ClanToMine[i][1][1] - cy];
            cx := 0;
            cy := 0;
          end;
          Area := 'mine';
        end;
        'spot':
        begin
          SetLength(Arr, 1);
          SetLength(Arr[0], 2);
          Arr[0][0] := MineToSpot[0];
          Arr[0][1] := MineToSpot[1];
          Area := 'ores';
        end;
        'bank':
        begin
          SetLength(Arr, Length(DungToBank));
          for i := 0 to High(Arr) do
          begin
            SetLength(Arr[i], 2);
            Arr[i][0] := DungToBank[i][0];
            if Aligned then
              h := 17;
            Arr[i][1] := [DungToBank[i][1][0] - cx + h, DungToBank[i][1][1] - cy];
            cx := 0;
            cy := 0;
          end;
          Area := 'bank';
        end;
      end;
      hArr := High(Arr);
      MakeCompass('n');
      for c := 0 to hArr do
      begin
        Current := False;
        for i := 0 to 10 do
        begin
          Currently('Walking to '+ Area +' ('+ IntToStr(c + 1) +' of '+ IntToStr(Length(Arr)) +'): Tolerance is '+ IntToStr(WalkTol + i) +'...');
          TPA := FindTPointCluster(Arr[c][0], (WalkTol + i), Point(Arr[c][1][0], Arr[c][1][1]), WalkFilter, WalkTrim, WalkMaxDist, MMBox);
          aTPA := SplitTPA(TPA, WalkMaxDist);
          if (Length(aTPA) > 0) then
          begin
            for t := 0 to High(aTPA) do
            begin
              P := MiddleTPA(aTPA[t]);
              if (not rs_OnMinimap(P.x, P.y)) then
                Continue;
              Mouse(P.x, P.y, 3, 3, mouse_left);
              Wait(1000+Random(500));
              WaitMoving(15000);
              if (c = hArr) then
              begin
                Result := True;
                Exit;
              end;
              Current := True;
              Break;
            end;
            if Current then
              Break;
          end;
          Wait(100+Random(50));
        end;
        AntiBan;
      end;
    end;

    function BankOpened: Boolean;
    var
      Box: TBox;
    begin
      if not LoggedIn then Exit;
      Box := IntToBox(464, 28, 477, 42);
      Result := ColorWait(2000, 5005673, 10, Box);
    end;

    procedure BankAdjust(Min: Integer);
    var
      TPA: TPointArray;
      SymbolColor: array of Integer;
      P, Diff, Mid: TPoint;
      Dist: Integer;
    begin
      if not LoggedIn then Exit;
      SymbolColor := [2413294, 12632256, 65536];
      TPA := FindTPointCluster(SymbolColor, 10, Point(MMCX, MMCY), -1, -1, 10, MMBox);
      if (Length(TPA) >= Min) then
      begin
        P := MiddleTPA(TPA);
        Dist := Distance(P.x, P.y, MMCX, MMCY);
        if (Dist > 20) then
        begin
          Diff := Point(P.x - MMCX, P.y - MMCY);
          Mid := Point(((Diff.x / 2) + MMCX), ((Diff.y / 2) + MMCY));
          Mouse(Mid.x, Mid.y, 2, 2, mouse_left);
          Currently('Moving closer to bank...');
          Wait(500+Random(500));
          WaitMoving(5000);
          Exit;
        end else
        begin
          Currently('Close enough to bank...');
          Exit;
        end;
      end else
        Currently('Could not find bank symbol...');
    end;

    function OpenDungBank: Boolean;
    var
      aTPA: T2DPointArray;
      TPA: TPointArray;
      P: TPoint;
      c, t, i: Integer;
    begin
      if not LoggedIn then Exit;
      BankAdjust(4);
      KeyDown(VK_DOWN);
      Wait(500+Random(150));
      KeyUp(VK_DOWN);
      TabWait(1000, tab_INV);
      for c := 15 to 25 do
      begin
        Currently('Opening bank: Tolerance is '+ IntToStr(c) +'...');
        TPA := FindTPointCluster(BankerColor, c, Point(MSCX, MSCY), -1, 1000, 50, MSBox);
        aTPA := TPAToATPA(TPA, 60);
        if (Length(aTPA) > 0) then
        begin
          SortATPAFromMidPoint(aTPA, Point((MSCX - 150), MSCY));
          for t := 0 to High(aTPA) do
          begin
            P := MiddleTPA(aTPA[t]);
            MMouse(P.x, P.y, 3, 3);
            Wait(300+Random(100));
            if WaitUptextMulti(['remen', 'nnik', 'anker'], 500) then
            begin
              ClickMouse2(mouse_right);
              if WaitOption('ank Fr', 1000) then
              begin
                Wait(500+Random(500));
                MarkTime(i);
                repeat
                  Result := BankOpened or PinScreen;
                  if Result then
                    Break;
                  Wait(200+Random(50));
                until(TimeFromMark(i) > 5000);
                if Result then
                begin
                  Currently('Bank opened!');
                  Exit;
                end else
                  Currently('Failed to open bank!');
              end;
            end;
            if (t >= 2) then
              Break;
          end;
        end;
      end;
      if not Result then
        Currently('Failed to open bank!');
    end;

    function DoBanking(Tries: Integer): Boolean;
    var
      Click, cTries, c, i: Integer;
      Current: String;
      Left: Boolean;
    begin
      if not LoggedIn then Exit;
      if (PinScreen and (UserPin <> '')) then
        InPin(UserPin);
      if BankOpened then
      begin
        if (InvCount > 1) then
        begin
          Current := 'Depositing ores';
          Click := mouse_right;
          Left := False;
          cTries := Round(Tries / 2);
          c := 0;
          repeat
            if (InvCount < 2) then
              Break;
            if (c >= cTries) then
            begin
              Current := 'Depositing the stragglers';
              Click := mouse_left;
              Left := True;
            end;
            Currently(Current +'...');
            for i := 2 to 28 do
            begin
              if (InvCount < 2) then
                Break;
              if ExistsItem(i) then
              begin
                MouseItem(i, Click);
                if not Left then
                begin
                  if WaitOption('ll', 1000) then
                  begin
                    Result := True;
                    Wait(750+Random(500));
                    if Result then
                    begin
                      c := (cTries - 1);
                      Break;
                    end else
                      Continue;
                  end;
                end;
                Wait(400+random(100));
              end;
            end;
            Inc(c);
          until((InvCount < 2) or (c >= Tries));
          Wait(1000+Random(500));
        end;
        if (InvCount > 1) then
          Error('Failed to bank some items!')
        else
        begin
          Currently('Ores banked!');
          Inc(LoadsDone);
          CloseBank;
          Calibrate;
        end;
      end else
        Currently('Failed to open bank!');
    end;

    function ExcludeColors(ExColors, ExTol: array of Integer; aTPA: T2DPointArray): Boolean;
    var
      Count: array of Integer;
      Box: TBox;
      hColors, i: Integer;
    begin
      Result := False;
      SetLength(Count, lExColors);
      Box := GetATPABounds(aTPA);
      hColors := (lExColors - 1)
      for i := 0 to hColors do
      begin
        Count[i] := CountColorTolerance(ExColors[i], Box.x1, Box.y1, Box.x2, Box.y2, ExTol[i]);
        if (Count[i] >= 3) then
        begin
          Result := True;
          Exit;
        end;
      end;
    end;

    function WaitMessage(WaitTime: Integer; Text: String): Boolean;
    var
      t: Integer;
    begin
      Result := False;
      FixChat;
      MarkTime(t);
      repeat
        Result := (Pos(Text, GetBlackChatMessage) <> 0);
        if Result then
          Exit;
        Wait(20);
      until(TimeFromMark(t) > WaitTime);
    end;

    function WaitMessageMulti(WaitTime: Integer; Text: TStringArray): Boolean;
    var
      EachWait, hText, t, i: Integer;
    begin
      Result := False;
      hText := High(Text);
      EachWait := Round(150 / hText);
      FixChat;
      MarkTime(t);
      repeat
        for i := 0 to hText do
        begin
          Result := WaitMessage(EachWait, Text[i]);
          if Result then
            Exit;
        end;
      until(TimeFromMark(t) > WaitTime);
    end;

    function MineOre: Boolean;
    var
      Tries, c, i: Integer;
      aTPA: T2DPointArray;
      TPA: TPointArray;
      P: TPoint;
    begin
      if not LoggedIn then Exit;
      for i := 5 to 15 do
      begin
        AntiBan;
        Currently('Searching for ore: Tolerance is '+ IntToStr(i) +'...');
        Tries := 0;
        repeat
          TPA := FindTPointCluster(OreColor, i, Point(MSCX, MSCY), -1, -1, 12, MSBox);
          aTPA := SplitTPAEx(TPA, 12, 12);
          if (Length(aTPA) > 0) then
          begin
            for c := 0 to High(aTPA) do
            begin
              if not ExcludeColors(ExColors, ExTol, aTPA) then
              begin
                P := MiddleTPA(aTPA[c]);
                MMouse(P.x, P.y, 3, 3);
                Wait(300+Random(100));
                if WaitUptext(OreUptext, 500) then
                begin
                  ClickMouse2(mouse_right);
                  Result := WaitOption('ine', 1000);
                  if Result then
                  begin
                    Currently('Ore found!');
                    Wait(300+Random(100));
                    while IsMoving do
                      Wait(150);
                    MarkTime(StartMine);
                    //WaitMoving(2500);
                    Exit;
                  end else
                  begin
                    {if PickupDrops then
                    begin
                      if WaitOption('ake', 1000) then
                      begin
                        Currently('Picking up an ore...');
                        Inc(OresPicked);
                      end;
                    end;}

                  end;
                end;
              end else
                Currently('Wrong ore found...');
              if (c >= 2) then
                  Break;
            end;
          end;
          Inc(Tries);
        until(Tries > 1);
      end;
    end;

    function HopWorld: Boolean;
    var
      aTPA: T2DPointArray;
      TPA: TPointArray;
      P: TPoint;
      PlayerBox, ConfirmBox, SkipBox, PlayBox, RefreshBox, WorldBox, SortBox, StarBox: TBox;
      xSlide, ySlide, Rand, haTPA, h, t, i: Integer;
    begin
      Result := False;
      Currently('Hopping to a different world...');
      if LoggedIn then
        ExitToLobby;
      Wait(500+Random(500));
      ConfirmBox := IntToBox(288, 420, 478, 443);
      SkipBox := IntToBox(493, 424, 565, 437);
      PlayerBox := IntToBox(74, 27, 93, 46);
      PlayBox := IntToBox(263, 449, 503, 473);
      RefreshBox := IntToBox(76, 65, 101, 90);
      WorldBox := IntToBox(167, 24, 263, 47);
      SortBox := IntToBox(122, 184, 130, 193);
      StarBox := IntToBox(92, 199, 115, 436);
      xSlide := RandomRange(684, 697);
      ySlide := RandomRange(227, 409);
      MarkTime(t);
      repeat
        if not ColorWait(1000, 6314553, 5, PlayerBox) then
        begin
          if ColorWait(1000, 348683, 5, ConfirmBox) then
          begin
            MouseTBox(SkipBox, mouse_left);
            Wait(500+Random(500));
            Break;
          end;
        end else
          Break;
        Wait(500+Random(500));
      until(TimeFromMark(t) > 10000);
      MarkTime(i);
      repeat
        if not ColorWait(1000, 16645505, 5, RefreshBox) then
        begin
          MouseTBox(WorldBox, mouse_left);
          Wait(500+Random(500));
          Break;
        end else
          Break;
        Wait(500);
      until(TimeFromMark(i) > 10000);
      MarkTime(h);
      repeat
        MouseTBox(SortBox, mouse_left);
        Wait(500+Random(500));
        Mouse(xSlide, ySlide, 0, 0, mouse_left);
        Wait(500+Random(500));
        FindColorsTolerance(TPA, 11250603, StarBox.x1, StarBox.y1, StarBox.x2, StarBox.y2, 5);
        aTPA := TPAToATPAEx(TPA, 12, 12);
        if (Length(aTPA) > 0) then
        begin
          haTPA := High(aTPA);
          Rand := Random(haTPA);
          P := MiddleTPA(aTPA[Rand]);
          Mouse(P.x, P.y, 1, 1, mouse_left);
          Result := True;
          Break;
        end;
      until(TimeFromMark(h) > 10000);
      if Result then
      begin
        MouseTBox(PlayBox, mouse_left);
        Wait(2000+Random(2000));
        WaitLoggedIn(2000);
      end;
    end;

    procedure ToMineProc;
    var
      t, i: Integer;
    begin
      if not InvFull then
      begin
        if Teleport('clan', 2) then
        begin
          MarkTime(t);
          Wait(3500+Random(1000));
          repeat
            if AtArea('clangrounds', 1000) then
              Break;
            Wait(500+Random(250));
            Antiban;
          until(TimeFromMark(t) > 10000);
        end;
        if AtArea('clangrounds', 2000) then
        begin
          GetNPCDotColor;
          AlignWalking('mine', 5000);
          WalkTo('mine');
          MarkTime(i);
          repeat
            if AtArea('mine', 1000) then
              Break;
            Wait(500+Random(250));
            Antiban;
          until(TimeFromMark(i) > 5000);
        end;
        if AtArea('mine', 2000) then
        begin
          WalkTo('spot');
          Wait(500+Random(250));
        end;
      end;
    end;

    procedure MineOreProc;
    var
      MinWait, sCount, eCount: Integer;
    begin
      if AtArea('mine', 2000) then
      begin
        Stolen := 0;
        MinWait := 3000;
        sCount := InvCount;
        repeat
          if (Stolen >= HopCount) and HopIfTaken then
          begin
            if not HopWorld then
              Error('Failed to hop world!');
          end;
          if MineOre then
          begin
            Currently('Mining ore...');
            repeat
              if WaitMessage(250, 'currently') then
              begin
                Inc(Stolen);
                Break;
              end;
              eCount := InvCount;
              if (eCount > sCount) then
              begin
                if CheckInvColor(InvOre, eCount, 5) then
                begin
                  AvgMine := (AvgMine + (TimeFromMark(StartMine) + 500)) / 2;
                  MineWait := (MineWait + AvgMine) / 2;
                  if (MineWait < MinWait) then
                    MineWait := MinWait + (MineWait / 3);
                  Currently('Ore mined!');
                  Inc(OresMined);
                  Break;
                end;
              end else
              begin
                if WaitMessageMulti(150, ['manage', 'level', 'found']) then
                begin
                  Inc(Stolen);
                  Break;
                end;
              end;
              Wait(100+Random(50));
              AntiBan;
            until(TimeFromMark(StartMine) > MineWait);
            sCount := InvCount;
            ProgressReport;
          end;
          Wait(100+Random(50));
        until(InvFull);
      end;
    end;

    procedure ToBankProc;
    var
      t, i, c: Integer;
    begin
      if InvFull then
      begin
        if Teleport('dung', 2) then
        begin
          MarkTime(t);
          Wait(6000+Random(3000));
          repeat
            if AtArea('dung', 1000) then
              Break;
            Wait(500+Random(250));
            Antiban;
          until(TimeFromMark(t) > 12000);
        end;
        if AtArea('dung', 2000) then
        begin
          GetNPCDotColor;
          AlignWalking('bank', 5000);
          WalkTo('bank');
          MarkTime(i);
          repeat
            if AtArea('bank', 1000) then
              Break;
            Wait(500+Random(250));
            Antiban;
          until(TimeFromMark(i) > 5000);
        end;
        if AtArea('bank', 2000) then
        begin
          if (InvCount > 1) then
          begin
            MarkTime(c);
            repeat
              if OpenDungBank then
                DoBanking(4);
              Wait(500+Random(250));
              AntiBan;
            until((InvCount < 2) or (TimeFromMark(c) > 20000));
          end;
        end;
      end;
    end;

    procedure ToMineLoop(Tries: Integer);
    var
      i: Integer;
    begin
      if InvFull then
        Exit;
      i := 0;
      repeat
        if (i > 0) then
        begin
          Currently('Trying again...');
          Calibrate;
        end;
        ToMineProc;
        Inc(i);
      until(AtArea('mine', 2000) or (i > Tries));
      if not AtArea('mine', 2000) then
        Error('Walking to mine messed up!');
    end;

    procedure MineOreLoop(Tries: Integer);
    var
      i: Integer;
    begin
      if InvFull then
        Exit;
      i := 0;
      repeat
        if (i > 0) then
        begin
          Currently('Trying again...');
          Calibrate;
        end;
        MineOreProc;
        Inc(i);
      until(InvFull or (i > Tries));
      if not InvFull then
        Error('Ores not found!');
    end;

    procedure ToBankLoop(Tries: Integer);
    var
      i: Integer;
    begin
      if not InvFull then
        Exit;
      i := 0;
      repeat
        if (i > 0) then
        begin
          Currently('Trying again...');
          Calibrate;
        end;
        ToBankProc;
        Inc(i);
      until((InvCount < 2) or (i > Tries));
      if (InvCount > 1) then
        Error('Banking messed up!');
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn(' Runaways                                  v'+ Version +'!');
      WriteLn('<=----------- Rimmington Tele-Banker ----------=>');
      WriteLn('|  Running for: '+ TimeRunning);
      WriteLn('|  Ores Mined: '+ IntToStr(OresMined) +' '+ OreToMine);
      {if PickupDrops then
        WriteLn('|  Picked Up: '+ IntToStr(OresPicked) +' ores');}

      WriteLn('|  Banked: '+ IntToStr(LoadsDone) +' loads');
      WriteLn('|  Mining XP gained: '+ IntToStr(Round(OresMined * OreXP)) +' XP');
      WriteLn('<=---------------------------------------------=>');
    end;

    procedure SetupScript;
    begin
      ClearDebug;
      OresMined := 0;
      OresPicked := 0;
      Currently('Setting up Script...');
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
      Smart_Server := 21;
      Smart_Members := False;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      {$ELSE}
          SRL_SixHourFix := True;
          Smart_FixSpeed := True;
        {$ENDIF}
      {$ENDIF}

      setupSRL();
      IgnoreBar;
      DeclarePlayers;
      DeclareColors;
      ActivateClient;
      if not LoggedIn then
        LoginPlayer;
      WaitLoggedIn(2000);
      ProgressReport;
    end;

    begin
      SetupScript;
      MouseSpeed := (14+Random(6));
      SetupPlay;
      SetupVars;
      SetChat('all', 0);
      SetChat('hide', 1);
      Calibrate;
      MarkTime(t);
      repeat
        ToMineLoop(2);
        if (Loop >= 4) then
        begin
          Calibrate;
          Loop := 0;
        end;
        MineOreLoop(2);
        ToBankLoop(2);
        ProgressReport;
        MouseSpeed := (14 + Random(6));
        Inc(Loop);
      until((TimeToRun <> 0) and (TimeFromMark(t) > (TimeToRun * (60 * 1000))));
    end.

    Tested and working.

  5. #230
    Join Date
    Aug 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Testing... currently rsbot user.

  6. #231
    Join Date
    Aug 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] C:\Simba\Includes\SRL\SRL\misc\smart.simba(56:19): Invalid number of parameters at line 55
    Compiling failed.

    procedure SendKeys(S: String; keywait{$IFNDEF SIMBAMAJOR980}, keymodwait{$ENDIF}: integer);
    begin
    SmartSendKeys(S);
    end;


    Something on Smart page not on your script, this is confusing and someone said this is easier than rsbot... yeah right. I just want to run more than 1 bot.
    Help?
    Last edited by tulpiukas; 08-08-2012 at 12:38 PM.

  7. #232
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Updated to v0.75! Re-implemented the 'PickupDrops' option and it works with all Simba versions

  8. #233
    Join Date
    Jan 2012
    Posts
    146
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Great script! Runs well My only problem would be it's a little slow finding the banker. But other then that very nice script! Keep up the good work
    I love you.

  9. #234
    Join Date
    Feb 2012
    Location
    Ã…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what is clan vexillum and where can i get it ? :S
    ahh nevermind , il ltry this out !
    mmm very nice , a little bit slow at walking from the clan - the mining spot, and when it goes to Bank , and after banked it stops a little bit x) but very very great script thanks alot )
    Last edited by thomas1116; 08-27-2012 at 07:17 PM.

  10. #235
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by HolyWord View Post
    Great script! Runs well My only problem would be it's a little slow finding the banker. But other then that very nice script! Keep up the good work
    Thanks! I realized that the banking needed some tweaking after I updated this

    Quote Originally Posted by thomas1116 View Post
    what is clan vexillum and where can i get it ? :S
    ahh nevermind , il ltry this out !
    Let me know how it goes!

    I've re-uploaded v0.75 with an important banking fix.

  11. #236
    Join Date
    Feb 2012
    Location
    Ã…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Runaway View Post
    Thanks! I realized that the banking needed some tweaking after I updated this



    Let me know how it goes!

    I've re-uploaded v0.75 with an important banking fix.
    sometimes it get stuck when goes to bank , goes into the dungoneering place , and stands there for a little while :S the same when it goes to the mine
    E; and it dosn't even hop world when the spot is crowded with 3-4 players, an i set it to true ?
    Last edited by thomas1116; 08-27-2012 at 08:47 PM.

  12. #237
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by thomas1116 View Post
    sometimes it get stuck when goes to bank , goes into the dungoneering place , and stands there for a little while :S the same when it goes to the mine
    E; and it dosn't even hop world when the spot is crowded with 3-4 players, an i set it to true ?
    Try re-downloading v0.75, I fixed the bank issue. It most likely stands at the mine doing nothing because it can't find any ores with 3-4 people there. As for world hopping, it's probably broken since I wrote that before the nav bar update... Thanks for the info, I'll try to fix these things.

  13. #238
    Join Date
    Feb 2012
    Location
    Ã…lesund,Norway
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Runaway View Post
    Try re-downloading v0.75, I fixed the bank issue. It most likely stands at the mine doing nothing because it can't find any ores with 3-4 people there. As for world hopping, it's probably broken since I wrote that before the nav bar update... Thanks for the info, I'll try to fix these things.
    well it just said failed to hop world and logged out x) hehe ,
    and yes i use the new verson u uploaded :P with the bank fixx
    EDIT; i also see, it wudnæt pick up iron ores , if there is 100 on the ground , it shud pick up iron ores if there are any , if not it should mine it


    <=----------- Rimmington Tele-Banker ----------=>
    | Running for: 5 Hours, 51 Minutes and 26 Seconds
    | Mined: 1663 iron ores
    | Picked Up: 173 ores
    | Banked: 75 loads
    | Mining XP gained: 58205 XP
    <=---------------------------------------------=>
    Successfully executed.

    Used addy pickaxe nice

    I found some bugs , it keeps getting stuck for houers ;; Warning! You passed a wrong xs to a finder function: -6. That is below 0, thus out of bounds. Setting the value to 0 for now. and i also have a pircture , and the red circle is another spot it often gets stuck to I would just let you know !
    Last edited by thomas1116; 08-29-2012 at 04:32 PM.

  14. #239
    Join Date
    Aug 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hi runaway!
    i used ur claycraftbank script and it works nice.
    and this is yet another working script! good job, congratz.

  15. #240
    Join Date
    Sep 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    crashes every 2 hours :/

  16. #241
    Join Date
    Sep 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    time for a update? o.P

  17. #242
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by enraged94 View Post
    time for a update? o.P
    Probably. At this point, most of my scripts are outdated

    No time to update though... between classes and the SRL competition, this is pretty much the last thing on my list right now.

  18. #243
    Join Date
    Sep 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Been using it for the past day or two and it's awesome.
    However i found that sometimes it spends alot of time moving the mouse around looking for the banker, and if it doesn't find him it retele's to Deimonheim until it does.

    Sometimes i would come to check on it and i'd find that it was logged out, I don't know what happens since simba doesnt say that the bot has stopped running. But would a reloggin feature be possible?

    And im not sure if this would be for this script alone or others also, since i'm new to Simba; but if I keep an eye on the progress report while its mining I'll see that it's counting every click on the rock instead of every ore mined, even if it's just reclicking on a stubborn one. Therefore the number of ore mined in the progress report is much larger than the actual amount mined.

    Other than that, great work!
    Thx for the awesome script!

  19. #244
    Join Date
    Jan 2008
    Location
    Australia
    Posts
    124
    Mentioned
    1 Post(s)
    Quoted
    18 Post(s)

    Default

    Had a problem where it teleported using the ring and then crashed, message was "Banking messed up."

    Warning! You passed a wrong xs to a finder function: -6. That is below 0, thus out of bounds. Setting the value to 0 for now.

    That too.

    Otherwise flawless script in terms of failsafes and whatnot. Could be faster.
    Last edited by Ivo09; 10-03-2012 at 01:48 AM.

  20. #245
    Join Date
    Aug 2012
    Location
    Singapore
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Trying this script now, made some tweaks and am now beating some guy using exactly the same script as me. :P Characterised by the clan vex. (; Great script! Thanks a lot.

  21. #246
    Join Date
    Aug 2012
    Location
    Singapore
    Posts
    77
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Walking could be faster though! I have no idea how to change the wait time between clicks. ):

  22. #247
    Join Date
    Dec 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I also notice a significant error with the banking system, it take around 2 - 3 or even more attempts to find the bank, it will repeatedly teleport until it finds the bank, sometimes it wont even find it at all

  23. #248
    Join Date
    Apr 2013
    Location
    South East USA
    Posts
    40
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default

    Hey awesome script but it needs an update for the silver light crystals that you get when you are mining. It can't bank those items and ends up logging out because of it

  24. #249
    Join Date
    Apr 2013
    Location
    South East USA
    Posts
    40
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default

    starlight ores sorry

  25. #250
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by photodumb View Post
    starlight ores sorry
    Are they p2p or f2p?

Page 10 of 11 FirstFirst ... 891011 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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