need help with powerminer

hi either could you post a very simple powerminer for me to look at heres what i have so far(the bits i need help with)

Code:

program Powerminer;

{.Include SRL\SRL.SCAR}
Var
x,y :integer;
Const
rock1= 456467;//this IS a random number use the colour picker for real colours
rock2= 564564;//same as above but a different colour4
waittime= 5789;//time to wait
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := 'myuseris';
  Players[0].Pass := 'mypasswordis';
  Players[0].Nick := 'eris'; //3-4 LETTERS from name  like i did myusERIS
  Players[0].Active:= True;
end;
procedure PreparePlayer;
begin
  if not LoggedIn then LoginPlayer;
end;


Procedure Randoms;
Begin
FindNormalRandoms;
End;


procedure AntiBan;
begin
  if not LoggedIn then Exit;
  begin;
  case (Random(30)) of
    1: HoverSkill('mining', False);
    2: RandomMovement;
    3: PickUpMouse;
    4: begin
         Gametab(1 + Random(5));
         Gametab(4);
        end;
    30: SleepAndMoveMouse(300);
  end;
end;


program minerock;
X,Y :integer
Begin;
 if(not(LoggedIn)) then LoginPlayer;
 







 Procedure oredropping;
Var
     i: Integer;
Begin
     If Not (LoggedIn) Then Exit;
     GameTab(4);
     For i := 2 To 28 Do
          Begin
               If ExistsItem(i) Then
                    DropItem(i);
                    writeln('ores have been dropped!');
          End;
End;
procedure SetupSRL;




procedure Mainloop;
begin
SetupSRL;

i mainly need help with the wait times and looking for the colour and mining if you want to complete ill learn then make another/alter and will add you to credits thank you!

sorry this is my first time/post here so i do not know much about acctually posting on sythe
or if you would like to tutor me through MSN
[email protected]

 

There's an entire section dedicated to SCAR. Try posting it there. Here's the link.

http://www.sythe.org/forumdisplay.php?f=233