SRL Archive - Outdated Tutorials

{.include srl/srl.scar}

Mouse(x, y, mousex, mousey, clickmouse : boolean);

MMouse(x, y, mousex, mousey);
// just examples

program new;
{.include srl/srl.scar}

procedure Example(text : string);
begin
  Writeln(text);
  MMouse(random(500), random(500), 100, 100);
end;

begin // here
  SetupSRL;
  Example('here is the main loop');
end.

DTM := DTMFromString('A4D64F65S4G684SG65S4G65SG465SG4D5641V5D4G85S4G8SD4G165DS4G56G');// Just an example

program New;
{.include srl/srl.scar}
var
  x, y, Log : Integer; // you can change the name
Procedure DTMExample;
begin
  Log := DTMFromString('A4D64F65S4G684SG65S4G65SG465SG4D5641V5D4G85S4G8SD4G165DS4G56G');// Just an example
end;

begin
  SetupSRL;
  ActivateClient;
  DTMExample;
  if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then// here we are finding for the DTM, MIX's and MIY's are the inv coords for searching
  begin
    Mouse(x, y, 5, 5, True);
    Writeln('yay');
  end else
  Writeln('nooo');
end.

FreeDTM(dtmname : integer);

program New;
{.include srl/srl.scar}
var
  x, y, Log : Integer; 
Procedure DTMExample;
begin
  Log := DTMFromString('A4D64F65S4G684SG65S4G65SG465SG4D5641V5D4G85S4G8SD4G165DS4G56G');
end;

begin
  SetupSRL;
  ActivateClient;
  DTMExample;
  if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Mouse(x, y, 5, 5, True);
    Writeln('yay');
    FreeDTM(Log);// here
  end else
  Writeln('nooo');
  FreeDTM(Log);// and here
end.

CountItemsDtm('inv', DtmName : integer) : integer; 

AmountDtm('inv', DtmName : integer): Integer;

FreeBitmap(bmpname : integer);

CountItemsBmp('inv', BmpName, Tol : integer): integer;

AmountBmp('inv', BmpName, Tol : integer): integer;

RadialWalk(thecolor, startradial, endradial, radius, Xmod, Ymod : integer): boolean;

//  » function  FindWaterColor: Integer;                                            | by Tarajunky
//  » function  FindRoadColor: Integer;                                             | by Tarajunky
//  » function  FindVarrockRoadColor: Integer;                                      | by Tarajunky
//  » function  FindFallyRoadColor: Integer;                                        | by Tarajunky
//  » function  FindRockColor: Integer;                                             | by Tarajunky
//  » function  FindStoneColor: Integer;                                            | by Tarajunky
//  » function  FindDirtRoadColor: Integer;                                         | by Tarajunky
//  » function  FindBridgeColor: Integer;                                           | by Tarajunky
//  » function  FindLadderColor: Integer;                                           | by Tarajunky
//  » function  AutoColorThis(Bitmap, MaxTol, X1, Y1, X2, Y2:Integer) : integer;    | by Sumilion

RadialWalk(255, 0, 360

RadialWalk(FindRoadColor, 0, 360, 65, 1, 1);

if RadialWalk(FindFallyRoadColor, 0, 360, 65, -1, 1) then
  Writeln('We are at fally')
else
Writeln('we arent at fally');

if RadialWalk(FindRoadColor, 0, 360, 65,  0, 1) then Flag;

if FindColor(bla) then
begin
  Writeln('something');
end else // here
bla

else, and else, {$else}

if (not(LoggedIn)) then Exit;

procedure FindTree;
var
  x,y,Time,NotFound : Integer;
begin
  MarkTime(Time);
  repeat
    if FindObjCustom(x, y, blabla) then
    begin
      Mouse(x, y, 3, 3, True);
      Exit;
    end else
    NotFound := +1;
  until (TimeFromMark(Time) <= 10*10*10*10) or (NotFound = 5);
end;

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

  Players[0].Name := '';  // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := '';   // 3-4 letters of your Username
  Players[0].Active := True;   // Auto with this char?

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

end;

if FindNormalRandoms then 
  If Not LoggedIn Then
  begin
    Writeln('Found unsolvable random');
    NextPlayer(False);
  end;

procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case random(40) of

    0: SleepAndMoveMouse(1232+random(857));
    1: HoverSkill('woodcutting', False);
    2: begin
          DoEmote(1+random(17));
          wait(2546+random(165))
          GameTab(1 +random(5))
          Gametab(4)
        end;
    3: MMouse(random(250), random(250), 10, 10);
    4: PickUpMouse;
    5: begin
          GameTab(1 + Random(12));
          wait(1000+random(1000));
          GameTab(4);
        end;
  end;
end;

FindNormalRandoms;

if FindNormalRandoms then 
  If Not LoggedIn Then
  begin
    Writeln('Found unsolvable random');
    NextPlayer(False);
  end;

case random(40) of
  0: bla
  1: bla
  2 : begin blabla; bla2; end;   
end;   
 

program new;
{include srl/srl.scar}
const 
  whattotype = '1'; // 1 if you want to type hello, 2 for bye, and 3 for how r u

procedure Typethem;
begin
  case (whattotype) of
    '1': TypeSend('hello');
    '2': TypeSend('bye');
    '3': TypeSend('how r u');
  end else
  Writeln('the options are: 1, 2 and 3 only');
end;

begin
  SetupSRL;
  ActivateClient;
  Typethem;
end.

procedure hi;
words : Array[0..4] of string;
begin
  words[0] := 'hi';
  words[1] := 'bye';
  words[2] := 'sup';
  words[3] := IntToStr(im bored);
  words[4]  := FloatToStr(10*3)
end;

procedure hi;
words : array of string;
i : Integer;
begin
  SetLength(words, 2);
  for i:=0 to High(words) do
  begin
    words[i] := 'this will apply for every string';
  end;
end;

if FindColorTolerance(x, y, 1515661, MSX1, MSY1, MSX2, MSY2, 15) then
begin
  Writeln('found it');
  Mouse(x, y, 5, 5, True);
  ...

program new;
procedure do;
begin
Writeln('sup');
              MMouse(random(500),25,100,200))
Disguise('i dont know standards');
repeat
writeln(IntTOSTR(RANDOM(100000)));
until (false);
end;

begin
                     do;
end.

program new;
{include SRL\SRL.scar}
var
  x, y, LogDTM, LogBMP : integer;

procedure LoadDTM;
begin
  LogDTM := DTMFromString('bla');
end;

procedure LoadBMP;
begin
  LogBMP := BitmapFromString(10,10,'bla');
end;

begin
  SetupSRL;
  ActivateClient;
  LoadDTM;
  if FindDTM(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Mouse(x, y, 5, 5, True);
    FreeDTM(LogDTM');
  end else
  LoadBMP;
  if FindBitmap(x, y, LogBMP) then
  begin
    Mouse(x, y, 5, 5, True);
    FreeBitmap(LogBMP);
  end else
  Writeln('couldnt find log!);
end.

var
  x,y : integer;// did you see two white spaces?

begin
  writeln('Skip two spaces');
end.

case of
  0: bla
end;