SIMBA alching bot?

just wondering if anyone knows of a good High alch bot on simba that will run for like 10 days straight without stopping?

 

Mine will run forever in pest control . (Except for the 6 hour Jagex force logouts, which can be coded in in 5 minutes)

Code:

program AutoAlch;

{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}



  (*  __________________________________ *)
  (*                                     *)
  (*     AutoAlch v2.0 - Made By Vusn!   *)
  (*  __________________________________ *)


  (* V2.0 Updates *)
  (* - Added an options box to allow the user to set number of alchs *)
  (* - Decreased the likelihood of random breaks                     *)
  (* - Tweaked the mouse movements a bit                             *)
  (* - Added progress report                                         *)



  var
    x, y, AlchCount, InputAlchs: Integer;

    frmDesign: TForm;
    Button1: TButton;
    Label1, Label2: TLabel;
    Edit1: TEdit;


Procedure PlayerInput(Sender: TObject);
begin
  InputAlchs := strtoint(Edit1.TEXT)
  frmDesign.ModalResult:= mrOk;
end;

Procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Top := 100;
  frmDesign.Left := 100;
  frmDesign.Width := 350;
  frmDesign.Height := 150;
  frmDesign.Caption := 'Test!';
  frmDesign.Color := ClWhite;

  Edit1 := TEdit.Create(FrmDesign);
  Edit1.Parent := FrmDesign;
  Edit1.Top := 80;
  Edit1.Left := 90;
  Edit1.Width := 150;
  Edit1.Height := 20;
  Edit1.Text := '';

  Button1 := TButton.Create(FrmDesign);
  Button1.Parent := FrmDesign;
  Button1.Top := 110;
  Button1.Left := 115;
  Button1.Height := 30;
  Button1.Width := 100;
  Button1.Caption := 'Begin';
  Button1.OnClick := @PlayerInput;

  Label1 := TLabel.Create(FrmDesign);
  Label1.Parent := FrmDesign;
  Label1.Top := 15;
  Label1.Left := 75;
  Label1.Caption := 'AutoAlch By Vusn';
  Label1.Font.Size := 17;
  Label1.Font.Color := ClBlack;
  Label1.Font.Name := 'Times New Roman';

  Label2 := TLabel.Create(FrmDesign);
  Label2.Parent := FrmDesign;
  Label2.Top := 55;
  Label2.Left := 47;
  Label2.Caption := 'Enter the amount of items to be alched:';
  Label2.Font.Size := 12;
  Label2.Font.Color := ClBlack;
  Label2.Font.Name := 'Times New Roman';

end;

Procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

Procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

Procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

Procedure HumanMove;
Begin
  case random(1000) of
    1..500:   MMouse(RandomRange(713 - 5, 713 + 5), RandomRange(338 - 5, 338 + 5), 0, 0);
    501..800: MMouse(RandomRange(713 - 6, 713 + 6), RandomRange(338 - 6, 338 + 6), 0, 0);
    801..900: MMouse(RandomRange(713 - 7, 713 + 7), RandomRange(338 - 7, 338 +7), 0, 0);
    901..950: MMouse(RandomRange(713 - 8, 713 + 8), RandomRange(338 - 8, 338 + 8), 0, 0);
    951..975: MMouse(RandomRange(713 - 9, 713 + 9), RandomRange(338 - 9, 338 + 9), 0, 0);
    976..1000:MMouse(RandomRange(713 - 10, 713 + 10), RandomRange(338 - 10, 338 + 10), 0, 0);
  End;
End;

Procedure ClickAlch;
begin
  If (FindColorTolerance(X,Y,1910383,730,173,734,180,13)) Then
  begin
    HumanMove;
    wait(randomrange(700, 1000));
    clickmouse2(mouse_left);
    wait(randomrange(700, 1000));
    clickmouse2(mouse_left);
    AlchCount := AlchCount + 1;
  end;

    If  (Not FindColorTolerance(X,Y,1910383,730,173,734,180,13)) Then
      begin
        wait(randomrange(1000, 1500));
        P07_TabInventoryTab(7);
      end;
end;

Procedure Report;
begin
 ClearDebug;
  begin
    Writeln('Script Ran For: ' + TimeRunning);
    Writeln('Alchs Cast: ' + inttostr(AlchCount));
    Writeln('Experienced Gained: ' + inttostr(65 * (AlchCount)));
  end;
end;

Procedure LogPlayerOut;
begin
  MMouse(RandomRange(643 - 5, 643 + 5), RandomRange(484 - 5, 484 + 5), 0, 0);
  wait(randomrange(1000, 1200));
  clickmouse2(mouse_left);
  MMouse(RandomRange(643 - 20, 643 + 20), RandomRange(375 - 5, 375 + 5), 0, 0);
  wait(randomrange(500, 1000));
  clickmouse2(mouse_left);
end;

Procedure Antiban;
Begin

  Case Random(100) Of
    1: HoverSkill('magic', False);
    2: HoverSkill('random', False);
    3: Boredhuman;
    4: Wait(2500 + random(4500));
    5: HoverSkill('strength', False);
    6: PickUpMouse;
    7: RandomMovement;
    8: RandomRClick;
  end;
end;

Procedure MiniBreaker;              //Credit to Solidone40
Begin

  Case Random (300) Of
    1: Wait(20000 + random(7400));
    2: Wait(14500 + random(8550));
    3: Wait(30040 + random(6759));
    4: Wait(10400 + random(2549));
  end;
end;

procedure Welcome;
begin
 ClearDebug;
 begin
  Writeln('       ____________________________');
  Writeln('                                   ');
  Writeln('       AutoAlch v2.0 - Made By Vusn');
  Writeln('       ____________________________');
  Writeln('                                   ');
  Writeln('                                   ');
  Writeln('         Starting Script.. Enjoy!');
  end;
end;

begin
SafeInitForm;
SafeShowFormModal;
SetupSRL;
SetupP07Include;
Welcome;
If (P07_LoggedIn) Then
  repeat
    ClickAlch;
    AntiBan;
    MiniBreaker;
    FindMod;
  until(AlchCount = InputAlchs);
Writeln('You have reached your selected number of alchs!');
Report;
LogPlayerOut;
TerminateScript;
end.
                                                                                                                                                       

 

Burthope Games Room -> Set Auto Clicker to 0.9s -> 10 Days Later...

 

jagex has the 6 hour playing limit, and ive seen scripts that run days on end with out stopping, im not a member btw.. and i dont know how to code anything so, im looking for one already coded to run for along time.

 

Wouldn't suggest using an autoclick without any randomness built in, that will get you banned for sure.

Since you didn't make this in the 2007 section I assume you mean EoC so:
http://villavu.com/forum/forumdisplay.php?f=419

Otherwise for Old School:
http://villavu.com/forum/forumdisplay.php?f=516

 

Nope. I used a autoclicker with absolutely no random delays for an account that went on to be a maxed 2200' overall lv 138 main. As long as you don't get reported you're safe.

 

i did mean EOC but i cannot find one that works great :\ idk if its me or if its the bot, as im new to SIMBA could you help me? also are there any that will run for more than 6 hours? like restart itself or something like that?

 

i did use Autoclicker, but i didnt like it as my computer didnt lock, so people at my house could see i was playing runescape while im at school and they hate the game, and when i get home, i cant use it while its autoclicking..

 

Good script