SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
YoHoJo (idk if it counts, but i saw a link to his guides on scythe)


What is your general programming knowledge?
Visual Basic
Some HTML
Pascal I guess?


Are you a member of any other communities?
I think this means online communities? None other than Runescape or Facebook really.


Tell us about yourself…

From: farmer jack
My name is Jack, just turned 17.
Ausssie! Aussie! Aussie!

I sometimes get mistaken for being a gold-farmer because of the name but really I am literally a part time farmer, just preparing my cows for your Mcdonalds burgers and all :p

I am in love with bikes, any sort of bike really, especially bmx. I race Bmx competitively and have been for the past 5 years, more so for fun right now… its what i enjoy doing. (seriously best sport ever take it up, ask any bmxer :P).

I'm starting the final year of my schooling life in about 8 hours actually.. stoked :P wasn't much one for listening to teachers but I'm fairly good at school besides english (OMGosh yuck). Maths is my fav subject.

I finally got the guts to ask a girl out for the first time ever few months back, going strong still.. most amazing girl to me.

And finally… computerz, i don't really know what about them but I love them, especially programming.. i know its not much though I've worked on a ton of cool stuff (cool to me anyways haha) in Visual Basic after being introduced to it at school. I really like the problem solving element, though before coming across this site i felt it was just meaningless programming, but honestly this site gives me a reason to code and i love the idea of a no leech community. I'd love to get more involved on working on more important stuff then just autoing scripts, like maybe helping out the community with things like SRL devlopment and what not, though i still have much to learn and still taking in what I have just learnt. So anyways thought I'd send in a members application before i get caught up with so much school work, worth a shot.

Anyways that sums up my life in a few paragraphs: Farming, Bikes, School, Girlfriend, Computerz pretty much make my life what it is.

Cheers to all you guys that read this. Thanks if you got to the end!! :)

Please show us one (or multiple) of your scripts.
Can't add attachments, says i don't have permission so i'll link to the thread and post code underneath thread is mainly for script setup.
~~~~~~~~~~~~~~~~~~~~~~~~
Summoning Training (kyatt method)(Much more advanced)
I added basic leech prevention, it is just on line 606 I think it is you need to put 'end;'
Script works good with correct setup, give me a message if our having trouble.
http://villavu.com/forum/showthread.php?t=73159
~~~~~~~~~~~~~~~~~~~~~~~~
Cockatrice egg incubator (my more basic script) Works flawlessly but. Downlaod the latest version.
http://villavu.com/forum/showthread.php?p=900770#post900770

Cheers for taking a look at these, appreciate any feedback you want to give me aswell. :)
~~~~~~~~~~~~~~~~~~~~~~~~
Edit - remembered I used TPAs in my first script but thought the other methods were more accurate - http://villavu.com/forum/showthread.php?t=72831
script is at the bottom.. sorry guys :/
~~~~~~~~~~~~~~~~~~~~~~~~

program New;


  {$DEFINE SRL5}
  {$DEFINE SMART}
  {$i srl/srl.simba}
  {$i sps/sps.simba}
  {$i SRL/SRL/skill/summoning.simba}
  {$i ObjectDTM\ObjDTMInclude.simba}

  //IMPORTANT
  //IMPORTANT
  // Silly me included a little mistake, probably one that could upset leechers,
  // but my keyboard is broken so you'll have to fix it yourself..
  //(WTF HOWD I WRITE THIS THEN)
  //IMPORTANT
  //IMPORTANT



Const
//SRL Stats
  SRLStats_Username = '';
  SRLStats_Password = '';

var
//Variables
  Charges, StartXP, CurrentXp, SymbolX, SymbolY, Stage,
  TripsDone, Tab, Trips, RingsUsed: Integer;
  MyPath: TPointArray;
  Banked, PouchesMade: Boolean;
  Position: TPoint;



procedure DeclarePlayers;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name:= ''; // character's username
    Pass:= ''; // characte'r password
    Nick:= ''; // 4 consecutive letters of your runescape ign
    pin:= ''; // bankpin
    Tab:= 9; // choose the banktab with all your stuff in it
    Trips:= 500; // how many trips do you wish to do
    Active:= True; // leave this
    BoxRewards  := ['XP','xp','lamp'];
    LampSkill   := 'Summoning'; // choose skill for xp lamp xp
  end;
  loginplayer;
  StartXp:= GetXPBarTotal;

  loginplayer;
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
end;

//*****************************************************************************
procedure AntiBan;

  begin
    case Random(10000) of
    1..10: begin
             HoverSkill('Summoning', false);
             GameTab(25);
             MMouse(0, 0, 730, 460);
           end;
    11..20: begin
              PickUpMouse;
            end;
    21..30: begin
              BoredHuman;
            end;
    31..40: begin
              RandomMovement;
            end;
    41..50: begin
              PickUpMouse; SleepAndMoveMouse(1000 + Random(2000));
            end;
    end;
  end;

//*****************************************************************************
function GetRingCount: Integer;
  var
    S,S2: String;
  begin
    GameTab(tab_equip);
    if WearingItem(11) then
    begin
      MouseEquippedItem('ring', 3);
      Wait(RandomRange(175, 350));
      S := GetUpText;
      Wait(RandomRange(175, 350));
      S2 := Between('(', ')', S);
      if not (S2 = '') then
      begin
        Writeln('We have '+S2+' ring charges left');
        Result := StrToIntDef(S2, 8);
      end
    end else
      Result := 0;
  end;

//*****************************************************************************
  Function AtCW: Boolean;
  var
    i: Integer;

  begin
    AntiBan;
    i:= 0;
    Repeat
    begin
      i:= i + 1
      Result := FIndSymbol(symbolX, symbolY, 'bank');
      If result = true then
        begin
          Writeln('AT CASTLEWARS.')
          Exit;
        end;
    end;
    Until(i = 3);
  end;


//*****************************************************************************
procedure CloseTheBank;

var
  i: integer;

begin
  i:= 0
  Writeln('Closing bank...');
  while BankScreen = true do
  begin
    i:= i + 1;
    if i = 4 then
    begin
      Writeln('UNABLE TO CLOSE BANK. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
  CloseBank;
  end;
  Writeln('BANK IS CLOSED');
  Wait(250+random(250));
end;

//*****************************************************************************
procedure OpenTheBank;

var
  i: Integer;

begin
  Writeln('Opening bank...');
  i:= 0;
  while(BankScreen = false) do
  begin
    i:= i + 1;
    if i = 4 then
      begin
        Writeln('UNABLE TO OPEN BANK');
        Logout;
        TerminateScript;
      end;
    OpenBankChestEdge(SRL_BANK_CW);
  end;
  Wait(200 + random(75))
  writeln('BANK IS OPEN');
end;

//*****************************************************************************
procedure WithdrawPouch;
begin
  AntiBan;
  Writeln('...Withdrawing pouch');
  OpenTheBank
  Wait(500+random(250));
  if UsingFamiliar = false then
  begin
    if ExistsItem(4) then
      Deposit(4,4, False);
    Withdraw(7, 0, 1);
    Writeln('POUCH WITHDRAWN.');
  end else
  begin
    Writeln('POUCH UNECESSARY, ALREADY SUMMONED');
  end;

end;

//*****************************************************************************
procedure SummonPouch;

var
  i: Integer;
  begin
  AntiBan;
    Writeln('...Summoning Kyatt');
    CloseTheBank
    i:= 0;
    while (UsingFamiliar = false) do
    begin
      i:= i + 1;
      if i = 4 then
      begin
        Writeln('UNABLE TO SUMMON KYATT. SCRIPT STOPPING');
        Logout;
        TerminateScript;
      end;
      MouseItem(4, 0);
      WaitOption('Summon', 200);
      Wait(550 + Random(100));
    end;
    Writeln('KYATT IS SUMMONED');
  end;

//*****************************************************************************
procedure DepositPouches;
var
  i: Integer;

begin
  AntiBan;
  OpenTheBank;
  Writeln('Depositing items...');
  i:= 0;
  while(ExistsItem(8)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('UNABLE TO DEPOSIT ITEM A. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
    MouseItem(8, 0);
    WaitOption('Deposit-All', 150);
    AntiBan;
    Wait(600 + random(200));
  end;
  Writeln('ITEMS DEPOSITED.');
end;

//*****************************************************************************
procedure WithdrawIngredients;
  begin
    AntiBan;
    OpenTheBank;
    Writeln('Restocking...');
    Withdraw(9, 0, 25);
    Writeln('RESTOCKED');
  end;

//*****************************************************************************
procedure TeleCW;

var
  MyPath:TPointArray;
  t: Integer;

  begin
    if WearingItem(11) = false then
    begin
      Writeln('Unable to teleport - NO RING');
      Writeln('~~Logging out  & Terminating script~~')
      Logout;
      TerminateScript;
    end;
    AntiBan;
    Writeln('Teleporting to CW...');
    Charges:= GetRingCount;
    if Charges = 1 then
      banked:= false;
    MouseEquippedItem('ring', 0)
    wait(50 + random(25))
    WaitOption('Castle Wars', 150);
    MarkTime(t);
    repeat
    FindNormalRandoms;
    if (TimeFromMark(t)) = 5000 then
    begin
      wait(1)
      Charges:= GetRingCount;
      if Charges = 1 then
      banked:= false;
      MouseEquippedItem('ring', 0);
      wait(50 + random(25))
      WaitOption('Castle Wars', 150);
      AntiBan;
    end;
    if (TimeFromMark(t) > 10000) then
    begin
      Writeln('UNABLE TO TELEPORT TO CW');
      Exit;
    end;
    if AtCW then
    begin
      Break;
    end;
    until (False)
    Writeln('TELEPORTED TO CW');
    Antiban;
    FindNormalRandoms;

  end;

//*****************************************************************************
procedure TeleSummon;

var
  x, y, t, i: Integer;

begin
  InteractFamiliar('')
  Repeat
  if FindNPCChatText('Teleport', ClickLeft) then
    break;
  Until(false);
  Writeln('Searching for Summoning Area...');
  Marktime(t);
  Repeat
    Wait(1);
      if (TimeFromMark(t) = 5000) then
    begin
      TeleSummon
      Exit;
    end;
    if (TimeFromMark(t) > 10000) then
    begin
      Writeln('UNABLE TO TELEPORT - COULDN"T LOCATE NEW AREA');
      Writeln('~~Logging out  & Terminating script~~')
      Logout;
      TerminateScript;
    end;
    AntiBan;
    if FindSymbol(x, y, 'summoning obelisk') then
      break;
  Until(false);

end;

//*****************************************************************************
procedure NewRing;

    var
      i: Integer;
begin
  OpenTheBank;
  AntiBan;
  RingsUsed:= RingsUsed + 1
  begin
    While ExistsItem(4) do
    begin
      MouseItem(4, 1);
      wait(randomrange(300, 350));
    end;
    Withdraw(8, 0, 1);
    Writeln('Ring obtained');
    Writeln('...Equiping Ring');
  end;
  i:= 0;
  wait(100+random(50));
  Repeat
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to equip ring.');
      Logout;
      TerminateScript;
    end;
    MouseItem(4, 0);
    wait(randomrange(150, 250));
    WaitOption('Wear', 150);
    Wait(600 + random(200));
  end;
  until(not(Existsitem(4)));
  Writeln('Ring Equipped.');
  charges:= 8;
end;

//*****************************************************************************
procedure CreatePouches;

begin
  TripsDone:= TripsDone + 1
  AntiBan;
  writeln('Creating pouches...')
  MouseBox(46, 68, 86, 110, 0);
  WaitOption('Infuse-All', 600)
  writeln('POUCHES CREATED')
  Banked:= False
  PouchesMade:= True

end;

//*****************************************************************************

Procedure TrapdoorandSummon;
var
  x, y, i, trapdoorO, trapdoorC, obelisk, outside: Integer;

begin
  trapdoorO:= DTMFromString('mbQAAAHicY2VgYOBhZGBggWIBIBYD4nCgeDQQ+wOxH5TNx8cHxq766gx+pjoMCb58DPxAcXTMiAWDAQAixwSY');
  trapdoorC:= DTMFromString('mlwAAAHicY2dgYOBiZGD4B6T5gLQQI4RmBOK/QLFsIC4B4lIoOwmIE4E4C4hDPSwZ0sNdGXJjPBn87HUYMiPdGLKjPcB8fqA8LsyIB0MBAIy8DGk=');
  obelisk:= DTMFromString('mbQAAAHicY2VgYHgHxK+B+A8QvwDiu0D8EIjPAPEbIP4ExPeBeEJ9EEOFvyBDUaoKQ4abEUNFohkDP1AcHTNiwWAAAEPBDn0=');

  begin
    i:=  0
    writeln('Entering trapdoor...');
    Repeat
    i:= i + 10
    if i = 100 then
      begin
        writeln('UNABLE TO ENTER TRAPDOOR, RESETTING');
        Stage:= 0
        FreeDTM(obelisk);
        break;
      end;
    if FindDTM(trapdoorO, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        writeln('Climbing down ladder...');
        Mouse(x, y, 4, 4, true);
        AntiBan;
        Wait(RandomRange(200, 300));
        While (IsMoving) do
        begin
          wait(1)
        end;

        Break;
      end;
    if FindDTM(trapdoorC, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        writeln('Opening trapdoor...');
        Mouse(x, y, 4, 4, true);
        wait(RandomRange(200, 300));
        AntiBan;
        While (IsMoving) do
        begin
          wait(1)
        end;
        wait(RandomRange(200, 300));
        writeln('TRAPDOOR IS OPEN')
        i:= 0
      end;
      wait(100)
    Until(false);
    FreeDTM(trapdoorO);
    FreeDTM(trapdoorC);
    if Stage = 3 then

    begin
      Wait(RandomRange(200, 300));
      While (IsMoving) do
      begin
        wait(1)
      end;
      Wait(RandomRange(400, 450));
      Writeln('TRAPDOOR ENTERED')
      Writeln('Walking to obelisk...');
      Mousebox(235, 305, 255, 337, 0)
      AntiBan;
      WaitOption('alk here', 300);
      Wait(RandomRange(500, 600));
      While (IsMoving) do
      begin
        wait(1)
      end;
      writeln('Searching for obelisk...');
      i:= 0;
      PouchesMade:= False;
      repeat
      i:= i + 1
      if i= 15 then
        break;
      if Getsummonpoints < 10 then
      begin
        if FindDTM(obelisk, x, y, MSX1, MSY1, MSX2, MSY2) then
        begin
          Mouse(x, y, 4, 4, false);
          WaitOption('enew', 300);
          While (IsMoving) do
          begin
            wait(1)
          end;
          Wait(RandomRange(200,300));
          While (IsMoving) do
          begin
            wait(1)
          end;
        end;
      end;
      if FindDTM(obelisk, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        i:= 9
        writeln('OBELISK FOUND')
        Mouse(x, y, 4, 4, true);
        Wait(RandomRange(200, 300));
        AntiBan;
        While (IsMoving) do
        begin
          wait(1)
        end;
        Wait(RandomRange(200,300));
        While (IsMoving) do
        begin
          wait(1)
        end;
        CreatePouches;
      end;
      Wait(200);
    until(PouchesMade = True)
    FreeDTM(obelisk);
    end;
  end;
end;
//*****************************************************************************
Procedure Proggy;

var
  commitexp1, commitexp2: integer;

begin
  CurrentXp:= GetXPBarTotal;
  Writeln('FARMERS SUMMONER V1.0')
  Writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');
  Writeln('Completed loads: ' + IntToStr(TripsDone));
  Writeln('Rings used: ' + IntToStr(RingsUsed));
  Writeln('Exp Gained: ' + IntToStr(CurrentXp - StartXp));
  Writeln('Time running: ' + TimeRunning);
  Writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');
  commitexp1:= (CurrentXp - StartXp - commitexp1);
  commitexp2:= (CurrentXp - StartXp);
  stats_IncVariable('Summoning EXP (Gained)', commitexp1);
  Stats_Commit;
end;

//*****************************************************************************
procedure MoveToBank;

begin
    AntiBan;
    Writeln('Moving to bank...')
    MyPath := [Point(1606, 4304), Point(1609, 4317), Point(1615, 4331), Point(1622, 4341)];
    SPS_WalkPath(myPath);
    While (IsMoving) do
    begin
      wait(1)
    end;
    Writeln('AT BANK')
end;

//*****************************************************************************
Procedure Bank;
begin
    OpenTheBank;
    DepositPouches;
    WithdrawIngredients;
    WithDrawPouch;
    SummonPouch;
    CloseTheBank;
end;




//*****************************************************************************
Procedure MainLoop;
var
  x, y, Blood, obelisk: Integer;

begin
 if not LoggedIn then Exit;
 FindNormalRandoms;
 if not(ExistsItem(1)) or not(ExistsItem(2)) or not(ExistsItem(3)) then
   begin
   Writeln('INVENTORY SETUP NOT COMPLETE< LOGGING OUT')
   Logout;
   TerminateScript;
   end;
 Case Stage of
   0:
      begin
        Proggy
        Writeln('Searching For Castlewars...');
        if not AtCw then
        begin
          Writeln('UNABLE TO FIND CASTLEWARS.')
          TeleCW
        end;
        If Banked = true then
        begin
          Stage:= 2
        end else
        begin
          Stage:= 1
        end;

   1:
      begin
        MoveToBank
        OpenTheBank;
        BankTab(tab);
        if Charges = 1 then
            NewRing;
        Bank;
        Banked:= True;
        Stage:= 2
      end;
   2:
      begin
        Writeln('Teleporting to summoning area...');
        TeleSummon;
        Writeln('NEAR AREA')
        Writeln('Walking to trap door...');
        MyPath := [Point(1138, 2120), Point(1143, 2109), Point(1143, 2095),
        Point(1145, 2090), Point(1147, 2081), Point(1149, 2076), Point(1152,
        2073), Point(1155, 2070)];
        SPS_WalkPath(myPath);
        repeat
        Wait(200)
          until (Not isMoving)
        if FindSymbol(x, y, 'summoning obelisk') or FindSymbol(x, y, 'mine') then
        begin
          Writeln('AT TRAP DOOR')
          Stage:= 3
        end else
        begin
          writeln('UNABLE TO LOCATE TRAPDOOR RESTARTING')
          Stage:= 0
        end;
      end;
   3:
      begin
        TrapdoorandSummon;
        Stage:= 0
      end;
 end;
end;

//*****************************************************************************
begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  setupSRL();
  ActivateClient;
  SPS_Setup(RUNESCAPE_SURFACE,['4_11','4_10','3_10','3_11','2_5','3_5','3_6']);
  DeclarePlayers;
  LoginPlayer;
  Charges:= GetRingCount;
  SetupSRLStats(620, SRLStats_Username, SRLStats_Password);
  SetAngle(0);
  While (not(tripsdone = trips)) do
  begin
    if not LoggedIn then
    begin
      loginplayer;
    end;
    MainLoop;
  end;
  Proggy;
  Writeln('~~JOB COMPLETE~~')
end.

~~~~~~~~~~~~~~~~~~~~~~~~

program New;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/skill/summoning.simba}

var
  StartEggs, StartPouches, StartPotions, StartScrolls, Timer, Loads: Integer;
  CurrentExp, StartExp, AntiBans: Integer;


procedure DeclarePlayers;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
 //                   FARMER JACKS EGG INCUBATOR v 0.1
 //                   ++++++++++++++++++++++++++++++++
 //                            Instructions
 //                 1. Enter account details bellow
 //                 aswell as entering load amount.
 //                 2. Position yourself within sight of
 //                 castlewars bank with nothing summoned
 //                 3. Set-up your bank like this
 //                 Item               Bank Index
 //                 egg--------------------10
 //                 cobra pouch------------11
 //                 summoning pots (3)-----12
 //                 oph. incubation scroll-13
 //                 Its easier to use a banktab but if you
 //                 do it must contain atleast 1 empty vial
 //                 and a cockatrice egg.
 //                 4. Post Proggy Please :) dont just
 //                 leech.
 //                   ++++++++++++++++++++++++++++++++
 //                   FARMER JACKS EGG INCUBATOR v 0.1

  with Players[0] do
  begin
    Name:= ''; //character's username
    Pass:= ''; // characte'r password
    Nick:= ''; // 4 consecutive letters of your runescape ign
    pin:= ''; // bankpin
    Active:= True; // leave this
    Loads:= 6000; //How many loads do you want to perfore, 1 load = 26 eggs
    BoxRewards  := ['XP','xp','lamp']; // doesn't matter no antirandoms,
    // they're unecessary because the player is at castlewars.
    LampSkill   := 'Summoning'; // doesn't matter no antirandoms,
    // they're unecessary because the player is at castlewars.
  end;
  Smart_Server := 0;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  loginplayer;
  startexp:= GetXPBarTotal

  loginplayer;
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
end;

//*****************************************************************************
procedure AntiBan;

  begin
    case Random(3000) of
    1..10: begin
             HoverSkill('Summoning', false);
             GameTab(25);
             MMouse(0, 0, 730, 460);
             AntiBans:= AntiBans + 1;
           end;
    11..20: begin
              PickUpMouse;
              AntiBans:= AntiBans + 1;
            end;
    21..30: begin
              BoredHuman;
              AntiBans:= AntiBans + 1;
            end;
    31..40: begin
              RandomMovement;
              AntiBans:= AntiBans + 1;
            end;
    41..50: begin
              PickUpMouse; SleepAndMoveMouse(1000 + Random(2000));
              AntiBans:= AntiBans + 1;
            end;
    51..60: begin
              MakeCompass( random(361))
              AntiBans:= AntiBans + 1;
            end;
    61..70: begin
              RandomAngle(1)
              SetAngle(0);;
              AntiBans:= AntiBans + 1;
            end;
   71..73: begin
              Wait(2000+ random(20000)
            end;
      end;
  end;

//*****************************************************************************
procedure CloseTheBank;

var
  i: integer;

begin
  i:= 0
  Writeln('...Closing bank');
  while BankScreen = true do
  begin
    i:= i + 1;
    if i = 4 then
    begin
      Writeln('Unable to close bank. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
  CloseBank;
  end;
  Writeln('Bank is closed');
  Wait(250+random(250));
end;

//*****************************************************************************
procedure OpenTheBank;

var
  i: Integer;

begin
    Writeln('...Opening bank');
  i:= 0;
  while(BankScreen = false) do
  begin
    i:= i + 1;
    if i = 4 then
      begin
        Writeln('Unable to open bank.');
        Logout;
        TerminateScript;
      end;
    OpenBankChestEdge(SRL_BANK_SW);
  end;
  Wait(200 + random(75))
  writeln('Bank is open.');
end;


//*****************************************************************************
procedure DepositTheInventory;

var
  i, j: Integer;
  itemexists: Boolean;

begin
if BankScreen = true then
  begin
    Writeln('...Depositing all of the inventory');
    i:= 0;
    j:= 0;
    repeat
      j:= j + 1;
      if j = 4 then
        begin
          Writeln('Unable to deposit inventory');
          Logout;
          TerminateScript;
        end;
      DepositAll;
      itemexists:= false;
      for i := 1 to 28 do
        if ExistsItem(i) then
          itemexists:= true;
          Wait(100 + random(50));
    until(itemexists = false);
  Writeln('All of the inventory has been deposited.');
  end else
  begin
    Writeln('Bank not open.')
    OpenTheBank
  end;
end;

//*****************************************************************************
procedure WithdrawPouch;
begin
  Writeln('...Withdrawing pouch');
  OpenTheBank
  DepositTheInventory
  if UsingFamiliar = false then
  begin
    WithdrawEx(0, 1, 1, ['pirit cobra']);
    Writeln('Pouch Withdrawn.');
  end else
  begin
    Writeln('Pouch unecessary, already summoned.');
  end;
  CloseTheBank;
end;

//*****************************************************************************
procedure SummonPouch;

var
  i: Integer;
  begin
    Writeln('...Summoning cobra');
    i:= 0;
    while (UsingFamiliar = false) do
    begin
      i:= i + 1;
      if i = 4 then
      begin
        Writeln('Unable to summon cobra. SCRIPT STOPPING');
        Logout;
        TerminateScript;
      end;
      MouseItem(1, 0);
      WaitOption('Summon', 200);
      Wait(550 + Random(100));
    end;
    Writeln('Cobra is summoned');
  end;

//*****************************************************************************
procedure SetUpInventory;

var
  withdrawalscrolls:integer;

begin
  Writeln('...Setting up inventory');
  OpenTheBank;
  withdrawalscrolls:= (GetBankIndexItemAmount(13) - 1);
  wait(500+random(500));
  WithdrawEx(2, 1, withdrawalscrolls, ['ph.']);
  WithdrawEx(1, 1, 1, ['ummoning potion']);
  WithdrawEx(9, 0, 26, ['gg']);
  Writeln('Completed inventory setup.');
  CloseTheBank;
end;

//*****************************************************************************
procedure Restock;

var
  i: Integer;

begin
  OpenTheBank;
  Writeln('...Depositing items');
  i:= 0;
  while(ExistsItem(2)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit item A. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
    MouseItem(2, 1);
    Wait(600 + random(100))
  end;
  i:= 0
  while(ExistsItem(3)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit item B. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
    MouseItem(3, 0);
    WaitOption('Deposit-All', 150);
    Writeln('Items Deposited.');
    Wait(600 + random(100))
  end;
  Writeln('...Restocking');
  WithdrawEx(1, 1, 1, ['ummoning potion']);
  WithdrawEx(9, 0, 26, ['gg']);
  Writeln('Restocked.');
  CloseTheBank;
end;

//*****************************************************************************
procedure InitialSetup;

begin
  Writeln('++Begin Initial Setup++');
  WithdrawPouch;
  SummonPouch;
  OpenTheBank;
  StartEggs:= GetBankIndexItemAmount(10);
  StartPouches:= GetBankIndexItemAmount(11);
  StartPotions:= GetBankIndexItemAmount(12);
  StartScrolls:= GetBankIndexItemAmount(13);
  Writeln('Starting eggs:' + IntToStr(StartEggs));
  Writeln('Starting pouches:' + IntToStr(StartPouches));
  Writeln('Starting potions:' + IntToStr(StartPotions));
  Writeln('Starting scrolls:' + IntToStr(StartScrolls));
  SetUpInventory;
  Writeln('++Completed Initial Setup++');
end;

//*****************************************************************************
Procedure Incubate;
var
  i, drink1, drink2: Integer;

begin
  i:= 2;
  case random(3) of
    0: drink1:= 8;
    1: drink1:= 9;
    2: drink1:= 10;
  end;
  case random(3) of
    0: drink2:= 18;
    1: drink2:= 19;
    2: drink2:= 20;
  end;

  begin
    MouseItem(2,1);
    wait(800+random(150));
  end;
  For i:= 3 to 28 do
  begin
    if i = drink1 then
    begin
       wait(100 + random(50));
       MouseItem(2,1);
       wait(600 + random(75));
    end;
        if i = drink2 then
    begin
       wait(100 + random(50));
       MouseItem(2,1);
       wait(600 + random(75));
    end;
    if UsingFamiliar = False then
    begin
      WithdrawPouch;
      SummonPouch;
      SetUpInventory;
      i:=3
      AntiBan;
    end;
    AntiBan;
    wait(200+random(50))
    InteractFamiliar('')
    MouseItem(i, 1);

    Wait(random(500));
    end;
  timer:= timer + 1
  CurrentExp:= GetXPBarTotal;
  writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');
  writeln('Completed loads: ' + IntToStr(Timer));
  writeln('Incubated eggs: ' + IntToStr(Timer * 26));
  writeln('Money earned: ' + IntToStr(Timer * 26 *400));
  Writeln('Exp Gained: ' + IntToStr(CurrentExp - StartExp));
  Writeln('Antibans: ' + IntToStr(AntiBans));
  Writeln('Time running: ' + TimeRunning);
  writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');

end;


//*****************************************************************************
begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  if not(loggedin) then
  LoginPlayer;
    StartExp:=  GetXPBarTotal
  SetAngle(0);
  InitialSetup;
  wait(500 + random(100))
  while(timer < loads) do
  begin
    Writeln('...Incubating them eggs');
    Incubate;
    Writeln('Incubation process complete');
    Restock;
  end;
  Logout;
  Writeln('Job is completed.');
  Writeln('Thanks for using, posting proggies are nice :)');
  CurrentExp:= GetXPBarTotal;
  writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');
  writeln('Completed loads: ' + IntToStr(Timer));
  writeln('Incubated eggs: ' + IntToStr(Timer * 26));
  writeln('Money earned: ' + IntToStr(Timer * 26 *400));
  Writeln('Exp Gained: ' + IntToStr(CurrentExp - StartExp));
  Writeln('Antibans: ' + IntToStr(AntiBans));
  Writeln('Time running: ' + TimeRunning);
  writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');

// Created by Farmer Jack



end.
~~~~~~~~~~~~~~~~~~~~~~~~
program New;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
var
  AntibanUsed, startexp, currentexp: integer;
  stop: boolean;


Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :='username';
  Players[0].Pass :='password';
  Players[0].Nick :='jnickname';
  Players[0].Active:=True;
  Smart_Server := 0;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  loginplayer;
  stop:= false
  startexp:= GetXPBarTotal

end;

Procedure ChopIvy;
var
  x, y: Integer;
Begin;

   x:=MSCx
   y:=MSCy

  If FindObjTPA(x, y, 5477747, 5, 1, 10, 10, 10, ['hop']) Then
Begin
        Writeln('Colour found, chopping ivy.....')
    Case Random(8) of
    0: Begin
          Mouse(x, y, 5, 5, False);
          WaitOption('Chop', 200);
       End;
    Else
      Mouse(x, y, 5, 5, true);

    End;
       End
       else
       begin
         Writeln('Colour not found.');
         Writeln('Logging out.');
         logout;
         stop:= true
       End;
    End;

Function Chopping: integer;
  var
    cutting: TBox;
  Begin
  cutting := IntToBox(245, 130, 285, 195);
    Result := AveragePixelShift(cutting, 250, 750)
  End;
Procedure AntiBan;
Begin
  If(not(LoggedIn))Then
  Exit;
  case Random(300) of
   0:
   begin
     HoverSkill('Woodcutting', false);
     wait(Random(1000));
     inc(AntibanUsed);
   end;
   1:
   begin
   PickUpMouse;
   inc(AntibanUsed);
   end;
   2:
   begin
     MakeCompass('N');
     wait(100+random(133));
     MakeCompass('S');
     wait(50+random(133));
     MakeCompass('N');
     inc(AntibanUsed);
   end;
    3: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500));
    inc(AntibanUsed);
    End;
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv);
    inc(AntibanUsed);
    End;

  end;
end;

procedure Report;
begin
  ClearDebug;
  currentexp:= GetXPBarTotal
  WriteLn('++++++++++++++++++++++++++++++++++++');
  WriteLn(Padr('AntiBans: ' + IntToStr(AntiBanUsed), 67));
  WriteLn(Padr('EXP Gained: ' + IntToStr((currentexp - startexp)), 67));
  Writeln('Ran for: '+ TimeRunning);
  WriteLn('++++++++++++++++++++++++++++++++++++');
end;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  repeat
    if Chopping <300 then
begin
    ChopIvy;
    Report
    wait(750+random(250))
end else
begin
 wait(50);
 Antiban
end;
  until(stop= true)
end.

Might want to look into TPA's ;)

I'm holding my vote as I feel you show understanding, but you don't seem to be very active in the Community.
But keep up the work :)
As S1N says try TPA's :)
Mat

I had a look at them but the DTMS seemed simpler, ill give it a try next time :)

Yes from me, although you don't use any methods like TAPs you look like you have a good programing knowledge.

Goodluck
<3 Boom

Ironic cause Spiker and Flight suggested them not long ago but I finally got my DTMs working properly so I thought I'd stick with them, gonna regret that but.. hehe ohwell I know where I'm going to study up on and thankx for the votes!

edit - i remembered i used them in first script, sorry guys its also in there now :p

I changed the formatting of your app a bit to make it more readable.

Thanks Markus, may I ask how many votes it is you need? Rr is that private?

Usually around 20ish total, and apps last for around one to two weeks. If yes/no is close to 50-50, admin decides to let in or not.

Omggg
im so sorry! My playbook voted no d:
Its a yes from me :(

Your app closes on my bday and scripts looks like they had time and effort put into, I vote yes

As said already a few times, look into TPAs, but it's a yes from me :)

Nice attitude buddy, and your linked script look sexy.

Yes

Yes

From: Scaper
Yes

what he said :)

if you are seriouse about the farmer, please teach us something that we can use pleasee.. Maybe how to properly prepare a good old burger :P

From: Main
if you are seriouse about the farmer, please teach us something that we can use pleasee.. Maybe how to properly prepare a good old burger :P

I seriously am, ok for burger preparation.. send your baby cows to an auction that a representative from the abattoir will be attending, from then on i don't know if you can keep track of your meat but it will go half way around the country, stuffed with preservatives and all them yummy healthy additives and served to you at Mcdonalds.. easy right?

pee.ess depending on the cow but they roughly go for, at a live weight auction, 1 - 2 $ a killo, good deal to farmers eh



Also thank you so much guys for all the votes!

I'll vote yes, if you will answer me one question: where abouts are you in Australia? <_>

From: Daniel
I'll vote yes, if you will answer me one question: where abouts are you in Australia? <_>

Close to a small country town called Gloucester. Idk if you've heard any of these places but.. foster, tareee, 40 mins aways from those 2 roughly… hehe any more detail needed ?

From: farmer jack
Close to a small country town called Gloucester. Idk if you've heard any of these places but.. foster, tareee, 40 mins aways from those 2 roughly… hehe any more detail needed ?

No way! We used to holiday at Diamond Beach, and I only remember going out as far as this place called Firefly or something? Not sure if you've heard of that? I do remember seeing signs for Gloucester though, it does definitely ring a bell.

Anyways, yes :p

BTW, I like to know general areas where my fellow Aussie's live :p Plus I'm just curious.

From: Daniel
No way! We used to holiday at Diamond Beach, and I only remember going out as far as this place called Firefly or something? Not sure if you've heard of that? I do remember seeing signs for Gloucester though, it does definitely ring a bell.

Anyways, yes :p

BTW, I like to know general areas where my fellow Aussie's live :p Plus I'm just curious.

Thankyou for explaining why you asked hehe, now you must tell me where your'e from. And firefly isn't too far from me, 10 mins up the main road sortv'e.

From: farmer jack
Thankyou for explaining why you asked hehe, now you must tell me where your'e from. And firefly isn't too far from me, 10 mins up the main road sortv'e.

Ah okay :p I'm from around Strathfield, Burwood and Concord (where Victa mowers were made!), in Sydney :p

From: farmer jack
I seriously am, ok for burger preparation.. send your baby cows to an auction that a representative from the abattoir will be attending, from then on i don't know if you can keep track of your meat but it will go half way around the country, stuffed with preservatives and all them yummy healthy additives and served to you at Mcdonalds.. easy right?

pee.ess depending on the cow but they roughly go for, at a live weight auction, 1 - 2 $ a killo, good deal to farmers eh

About time, we need a REAL Man in the SRL community :p Now days men dress up nice and does every thing to make them more attractive the opposite sex, which sounds female to me :(

From: Main
About time, we need a REAL Man in the SRL community :p Now days men dress up nice and does every thing to make them more attractive the opposite sex, which sounds female to me :(

Now who said I wasn't pretending to be a farmer to get a mrs farmer for myself ;) haha

In that case i'd call you a lier, come to your farm with a gun, then we'd go hunting and have a awsome BBQ (With drinking and smoking at the same time ofcourse :p ).

I'm keen, free tommorow? :p

Hmm was thinking how ironic it would be if i made a script that gathered raw beef from cows on runescape haha or maybe even a farmer script.

From: farmer jack
I'm keen, free tommorow? :p

Hmm was thinking how ironic it would be if i made a script that gathered raw beef from cows on runescape haha or maybe even a farmer script.

You should definitely do that lol, in the lumby area west of the river and north of the wind mill, I think you can bank there (there is a deposite box or something).

Wouldn't be much use unless you add death walk, but should be a very fun script to make :p

I do like McDonalds. A little unhealthy, but still.

Its decided then, I'm doing it for the lols… and guess what? TPAS for everything in it :p perhaps TPA walking to haha ?

And yes up MCDONALDS!, what isn't unhealthy these days?

DTMs are cool too buddy

No, simply because doing something just to get it 'done' the 'easier' way(DTM's), instead of the more efficient way (TPA's). There's so many alternatives, DTM's are the worst of sources to depend on in a script, they have to be changed too often.

From: XxX Toxin XxX
No, simply because doing something just to get it 'done' the 'easier' way(DTM's), instead of the more efficient way (TPA's). There's so many alternatives, DTM's are the worst of sources to depend on in a script, they have to be changed too often.

Well not necessarily the easier way.. perhaps i worded that wrong but a hell of a lot more precise when I have used them. I first actually did try TPAs but they don't work out the best for detecting trapdoors, let alone an open trapdoor.

But thankyou anyways, would you be able to explain what you mean by more efficient?

They really aren't more effective, all methods are only as effective as the scripter who uses them. It is all a matter of preference to be honest and the answer to which method is more efficient or "best" is not written in stone. Just find what you are comfortable using and make it your own scripting style. With time your skills will evolve and you will use your choosen method effectively. The posibilities are endless with DTMs, you just need to know how to use them properly or they might appear "worst" to you than they really are.

Regardless of what you choose, good luck and nice to meet you.

I also heard about bitmap, though haven't taken much look into them so far, perhaps I will soon but thanks for the response. I plan on sticking with my main use of DTMs though won't be reluctant to use TPAs either.

Let me rephrase, I was in a rush. By me saying they're the 'worst', I'm in the wrong here. There's other alternatives such as even ATPA's or an auto-colour function which can be used to integrate the color sequences of your trapdoor which you're talking about. Regardless, I see a lot of potential for you, so keep at it.

From: DemiseScythe
all methods are only as effective as the scripter who uses them

That's partly true, but not entirely. I haven't measured these thing myself, but I am fairly sure that different methods use different amount of resource let it be RAM or CPU and in that case it does matter which you use. Sure, these things doesn't really matter in a simple script, because you got a big enough time-frame to do any sort of calculation, but you may want to keep memory usage low, that's always nice.

From: DemiseScythe
It is all a matter of preference to be honest and the answer to which method is more efficient or "best" is not written in stone.

There is no such a thing as "best" in runescape, that's above question. :) You can use so many things in so many way …(so I agree with that)

I find DTM's to be good for things that are the same colour with different shapes take my Guilde Altar Script I found it a bitch to get it to work with TPA's as the colours are the same, with DTM's it allowed me to have one from each and has worked very well.
Mat
(But again Personal Preference :))

I honestly like DTM's a bit more than TPAs.
TPA's are only good in places where colors aren't similar ^.^

TPA vs DTM discussion board :P

IN!

Welcome :)