Enjoy!
please comment.
please comment.
Code:
{.Script Info:
# ScriptName = SimpleMine
# Author = Sean R
# Description = A very basic miner.
# Version = 1.2
# Date = January 9th 2008
# Comments = Simplicity is key
/Script Info}
program SimpleMine;
{.include SRL\SRL.SCAR}
const
Ore1 = 3559503;//Ore color one
Ore2 = 3559502;//Ore color two
Ore3 = 3559501;//Ore color three
waitT = 6000;//The wait between clicking on the rock.
var
loopcount:integer;
x,y:integer;
procedure StartUp;
begin
mined:= false;
writeln('---------------------------------------------------------------------')
writeln('Thank you for using Simple Mine')
writeln('Please enjoy this free script')
writeln('And be sure to use other SS scripts')
writeln('Sean-Scripts')
writeln('---------------------------------------------------------------------')
end;
Procedure Randoms;
Begin
wait(10)
Wait(13);
FindTalk;
UseCerterSolver := True
UseSandwichSolver :=True
FindMaze;
wait(10)
Solvepinball;
Wait(10)
begin
if (FindFight) then
begin
RunAwayDirection('N');
Wait(8500 + random(3500));
RunBack;
end;
end;
end;
Procedure MineS;
begin
if mined = true then
begin
if findcolorspiraltolerance(x,y,Ore1,23,28,478,295,1) then
begin
Mouse(x,y,0,0,true)
wait(waitT)
end;
if findcolorspiraltolerance(x,y,Ore2,23,28,478,295,1) then
begin
Mouse(x,y,0,0,true)
wait(waitT)
end;
if findcolorspiraltolerance(x,y,Ore3,23,28,478,295,1) then
begin
Mouse (x,y,0,0,true)
wait(waitT)
end;
end;
end;
procedure dropa;
begin
dropall;
end;
begin
loopcount:=0
StartUp;
wait(100)
repeat
Loopcount:= Loopcount + 1
Randoms;
MineS;
mined:= false
dropa;
until(false)
end.
