[Simba]AutoAlch by Vusn

AutoAlch by Vusn


Improved Version 1.1 Features

- High Alchs any item
- Supports SMART
- Excellent AntiBan Features
- Removed the AntiLeech
- Flawless in a no random area
- The debug will count after each alch. I find it useful to have a bit of the window exposed so that I
can monitor the alching while browsing the Internet, or playing other characters.
- Simple progress report (exp gained, amount of alchs) at the end of the script.

Upcoming Versions

- AntiRandom features
- Advanced Progress Tracker
- Auto log out when out of runes or in a random event


** Make sure the item that you want to alch is in the same spot as the alchemy spell, as if you were casting legit. **
** For best results, use in a non random area (Pest Control). **
** Please stay current with updates! **

Code:

program AutoAlch;

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



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

    (* To disable SMART delete lines 3 & 114 *)



  var
  x, y, AlchCount, StartTime, EndTime: Integer;

Procedure P07_DeclarePlayer;
begin
  P07_PlayerName:='';
  P07_PlayerPass:='';
end;

procedure HumanMove;
Begin

  case random(200) of
    1..160:   MMouse(RandomRange(713 - 5, 713 + 5), RandomRange(338 - 5, 338 + 5), 0, 0);
    161..190: MMouse(RandomRange(713 - 7, 713 + 7), RandomRange(338 - 7, 338 +7), 0, 0);
    191..200: 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
  wait(randomrange(1000, 1500));
  P07_TabInventoryTab(7);

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 (160) Of
    1: Wait(40000 + random(7400));
    2: Wait(25500 + random(8550));
    3: Wait(60040 + random(6759));
    4: Wait(20400 + random(2549));
  end;
end;

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

procedure Report;
begin
 ClearDebug;
  begin
  Writeln('Alchs Cast: ' + inttostr(AlchCount));
  Writeln('Experienced Gained:' + inttostr(65 * (AlchCount)));
  end;
end;

begin
SetupSRL;
P07_DeclarePlayer;
SetupP07Include;
Welcome;
 If (Not P07_LoggedIn) Then
  begin
    P07_LogInPlayer;
  end;
 repeat
ClickAlch;
Writeln(AlchCount);
AntiBan;
MiniBreaker;
FindMod;
 until(not P07_LoggedIn)
Report;
 end.
             

 

This isn't villavu not many people know srl and won't be able to figure out the anti leech.

 

This is a pretty simple script. For people having trouble with the antileech, in pascal a lot of lines of code end with a ;. Check the lines around the line in the debug box to make sure that is done. The Antiban in the mainloop that isn't working is referring to another function on the program. Check to make sure the names match.

 

The errors will tell you exactly how to fix it ;p

 

Did some much needed upgrades to it + removed antileech

 

Thanks for this!