SRL Archive - OSR Help

okay so now I got it to where it will log you in at the load up screen but it doesn't push the play button or select worlds can I get help with this and also when I try to play the script in runescape window to see if I got the color of the rocks right it just sits there and does nothing

program new;
  // {$DEFINE SMART8}
  {$I SRL/SRL.Simba}
  {$I SRL/SRL/Misc/Debug.Simba}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // This is set to the total amount of players (more on multiplayer later ;)), for now, just keep it set as 1
  NumberOfPlayers(HowManyPlayers); // This is a procedure in SRL which sets up player arrays (also, more on that later), this will always be the same
  CurrentPlayer := 0; // This is the player to start with; the first player will always be 0 (you'll find out when you learn all about arrays)

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;

begin
  ClearDebug;
  SetupSRL;
  DeclarePlayers; // Calls the procedure, you can't forget this!
  LoginPlayer; // You want your player to login, right?
end.
const
//Credits to YoHoJo for an understandable tutorial video, and Solidone4 for the antiban
begin
Version = 1.0;
Rock = 'Coal'
//Start at Mining Spot with pickaxe wielded


End;

Procedure ProgressReport; Forward;

Var RockPattern: Array Of TIntegerArray;
Var TOres,TLoads,WeMined,StartTime,GemDTM:Integer;
Var RT, ChatBox, TExperiance, LastPainted:Integer;



Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
  MMouse(x, y, 1, 1);
  If WaitUptext(UpText, 5) Then
  Begin
    Result:=True;
    GetMousePos(x, y);
End;
End;


procedure Antiban;
begin
  Case Random(20000) Of

    0:
    begin
      HoverSkill('Mining', False);
      GameTab(Tab_Inv);
    end;
    1:
    begin
      PickUpMouse;
      SleepAndMoveMouse(3000 + Random(500));
      PickUpMouse;
    end;
    2: ExamineInv;
    3:
    begin
      RandomAngle(SRL_ANGLE_HIGH);
      SetAngle(SRL_ANGLE_HIGH);
    end;
    4:
    begin
      GameTab(Tab_Stats);
      Wait(3000 + Random(500));
      GameTab(Tab_Inv);
    end;
    5:
    begin
      HoverSkill('random', False);
      GameTab(Tab_Inv);
    end;

  end;
end;

 procedure FailSafe(Reason:String);
begin
    Players [CurrentPlayer].Loc:=Reason;
    Logout;
    Stats_Commit;
    ProgressReport;
    TerminateScript;
    end;

function MineCoalrock:Boolean;
var
 x,y: Integer;
Begin
If FindObjCustom(x, y, ['mine', 'ne' 'Co' 'Coal', 'ine' 'oal' 'Coa' 'Min' 'rocks' 'roc'], [1842975,1052945,3948860,1184531] ,-1) then;
begin

end;

end;
begin


Smart_FixSpeed:=True;
SRL_SixHourFix:=True;
SetupSRL;
MouseSpeed:=30
DeclarePlayers;
StartTime:=GetSystemTime;
ProgXP;
BasicSetup;
TOres:=0;'
MarkTime(LastPainted);

FindNormRandoms;

StatsGuise(Players[CurrentPlayer].Nick + 'logging in'
    LoginPlayer; if (SRL_Logs < 1) then SRL_Logs :=0;
    Players[CurrentPlayer].Integers[82];=0;
    Players[CurrentPlayer].Level[15]:=GetSkillLevel(Skill_Mining)
    GameTab(Tab_Inv)
    StatsGuise(Players[CurrentPlayer].Nick + 'Mining Lv' +IntToStr(Players[CurrentPlayer].Level[15]))
    SetRun(True)
    SetAngle(SRL_ANGLE_High);
    FindNormalRandoms;
 //Repeat;
 //Until(False);
End.

Why is your tolerance in findobj set to -1, ot should be a positive, try 5,

You don't have any click function inside the begin end after it, Clickmouse2(mouse_left); for example

okay so I have it looking like this and it still doesn't hit the play button after logging your character

program new;
  // {$DEFINE SMART8}
  {$I SRL/SRL.Simba}
  {$I SRL/SRL/Misc/Debug.Simba}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // This is set to the total amount of players (more on multiplayer later ;)), for now, just keep it set as 1
  NumberOfPlayers(HowManyPlayers); // This is a procedure in SRL which sets up player arrays (also, more on that later), this will always be the same
  CurrentPlayer := 0; // This is the player to start with; the first player will always be 0 (you'll find out when you learn all about arrays)

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;

begin
  ClearDebug;
  SetupSRL;
  DeclarePlayers; // Calls the procedure, you can't forget this!
  LoginPlayer; // You want your player to login, right?
end.
const
//Credits to YoHoJo for an understandable tutorial video, and Solidone4 for the antiban
begin
Version = 1.0;
Rock = 'Coal'
//Start at Mining Spot with pickaxe wielded


End;

Procedure ProgressReport; Forward;

Var RockPattern: Array Of TIntegerArray;
Var TOres,TLoads,WeMined,StartTime,GemDTM:Integer;
Var RT, ChatBox, TExperiance, LastPainted:Integer;



Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
  MMouse(x, y, 5, 5);
  If WaitUptext(UpText, 5) Then
  Begin
    Result:=True;
    GetMousePos(x, y);
End;
End;


procedure Antiban;
begin
  Case Random(20000) Of

    0:
    begin
      HoverSkill('Mining', False);
      GameTab(Tab_Inv);
    end;
    1:
    begin
      PickUpMouse;
      SleepAndMoveMouse(3000 + Random(500));
      PickUpMouse;
    end;
    2: ExamineInv;
    3:
    begin
      RandomAngle(SRL_ANGLE_HIGH);
      SetAngle(SRL_ANGLE_HIGH);
    end;
    4:
    begin
      GameTab(Tab_Stats);
      Wait(3000 + Random(500));
      GameTab(Tab_Inv);
    end;
    5:
    begin
      HoverSkill('random', False);
      GameTab(Tab_Inv);
    end;

  end;
end;

 procedure FailSafe(Reason:String);
begin
    Players [CurrentPlayer].Loc:=Reason;
    Logout;
    Stats_Commit;
    ProgressReport;
    TerminateScript;
    end;

function MineCoalrock:Boolean;
var
 x,y: Integer;
Begin
If FindObjCustom(x, y, ['Mine', 'ne' 'Co' 'Coal', 'ine' 'oal' 'Coa' 'Min' 'rocks' 'roc'], [1842975,1052945,3948860,1184531] ,5) then;
StatsGuise ('Booyah!');
    GetMousePos (cx, cy);
    Case Random (2) Of
     0: Mouse (cx, cy, 1, 4, True);
     1: Begin
        Mouse (cx, cy, 1, 3, False);
        WaitOption ('Mine', 5000);
end;
end;
end;
begin


Smart_FixSpeed:=True;
SRL_SixHourFix:=True;
SetupSRL;
MouseSpeed:=30
DeclarePlayers;
StartTime:=GetSystemTime;
ProgXP;
BasicSetup;
TOres:=0;'
MarkTime(LastPainted);

FindNormRandoms;

StatsGuise(Players[CurrentPlayer].Nick + 'logging in'
    LoginPlayer; if (SRL_Logs < 1) then SRL_Logs :=0;
    Players[CurrentPlayer].Integers[82];=0;
    Players[CurrentPlayer].Level[15]:=GetSkillLevel(Skill_Mining)
    GameTab(Tab_Inv)
    StatsGuise(Players[CurrentPlayer].Nick + 'Mining Lv' +IntToStr(Players[CurrentPlayer].Level[15]))
    SetRun(True)
    SetAngle(SRL_ANGLE_High);
    FindNormalRandoms;
 //Repeat;
 //Until(False);
End.