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.
SCAR Code:
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.