[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.

[-------------------------------------------------] [- Mints Super Duper Flawless Alcher [-------------------------------------------------] [- Current running time :5 Hours, 8 minutes and 29 seconds [- Alchs made : 11908 [- Alchs per hour : 2219 [- Exp Gained : 566020 [-------------------------------------------------]

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.