Eddited the click times and now it works with perfect timing
here for those who asked:
Code:
program AutoAlch;
{$DEFINE SMART8}
{$DEFINE SMART}
{$I SRL-OSR/SRL.Simba}
var x,y,alchDTM,alchCount : Integer;
aFOund : extended;
procedure Report;
begin
FreeDTM(alchDTM);
begin
Writeln('(SlushyAlcher v0.01 - Made by slushpuppy)');
Writeln(' ====== Progress report =======');
Writeln('Time: ' + TimeRunning);
Writeln('Alches done: ' + Inttostr(alchCount));
end;
end;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
WorldInfo := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Slayer;
Active := True;
Nick := 'sector';
end;
end;
begin
DeclarePlayers;
SetupSRL;
alchDTM := DTMFromString('mbQAAAHicY2VgYOhiYWCoZ4HQrUDcAcR+TAwMQVAcCMTuQMzAwMhw6RInGP/6xgPmywFJdMyIBYMBAMT/CkE=');
repeat
begin
If (LoggedIn) Then
begin
if FindDTMRotated(alchDTM,x,y,MIX1,MIY1,MIX2,MIY2,-10,10,0.1,afound) AND (GetCurrentTab = tab_Magic) then
begin
Mouse(x,y,3,3,mouse_Left);
sleep(300 + Random(200));
if ExistsItem(CoordsToItem(x,y)) then
begin
Inc(alchCount);
Mouse(x,y,3,3,mouse_Left)
end
else break;
sleep(1900 + Random(150));
end else
begin
if GetCurrentTab = tab_Magic then
break else
begin
writeln('switch tab');
GameTab(tab_Magic);
end;
wait(randomrange(1000, 1500));
end
end else LogInPlayer;
end
until(false);
writeln('out of alches/nats.. exiting');
Report;
end.