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?
Java, C++, Visual basics, and HTML


Are you a member of any other communities?
no


Tell us about yourself…

From: getdropped69
Ok so i'm 17 and I have loved video game for as long as i can remember. I Have gotten into coding in school and enjoy it quite a bit. I work during the week at a Market Basket. I have aced every computer programming class i have taken. I have been playing runescape for somewhere around 8 years. I can't really remember when it was that i actually started but it was sometime around then. My holiday items go back to 2005 but I know i started before i got them. I have been writing scripts now for a while. I have done an decent job in trying to help people with their questions. I have also been trying my best of get involved in helping people out with scripts. I really enjoy SRL this forum is by far the most friendly and outgoing forum out there for bots. I hope maybe someone has noticed me and thinks I did good. ;) Thank you for taking your time in reading my application.

I will include my zammy wine works quite well. You also can check out some other of my scripts in my sig of course. Because if I put two scripts in the box below it would get crampt. :)

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

//Chicken killer by Jeffrey
program chickenkiller;
  {.include SRL/SRL/Misc/Smart.simba}
  {.include SRL/SRL.simba}
  {.include SRL/SRL/Skill/Fighting.simba}
  {$i sps/sps.simba}
  {$i SRL/SRL/misc/paintsmart.simba}

var
  ChickenColours, LootColours: TIntegerArray;
    LEPPoint, LWPPoint : TPointArray;
  x, y, reportcount, BreakRounds, TotalBreaks, KillCount, LootCount : Integer;


const
  Tolerance    = 2;
  LootFeathers = true;  // Set to true if you want to loot Feathers
  BuryBones    = false; //set to true for looting and burrying bones
  ChickenPen   = 0; // 0: no walk, 1: Lumby east, 2: Lumby west


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name   := ''; //Character Name
    Pass   := ''; //Character Pass
    Pin    := ''; //Pin for bank
    Active := true;
  end;
end;


//********************************************************
//Don't mess with the rest of this script plz
//I hope you enjoy
//ONLY SELL FEATHERS AT MARKET PRICE OR OVER THEY WILL SELL
// Please feel free to pm me
// >> Donations keep this script alive i would love some rspg =] < pm me<<
//Use other ones of the chicken pens then just the big one please
//********************************************************



function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
var
w, x, y, z: Integer;
begin
if not LoggedIn then Exit;
  w := (BreakIn * 60000);
  x := (BreakFor * 60000);
  y := RandomRange(-randBreakIn * 60000, randBreakIn * 60000);
  z := RandomRange(-randBreakFor * 60000, randBreakFor * 60000);

  Writeln('Breaking in: ' + IntToStr((((w) + (y) + BreakRounds) / 60000)
   - (GetTimeRunning / 60000)) + ' minutes');

  if (HowManyPlayers = 1) then
  begin
  if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
   else
    if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
     begin
     Writeln('Taking a break for about ' + IntToStr(z / 60000) + ' minutes.');
     Logout;
     Wait((x) + (z));
     Writeln('Logging in.');
     LoginPlayer;
     Result := LoggedIn;
     FindNormalRandoms;
     IncEx(BreakRounds, (w) + (x));
     IncEx(TotalBreaks, 1);
     Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
    end;
   end;
      if (HowManyPlayers > 1) then
     begin
          if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
      else
      if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
      begin
       Writeln('Taking a break for about ' + IntToStr(BreakFor) + ' minutes.');
       Logout;
       IncEx(BreakRounds, (w));
       IncEx(TotalBreaks, 1);
       NextPlayer(True);
       Exit;
      while (LoggedIn) do Wait((x) + (z));
       NextPlayer(True);
      end;
     end;
end;



procedure CenterWalk;
begin

    if (ChickenPen = 1) then
    begin
    SPS_WalkPath(LEPPoint);
    Wait(250);
    end;
    if (ChickenPen = 2) then
    begin
    SPS_WalkPath(LWPPoint);
    Wait(250);
    end;
end;


procedure CheckingRandoms;
begin
  FindNormalRandoms;
end;



Procedure Bury;
  var
    j: Integer;
begin
if BuryBones then
begin
    for j := 1 to 28 do
    begin
    InvMouse(j, 3);
     Wait(200);
      if IsUpText('Bury') then
      begin
        ClickMouse2(True);
        Wait(RandomRange(900, 950));
      end;
     end;
  end;
end;


procedure Attack;

var
  X, Y: Integer;
begin
  //Writeln('Looking for something to attack!');
  if InFight then
  begin
    repeat
      FindNormalRandoms;
    until (not (OthersInFight) or (not LoggedIn) or (not InFight))
  end;


  if FindObjEx(X, Y, ['ttack Ch'], ChickenColours, Tolerance, 50, 1, 5, 689, 390) and not(WaitUpText('Walk', random(50))) then
  begin
    if not (IsFightAt(X, Y) and not InFight) then
    begin
     GetMousePos(X, Y);
     Mouse(X, Y, 2, 2, false);
      if WaitOptionMulti(['ttack Ch', 'attack Chicken', 'attack Ch'], 200)then
      begin
       KillCount := KillCount + 1;
       //Writeln('You got a kill');
      end;
     WaitOptionMulti(['ttack Ch', 'attack Chicken', 'attack Ch'], 200);
     Wait(1000);
    end;
    while IsMoving do
    begin
      Wait(250);
    end;
  end
  else
  begin
    wait(200);
  end;
end;


function FindLoot: Boolean;
var
    arP, arAP: TPointArray;
  arC, arUC: TIntegerArray;
  ararP: T2DPointArray;
  tmpCTS, i, j, arL, arL2: Integer;
  P: TPoint;
  X, Y, Z: Extended;
begin

 if LootFeathers then
 begin

  if BuryBones then
  begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.21, 0.89);

  if not(FindColorsTolerance(arP, 9937084, MSX1, MSY1, MSX2, MSY2, 17)) then
  begin
   //Failed to find the color
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 20.74) and (X <= 62.82) and (Y >= 21.19) and (Y <= 64.93) and (Z >= 17.85) and (Z <= 68.90) then
    begin
      for j := 0 to arL2 do
      begin
        if (arUC[i] = arC[j]) then
        begin
          SetLength(arAP, Length(arAP) + 1);
          arAP[High(arAP)] := arP[j];
        end;
      end;
    end;
  end;

  SortTPAFrom(arAP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arAP, 10, 10);
  arL := High(ararP);

  for i := 0 to arL do
  begin
    if (Length(ararP[i]) < 10) then Continue;
    P := MiddleTPA(ararP[i]);
    MMouse(P.x, P.y, 5, 5);
    Wait(100 + Random(100));
    if (IsUpText('ake')) or (IsUpText('Take'))  then
    begin;

    if  not(IsUpText('2')) then
    begin
        GetMousePos(p.x, p.y);
        Mouse(p.x, p.y, 2, 2, false);

        if WaitOptionMulti(['Take Feather', 'ake F', 'ake Bo', 'Take Bones'], 200) then
        begin
        LootCount := LootCount + 1;
        //Writeln('looted')
        end;

        WaitOptionMulti(['Take Feather', 'ake F', 'ake Bo', 'Take Bones'], 200);
        Wait(RandomRange(500, 700));

      while IsMoving do
      begin
        Wait(250);
      end;
    end;

      Break;
    end;
  end;

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

  if (i = arL + 1) then
  begin
    //could not find object
    Exit;
  end;

    if invfull then
    begin
     Bury;
     wait(1000);
    end;

  end

 else//If not using bones

 begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.21, 0.89);

  if not(FindColorsTolerance(arP, 9937084, MSX1, MSY1, MSX2, MSY2, 17)) then
  begin
   //Failed to find the color
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 20.74) and (X <= 62.82) and (Y >= 21.19) and (Y <= 64.93) and (Z >= 17.85) and (Z <= 68.90) then
    begin
      for j := 0 to arL2 do
      begin
        if (arUC[i] = arC[j]) then
        begin
          SetLength(arAP, Length(arAP) + 1);
          arAP[High(arAP)] := arP[j];
        end;
      end;
    end;
  end;

  SortTPAFrom(arAP, Point(MSCX, MSCY));
  ararP := SplitTPAEx(arAP, 10, 10);
  arL := High(ararP);

  for i := 0 to arL do
  begin
    if (Length(ararP[i]) < 10) then Continue;
    P := MiddleTPA(ararP[i]);
    MMouse(P.x, P.y, 5, 5);
    Wait(100 + Random(100));
    if (IsUpText('ake')) or (IsUpText('Take')) then
    begin;

    if not(IsUpText('2')) and not(IsUpText('4')) then
    begin
        GetMousePos(p.x, p.y);
        Mouse(p.x, p.y, 2, 2, false);

        if WaitOptionMulti(['Take Feather', 'ake F'], 200) then
        begin
        LootCount := LootCount + 1;
        //Writeln('looted')
        end;
       WaitOptionMulti(['Take Feather', 'ake F'], 200);
       Wait(RandomRange(500, 700));
      end;
      while IsMoving do
      begin
        Wait(250);
      end;

      Break;
    end;
  end;

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

  if (i = arL + 1) then
  begin
    //could not find object
    Exit;
  end;

 end;

 end; //end of if statement
end;



procedure AntiBan;
begin
  x := Random(500)  case x of 0: HoverSkill('Attack', false);
    1:
      HoverSkill('Strength', false);
    2:
      HoverSkill('Defence', false);
    3:
      HoverSkill('hitpoints', false);
    12..15:
      PickUpMouse;
    16..25:
      RandomMovement;
    26..27:
      RandomRClick;
    28..32:
      BoredHuman;
    33:
      ExamineInv;
    34:
      RandomAngle(SRL_ANGLE_HIGH);
    35..45:
      GameTab(25);

  end;
  MakeCompass('N');
  SetAngle(SRL_ANGLE_HIGH);
  Wait(RandomRange(800, 1200));
end;

procedure Paint;
var
  TPA: TPointArray;
  J: TBox;
begin
  J := IntToBox(MCX1, MCY1, MCX2, 400);
  TPA := TPAFromBox(J);
  SMART_DrawDotsEx(false, TPA, 332945);

  SMART_DrawText(10, 350, UpCharsEx, '' +'Kills: ' + IntToStr(KillCount) +  '', clGreen);
  SMART_DrawText(10, 370, UpCharsEx, '' + 'Exp: ' + IntToStr(KillCount * 16)+ '', clGreen);
  SMART_DrawText(280, 350, UpCharsEx,''+TimeRunning+'', clGreen);
  SMART_DrawText(280, 370, UpCharsEx,''+'Times looted: ' + IntToStr(LootCount) +'', clGreen);
end;


procedure Report;
begin
  Writeln('*******************************');
  Writeln('Total kills: ' + IntToStr(KillCount));
  Writeln('You gained: ' + IntToStr(KillCount * 16));
  Writeln('You have picked up ' + IntToStr(LootCount) + ' drops');
  Writeln('This has been running for ' + TimeRunning + ' minute');
  Writeln('*******************************');
  Exit;
end;


begin
  Cleardebug;

  ChickenColours :=[3828098, 4289937, 5141641,
   10607087, 11200253, 3695740, 2903906, 7313061,
   4876675, 3496568, 4224144, 7312038, 5011335];

  Smart_Server := 97;
  Smart_Members := false;
  Smart_Signed := false;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  SPS_Areas := ['11_8'];
  SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
  Writeln('Welcome to ~Jeffrey''s Chicken Killer!');
  Wait(800);
  SetAngle(SRL_ANGLE_HIGH);
  BreakHandler(60, 15, 10, 10);
  LEPPoint :=  [Point(4751, 3465)];
  LWPPoint := [Point(4584, 3543)];


  repeat
  paint;
    repeat
      Attack;
      AntiBan;
      FindLoot;

      Attack;
      AntiBan;
      CheckingRandoms;
      FindLoot;

      Attack;
      AntiBan;
      FindLoot;

      reportcount := reportcount + 1;
      CheckingRandoms;

    if not(ChickenPen = 0) then
    begin
      CenterWalk;
    end;

    until (reportcount = 5) //reports every 8 cycles
    BreakHandler(90, 15, 10, 10); //will re-randomize but it will break =]
    reportcount := 0;
    CheckingRandoms;
    report;

  until(not(LoggedIn))

  end.

//by Jeffrey (getdropped69)
program WineOfZammy;
  {.include SRL/SRL/Misc/Smart.simba}
  {.include SRL/SRL.simba}
  {.include SRL/SRL/Skill/Fighting.simba}
  {.include SRL/SRL/Skill/Magic.simba}
  {$i sps/sps.simba}
  {$i ObjectDTM\ObjDTMInclude.simba}

  //set up
  //have a staff of air on
  //Start with laws in first slot in your bank and water runes in second slot
  //Start in Fally west bank
  //teleports after you have a full inventory
  //Enjoy!


var
     WineX, WineY, DTM, x, y, WaitForWine, TriedToFind,
      BreakRounds, TotalBreaks: Integer;
     WineColors: TIntegerArray;
     WalkToWinePath, WalkToBankPath: TPointArray;
     aFound : extended;



procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name   := ''; //Character Name
    Pass   := ''; //Character Pass
    Pin    := ''; //Pin for bank
    Active := true;
  end;
end;


function BreakHandler(BreakIn, BreakFor, randBreakIn, randBreakFor: Integer): Boolean;
var
w, x, y, z: Integer;
begin
if not LoggedIn then Exit;
  w := (BreakIn * 60000);
  x := (BreakFor * 60000);
  y := RandomRange(-randBreakIn * 60000, randBreakIn * 60000);
  z := RandomRange(-randBreakFor * 60000, randBreakFor * 60000);

  Writeln('Breaking in: ' + IntToStr((((w) + (y) + BreakRounds) / 60000)
   - (GetTimeRunning / 60000)) + ' minutes');

  if (HowManyPlayers = 1) then
  begin
  if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
   else
    if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
     begin
     Writeln('Taking a break for about ' + IntToStr(z) + ' minutes.');
     Logout;
     Wait((x) + (z));
     Writeln('Logging in.');
     LoginPlayer;
     Result := LoggedIn;
     FindNormalRandoms;
     IncEx(BreakRounds, (w) + (x));
     IncEx(TotalBreaks, 1);
     Writeln('The next break will occur in about ' + IntToStr(BreakIn) + ' minutes.');
    end;
   end;
      if (HowManyPlayers > 1) then
     begin
          if (GetTimeRunning < ((w) + (y) + BreakRounds)) then Exit
      else
      if (GetTimeRunning > ((w) + (y) + BreakRounds)) then
      begin
       Writeln('Taking a break for about ' + IntToStr(BreakFor) + ' minutes.');
       Logout;
       IncEx(BreakRounds, (w));
       IncEx(TotalBreaks, 1);
       NextPlayer(True);
       Exit;
      while (LoggedIn) do Wait((x) + (z));
       NextPlayer(True);
      end;
     end;
end;

function WalkToWine: Boolean;
begin

  while (not(GetCurrentTab = 28)) do
  begin
    GameTab(28);
    wait(RandomRange(50, 100));
  end;

  WalkToWinePath := [Point(3600, 3165), Point(3619, 3143),
   Point(3640, 3118), Point(3668, 3105), Point(3677, 3070),
    Point(3670, 3024), Point(3637, 2965), Point(3618, 2910),
     Point(3614, 2863), Point(3630, 2827), Point(3630, 2783),
      Point(3624, 2760)];  SPS_WalkPath(WalkToWinePath)


end;

procedure FindWine;
var
  X, Y: Integer;

begin
  FindNormalRandoms;
  HoverSkill('magic', false);
  SetAngle(SRL_ANGLE_HIGH);
  Wait(RandomRange(50, 200));

  while (not(GetCurrentTab = 28)) do
  begin
    GameTab(28);
    wait(RandomRange(50, 100));
  end;
repeat
WineX := 0;
WineY := 0;
  if FindObjEx(X, Y, ['ine', 'Wine', 'ine of'], WineColors, 4, 50, 1, 5, 689, 390) then
  begin
      GetMousePos(X, Y);
      WineX := X;
      WineY := Y;
      wait(200);
  end;

  TriedToFind := TriedToFind + 1;

  if (TriedToFind > 50) then
  begin
      ExitToLobby;
      exit;
  end;

   until(not(WineX = 0) and not(WaitUpText('ltar', random(50))))
   TriedToFind := 0;
end;

procedure CastTG;
var
  X, Y: Integer;

begin
FindNormalRandoms;
  while (not(GetCurrentTab = 28)) do
  begin
    GameTab(28);
    wait(RandomRange(50, 100));
  end;

  if FindObjEx(X, Y, ['tele', 'rab'], [16659703, 8363238], 4, 50, 1, 5, 689, 390) then
  begin
      GetMousePos(X, Y);
      Mouse(X, Y, 2, 2, true);

      if WaitUpText('ast', random(50)) then
      begin
      mMouse(WineX, WineY, 0, 0);
      repeat
      WaitForWine := WaitForWine + 1;
      //Writeln(WaitForWine);
      if (WaitForWine > 800) then
      begin
       FindWine;
       WaitForWine := 0;
       wait(250);
       CastTG;
       Exit;
      end;
      wait(20);
      until(WaitUpText('W', random(50)))

      WaitForWine :=0;
      Mouse(WineX, WineY, 0, 0, true);
      wait(350);
      end;

  end;
  Wait(1750);
end;


function WalkToBank: Boolean;
begin

  WalkToBankPath  := [Point(3650, 3118), Point(3629, 3126),
   Point(3620, 3134), Point(3626, 3140), Point(3622, 3152),
    Point(3623, 3160), Point(3623, 3175)]; SPS_WalkPath(WalkToBankPath)

end;

function Bank: Boolean;
begin
  repeat
    MakeCompass('n');
    Wait(RandomRange(400, 1200));
    OpenBankNPC;
  until BankScreen or PinScreen;
  if PinScreen then
  begin
    repeat
    InPin(Players[0].Pin);
   until BankScreen or not (LoggedIn);
  end;
   if BankScreen then
  begin
    DepositAll;
    Withdraw(0, 0, 100);
    Wait(RandomRange(800, 1200));
    Withdraw(1, 0, 10);
    Wait(RandomRange(800, 1200));
    CloseBank;
    Wait(RandomRange(800, 1200));
    end;

end;

procedure Teleport;
begin
  if Cast('Falador Teleport',false) then
  begin
   wait(4000 + random(1000));
    DTM := DTMFromString('mrAAAAHic42BgYLBkYmBIBOIKIK4E4k4gLgXiFiDOAeI8oJpkIFYE4kAgNgfiXiCuAekF4tamSgYXT1WG1Hgvhsb6MjAfhL19NRg8/DQY+IFq8GFGAhgGAMbKEAI=');
    if FindDTMRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
    begin
       Mouse(x, y, 3, 3, True);
       WalkToBank;
       wait(1000);
       Bank;
       wait(1000);
    end;
  end;
end;




begin
  Cleardebug;
  SetupMagic();
  Smart_Server := 97;
  Smart_Members := false;
  Smart_Signed := false;
  Smart_SuperDetail := false;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  SPS_Areas := ['9_7','8_7','8_6'];
  SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
  MouseSpeed := RandomRange(17, 22);
  WineColors := [5011628, 5790044, 8290436];
  //[5143471, 8356485, 5136307, 5526872]; old colors if you want them
  BreakHandler(100, 15, 10, 10);

  repeat //main loop
  WalkToWine;
  FindWine;
  repeat
  castTG;
  until(InvFull)
  Teleport;
  until(false)
end.

I'm gonna have to vote no, I checked the script and it is quite simple. Perhaps you should try using TPA's for object finding? And how about RadialWalk for walking with SPS as a failsafe?

Also I see you're using global variables, perhaps you should use local variables. For example your Teleport procedure. Basically you load it everytime that procedure is called. Try loading it only once, and freeing at the end.

A larger script next time with TPA's and maybe a Custom Function with a bit more complexity, also what was mentioned above would be more beneficial for your outcome, please read this guide by Daniel [NEW] How to Become an SRL Member
and reflect on what is said here seriously if you as you said aced your programming classes you should have no problem getting through next time around cause you have been a member since 2011 and also have a fair post count.

No from me.

From: leetsxc
A larger script next time with TPA's and maybe a Custom Function with a bit more complexity, also what was mentioned above would be more beneficial for your outcome, please read this guide by Daniel [NEW] How to Become an SRL Member
and reflect on what is said here seriously if you as you said aced your programming classes you should have no problem getting through next time around cause you have been a member since 2011 and also have a fair post count.

No from me.

After reviewing the [NEW] SRL app process I have added my chicken killer to this. This will hopefully show what I have done. This may help to change some of your opinions. I have written quite a few scripts and I just wanted to show you guys the script that I did not make public. (even though it is more basic) Happy to see some of the responses. ;)

I see that in your Bury procedure, you're not checking if there is a bone in that spot, you just hover to it and check for uptext, which would hover all the slots everytime that procedure is called, which is bad. You should definitely add DTM/BitmapMask/Color check for it.

I see you use TPA's, SPS for walking, no RadialWalk as backup, was kind of hoping for it :) And your standards are a bit off (In my opinion). And the main reason why I would like to change my vote to "yes", you're using the SRL include quite nicely.

From: Frement
I see that in your Bury procedure, you're not checking if there is a bone in that spot, you just hover to it and check for uptext, which would hover all the slots everytime that procedure is called, which is bad. You should definitely add DTM/BitmapMask/Color check for it.

I see you use TPA's, SPS for walking, no RadialWalk as backup, was kind of hoping for it :) And your standards are a bit off (In my opinion). And the main reason why I would like to change my vote to "yes", you're using the SRL include quite nicely.

Good idea but I found when I did use dtms (had it on my private version) it would not burry as fast, and it would sometimes not recognize some of the bones (it would get about 95%). In theory it should only hover feathers and bones anyways when it has a full inventory therefore it won't look quite as unhuman. It is just all around quicker the way I have it now. ;) But I love the thoughts :p

From: getdropped69
Good idea but I found when I did use dtms (had it on my private version) it would not burry as fast, and it would sometimes not recognize some of the bones (it would get about 95%). In theory it should only hover feathers and bones anyways when it has a full inventory therefore it won't look quite as unhuman. It is just all around quicker the way I have it now. ;) But I love the thoughts :p

You can check the DTMs while fighting, and mark the slots where there are no bones. DTM/BitmapMask should be 100% accurate when made correctly. Now when you start the burying procedure, you need to check the extra slots that haven't been checked yet, so that should speed things up when you only have to check few slots.

Ahhh you mean check after each loot… Would work nicely but would most likely slow down the script and now with reflection bots it needs to be fast

Your logic seems a bit odd to me, and I'm not really sure if you understand how to use TPA's or not, evident in you using FindObjectEx for chickens, and then cluster a bunch of TPA's awkwardly together in the FindLoot() function. I don't see why you made a whole new procedure just to call FindNormalRandoms(), and your on and off standards, to me, suggest that you may not have completely written your more complex stuff (ie. ACA).

Nonetheless, it's how we all start I suppose. Yes from me, good luck.

      GameTab(25);
..

  while (not(GetCurrentTab = 28)) do
  begin
    GameTab(28);

This is an instant no.

offtopic: time to switch the tab constants a bit around again to see who isn't using them?

From: Markus

      GameTab(25);
..

  while (not(GetCurrentTab = 28)) do
  begin
    GameTab(28);

This is an instant no.

offtopic: time to switch the tab constants a bit around again to see who isn't using them?

…….. =/ I guess since its coming from you I probablly deserve it…. but however instant no just because I use Gametabs instead of useing the X and y coordinates :duh: I like to utilise my resources. There is no reason to remake the wheel (or so im told :p) and and hey thanks for the reformating on my first post ;)

From: getdropped69
…….. =/ I guess since its coming from you I probablly deserve it…. but however instant no just because I use Gametabs instead of useing the X and y coordinates :duh: I like to utilise my resources. There is no reason to remake the wheel (or so im told :p) and and hey thanks for the reformating on my first post ;)

No. You got his no because you didnt use the constants like tab_magic and tab_inv and so on. Not because you used gametabs.

Your script will instantly break if the tab numbers are shuffled in an SRL update, as Markus has said.

gametabs.simba should have said clearly you should use the tab_x constants instead.

Good luck. I havent voted anyway, will see about it later.

From: Er1k
No. You got his no because you didnt use the constants like tab_magic and tab_inv and so on. Not because you used gametabs.

Your script will instantly break if the tab numbers are shuffled in an SRL update, as Markus has said.

gametabs.simba should have said clearly you should use the tab_x constants instead.

Good luck. I havent voted anyway, will see about it later.

Ahh thats what he ment :redface: Well I think that is odd…… Cause the entire time I have been writting the magic game tab has staied constant…. but i see what you are saying. Thank you.

ps. why would they change them? Just to mess up peoples scripts ;) or can it happen on accident?

From: getdropped69
Ahh thats what he ment :redface: Well I think that is odd…… Cause the entire time I have been writting the magic game tab has staied constant…. but i see what you are saying. Thank you.

ps. why would they change them? Just to mess up peoples scripts ;) or can it happen on accident?

I doubt they will change, but the constants are there to be used and to help make the code easier to read and understand.

From: Echo_
I doubt they will change, but the constants are there to be used and to help make the code easier to read and understand.

They changed the order of gametabs before, why you think I added 20 to all of them? To be sure all scripts would break and scripters would have to update. SRL basically terminated if using the old ones, which (luckily) it could detect and then if gametab < 20 then srl_Warn('Old Gametab', warn_fatal);

Looks like you're not getting in this time.
You may try again in two weeks.