SRL Archive - RS3 Outdated / Broken Scripts

This is my first script .. made because im tired of clicking
What it does is to click high alch…
theres no anti randoms… and it works with the new interface
theres only one settings and thats how many alchs you want to alch!

program MeanzMiniAlch;
 {.include SRL\SRL.scar}
var Total, TimeToWriteLog, Failed, TotalFailed : Integer;

procedure Alch;
begin
MoveMouseSmooth(716,337);
if IsUpText('High') then
begin
        if TimeToWriteLog=100 then
        begin
         WriteLn('###########################################');
         WriteLn('Report:');
         WriteLn('Total Alchs: '+ IntToStr(Total));
         WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
         WriteLn('###########################################');
        TimeToWriteLog := 0;
        end;
        ClickMouse(716-random(10),337-random(10),true);
        Wait(100+random(200));
        Total := Total + 1;
        Wait(2000+random(200));
        ClickMouse(716-random(10),337-random(10),true);
        TimeToWriteLog := TimeToWriteLog+1;
        Failed := Failed-1;
end;

if IsUpText('bow ->') then
begin
        MoveMouseSmooth(737,183);
        Wait(100+random(200));
        ClickMouse(737+random(4),183+random(3),true);
end;
if Failed>=10 then
begin
        MoveMouseSmooth(737,183);
        Wait(100+random(200));
        ClickMouse(737+random(4),183+random(3),true);
        Failed := 0;
        TotalFailed := TotalFailed+1;
end;
Failed := Failed+1;
end;

begin
wait(5000)
repeat
DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
Alch;
until Total = 1000;   // How many alchs you gonna alch?
WriteLn('###########################################');
WriteLn('Alching done.');
WriteLn('Total Alchs: '+ IntToStr(Total));
WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
WriteLn('###########################################');
end.

Thanks. ^_^ Just what I was looking for. In the absence of functional SRL, there doesn't appear to be much around, this has proved just dandy, though. I made a few tweaks to the script–mostly timings and coordinates, although I also replaced MoveMouseSmooth with MMouse, and ClickMouse with Mouse. The initial script was hitting ~40 misclicks per hundred spells; in 2 samples, this has had two. =] Still no random protection, but it's not too difficult to pause a script momentarily. It would probably be better to make use of DTMs than coordinates, but I can't be bothered to figure that out.

I'm sorry if anything is horrible there; this is my first time messing much with these. Don't hesitate to advise.

program MeanzMiniAlch;
 {.include SRL\SRL.scar}
var Total, TimeToWriteLog, Failed, TotalFailed : Integer;

procedure Alch;
begin
MMouse(716,337,4,6);

if IsUpText('High') then
begin
        if TimeToWriteLog=100 then
        begin
         WriteLn('###########################################');
         WriteLn('Report:');
         WriteLn('Total Alchs: '+ IntToStr(Total));
         WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
        TimeToWriteLog := 0;
        end;
        Mouse(710,337,3,3,true);
        Total := Total + 1;
        Wait(2100+random(635));
        Mouse(714,337,3,4,true);
        Wait(222+random(700));
        TimeToWriteLog := TimeToWriteLog+1;
        Failed := Failed-1;
end;

if IsUpText('bow ->') then
begin
        Wait(600+random(300));
        MMouse(735,183,4,3);
        Wait(100+random(512));
        Mouse(735,183,3,2,true);
end;
if Failed>=10 then
begin
        MMouse(737,183,5,4);
        Wait(230+random(300));
        Mouse(737,183,2,2,true);
        Failed := 0;
        TotalFailed := TotalFailed+1;
end;
Failed := Failed+1;
end;

begin
wait(4000);
repeat
DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
Alch;
until Total = 500;   // How many alchs you gonna alch?
WriteLn('###########################################');
WriteLn('Alching done.');
WriteLn('Total Alchs: '+ IntToStr(Total));
WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
WriteLn('###########################################');
end.

Cheers.

Standards please…

program MeanzMiniAlch;
{.include SRL\SRL.scar}

var
  Total, TimeToWriteLog, Failed, TotalFailed : Integer;

procedure Alch;
begin
  MMouse(716,337,4,6);
  if IsUpText('High') then
  begin
    if TimeToWriteLog=100 then
    begin
      WriteLn('###########################################');
      WriteLn('Report:');
      WriteLn('Total Alchs: '+ IntToStr(Total));
      WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
      TimeToWriteLog := 0;
    end;
    Mouse(710,337,3,3,true);
    Total := Total + 1;
    Wait(2100+random(635));
    Mouse(714,337,3,4,true);
    Wait(222+random(700));
    TimeToWriteLog := TimeToWriteLog+1;
    Failed := Failed-1;
  end;
  if IsUpText('bow ->') then
  begin
    Wait(600+random(300));
    MMouse(735,183,4,3);
    Wait(100+random(512));
    Mouse(735,183,3,2,true);
  end;
  if Failed>=10 then
  begin
    MMouse(737,183,5,4);
    Wait(230+random(300));
    Mouse(737,183,2,2,true);
    Failed := 0;
    TotalFailed := TotalFailed+1;
  end;
  Failed := Failed+1;
end;

begin
  wait(4000);
  repeat
    DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
    Alch;
  until Total = 500;   // How many alchs you gonna alch?
  WriteLn('###########################################');
  WriteLn('Alching done.');
  WriteLn('Total Alchs: '+ IntToStr(Total));
  WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
  WriteLn('###########################################');
end.

Check out these two links :

http://www.villavu.com/forum/showthread.php?t=3293?t=3997&highlight=standards

http://wiki.srl-forums.com/index.php/Scripting_Standards

Is this safe to use while watching it? I have no scripting knowledge, but, it looks like a good first script, better than many others I have seen and tested.

wow…this looks great and its just what i need…a simple high alcher

i did get a few problems:

Line 49: [Error] (12280:1): Unknown identifier 'DisguiseScar' in script

[Runtime Error] : divide by Zero in line 80 in script E:\SCAR 3.11\includes\SRL/SRL/Core/Mouse.scar

i deleted the first error but i don't know how to fix the second one. and yes i have scar 3.11 and srl 4

you need to add SetupSRL; to the main loop like this

program MeanzMiniAlch;
{.include SRL\SRL.scar}
 
var
  Total, TimeToWriteLog, Failed, TotalFailed : Integer;
 
procedure Alch;
begin
  MMouse(716,337,4,6);
  if IsUpText('High') then
  begin
    if TimeToWriteLog=100 then
    begin
      WriteLn('###########################################');
      WriteLn('Report:');
      WriteLn('Total Alchs: '+ IntToStr(Total));
      WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
      TimeToWriteLog := 0;
    end;
    Mouse(710,337,3,3,true);
    Total := Total + 1;
    Wait(2100+random(635));
    Mouse(714,337,3,4,true);
    Wait(222+random(700));
    TimeToWriteLog := TimeToWriteLog+1;
    Failed := Failed-1;
  end;
  if IsUpText('bow ->') then
  begin
    Wait(600+random(300));
    MMouse(735,183,4,3);
    Wait(100+random(512));
    Mouse(735,183,3,2,true);
  end;
  if Failed>=10 then
  begin
    MMouse(737,183,5,4);
    Wait(230+random(300));
    Mouse(737,183,2,2,true);
    Failed := 0;
    TotalFailed := TotalFailed+1;
  end;
  Failed := Failed+1;
end;
 
begin
  SetupSRL;
  wait(4000);
    repeat
      Alch;
    until Total = 500;   // How many alchs you gonna alch?
  WriteLn('###########################################');
  WriteLn('Alching done.');
  WriteLn('Total Alchs: '+ IntToStr(Total));
  WriteLn('Total MissClicks: '+ IntToStr(TotalFailed));
  WriteLn('###########################################');
end.

nice will be awesome if you add in some anti randoms and i dont know if theres any anti ban in there?

Sweet.

I used the one mat d be posted and it works exceptionally well.. here is my proggy
Alching done.
Total Alchs: 500
Total MissClicks: 95
###########################################
the best place to use it is in duel arena… no randoms =D

Awesome. I only tried about 100 alchs but it worked VERY well. If someone added anti randoms it would be great. I also have a question: Do you have to be inside the duel arena (in the middle of a duel) for there to be no randoms, or can you park yourself up on that big ledge where you can watch duels from?

just park your self on the ledge =)