program PowerMiner;
{.include SRL/SRL.scar}
const
Normal=10263720;
begin
findColor
Mouse(righclick)
end;
end.
^am i on the right track this is my first script^
program PowerMiner;
{.include SRL/SRL.scar}
const
Normal=10263720;
begin
findColor
Mouse(righclick)
end;
end.
^am i on the right track this is my first script^
Hm.. a bitYou need to add more parameters to the commands though.
I'd Say A Bit ToHm.. a bit You need to add more parameters to the commands though.![]()
your kind of there, but the problem with that is that the mouse parameters are way off. I would try this
What this does is it would find the color, and if you can't find the color, it would try to find it until you do or if you've tried 20 times. After 20 tries it would end the script. And it wont stop mining until your inventory is full.SCAR Code:program PowerMiner;
{.include SRL/SRL.scar}
var Tries: Integer
const
orename = orecolor
begin
repeat
FindColorTolerance(x,y,orename,MSX1,MSY1,MSX2,MSY2,3);
if(not(FindColorTolerance(x,y,orename,MSX1,MSY1,MSX2,MSY2,3))) then
begin
Tries:=0;
repeat
Wait(400 + random(50));
Tries := Tries + 1;
If Tries=20 then
Begin
Writeln('Cant find Ore');
Terminate Script;
end;
until FindColorTolerance(x,y,orename,MSX1,MSY1,MSX2,MSY2,3);
MMouse(x,y,0,0)
Mouse(x,y,0,0)
Wait(5000)
until (InvFull)
end.
Can't sleep Clowns will eat me
Can't eat Clowns will sleep with me



his^^^ but fixed up
SCAR Code:program PowerMiner;
{.include SRL/SRL.scar}
var
Tries: Integer;
const
orecolor = 0;
begin
repeat
if(not(FindColorTolerance(x,y,orecolor,MSX1,MSY1,MSX2,MSY2,3))) then
begin
Tries:=0;
repeat
Wait(400 + random(50));
Tries := Tries + 1;
If Tries=20 then
Begin
Writeln('Cant find Ore');
TerminateScript;
end;
until FindColorTolerance(x,y,537161,MSX1,MSY1,MSX2,MSY2,3);
end;
MMouse(x,y,0,0)
Mouse(x,y,0,0, True)
Wait(5000);
until (InvFull)
end.
There are currently 1 users browsing this thread. (0 members and 1 guests)