SRL Archive - OSR Help

The title says it all. My script that I made will just keep on finding the rocks but it won't click.

Procedure DeclarePlayers;
begin
   HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True
  end;

Procedure MineRock;
var
  x, y: integer;
begin
  repeat
  if FindObj(x, y, 'ine', 10000804, 5) then
    Mouse(x, y, 2, 2, false);
    ChooseOption('ine');
      repeat
        wait(1200+ random(250));
      Until not IsUpText('ocks') Or (InvFull);
    until (InvFull);

  end;




begin
  SetupSRL;
  //ActivateClient;
  DeclarePlayers;
  //LoginPlayer;
  MineRock;


end.     

1. its not finding the colors you set forth

2. the only thing that is affected by the if statement is your mouse click. so you have an endless loop that is being called afterwards. use begins/ends.

3. almost got the standards down! just gotta fix the indentation of all lines from chooseOption(); downward.

Mouse uses ClickMouse2 :)

Just felt like saying that…not really significant… herr herr herr :o