SRL Archive - Discussions and Debates

Anyone running succesfull farm on osrs? Tips would be apreciated.

My story is so sad, got rcing, smithing and today pvm farms banned…some as fast as 6 hours botting. No clue whats wrong, tried even most complex antiban methods. Is just jagex picking up on me or they just do ban all new accounts? Iv been botting on feshly created accounts max lifetime was 15days or so shortest 6 hours. Average around 2 days not counting the ban being delayed mostly for a week.

BTW this goblins script seems to get insta banned:

program Goblins;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.Simba}

type Monstras=record
  pavadinimas,stiliai: string;
  id:array of integer;
  boxas:tbox;
  Spalva,tol: integer;
  hue,sat:extended;
end;

Var

  localplayer:treflectlocalplayer;
  Monstrai: monstras;
  Paskutiniai:tpointarray;
  stiliauslaikas:timer;
  StiliausPo:=1000000;
  antibansansas:=0;
  minibreaksansas:=0;
  musimosansas:=0;
  procedure declarePlayer();
begin
  Me.Name      := '';
  Me.Pass      := '';
  Me.Pin       := '';
  Me.Nick      := '';
  Me.Member    := false;
  Me.Active    := True;
end;
procedure MonstruDec();
begin
     with Monstrai do
     begin
        Pavadinimas:='Goblin';
        Stiliai:='Meele';
        Id:=[3034,3031,3029,3033,3030,3032];
        Boxas:=inttobox(-16,-16,16,16);
        spalva:=1714978;
        Tol:= 7;
        hue:= 0.15;
        sat:= 1.33;
     end;
   writeln(Monstrai.pavadinimas);
   writeln(Monstrai.stiliai);
   writeln(Monstrai.id);
end;

procedure antiban(sansas:integer);
begin
if random(1000)<sansas then
 begin
    writeln('Antiban');
    case random(0, 206) of
      0..20: compassMovement(20, 120, false);
      36..50: pickUpMouse();
      50..97: MMouseOffClient('random');
      98..103: checkMovingObjs(false);
    end;
 end;
end;

procedure Minibreakas(sansas:integer);
begin
   if (random(1000)<sansas) then
     begin
        writeln('Minibreakas');
        case random(1000) of
          0..514: wait(igaussrange(4750,14000));
          606..717: begin
                      MMouseOffClient('random');
                      wait(igaussrange(5000,7850));
                    end;
          718..814: begin
                      MMouseOffClient('random');
                      wait(igaussrange(25000,47850));
                    end;

        end;
     end;
end;
function setlimitss(boxis:tbox):tbox;
var
x11,x22,y11,y22:integer;
begin
  if boxis.x1<1 then x11:=1 else x11:=boxis.X1;
  if boxis.y1<1 then y11:=1 else y11:=boxis.y1;
  if boxis.x2>508 then x22:=508 else x22:=boxis.X2;
  if boxis.y2>331 then y22:=331 else y22:=boxis.y2;
  result:=inttobox(x11,y11,x22,y22);
end;

Procedure Statusas(tekstas:string);
begin
   os_smart.__Graphics.ClearArea(inttobox(0,0,85, 95));
   os_smart.__Graphics.DrawClippedText(tekstas,smallchars,point(10,20));
   os_smart.__Graphics.DrawClippedText('HP: '+tostring(localplayer.gethealth())+'/'+tostring(localplayer.getmaxhealth()),smallchars,point(10,35));
   if localplayer.isunderattack() then os_smart.__Graphics.DrawClippedText('Musasi',smallchars,point(10,50),2543983) else os_smart.__Graphics.DrawClippedText('Nesimusa',smallchars,point(10,50),59900);

   os_smart.__Graphics.DrawClippedText(tostring(localplayer.GetInteractingIndex()),smallchars,point(10,65),16777215);
   os_smart.__Graphics.DrawClippedText(tostring(localplayer.Getcombatcycle()),smallchars,point(10,80),16777215);

end;

function Monstrudebug():boolean;
var
 _npcs : TReflectNPCArray;
 z:integer;
 boxas,b:tbox;
 tsk:tpoint;
 taskas:tpoint;
 tpa:tpointarray;
begin
          //getall();
   _npcs.Getall;

  for z:=0 to high(_npcs) do
         begin
          try
          if _npcs[z].GetID<>0 then    //2816,2805,2806, 2808
            begin
              writeln('olol');
              if PointInBox(treflectiontiles.tiletoms(_npcs[z].gettile()),inttobox(11,11,500,300)) then
              begin
              os_smart.__Graphics.DrawCircle(treflectiontiles.tiletoms(_npcs[z].gettile(),0,0,0),10);
              os_smart.__Graphics.DrawClippedText(tostring(_npcs[z].GetID),smallchars,treflectiontiles.tiletoms(_npcs[z].gettile()));
              Taskas:=treflectiontiles.tiletoms(_npcs[z].gettile());
              B:=inttobox(taskas.x+monstrai.boxas.x1,taskas.y+monstrai.boxas.y1,taskas.x+monstrai.boxas.x2,taskas.y+monstrai.boxas.y2);
              boxas:=setlimitss(b);
              os_smart.__Graphics.DrawBox(boxas.x1,boxas.y1,boxas.x2,boxas.y2);
              cs_FindColorsTolerance(tpa,monstrai.spalva,monstrai.tol,boxas,cs_ToColorSettings(2, monstrai.hue, monstrai.sat));
              os_smart.__Graphics.DrawTPA(tpa,16777215);   //-1 neuzimtas
              os_smart.__Graphics.DrawclippedText(tostring(_npcs[z].getinteractingindex()),smallchars,taskas,32768);
              end;
            end;
          except
          end;
          end;
          //os_smart.__Graphics.
end;
procedure afterClick(); //stolen from fitta :D
begin
if not localplayer.isloggedin() then exit;
  Case Random(20)of
    4..9:  compassMovement(random(5,15),igaussrange(90,150),false);
    12..15: SleepAndMoveMouse(200+Random(2000));
    16..19: MMouseOffClient('random');
  end;
end;

function ar(tsk:tpoint):boolean;
var
zz:integer;
begin
if not localplayer.isloggedin() then exit;
result:=false;
  for zz:=0 to high(paskutiniai) do
               begin
                  if ((tsk.x=paskutiniai[zz].x) and (tsk.y=paskutiniai[zz].y)) then
                    begin
                       result:=true;
                       exit;
                    end;
               end;
end;

Function Uzatackinti():boolean;
var
 _npcs : TReflectNPCArray;
 z,i,l:integer;
 boxas,b:tbox;
 tsk:tpoint;
 taskas:array of tpoint;
 tpa:tpointarray;
 auka:integer;
 atpabox:tbox;
 atpa:t2dpointarray;
 px,py:integer;
 tm:timer;
begin
if not localplayer.isloggedin() then exit;
if localplayer.GetInteractingIndex()<>-1 then exit;
i:=0;
_npcs.getall();
// finding mobs who arent in combat
for z:=0 to high(_npcs) do
  begin
      if InIntArray(monstrai.id,_npcs[z].GetID) then    //2816,2805,2806, 2808
        begin
          tsk:=treflectiontiles.tiletoms(_npcs[z].gettile());
          if pointinbox(_npcs[z].gettile(),inttobox(3243,3244,3248,3248)) then
            continue;
          if ((PointInBox(tsk,inttobox(11,11,500,300)))and (_npcs[z].getinteractingindex()=-1)) then
            begin
              if not ar(_npcs[z].gettile()) then
                begin
                  setlength(taskas,i+1);
                  Taskas[i]:=treflectiontiles.tiletoms(_npcs[z].gettile());
                  inc(i);
                end;
            end;
        end;
  end;
// filtering mobs by distance
SortTPAFrom(tpa,point(266,191));

// choosing mob based on distance, not always the closest one
if length(taskas)>0 then
  begin
     if length(taskas)=1 then auka:=0
       else
        case random(1000) of
           0..734: auka:=0;
           735..956: auka:=1;
           957..999: begin
                        auka:=random(length(taskas));
                     end;
        end;
  end
  else exit(false);

  B:=inttobox(taskas[auka].x+monstrai.boxas.x1,taskas[auka].y+monstrai.boxas.y1,taskas[auka].x+monstrai.boxas.x2,taskas[auka].y+monstrai.boxas.y2);
  boxas:=setlimitss(b);

  GaussBox(px,py,boxas.x1,boxas.y1,boxas.x2,boxas.y2);

  case random(1000) of
    0..914:begin
     mouse(point(px,py),0,0,mouse_move);
     if reflect.text.IsUpText('Attack') then
       begin
        if random(100)<92 then
          begin
            fastclick(Mouse_left);
            afterClick();
            tm.start();
             repeat
    wait(igaussrange(345,745));
    if not localplayer.IsMoving() then
       begin
         wait(igaussrange(1200,2400));
         break;
       end;
    if localplayer.GetInteractingIndex()<>-1 then break;
 until tm.timeelapsed()>igaussrange(4800,6520);
  setlength(paskutiniai,1);
   paskutiniai:=[point(0,0)];
          end
          else
            begin
               fastclick(mouse_left);
               wait(randomrange(50,160));
               fastclick(mouse_left);
               afterClick();
                        tm.start();
             repeat
    wait(igaussrange(345,745));
    if not localplayer.IsMoving() then
       begin
         wait(igaussrange(1200,2400));
         break;
       end;
    if localplayer.GetInteractingIndex()<>-1 then break;
 until tm.timeelapsed()>igaussrange(4800,6520);
  setlength(paskutiniai,1);
   paskutiniai:=[point(0,0)];
            end;
       end;
    end;
    915..999: begin
       mouse(point(px,py),0,0,mouse_right);
       if waitOption('Goblin',randomrange(50,250)) then
         begin
          chooseoption('Attack Goblin');
          afterClick();
                   tm.start();
             repeat
    wait(igaussrange(345,745));
    if not localplayer.IsMoving() then
       begin
         wait(igaussrange(1200,2400));
         break;
       end;
    if localplayer.GetInteractingIndex()<>-1 then break;
 until tm.timeelapsed()>igaussrange(4800,6520);
  setlength(paskutiniai,1);
   paskutiniai:=[point(0,0)];
         end;
     end;
  end;           //3243,3248,3248,3244 namas
end;
function mires():boolean;
begin
if not localplayer.isloggedin() then exit;
  if pointinbox(TReflectionTiles.GetGlobalTile(),inttobox(3243,3244,3248,3248)) then
    begin
       Statusas('Namely blt');
       terminatescript();
    end;
  result:= pointinbox(TReflectionTiles.GetGlobalTile(),inttobox(3217,3213,3232,3224));
end;
procedure handlemires();
var
xx,yy:integer;
begin
if not localplayer.isloggedin() then exit;
      if findcolor(xx,yy,2070783,260,40,270,50) then
        begin
          if random(8)<5 then
           begin
             mousebox(inttobox(480,34,493,45),mouse_left);
             wait(igaussrange(1270,2358));
           end;
        end;
       localplayer.WalkPathMM([point(3231+random(-1,2),3219+random(-3,2)),point(3237+random(-1,2),3226+random(-3,1)),point(3249+random(-2,2),3229+random(-2,3))]);
       mousebox(inttobox(565, 219,583, 234),mouse_left);
       wait(igaussrange(400,654)+random(200,3254));
       mousebox(inttobox(611, 223,627, 234),mouse_left);
   end;

Procedure MusimoAntiban(sansas:integer);
begin
if not localplayer.isloggedin() then exit;
if (random(1000)<sansas) then
  begin
    case random(1000) of
      4..9:  compassMovement(random(5,15),igaussrange(90,150),false);
      12..150: SleepAndMoveMouse(200+Random(2000));
      161..290: MMouseOffClient('random');
      291..315: checkMovingObjs(true);
      316..415: checkMovingObjs(false);
      415..478: randomRClick();
      479..497: hoverSkill(random(4), false);
      498..514: pickUpMouse();
      515..752: humanRandomMouse();
      753..843: randomMovement();
      844..851: boredHuman();
      852..855: examineInv();
      856..857: randomFKeys(true);
    end;
  end;
end;

procedure musimas();
var
_npcs:treflectnpcarray;
z:integer;
tsk,mano:tpoint;
taskas:tpointarray;
i:=0;
begin


repeat
if not localplayer.isloggedin() then exit;
     _npcs.Getall;
  for z:=0 to high(_npcs) do
  begin
      if InIntArray(monstrai.id,_npcs[z].GetID) then    //2816,2805,2806, 2808
        begin
          tsk:=(_npcs[z].gettile());
          mano:=TReflectionTiles.GetGlobalTile();
          if ((pointinbox(tsk,inttobox(mano.x-1,mano.y-1,mano.x+1,mano.y+1)))and (_npcs[z].getinteractingindex()<>-1)) then
            begin
             if ar(tsk)=false then
               begin
                setlength(paskutiniai,i+1);
                paskutiniai[i]:=(_npcs[z].gettile());
                inc(i);
               end;
            end;
        end;
  end;
 // writeln(paskutiniai);
  antiban(antibansansas);
  musimoantiban(musimosansas);
  wait(igaussrange(547,1854));
  antiban(antibansansas);
  minibreakas(minibreaksansas);
  if random(86)>80 then wait(random(1000,4000));
until  localplayer.GetInteractingIndex()=-1;
antiban(antibansansas+1);
minibreakas(minibreaksansas*2);
end;
procedure pasikeisti(i:integer);
var
x,y:integer;
begin
if not localplayer.isloggedin() then exit;
  mousebox(inttobox(535, 180,548, 192),mouse_left);
  wait(igaussrange(345,784));
  if localplayer.getskilllevel(0)>39 then
    if localplayer.getskilllevel(1)>39 then
      if localplayer.getskilllevel(2)>39 then
         begin
            writeln('Pasiekeme po 40');
            terminatescript();
         end;
  case i of
     0:if not findcolortolerance(x,y,2106257,576, 261,623, 282,55) and (localplayer.getskilllevel(0)<40) then mousebox(inttobox(576, 261,623, 282),mouse_left);
     1:if not findcolortolerance(x,y,2106257,657, 313,705, 338,55)and (localplayer.getskilllevel(1)<40) then mousebox(inttobox(657, 313,705, 338),mouse_left);
     2:if not findcolortolerance(x,y,2106257,657, 260,712, 286,55)and (localplayer.getskilllevel(2)<40) then mousebox(inttobox(657, 260,712, 286),mouse_left);
     3:writeln('Nieko');
  end;
  wait(igaussrange(245,784));
  stiliauslaikas.start();
  Stiliauspo:=random(1000000,3000000);
  minibreaksansas:=random(1,5);
  antibansansas:=random(28,75);
  musimosansas:=random(23,100);
  mousebox(inttobox(632, 174,654, 194),mouse_left);
  writeln('antiban'+tostring(antibansansas));
  writeln('minibreak'+tostring(minibreaksansas));
  writeln('musimosansas'+tostring(musimosansas));
  writeln('keisim stiliu po'+tostring(stiliauspo));
end;
procedure Stilius();
var
k:integer;
begin
if not localplayer.isloggedin() then exit;
 writeln('stilius');
if(( localplayer.getskilllevel(0)+3<localplayer.getskilllevel(1)) or (localplayer.getskilllevel(0)+3<localplayer.getskilllevel(1))) then
   Pasikeisti(0);
if(( localplayer.getskilllevel(1)+3<localplayer.getskilllevel(0)) or (localplayer.getskilllevel(1)+3<localplayer.getskilllevel(2))) then
   Pasikeisti(1);
if(( localplayer.getskilllevel(2)+3<localplayer.getskilllevel(0)) or (localplayer.getskilllevel(2)+3<localplayer.getskilllevel(1))) then
   Pasikeisti(2);
end;


procedure  Mainloop();

begin
 //monstrudebug();
 if not localplayer.isloggedin() then exit;
 uzatackinti();
 musimas();
 if mires then handlemires();
 if (stiliauspo<stiliauslaikas.timeelapsed()) then Stilius();
 statusas('krc');
 os_smart.ClearScreen();
end;
begin
   smartshowconsole:=false;
    initAL;
    if not(SmartEnabled(OS_Smart.Target)) then
      SmartSetEnabled(OS_Smart.Target, false);
    Reflect.Setup;
    OS_Smart.__Graphics.Clear;
    declarePlayer();
    if not localplayer.isloggedin() then
      begin
         loginPlayer(false);
         wait(igaussrange(5000,11000));
         setAngle(ANGLE_HIGH);
         toggleRunning(True);
         localplayer.create();
      end
      else localplayer.create();
    MonstruDec();
    setlength(paskutiniai,1);
   paskutiniai:=[point(0,0)];
   if localplayer.getskilllevel(1)<10 then Pasikeisti(1) else pasikeisti(3);
   Mousespeed:=random(35,40);

  Repeat
  if not localplayer.isloggedin() then
      begin
         wait(random(15000,600000));
         loginPlayer(false);
         wait(igaussrange(5000,11000));
         setAngle(ANGLE_HIGH);
         toggleRunning(True);
          localplayer.create();
      end;
    mainloop();
  Until false;
end.

and personally feel its like very decent compared to trash i run on rs3 without any bans.

Please fix the standards, I can't read that without my brain hurting sadly :(

Edit: You left your details in the script!

Edit2:

If you want something to compare with which is kinda the same task I guess,
Here's my chicken killer, never had any problems @ bans

program Chicken;
{$DEFINE SMART}
{$i finclude/finclude.simba}

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
const
  StartWorld = 311;

  SkipBreaks = False;
    BreakEvery_X_Chickens = 300;   {Break after how many Chickens?}
    BreakRandomAdded = 200;     {Randomness to be added on to BreakEvery_X_Chickens}
    BigBreakEvery_X_Breaks = 4; {Big breaks after how many breaks? 2 = Break 2 will be a big break}

    BreakTime_Small = 1;   {A small break will be for x-minutes}
    BreakTime_Small_RandomAdded = 35; {Randomness to small breaks, note formula is x+Randomness, not +-}

    BreakTime_Big = 360;   {A big break will be for x-minutes}
    BreakTime_Big_RandomAdded = 300; {Randomness to big breaks, note formula is x+Randomness, not +-}

{- - - - - - - - - - - - - - - Account information - - - - - - - - - - - - - - -}

  Loginname = '';
  Password = '';

  Stop_Script_At_Combat = 50;

  LootBones = True;
    PrayerCap = 21;

  LootFeathers = True;
    FeathersCap = 8000;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

var
  StartCB, CurCB: Integer;

Procedure BreakSetup;
var
  I: Integer;
begin
  BreakList := [BreakEvery_X_Chickens+Random(BreakRandomAdded), BreakEvery_X_Chickens+Random(BreakRandomAdded), BreakEvery_X_Chickens+Random(BreakRandomAdded), BreakEvery_X_Chickens+Random(BreakRandomAdded), BreakEvery_X_Chickens+Random(BreakRandomAdded), BreakEvery_X_Chickens+Random(BreakRandomAdded), BreakEvery_X_Chickens+Random(BreakRandomAdded)];
  For I:=0 to High(BreakList)do
    IncEx(Limit, BreakList[I]);
end;

procedure setupVars;
begin
  locPlayer.Username := Loginname;
  locPlayer.Password := Password;
  locPlayer.Pin := Pin;
  locPlayer.Active := True;

  BreakSetup;
end;

function getCB: integer;
var
  W: TReflectWidget;
  I: Integer;
begin
  W.GetWidget(593, 2);
  Result := StrToIntDef(ExtractFromStr(W.GetText, Numbers), -1);
end;

Procedure getStats;
begin
  If Not locPlayer.isLoggedIn then
    Exit;
  If StartCB = 0 then
    StartCB := getCB;
  CurCB := getCB;
end;

procedure setupPlayer;
begin
  ProgressTimer.start;
  locPlayer.Login;
  Wait(1000+Random(1500));
  Reflect.Compass.MakePitch(10);
  getStats;
  if Random(4) = 1 then
    randomCompass;
end;

procedure handle_StopAtLevel;
begin
  If (getCB >= Stop_Script_At_Combat) then
  begin
    Debug('We''ve reached combat level ' + ToStr(Stop_Script_At_Combat), True);
    locPlayer.Logout;
  end;
end;

Procedure Progress;
var
  Graphic: TReflectionGraphics;
  S: TStringArray;
  BreakString: String;
  I: Integer;
begin
  If (ProgressTimer.Elapsedtime < 10000) then
    Exit;
  getStats;
  If SkipBreaks then
    BreakString := '*Breaks disabled*'
  else
    BreakString := 'Next break in ' + ToStr(BreakList[BreakTaken] - DoneRound) + ' chickens';
  S := [ScriptName + ' v' + ScriptRev,
        '',
        'Time running: ' + Reflect.Time.msToTime(GetTimeRunning, TIME_SHORT),
        'Total breaks made: ' + ToStr(BreakTaken),
        BreakString,
        '',
        'Chicken killed: ' + ToStr(Done) + ' - p/h: ' + ToStr(perHour(Done)),
        'Combat levels gained: ' + ToStr(CurCB-StartCB)];

  graphic := Reflect.Smart.Graphics;
  graphic.clear;
  Graphic.DrawBox(MCX1, MCY1, MCX2, MCY2, True, 3818059);

  For I:=0 to High(S) do
    Graphic.DrawClippedText(S[I], 'UpChars07', Point(24+((I div 8)*200), 348+((I mod 8)*14)), clYellow);

  Graphic.DrawClippedText('Made by Fitta', 'BigChars', Point(244, 384), clYellow);
  ProgressTimer.Restart;
end;

Procedure WaitNoCombat;
begin
  repeat
    beHuman(2000);
    Wait(100+Random(100));
  until(Not locPlayer.IsUnderAttack);
end;

procedure breakCheck;
var
  bTime: Integer;
  bigBreakList: TIntegerArray;
begin
  If (Not locPlayer.isLoggedIn)or(Failed)or(BreakList[BreakTaken] > DoneRound)or(SkipBreaks) then
    Exit;

  Debug('Time to break!', False);
  WaitNoCombat;
  repeat
    locPlayer.Logout;
    Wait(2000+Random(500));
  until(not locPlayer.IsLoggedIn);

  BreakTaken := BreakTaken + 1;
  DoneRound := 0;
  BigBreakList := [BigBreakEvery_X_Breaks, BigBreakEvery_X_Breaks*2, BigBreakEvery_X_Breaks*3, BigBreakEvery_X_Breaks*4, BigBreakEvery_X_Breaks*5, BigBreakEvery_X_Breaks*6, BigBreakEvery_X_Breaks*7];

  If InIntArray(BigBreakList, BreakTaken)then
    bTime := 1000*60*(BreakTime_Big+Random(BreakTime_Big_RandomAdded))
  else
    bTime := 1000*60*(BreakTime_Small+Random(BreakTime_Small_RandomAdded));

  TakeBreak(bTime);
  SetupPlayer;
end;

function findChicken: boolean;
var
  NPCs: TReflectNPCArray;
  I: Integer;
begin
  NPCs.Get('Chicken');
  For I:=0 to High(NPCs)do
    If (NPCs[I].GetInteractingIndex = -1)and(NPCs[I].GetMaxHealth = 0)and(PointInBox(NPCs[I].GetTile, IntToBox(3225, 3295, 3236, 3301)))then
    begin
      Result := interactTileOnce(NPCs[I].GetTile, 'Attack Chicken', 'Attack Chicken', 4, mouse_Left, 0, 0, 0+Random(30));
      afterClick;
      Exit;
    end;
end;

procedure waitFight;
var
  T: TReflectTimer;
begin
  T.start;
  repeat
    Wait(100+Random(50));
  until(locPlayer.GetInteractingIndex > 0)or(T.Elapsedtime > 800);
  If Not (locPlayer.GetInteractingIndex > 0)then
    Exit;
  Debug('Interacting -> Chicken', False);
  T.Restart;
  repeat
    Wait(100+Random(50));
    beHuman(2000);
    If (CountColor(8388608, 142, 376, 459, 394) > 10)and(T.Elapsedtime > 10000) then
      Break;
  until(locPlayer.GetInteractingIndex = -1)or(T.Elapsedtime > 45000);
  If (T.Elapsedtime < 45000)then
  begin
    Debug('Chicken died -> Find a new one', False);
    Done := Done + 1;
    DoneRound := DoneRound + 1;
  end;
end;

Function Loot(ItemName: String; Dist: Integer): boolean;
var
  G: TReflectGroundItem;
begin
  If Not G.Find(ItemName, Dist)then
    Exit;

  Result := interactTileOnce(G.GetTile, 'Take ' + G.GetName, 'Take ' + G.GetName, 4, mouse_Left, 0, 0, 0);
  waitWalking;
end;

procedure BuryBones;
var
  T: TReflectTimer;
begin
  If (locPlayer.GetMaxSkillLevel(SKILL_PRAYER) > PrayerCap)or(not LootBones) then
    Exit;

  T.start;
  repeat
    Wait(800+Random(800));
  until(Not interactInv(['Bones'], 'Bury'))or(T.Elapsedtime > 10000);
end;

procedure handle_Loot;
var
  Inv: TReflectInvItem;
  T: TReflectTimer;
begin
  T.start;
  repeat
    Wait(500+Random(300));
  until(Not interactInv(['Raw chicken'], 'Drop'))or(T.Elapsedtime > 10000);

  If LootBones then
   If locPlayer.GetMaxSkillLevel(SKILL_PRAYER) < PrayerCap then
    If (Loot('Bones', 5) and (Random(5) = 1))then
      BuryBones;


  If LootFeathers then
  begin
    If Inv.Find('Feather')then
     If Inv.GetQuantity >= FeathersCap then
       Exit;

    Loot('Feather', 5);
  end;
end;

procedure handle_Bones;
begin
  If (locPlayer.GetMaxSkillLevel(SKILL_PRAYER) > PrayerCap)or(not LootBones) then
    Exit;

  If (Reflect.Inv.IsFull)or(Random(4) = 1)then
    BuryBones;
end;

begin
  ScriptName := 'Chicken killer';
  ScriptRev := '1.0';
  World := StartWorld;
  FInclude;
  setupVars;
  setupPlayer;
  repeat
    Progress;
    breakCheck;
    If findChicken then
    begin
      waitFight;
      handle_Loot;
    end;

    handle_Bones;
  until(Failed)or(Limit = Done)
end.

thanks, gona try your chicken killer out :) And account is banned anyways, ty again for spotting.

Do you use breaks?

@cosmasjdz; I've removed your credentials from the script, even tho the account is banned it's still a good idea to remove them as you never know who could be watching…

Do you use breaks?

yep around every 2 hours around 15 mins. Exactly same functions iv been using in rs3 swamp lizzard scripts, which had way less bans than 99's achieved. Maybe problem is i run bot on absolutely fresh account? Tutorial is hand made as it only tooks like 7 mins. After goblins(whenever reached 30+in all meele skills) used to use hobgoblin script to get def for rc through abbys/thazar mobs for the goal. One guy got to 60,60,40 but he was my first account to start doing it and also a tester. Anyways despite hobgoblins having higher antiban, both scripts had same structure.