The title says it all. My script that I made will just keep on finding the rocks but it won't click.
Code: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.


Reply With Quote



