@farno: install SRL
A procedure doesn't end with end. ,like you did, but with end;
And you have to add a main loop.
Fixed version:
SCAR Code:
program CoinPicker;
{.include SRL/SRL.Scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Name Goes Here
Players[0].Pass :='';//PassWord Goes Here
Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
End;
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
end;
Procedure CoinPicking;
var Coin,x,y:integer;
begin
Coin := DTMFromString('78DA63FCC6C4C060CFC8800C364D1465F80 FA' +
'441A2FF818011A4C606550D4416460269901A67026AFE00D5 3810' +
'50F311D33DE86A00475B0C7D');
if FindDTM(coin,x, y,1, 1, 235, 200) then
MoveMouseSmooth(235,207);
Wait(100+random(50));
ClickMouse(235,207,true);
writeln('Found Coins!');
end;
begin
LoggingIn;
Repeat
Coinpicking;
until(False)
end.
And BTW: NEVER EVER use ClickMouse or MoveMouseSmooth in RuneScape.
Use MMouse and Mouse for that.