SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
little bit of java and C++


Are you a member of any other communities?
RID


Tell us about yourself…

From: awsomeman
Interests: programming, computer tech

Please show us one (or multiple) of your scripts.

program Mapplecutburn;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i srl/srl.simba}

{$IFDEF SMART}
    {$i srl/srl/misc/paintsmart.simba}
{$ENDIF}

var
PixelsMoving: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name := ''; // Username
    Pass := ''; // Password
    Active := True; // Set to true if you want to use Player 0
    PixelsMoving:= 500;
  end;
end;

procedure Antiban;
begin
  if(not(LoggedIn))then Exit;
  begin
     MakeCompass('N');
     SetAngle(90);
  Writeln('antiban')
    case Random(100) of
      10: RandomRClick;
      30: PickUpMouse;
      50: RandomMovement;
      70: BoredHuman;
      89: ExamineInv;
      57: RandomAngle(90);
      33: HoverSkill('Firemaking', False);
      03: HoverSkill('Woodcutting', False);
    end;
  end;
end;

  function NotCutting: Boolean;                     

  var
    retry: integer;
    pBox: TBox;

  begin
    retry := 0;
    pBox := IntToBox(245, 130, 285, 195);
    repeat
      if (AveragePixelShift(pBox, 250, 500) < PixelsMoving) then
        begin
          FindNormalRandoms;
          inc(retry);
        end else
          if (AveragePixelShift(pBox, 250, 500) > 120) then
            begin
              retry:= 0;
            end;
    until (retry = 1);
    writeln('Low PixelMovement');
    Result:= true;
end;
procedure Choptree;
var x, y: integer;

begin
  repeat
    MakeCompass('N');
    SetAngle(90);
    Antiban;
    Writeln('Finding tree')
    FindNormalRandoms;
    if FindObjTPA(x, y, 1910067, 10, 2, 10, 20, 100, ['aple', 'ple', 'le', 'apl', 'pl']) then
    begin
    Mouse(x, y, 1, 1, False);
    ChooseOption('hop');
    Antiban;
    wait(200)
    end;
    repeat
    Wait(RandomRange(2000, 3000))
    AntiBan;
    Until (InvFull) or (NotCutting);
  until(InvFull);
  writeln('done')
end;

Function Firing: Boolean;                              //credit goes to Mat (bonfirepro)
  var
    PBox: TBox;
  begin
    PBox := IntToBox(245, 130, 285, 195);
    Result := (AveragePixelShift(PBox, 250, 600) > 250);
  end;
function FindObj_pX(Mouse:Boolean;pX, pY,Null,Null2: Integer; Mod1,Mod2:Extended;Lol1:String): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  FindNormalRandoms;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(Mod1, Mod2);
  If Not Mouse then
  FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, 190, 140, 320, 230, Null2) else
  FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, MSX1, MSY1, MSX2, MSY2, Null2);

  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], pX, pY);
    If Mouse then
    begin
      MMouse(pX, pY, 2, 2);
      Wait(300+Random(75));
      If(IsUpTextMultiCustom([Lol1]))  then
      begin
        Result := True;
        GetMousePos(pX, pY);
        Break;
      end;
    end else
      Result := True;
  end;
end;
Procedure FireTime;
Var
  px,py,logs,t,DT:integer;
  NoFire:Boolean;
begin
  MarkTime(T);
  Logs := DTMFromString('mrAAAAHichcwxCoAgAEbhX6cGj9EYQaBG0KJrBOn976JvcawefOubJGUrJVy4URBwomIx0g6PGSsiDmx4guNiXzV9Z36MOqY9BX8=');
  Repeat
    Wait(25+Random(20));
  Until((Not IsMoving)Or(TimeFromMark(T)>4000));
  If FindObj_px(True,px,py,5154530,4,0.53, 6.36,'a')then
  begin
    ClickMouse2(False);
    Wait(200+Random(100));
    If Not ChooseOption('dd')then
      NoFire := True;
  end else
    NoFire:=True;
  If NoFire then
  begin
    If FindDTM(Logs,px,py,Mix1,Miy1,mix2,miy2) then
      Mouse(px,py,5,5,0);
    WaitOption('ight',400);
    Wait(1500+Random(200));
    NoFire := False;
    FireTime;
  end;
  MarkTime(T);
  Repeat
    FindNormalRandoms;
    Antiban;
    If not Firing then
    begin
      Repeat
        Wait(21);
      Until((Firing)Or(TimeFromMark(DT)>2000));
      If Not firing and Not FindDTM(Logs,px,py,mix1,miy1,mix2,miy2) then
          Break else FireTime;
    end;
    Case Random(2) of
      0:Wait(200);
    end;
    If FindObj_px(True,px,py,3957668,4,0.40, 1.93,'ect')then
      ClickMouse2(True);
  Until((Not FindDTM(Logs,px,py,mix1,miy1,mix2,miy2))Or(TimeFromMark(t)>120000)Or(Not  FindObj_px(False,px,py,5154530,4,0.53, 6.36,'a'))Or(FindNormalRandoms));
end;


procedure MainLoop();
begin
repeat

 FireTime();
 Choptree();
 until(AllPlayersInactive);
end;

begin
  {$IFDEF SMART}
    Smart_Server := 0;
    Smart_Members := False;
    Smart_Signed := True;
    Smart_SuperDetail := False;
  {$ENDIF}
  SetupSRL();
  ClearDebug();
  DeclarePlayers();
  LoginPlayer();
  MainLoop();
end.

Good start for sure, but still much too simple.

I want to see much more activity considering you just have 2 posts in nearly 6 months.

Also your only function that has somewhat more advanced code is from Mat. You didn't credit him and simply copied it.

Yours:

From: awsomeman

function FindObj_pX(Mouse:Boolean;pX, pY,Null,Null2: Integer; Mod1,Mod2:Extended;Lol1:String): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  FindNormalRandoms;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(Mod1, Mod2);
  If Not Mouse then
  FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, 190, 140, 320, 230, Null2) else
  FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, MSX1, MSY1, MSX2, MSY2, Null2);

  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], pX, pY);
    If Mouse then
    begin
      MMouse(pX, pY, 2, 2);
      Wait(300+Random(75));
      If(IsUpTextMultiCustom([Lol1]))  then
      begin
        Result := True;
        GetMousePos(pX, pY);
        Break;
      end;
    end else
      Result := True;
  end;
end;

Mat's:

From: Chig
Here is a function by Mat that finds an obj whereever…

function FindObj_pX(Mouse:Boolean;pX, pY,Null,Null2: Integer; Mod1,Mod2:Extended;Lol1:String): Boolean;
var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  FindNormalRandoms;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(Mod1, Mod2);
  If Not Mouse then
  FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, 190, 140, 320, 230, Null2) else
  FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, MSX1, MSY1, MSX2, MSY2, Null2);

  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], pX, pY);
    If Mouse then
    begin
      MMouse(pX, pY, 2, 2);
      Wait(300+Random(75));
      If(IsUpTextMultiCustom([Lol1]))  then
      begin
        Result := True;
        GetMousePos(pX, pY);
        Break;
      end;
    end else
      Result := True;
  end;
end;

So yeah, if you are going to use others code atleast credit them. Considering that is your only more advanced function I will vote no. As said before, I would like to see much more activity and more advanced functions made by yourself.

From: J J
I would like to see much more activity and more advanced functions made by yourself.

Thanks for the feedback. I will try to be more active in the community and I will will work on a better script with more advanced function. Once again thanks for the feedback and I hope to send in another application when I improve on my scripting skills. :)

From: awsomeman
Thanks for the feedback. I will try to be more active in the community and I will will work on a better script with more advanced function. Once again thanks for the feedback and I hope to send in another application when I improve on my scripting skills. :)

Good idea :P If you have any questions about more advanced scripting stuff you can always post a question and you are pretty much guaranteed to get helped within a few hours, most likely within an hour :P