I'm trying to make one, no guarantees though as I am not the best scripter in the world. I have about this much done
program EssenceMiner;
{.include srl/srl.scar}
var
RuneSign : integer ;
x, y: integer ;
procedure DeclarePlayers ;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'ser';
Players[0].Active := True;
{Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'ser';
Players[1].Active := True;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'ser';
Players[2].Active := True; }
end;
Procedure DTMs ;
begin
RuneSign := DTMFromString('78DA637CCEC4C060CAC8800C3E9DB763E002D' +
'220D1FF40C0F804A8461F550D1B9B1498868932BE04AAD123A0E6' +
'0DA65DC78EDD4455F302A8C68680398F806A2C0898F300A8C6085' +
'54D5480318A1A008A5713F9');
end;
Procedure GetToMine ;
begin
if Not LoggedIn then LoginPlayer ;
FindNormalRandoms ;
SetAngle(true) ;
MakeCompass('N') ;
MMouse (428, 324,5,5) ;
Mouse (428, 324, 5,5,true) ;
if FindDTM(RuneSign, x, y) then
Begin
Mouse(x, y, 5, 5, true);
end;
end;
Begin
SetupSRL ;
ActivateClient ;
DTMs ;
DeclarePlayers;
GetToMine ;
FreeDTM(RuneSign) ;
end.
This is from starting in the easternmost bank in the Varrok East Bank, I'm trying to figure out what I would do once it gets to the mine (to find the mine area), any helps appreciated. :garfield: