SRL Archive - First Scripts

Well ive completed it but i was wondering if someone could take a look at it and see whats wrong cause i wont compile and being a noob at it :\

Cheers,
frenzeeh

Should compile now :] Simple mistakes..like on the FindObjCustom you got one right but the other totally wrong. Nice first script though:D

program IronPowerMiner;
{This is my first script! So be gentle i wont suggest using this
on a account that you value :), but here goes! And please Enjoy!}
{.include SRL/SRL.scar}
Const
 RockColor1=2964578; //Edit if it doesn't work :)
 RockColor2=2108231;
Var x, y, Tries: integer;

Procedure Declareplayers;
 Begin
 
     HowManyPlayers :=1
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;
     
     Players[0] .Name := ''; //RS Username
     Players[0] .Pass := ''; //RS Pass
     Players[0] .Nick := ''; //3or4 lowercase letters from your RS Username
     Players[0] .Active := True; //This is the account you want to use? TrueORfalse
     
 end;

Procedure Randoms;
 Begin
  if (findfight) then
  RunAway('N',True,1,20000);
  FindNormalRandoms;
end;

Procedure AntiBan;
 Begin
  if not LoggedIn then Exit;
   case 6+random(10) of
     1: HoverSkill('Mining', false);
     2: PickUpMouse;
     3: BoredHuman;
   end;
end;

procedure RockMining;
Begin
if not LoggedIn then Exit;
Repeat
  if findObjCustom(x, y, ['Min','ine'], [RockColor1, RockColor2], 10) then
  case random(2) of
    1: begin
         Mouse (x, y, 4, 4, false);
         Wait(400);
         ChooseOption('ine');
       end;
    2: begin
         Mouse (x, y ,4, 4, True);
       end;
  end;
 Until (InvFull)
end;

Procedure DropRocks;
var
I : Integer;
Arr : Array of Integer;
Begin
Arr :=[2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,
      18,19,20,21,22,23,24,25,26,27,28];
if FindObjCustom (x, y, ['Ore'], [RockColor1, RockColor2], 7) then
  for I := 2 to 28 do
   DropItem(Arr[I]);
end;

Begin
SetupSRL;
LoginPlayer;
repeat
  RockMining;
  DropRocks;
  AntiBan;
until (False)
end.