[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
- Download and install Simba from here. http://simba.villavu.com/bin/Release/0.98/SimbaInstaller.exe
- Open Simba; go to View > Extensions.
- Enable extensions.sex.
- Click View > Extensions Menu.
- Click Extensions > Check for Updates. Let it update.
- Restart Simba.
- Go to View > Extensions.
- Enable srl.sex, and associate.sex.
- Click SRL > Check for Updates. Let the files download.
- Click SPS > Check for Updates. Let the files download; may take a few seconds.
- Make sure your graphics settings as bright as possible, everything else as low as possible.
- 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.
