[MINT] Flawless Alcher

[MINT] Flawless Alcher ​

Hi, im very new to this community, but I have had alot of experience with Delphi scripting, so making this script was with ease, currently flawless ! enjoy.​

How To Setup SIMBA​

1. Download and install Simba from here. http://simba.villavu.com/bin/Release/0.98/SimbaInstaller.exe
2. Open Simba; go to View > Extensions.
3. Enable extensions.sex.
4. Click View > Extensions Menu.
5. Click Extensions > Check for Updates. Let it update.
6. Restart Simba.
7. Go to View > Extensions.
8. Enable srl.sex, and associate.sex.
9. Click SRL > Check for Updates. Let the files download.
10. Click SPS > Check for Updates. Let the files download; may take a few seconds.
11. Make sure your graphics settings as bright as possible, everything else as low as possible.
12. Done!

Script Includes -

• High and low Alchs
• Progress Report
• SRL's fast alching capibility
• Flawless
• Find randoms (If needed, preferbly start in an area that has no randoms)
• Failsafes - Logsout when out of Nats or NOTES
• MUST have notes, script uses DTM's to find noted items to alc.

Instructions:

• Fill in declare players.
• Place your character in a good location
• Set whether Low or High alc
• Start script !

Progress Report:

Code:

program MintAlcher;
  {$DEFINE SMART}
  {$DEFINE SRL5}
  {$i SRL/srl.simba}
  {$i SRL\srl\skill\magic.simba }
 
Const
Highalch = true; //High alc for true false for low
SearchForRandoms = false; //Search for randoms?
SCRIPTVERSION = '1.00';//DO NOT TOUCH
 
var
nature,DTM:integer;
 
procedure DeclarePlayers;
begin
  HowManyplayers :=1;
  NumberOfPlayers(HowManyplayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Active := True;
  end;
end;
 
//DO NOT TOUCH BELLOW
var
TheSpell:string;
function CastSpellFast(Spell: string; AutoCast: Boolean): Boolean;
var
  X, Y: Integer;
  B: TBox;
  SInfo: TSpell;
begin
  if not LoggedIn then
    Exit;
 
  SInfo := GetSpellInfo(Spell);
  if not SpellAvailable(B, Spell) then
    Exit;
  GetMousePos(X, Y);
  if AutoCast then
  begin
    if not WaitUpTextMulti(['Autocast', 'ocast', 'utoca'], 300+Random(100)) then
      Exit;
    if not(CountColor(16711422, B.X1-10, B.Y1-10, B.X2+10, B.Y2+10) > 50) then
    begin
      Mouse(X, Y, 0, 0, True);
      Result := True;
    end;
  end;
  Mouse(X, Y, 0, 0, not SInfo.AutoCast);
  if SInfo.AutoCast then
    Result := WaitOptionMulti(['Cast', 'ast', 'Cas'], 300+Random(100))
  else
    Result := WaitUpTextMulti(['Cast', 'ast', 'Cas'], 500+Random(100));
end;
 
 
procedure SetSpellToMisc;
var
  I: Integer;
  BoolArr: array [0..1] of TBooleanArray;
  Combat, Teleport, Misc, Skill: Boolean;
begin
  Combat := false;
  Misc := true;
  Skill := false;
  BoolArr[0] := SpellsAvailable;
  BoolArr[1] := [Combat, Teleport, Misc, Skill];
 
  for I := 0 to High(BoolArr[0]) do
    if not (BoolArr[0][I] = BoolArr[1][I]) then
      ClickSpellMode(I);
end;
 
Function FindNotes(x,y:integer):boolean;
begin
 
Result := FindDTM(DTM,x,y,MIx1,MIY1,MIX2,MIY2);
 If (result) then Mouse(x+5,y,5,5,true);
end;
 
var
Failsafe,x,y,xx,yy, alched:integer;
 
Procedure AlcItem;
begin
  GameTab(Tab_inv);
  If FindDTM(nature,x,y, MIx1,MIY1,MIX2,MIY2) then
  begin
    If CastSpellFast(TheSpell, false) then
    begin
     // GetMousePos(X, Y);
     If FindNotes(x,y) then
     begin
        Failsafe := 0;
        Inc(alched);
        exit;
     end;
    end;
      Writeln('Could not Alch!');
      inc(Failsafe);
      If FailSafe > 3 then
      begin
        Writeln('Couldnt not alch after 3 attempts, logging..');
        logout;
        NextPlayer(false);
        exit;
      end;
    end;
    Gametab(Tab_inv);
    If not FindDTM(nature,x,y, MIx1,MIY1,MIX2,MIY2) then
    begin
      Writeln('No more natures - Logging');
      Logout;
      NextPlayer(false);
    end;
end;
 
 
Procedure ProgressReport;
begin
  Writeln('[-------------------------------------------------]');
  Writeln('[- Mints Super Duper Flawless Alcher               ');
  Writeln('[-------------------------------------------------]');
  Writeln('[- Current running time : '+TimeRunning);
  Writeln('[- Alchs made           : '+IntToSTR(alched));
  Writeln('[- Alchs per hour       : '+IntToSTR(alched*3600));
  If HighAlch then
    Writeln('[- Exp Gained           : '+IntToSTR(alched*65));
  If not HighAlch then
    Writeln('[- Exp Gained           : '+IntToSTR(alched*31));
  Writeln('[-------------------------------------------------] ');
end;
 
Procedure SetupCharacter;
begin
  SetSpellMode(true,true,true,true);
  Nature := DTMFromString('mbQAAAHicY2VgYGhgYWDoBeJKIC4F4olAPI+RgWElFM+BYqE6UaBqJhQswoAJGLFgMAAAJJYGmQ==');
  DTM := DTMFromString('mbQAAAHicY2VgYFjCwsAwD4h3AfFuIF4IxAsYGRiWA/FKIJ4BxLOAeGZ3OlA1EwqOAFFogBELBgMAtgkIiw==');
  SortBook(BOOKSORT_TELEPORT);
  Gametab(Tab_Inv);
 end;
 
  function CheckAndUpdateScript:boolean;
  var Neifile:integer;
    OnlineVersion, NewScript, NeiFeilNennen, s:string;
 begin
    writeln('Checking for script updates...');
    OnlineVersion := GetPage('http://tayculay.iwoly.com/versioncheck.php');
 
    S:= between('/'+'/SCRIPTVERSION','/'+'//SCRIPTVERSION', OnlineVersion);
     Writeln(S);
    If not (ScriptVersion = s) then
    begin
      writeLn('Newer script version online!');
      writeLn('Autoupdating to newer version.');
      NewScript := between('['+'SCRIPT]','['+'/SCRIPT]', OnlineVersion);
      NeiFeilNennen := ScriptPath+ '[MINT]Alcher V'+S+'.simba';
      Neifile := Rewritefile(NeiFeilNennen, true);
      try
        WriteFileString(Neifile, NewScript);
      except
        begin
          writeLn('Fatal error writing to '+NeiFeilNennen+'!!');
          terminatescript;
        end;
      end;
      CloseFile(Neifile);
      writeLn('New script downloaded to '+NeiFeilNennen+'!! Use the updated version!');
      TerminateScript;
    end else
      writeLn('You have the latest version of the script!');
end;
 
 
Procedure Terminate;
begin
  FreeDTM(nature);
  FreeDTM(DTM);
  Writeln('Thanks for using Mints ultimate Alcher ! - DTMs FREED');
end;
 
 
begin
DeclarePlayers;
   CheckAndUpdateScript;
   SetupSRL;
 
  AddOnTerminate('Terminate');
  MouseSpeed := MouseSpeed + 5;
  If Highalch then
    TheSpell := 'high level alchemy'
   else
   TheSpell :='low level alchemy';
 SetupCharacter;
  If Not LoggedIn Then
  Loginplayer;
  Repeat
    AlcItem;
    ProgressReport;
  Until(not LoggedIn);
end.

 

hey guys, if you are struggling the get this up and running just post here and ill help you step by step.

 

It autoupdates to another script that has no code in it when I try and run it. help?

 

yes it seems like the updator is broke, you should check out other options at villavu.com/forum