[SRL]Simple mine v1.0[SRL]

Enjoy!
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.

 

lmao no anti-ban.. chillout on the scripting..

and dont go to my thread and say bs

 

Hold on a second. What thread?
Chill out on the scripting?????

Look at the release date on my Woodcutter it was like 2 months ago!!

Wow.
oh your the one with the overadvertised macro i reconize your sig.

Listen i didnt bs it i said it doesnt work which is constructive criticism.

Whats with you and ANTIban anyway.???

Is that all you can say.

 

Shut the fuck up, honestly. If you aren't going to say anything beneficiary then just don't talk.

 

Town ftw.