SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I know a little C++ and java but not very strong in ether.


Are you a member of any other communities?
Yes, I'm IMACHU on Powerbot.org


Tell us about yourself…

From: MattL191
Hi, I'm Matt. My interests i enjoy computer related tasks, playing xbox, starting to get into scripting(actually starting to enjoy it a lot.) I also enjoy hunting, Range Shooting. I'm a member of the United States AirForce. I'm a combat controller. I live in Virginia. Thats about it.

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

Program MonkKiller;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i sps/sps.simba}
{$i SRL\SRL\Misc\Debug.simba}
{$i SRL/SRL/skill/fighting.simba}
Const
 SRLStats_Username = '';// Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 NumbOfPlayers     = 1;       //How many players are you using
 StartPlayer       = 0;       //Player to start auoting with! (0 means first char)
 BreakEvery        = 120;      //How many loads to take a break after.
 BreakFor          = 15;      //How many minutes to break for +random range 5mins
 SkillTraining     = 'Strength';  // What Skill training for HoverSkill
 Version           = '2.0';    //Leave Alone
Var
  FindMonktimer, BreakTime: Integer;
procedure DeclarePlayers;
  var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Pin         := ''     //Pin for Bank
    Active      := True;
    Booleans[0] := True;  //Take Breaks?
    Integers[0] := 50;    //Minimum Time before Break
    Integers[1] := BreakEvery;   //Maximum Time before Break
  end;

end;
Procedure ResetBreakTimer;
begin
    BreakTime:= GetSystemTime + RandomRange(Players[CurrentPlayer].Integers[0]*60000, Players[CurrentPlayer].Integers[1]*60000);
end;

Procedure Setup;
Begin
  Smart_Server:=89;
  Smart_Members:=False;
  Smart_Signed:=True;
  Smart_SuperDetail:=False;
  SetupSRL;
  Declareplayers;
  Wait(2500+(250));
  LogInPlayer;
  ResetBreakTimer;
  Wait(1500+random(500));
  Setangle(SRL_ANGLE_HIGH);
End;
procedure Load_Antiban;
begin
  case Random(1500) of
    1: BoredHuman;
    2: HoverSkill('random', False);
    3: HoverSkill(SkillTraining, False);
    4: PickUpMouse;
    5: RandomMovement;
    6: RandomRClick;
    7: ExamineInv;
    8: Wait(1000+random(1000));
  end;
end;
Procedure Breaks;
var
  H, M, S, Time: Integer;
begin
  if (GetSystemTime >= BreakTime) and Players[CurrentPlayer].Booleans[0]then
  begin
  Logout;
  ConvertTime(BreakFor, H, M, S);
  Writeln('Break for:'+IntTostr(m)+'m'+IntTostr(s)+'s');
  MarkTime(Time);
  Repeat
    Wait(1000);
  until(BreakFor < TimeFromMark(Time))
  LogInPlayer;
  ResetBreakTimer;
  Wait(4000);
  FindNormalRandoms;
 end;
end;
function MonkHeadColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.04, 1.67);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 7318218, MSX1, MSY1, MSX2, MSY2, 7);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 180) and (R <= 221) and (G >= 152) and (G <= 186) and (B >= 101) and (B <= 125) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 32.83) and (X <= 50.52) and (Y >= 33.55) and (Y <= 51.39) and (Z >= 17.30) and (Z <= 26.34) then
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;
function MonkBodyColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.43, 1.90);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 2834763, MSX1, MSY1, MSX2, MSY2, 6);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 57) and (R <= 88) and (G >= 50) and (G <= 80) and (B >= 27) and (B <= 59) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 3.17) and (X <= 7.51) and (Y >= 3.35) and (Y <= 7.94) and (Z >= 1.67) and (Z <= 5.16) then
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

Procedure AttackMonk;
var
  MyTPA: TPointArray;
  MyPoint: TPoint;
  x, y, i: Integer;
begin
  begin
    if InFight then
  begin
    repeat
      FindNormalRandoms;
      Load_Antiban;
    until Not Infight
  end;
begin
  MarkTime(FindMonkTimer);
  x:= MSCx;
  y:= MSCy;
  FindColorsSpiralTolerance(x, y, MyTPA, 7778513, MSx1, MSy1, MSx2, MSy2, 5);
  if Length(MyTPA) = 0 then
    begin
      x := MMCX;
      y :=MMCY;
      if FindColorSpiralTolerance(x, y, 258295, MMX1, MMY1, MMX2, MMY2, 5) then
      Mouse(x, y, 5, 5, Mouse_Left);
      Flag;
      wait(1000+random(500));
      FindColorsSpiralTolerance(x, y, MyTPA, 7380935, MSx1, MSy1, MSx2, MSy2, 5);
      end;
    end;
  if Length(MyTPA) = 0 then
  begin
      x := MMCX;
      y :=MMCY;
      if FindColorSpiralTolerance(x, y, 780530, MMX1, MMY1, MMX2, MMY2, 5) then
      Mouse(x, y, 5, 5, Mouse_Left);
      Flag;
      wait(850+random(150));
      FindColorsSpiralTolerance(x, y, MyTPA, MonkHeadColor, MSx1, MSy1, MSx2, MSy2, 5);
  end;
  if Length(MyTPA) = 0 then FindColorsSpiralTolerance(x, y, MyTPA, MonkBodyColor, MSx1, MSy1, MSx2, MSy2, 5);
  if TimeFromMark(FindMonkTimer) > (120000) then
    begin
      Logout;
      writeLn('Couldnt find monk');
      TerminateScript;
    end;
  if Length(MyTPA) = 0 then
    begin
      Logout;
      writeln('Couldnt find Monk');
      TerminateScript;
    end;
  for I:=0 to High(MyTPA) do
    begin
    MyPoint:= MyTPA[i]
    MMouse(Mypoint.x, MyPoint.y, 5, 5);
    if (IsUpTextMultiCustom(['ttack', 'onk', 'monk'])) then
      begin
        GetMousePos(x,y);
        Mouse(x, y, 0, 0, Mouse_Right);
        ChooseOption('ttack Monk');
        Wait(500+Random(350));
        exit;
      end;
    end;
  begin
  if InFight then
    begin
      repeat
      FindNormalRandoms;
      Load_Antiban;
      until Not Infight
    end;
    Flag;
    Wait(5000+random(250));
  end;
end;
end;
Procedure HealMonk;
var
  MyTPA: TPointArray;
  MyPoint: TPoint;
  x, y, i: Integer;
begin
  begin
    if InFight then
  begin
    repeat
      FindNormalRandoms;
      Load_Antiban;
    until Not Infight
  end;
 MarkTime(FindMonkTimer);
  x:= MSCx;
  y:= MSCy;
  FindColorsSpiralTolerance(x, y, MyTPA, 7778513, MSx1, MSy1, MSx2, MSy2, 5);
  if Length(MyTPA) = 0 then
    begin
      x := MMCX;
      y :=MMCY;
      if FindColorSpiralTolerance(x, y, 258295, MMX1, MMY1, MMX2, MMY2, 5) then
      Mouse(x, y, 5, 5, Mouse_Left);
      Flag;
      wait(1000+random(500));
      FindColorsSpiralTolerance(x, y, MyTPA, 7380935, MSx1, MSy1, MSx2, MSy2, 5);
      end;
    end;
  if Length(MyTPA) = 0 then
  begin
      x := MMCX;
      y :=MMCY;
      if FindColorSpiralTolerance(x, y, 780530, MMX1, MMY1, MMX2, MMY2, 5) then
      Mouse(x, y, 5, 5, Mouse_Left);
      Flag;
      wait(850+random(150));
      FindColorsSpiralTolerance(x, y, MyTPA, MonkHeadColor, MSx1, MSy1, MSx2, MSy2, 5);
  end;
  if Length(MyTPA) = 0 then FindColorsSpiralTolerance(x, y, MyTPA, MonkBodyColor, MSx1, MSy1, MSx2, MSy2, 5);
  if TimeFromMark(FindMonkTimer) > (120000) then
    begin
      Logout;
      writeLn('Couldnt find monk');
      TerminateScript;
    end;
  if Length(MyTPA) = 0 then
    begin
      Logout;
      writeln('Couldnt find Monk');
      TerminateScript;
    end;
  for I:=0 to High(MyTPA) do
    begin
    MyPoint:= MyTPA[i]
    MMouse(Mypoint.x, MyPoint.y, 5, 5);
    if (IsUpTextMultiCustom(['ttack', 'onk', 'monk'])) then
      begin
        GetMousePos(x,y);
        Mouse(x, y, 0, 0, Mouse_Right);
            WaitOptionMulti(['alk', 'Talk'], 200+random(200));
    Wait(1000+Random(100));
    ClickContinue(True, False);
    Wait(850+Random(250));
    Case Random(5) of
        0: Mouse(141, 395, 5, 5, Mouse_Left);

        1: Mouse(229, 400, 5, 5, Mouse_Left);

        2: Mouse(296, 399, 5, 5, Mouse_Left);

        3: Mouse(368, 395, 5, 5, Mouse_Left);

        4: Mouse(254, 399, 5, 5, Mouse_Left);
    end;
    Wait(850+random(150));
    ClickContinue(True, False);
    Wait(850+random(150));
    ClickContinue(True, False);
    Wait(850+random(150));
    exit;
      end;
    Wait(350+random(350));
    end;
  end;
procedure WalkToSpawns;
  var ax, ay, x, y: Integer;
begin
  case Random(3) of
  0: begin
      FindSymbol(ax, ay, 'water');
      Mouse(ax, ay, 5, 5, Mouse_left);
      Flag;
      wait(850+random(150));
     end;
  1: begin
      x := MMCX;
      y :=MMCY;
      if FindColorSpiralTolerance(x, y, 780530, MMX1, MMY1, MMX2, MMY2, 5) then
      Mouse(x, y, 5, 5, Mouse_Left);
      Flag;
      wait(850+random(150));
      end;
  2: begin
      x := MMCX;
      y :=MMCY;
      if FindColorSpiralTolerance(x, y, 780530, MMX1, MMY1, MMX2, MMY2, 5) then
      Mouse(x, y, 5, 5, Mouse_Left);
      Flag;
      wait(850+random(150));
      end;
  end;
end;
begin;
  Setup;
  repeat
    AttackMonk;
    if not Infight then
    WalkToSpawns;
    if (HPPercent < 65) then
    repeat
      HealMonk;
    until (HPPercent >= 100);
    breaks;
  until(false)
end.

No from me.
You're not active at all, you're using AutoColour and I don't see TPA's and/or even DTM's.

From: Sin
No from me.
You're not active at all, you're using AutoColour and I don't see TPA's and/or even DTM's.

Sin's got the right idea here. Very very simple, you should really use our library to its full extent, by this I mean try integrating DTM's, TPA's, ATPA's…etc into your script. Also, you need to be way way more active around the forums here. Remember, this is a community thing, not a 'if you can put a simple script together, you're in'.

No from me; it's not that you don't show the potential of a great member you just are new/ script could use some work. :)

Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused, you have 40 posts and have been here since January! Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

No from me. You must really change your coding standards, don't copy the ATPA functions from aca. Most of your code can really be shortened, and you must be more active as well.

The poll has closed and you didn't quite make it this time. Please take the suggestions made here and read some more in the tutorial section and improve your script. You may reapply in 4 weeks time.


Cheers
Hobbit