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?
N\A


What is your general programming knowledge?
C++, Pascal,


Are you a member of any other communities?
No, Just Villavu :D


Tell us about yourself…

From: jibber
My Name is Ryan, been making small games for a few years, also playing runescape. used scar ages ago before the bigger bot companys took over. Signed up to here a few weeks back and have been totally addicted! ive been spending hours a day making all different scripts, seen alot of requests for a fally summoner with sps walking so people can edit the walking paths for different scripts. (posted Below). Im helpful and would love to become a member and post some of my higher money making scripts. (mort myre fungi, Nature Crafter - walker )

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

program JibbersNature;   // VERSION 0.1

{$DEFINE SMART}

{$i srl/srl.simba}
{$i sps/sps.simba}
{$i SRL/SRL/skill/summoning.simba}



var
  Charges, StartXP, CurrentXp, Timer: Integer;

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
    Active:= True; // leave this
    BoxRewards  := ['XP','xp','lamp'];
  end;
  loginplayer;
  StartXp:= GetXPBarTotal;

  loginplayer;

end;
procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 9;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer; //  Logging in...
end;

procedure AntiBan;

  begin
    case Random(500) of
    1..10: begin
             HoverSkill('Runecrafting', 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;

procedure NewRing;

    var
      i: Integer;
begin
if Charges = 0 then
  begin
    Writeln('Getting A new ring');
    WithdrawEx(8, 0, 1, ['Ring']);
    Writeln('Equiping Ring');
  end;
  i:= 0;
  wait(500+random(200));
  while(ExistsItem(2)) do
  begin
    i:= i + 1
    if i = 2 then
    begin
      Writeln('Unable to equip ring.');
      Logout;
      TerminateScript;
    end;
    MouseItem(2, 0);
    WaitOption('Wear', 150);

    Wait(600 + random(200));
  end;
  Writeln('Ring Equipped.');
  charges:= 8;
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.');
      Logout;
      TerminateScript;
    end;
  CloseBank;
  end;
  Writeln('Bank is closed');
  Wait(2000+random(550));
end;

procedure OpenTheBank;

var
  i: Integer;

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

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

end;

procedure SummonPouch;

var
  i: Integer;
  begin
    Writeln('...Summoning');
    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;
      CloseTheBank;
      MouseItem(2, 0);
      WaitOption('Summon', 200);
      Wait(550 + Random(100));
    end;
    Writeln('Kyatt is summoned');
  end;

procedure DepositPouches;
var
  i: Integer;

begin
  OpenTheBank;
  Writeln('Depositing items');
  i:= 0;
  while(ExistsItem(4)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit Empty Vial.');
      Logout;
      TerminateScript;
    end;
    MouseItem(4, 0);
    WaitOption('Deposit-All', 150);
    AntiBan;
    Writeln('Items Deposited.');
    Wait(600 + random(200));
  end;
end;

procedure WithdrawIngredients;
  begin
    OpenTheBank;
    Writeln('...Restocking');
    Withdraw(9, 0, 27);
    Writeln('Restocked.');
    CloseTheBank;
  end;

procedure TeleHome;

var
  myPath:TPointArray;

  begin
    wait(1600 + random(300));
    Writeln('Teleporting to bank.');
    MouseEquippedItem('ring', 0);
    wait(50 + random(25))
    WaitOption('Castle Wars', 150);
    wait(2000 + random(500));
    Antiban;
    FindNormalRandoms;
    SPS_Setup(RUNESCAPE_SURFACE,['7_11','8_11','4_11','4_10','3_10','3_11']);
    myPath := [Point(1606, 4304), Point(1609, 4317), Point(1615, 4331), Point(1622, 4341)];
    writeln('path done');
    SPS_WalkPath(myPath);
  end;

procedure findalter;
var
x,y:integer;
myPath:TPointArray;

begin
    writeln ('looking for Alter');
    repeat
    (findobjcustom(x,y,['Ent','Enter','ruins'],[5176231,5111206,6347934],5))
    writeln('looooooookin');
    until
      (WaitUptext('Enter', 300))
      Writeln('Alter Found');
      movemouse(x,y);
      If(WaitUptext('Enter', 300)) then
        begin
          Mouse(x, y, 0, 0, true);
          wait(1500 + random (400));
          writeln ('should be in alter, going to mouse click');
          writeln ('make runes active!');
          MMouse(260, 16, 10, 5);
          repeat;
          WaitUpTextMulti(['Craft','rune','Altar'], 300)
          writeln('repeat!');
          SetupSRL;

          SPS_Setup(RUNESCAPE_SURFACE, ['0_1']);

          myPath := [Point(130, 424), Point(143, 402)];
          until
          (WaitUptext('Craft', 300));
          begin
          ClickMouse2(True);
          if WaitUpTextMulti(['Craft','rune','Altar'], 300) then
          writeln('made?');

        end
    end;
end;

procedure TeleSummon;

var
  myPath:TPointArray;
  x, y: Integer;

begin

  MouseBox(700,142,740,152,0);
  WaitOption('Interact', 200);
  wait(1200 + random(200));
  FindNPCChatText('Teleport', Clickleft)
  FindNormalRandoms;
  AntiBan;
  Wait(3000 + random(500));

  myPath := [Point(2981, 4663), Point(3002, 4645), Point(3028, 4636),
             Point(3066, 4636), Point(3105, 4632), Point(3137, 4623),
             Point(3165, 4598), Point(3186, 4574), Point(3213, 4561),
             Point(3239, 4558), Point(3265, 4559), Point(3295, 4569),
             Point(3309, 4579)];

  SPS_WalkPath(myPath);
wait(2000 + random(500))
 FindNormalRandoms;
  AntiBan;
  x:=MSCx
  y:=MSCy
  writeln ('trying to find Ruins');
  findalter;
  end;

procedure Recharge;

var
  i: integer;

begin
  OpenTheBank
  GetSummonPoints
  withdraw(6, 0, 1)

  CloseTheBank
  AntiBan;
  MouseItem(2,1);
  wait(600 + random(75));
  MouseItem(2,1);
  wait(600 + random(75));
  MouseItem(2,1);
  wait(600 + random(75));
  OpenTheBank
  i:= 0;
  while(ExistsItem(2)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit the Empty Vial.');
      Logout;
      TerminateScript;
    end;
    MouseItem(2, 1);
    Wait(600 + random(100))
  end;
end;

Procedure mainloop;
begin

  writeln ('loop done');
  Charges:= 8
  wait(500 + random(50));
  MouseBox(700,142,740,152,0);
  WaitOption('Interact', 200);
  Repeat
  Charges:= Charges - 1;
  TeleSummon;
  TeleHome;
  OpenTheBank
  DepositPouches;
  if Charges = 0 then
  begin
    NewRing;
  end;
  WithdrawPouch;
  SummonPouch;
  if GetSummonPoints <20 then
  Recharge;
  Timer:= Timer +1
  WithdrawIngredients;
  CurrentXp:= GetXPBarTotal;
  writeln('===========================================');
  writeln('==  Completed loads: ' + IntToStr(Timer));
  Writeln('==  Exp Gained: ' + IntToStr(CurrentXp - StartXp));
  Writeln('==  Time running: ' + TimeRunning);
  writeln('===========================================');
  Until(false)

end;


begin
  SetUpSRL;
  SetupSRL;
  SPS_Setup(RUNESCAPE_SURFACE,['7_11','8_11','4_11','4_10','3_10','3_11']);
  ActivateClient;
  DeclarePlayers;
  if not(loggedin) then
  LoginPlayer;
  mainloop;
  writeln('Start Up');
end.

Posting progress with pouch support

 //Pouch Support

procedure Pouch;

var
  i: integer;

begin
  OpenTheBank
  GetSummonPoints
  Summon Pouch;       // if false (already Summoned, Continue, if not Renews pouch
  Decaded; // run process to check for decayed pouches.

  withdraw(9, 25, 1) // withdraws essence

     MouseItem(5,1);          //Fill Pouch 1.
     wait(600 + random(75));
     ChooseOption('Fill')

          MouseItem(9,1);          //Fill Pouch 2.
          wait(600 + random(75));
          ChooseOption('Fill')

              withdraw(9, 25, 1)          // Fills The Rest Of The Invent With Ess.
              Wait(600 + random(100))

              MouseItem(13,1);         //Fill Pouch 3.
              wait(600 + random(75));
              ChooseOption('Fill')

                  MouseItem(17,1);         //Fill Pouch 4.
                  wait(600 + random(75));
                  ChooseOption('Fill')

                       withdraw(9, 25, 1)          // Fills The Rest Of The Invent With Ess.
                       Wait(600 + random(100))

  CloseTheBank

  end;

a few unnecessary begin/ends
funny standards
your break will only work once
you need some more failsafes


include some TPA's (overrated but i think necessary) and failsafes and i would have said yes

but for now, no. sorry

~shut

EDIT: keep it up though, your getting on well

Not going to vote, but I think you should work on your public relations before applying to SRL members. I haven't seen you much on the forums and in all honesty that is a massive portion of being a member. Activeness on the forums is a great way to show you care about the community you are part of.

Agree with both comments above, holding my vote.
But keep up the work you'll get there someday :)
Mat

if FindNormalRandoms then
  if not LoggedIn then
  begin;
  end else
  makecompass('N');
  if BankScreen = false then

Whaaaa? whats the point of checking for if not LoggedIn if you don't do anything special if you aren't?

Put:

Terminatescript;

In what PatDuffy says, so if its not logged in then it stops the script.
Mat

begin
     if (findobjcustom(x,y,['lose'],[8420225,8354175,7959417],5)) then
      begin
        Writeln('Gate Open');
        Summoningsymbol;
      end else
      begin
        Mouse(x,y,1,1,true);
        Writeln('Gate Closed - Opening Gate');
        wait(500+ random(250));
        summoningsymbol;
      end;
end;

Also, either I am reading this correctly or it completely is pointless. If it finds the object 'Closed' then the gate is open…how does that make sense.

From: PatDuffy

begin
     if (findobjcustom(x,y,['lose'],[8420225,8354175,7959417],5)) then
      begin
        Writeln('Gate Open');
        Summoningsymbol;
      end else
      begin
        Mouse(x,y,1,1,true);
        Writeln('Gate Closed - Opening Gate');
        wait(500+ random(250));
        summoningsymbol;
      end;
end;

Also, either I am reading this correctly or it completely is pointless. If it finds the object 'Closed' then the gate is open…how does that make sense.

It's looking for "Close" not "Closed", that is the issue you are having when reading it. It is also the issue the script will have when it finds a gate.

:S i thought id get a couple of vote.

this is one of the first scripts that i made, ran it for about 15hours + (4hours+ at a time)

currently running my mort myre fungi picker bot, but only really runs on my account because of house set up, and uses DTM's like rugs, portals and candles for guilded alter so wouldnt really work :S

didnt know this application would go so badly :s

Ill try again in about 6-8months

Yes if you reapply with the nature crafting script.

woopssss Sorry for misreading that :p

Why not add the nature crafter to this app? Might be able to change a few people's minds.

My Nature Runecrafting script, Abit messy as ive only just finished.

will this change your minds?

program JibbersNature;   // VERSION 0.1

{$DEFINE SMART}

{$i srl/srl.simba}
{$i sps/sps.simba}
{$i SRL/SRL/skill/summoning.simba}



var
  Charges, StartXP, CurrentXp, Timer: Integer;

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
    Active:= True; // leave this
    BoxRewards  := ['XP','xp','lamp'];
  end;
  loginplayer;
  StartXp:= GetXPBarTotal;

  loginplayer;

end;
procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 9;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer; //  Logging in...
end;

procedure AntiBan;

  begin
    case Random(500) of
    1..10: begin
             HoverSkill('Runecrafting', 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;

procedure NewRing;

    var
      i: Integer;
begin
if Charges = 0 then
  begin
    Writeln('Getting A new ring');
    WithdrawEx(8, 0, 1, ['Ring']);
    Writeln('Equiping Ring');
  end;
  i:= 0;
  wait(500+random(200));
  while(ExistsItem(2)) do
  begin
    i:= i + 1
    if i = 2 then
    begin
      Writeln('Unable to equip ring.');
      Logout;
      TerminateScript;
    end;
    MouseItem(2, 0);
    WaitOption('Wear', 150);

    Wait(600 + random(200));
  end;
  Writeln('Ring Equipped.');
  charges:= 8;
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.');
      Logout;
      TerminateScript;
    end;
  CloseBank;
  end;
  Writeln('Bank is closed');
  Wait(2000+random(550));
end;

procedure OpenTheBank;

var
  i: Integer;

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

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

end;

procedure SummonPouch;

var
  i: Integer;
  begin
    Writeln('...Summoning');
    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;
      CloseTheBank;
      MouseItem(2, 0);
      WaitOption('Summon', 200);
      Wait(550 + Random(100));
    end;
    Writeln('Kyatt is summoned');
  end;

procedure DepositPouches;
var
  i: Integer;

begin
  OpenTheBank;
  Writeln('Depositing items');
  i:= 0;
  while(ExistsItem(4)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit Empty Vial.');
      Logout;
      TerminateScript;
    end;
    MouseItem(4, 0);
    WaitOption('Deposit-All', 150);
    AntiBan;
    Writeln('Items Deposited.');
    Wait(600 + random(200));
  end;
end;

procedure WithdrawIngredients;
  begin
    OpenTheBank;
    Writeln('...Restocking');
    Withdraw(9, 0, 27);
    Writeln('Restocked.');
    CloseTheBank;
  end;

procedure TeleHome;

var
  myPath:TPointArray;

  begin
    wait(1600 + random(300));
    Writeln('Teleporting to bank.');
    MouseEquippedItem('ring', 0);
    wait(50 + random(25))
    WaitOption('Castle Wars', 150);
    wait(2000 + random(500));
    Antiban;
    FindNormalRandoms;
    SPS_Setup(RUNESCAPE_SURFACE,['7_11','8_11','4_11','4_10','3_10','3_11']);
    myPath := [Point(1606, 4304), Point(1609, 4317), Point(1615, 4331), Point(1622, 4341)];
    writeln('path done');
    SPS_WalkPath(myPath);
  end;

procedure findalter;
var
x,y:integer;
myPath:TPointArray;

begin
    writeln ('looking for Alter');
    repeat
    (findobjcustom(x,y,['Ent','Enter','ruins'],[5176231,5111206,6347934],5))
    writeln('looooooookin');
    until
      (WaitUptext('Enter', 300))
      Writeln('Alter Found');
      movemouse(x,y);
      If(WaitUptext('Enter', 300)) then
        begin
          Mouse(x, y, 0, 0, true);
          wait(1500 + random (400));
          writeln ('should be in alter, going to mouse click');
          writeln ('make runes active!');
          MMouse(260, 16, 10, 5);
          repeat;
          WaitUpTextMulti(['Craft','rune','Altar'], 300)
          writeln('repeat!');
          SetupSRL;

          SPS_Setup(RUNESCAPE_SURFACE, ['0_1']);

          myPath := [Point(130, 424), Point(143, 402)];
          until
          (WaitUptext('Craft', 300));
          begin
          ClickMouse2(True);
          if WaitUpTextMulti(['Craft','rune','Altar'], 300) then
          writeln('made?');

        end
    end;
end;

procedure TeleSummon;

var
  myPath:TPointArray;
  x, y: Integer;

begin

  MouseBox(700,142,740,152,0);
  WaitOption('Interact', 200);
  wait(1200 + random(200));
  FindNPCChatText('Teleport', Clickleft)
  FindNormalRandoms;
  AntiBan;
  Wait(3000 + random(500));

  myPath := [Point(2981, 4663), Point(3002, 4645), Point(3028, 4636),
             Point(3066, 4636), Point(3105, 4632), Point(3137, 4623),
             Point(3165, 4598), Point(3186, 4574), Point(3213, 4561),
             Point(3239, 4558), Point(3265, 4559), Point(3295, 4569),
             Point(3309, 4579)];

  SPS_WalkPath(myPath);
wait(2000 + random(500))
 FindNormalRandoms;
  AntiBan;
  x:=MSCx
  y:=MSCy
  writeln ('trying to find Ruins');
  findalter;
  end;

procedure Recharge;

var
  i: integer;

begin
  OpenTheBank
  GetSummonPoints
  withdraw(6, 0, 1)

  CloseTheBank
  AntiBan;
  MouseItem(2,1);
  wait(600 + random(75));
  MouseItem(2,1);
  wait(600 + random(75));
  MouseItem(2,1);
  wait(600 + random(75));
  OpenTheBank
  i:= 0;
  while(ExistsItem(2)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit the Empty Vial.');
      Logout;
      TerminateScript;
    end;
    MouseItem(2, 1);
    Wait(600 + random(100))
  end;
end;

Procedure mainloop;
begin

  writeln ('loop done');
  Charges:= 8
  wait(500 + random(50));
  MouseBox(700,142,740,152,0);
  WaitOption('Interact', 200);
  Repeat
  Charges:= Charges - 1;
  TeleSummon;
  TeleHome;
  OpenTheBank
  DepositPouches;
  if Charges = 0 then
  begin
    NewRing;
  end;
  WithdrawPouch;
  SummonPouch;
  if GetSummonPoints <20 then
  Recharge;
  Timer:= Timer +1
  WithdrawIngredients;
  CurrentXp:= GetXPBarTotal;
  writeln('===========================================');
  writeln('==  Completed loads: ' + IntToStr(Timer));
  Writeln('==  Exp Gained: ' + IntToStr(CurrentXp - StartXp));
  Writeln('==  Time running: ' + TimeRunning);
  writeln('===========================================');
  Until(false)

end;


begin
  SetUpSRL;
  SetupSRL;
  SPS_Setup(RUNESCAPE_SURFACE,['7_11','8_11','4_11','4_10','3_10','3_11']);
  ActivateClient;
  DeclarePlayers;
  if not(loggedin) then
  LoginPlayer;
  mainloop;
  writeln('Start Up');
end.

I still voted no. Why did you call SetupSRL twice btw?

Why do you check Booleans like this?

while BankScreen = true do

From: Echo_
I still voted no. Why did you call SetupSRL twice btw?

Same holding my vote tho.

From: Mat
Same holding my vote tho.

Just something i forgot to take out at the last minute.

currently have pouch support, waiting for pouch's to decay to check repairings working.

spell should be set up, just waiting for a full test run.

would just be nice to become a member, seeing well made scripts which have advance functions would really help me out. but will 11 no's and not even 1 yes. it seems pointless adapting this script:duh:

You won't find more advanced stuff here I can tell you that much.
Public scripts(MSI for example) have the most advanced stuff in them already imo, members scripts are the ones that the creators don't want to be public to avoid over-usage.

From: Sabzi
You won't find more advanced stuff here I can tell you that much.
Public scripts(MSI for example) have the most advanced stuff in them already imo, members scripts are the ones that the creators don't want to be public to avoid over-usage.

That, I can say that the 2/3 members scripts I have currently barely have anything detailed in them, they work and that's good enough for me :p

From: Kyle Undefined
Why do you check Booleans like this?

while BankScreen = true do

Some people (like me) do it because for some people (like me) it makes it easier to scan the code quickly with you eyes.


I'm giving you a yes :)

From: Hobbit
Some people (like me) do it because for some people (like me) it makes it easier to scan the code quickly with you eyes.


I'm giving you a yes :)

Hobbit, we should be able to rescind our votes.
Sometimes stuff happens like your dumb BlackBerry PlayBook chooses No instead of Yes :duh:

From: S1N
Hobbit, we should be able to rescind our votes.
Sometimes stuff happens like your dumb BlackBerry PlayBook chooses No instead of Yes :duh:

Just post saying you are changing your vote from "A" to "B" and a mod or admin will change the poll for you :)

It is still a No from me, even after finally having the time to re-read the Nature runecrafter.

I severely dislike that you have no custom functions in it, just procedures with a bit of MouseBoxing and FindObj's. While both have their good uses, they can easily be abused :p

I just do not get the feeling of a "detailed knowledge of the SRL Include" from the script.

It was only really work in progress, it now has pouch support, just wanted to put this script up at the fally summoning script was abit all over the place, just wanted to show i could script, locate items like doors, Ob, banker etc and you functions like teleport.

where as on this script i added checking summoning values and drinking a potion to renew points. this has now been changed to get the points from outside castle wars.

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 2 weeks time.


Cheers
Hobbit

RECENT UPDATE:

He plagiarized farmer jack's script. Even down to the spelling/grammar errors in comments.

http://villavu.com/forum/showthread.php?t=73000

Infracted + Temp ban

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

var
  Charges, StartXP, CurrentXp, Timer: Integer;


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
    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(500) 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;

//*****************************************************************************
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 WithdrawPouch;
begin
  Writeln('...Withdrawing pouch');
  OpenTheBank
  if UsingFamiliar = false then
  begin
    WithdrawEx(7, 0, 1, ['pirit']);
    Writeln('Pouch Withdrawn.');
  end else
  begin
    Writeln('Pouch unecessary, already summoned.');
  end;

end;

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

var
  i: Integer;
  begin
    Writeln('...Summoning Kyatt');
    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;
      CloseTheBank;
      MouseItem(4, 0);
      WaitOption('Summon', 200);
      Wait(550 + Random(100));
    end;
    Writeln('Kyatt is summoned');
  end;

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

begin
  OpenTheBank;
  Writeln('...Depositing items');
  i:= 0;
  while(ExistsItem(4)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit item A. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
    MouseItem(4, 0);
    WaitOption('Deposit-All', 150);
    AntiBan;
    Writeln('Items Deposited.');
    Wait(600 + random(200));
  end;
end;

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

//*****************************************************************************
procedure TeleHome;

var
  myPath:TPointArray;

  begin
    Writeln('...Teleporting to bank.');
    MouseEquippedItem('ring', 0);
    wait(50 + random(25))
    WaitOption('Castle Wars', 150);
    wait(3000 + random(500));
    Antiban;
    FindNormalRandoms;
    SetupSRL;
    SPS_Setup(RUNESCAPE_SURFACE,['4_11','4_10','3_10','3_11']);//SPS Areas
    myPath := [Point(1606, 4304), Point(1609, 4317), Point(1615, 4331), Point(1622, 4341)];
    SPS_WalkPath(myPath);
  end;

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

var
  myPath:TPointArray;
  x, y: Integer;

begin

  MouseBox(700,142,740,152,0);
  WaitOption('Interact', 200);
  wait(1200 + random(200));
  FindNPCChatText('Teleport', Clickleft)
  FindNormalRandoms;
  AntiBan;
  Wait(3000 + random(500));

  SetupSRL;
  SPS_Setup(RUNESCAPE_SURFACE,['2_5','3_5','3_6']);//SPS Areas
  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);
wait(2000 + random(500))
 FindNormalRandoms;
  AntiBan;
  x:=MSCx
  y:=MSCy
  If FindObjTPA(x, y, 4017499, 1, 1, 10, 10, 10, ['pen']) Then
  begin
  Writeln('...Opening Trapdoor')
     Mouse(x, y, 5, 5, True);
     wait(3050 + random(250));
  end;
  x:=MSCx
  y:=MSCy
    If FindObjTPA(x, y, 855310, 1, 1, 10, 10, 50, ['limb-down']) Then
  begin
  Writeln('...Climbing down trapdoor')
     Mouse(x, y, 1, 1, True);
     wait(4000 + random(250));
  end;
   FindNormalRandoms;



end;



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

    var
      i: Integer;
begin
if Charges = 0 then
  begin
    Writeln('...Obtaining new ring');
    WithdrawEx(8, 0, 1, ['Ring']);
    Writeln('Ring obtained');
    Writeln('...Equiping Ring');
  end;
  i:= 0;
  wait(500+random(200));
  while(ExistsItem(4)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to equip ring.');
      Logout;
      TerminateScript;
    end;
    MouseItem(4, 0);
    WaitOption('Wear', 150);

    Wait(600 + random(200));
  end;
  Writeln('Ring Equipped.');
  charges:= 8;
end;

//*****************************************************************************
procedure MakePouches;

var
  x, y: Integer;

begin
  x:=MSCx
  y:=MSCy
  MouseBox(230, 310, 270, 335, 1)
  AntiBan;
  wait(2750+random(500))
  if FindObjCustom(x, y, ['Infuse', 'Pouch', 'Obelisk'], [1134200, 6921916], 1) then
    begin
    Wait(100 + random(25));
    Mouse(x, y, 5, 5, True);
  end;
  wait(1850 + random(250));
  AntiBan;
  MouseBox(51, 72, 78, 96, 0);
  WaitOption('Infuse-All', 400)
  wait(750 + random(150));

end;

//*****************************************************************************
procedure Recharge;

var
  i: integer;

begin
  OpenTheBank
  GetSummonPoints
  withdraw(6, 0, 1)

  CloseTheBank
  AntiBan;
  MouseItem(4,1);
  wait(600 + random(75));
  MouseItem(4,1);
  wait(600 + random(75));
  MouseItem(4,1);
  wait(600 + random(75));
  OpenTheBank
  i:= 0;
  while(ExistsItem(4)) do
  begin
    i:= i + 1
    if i = 4 then
    begin
      Writeln('Unable to deposit item A. SCRIPT STOPPING');
      Logout;
      TerminateScript;
    end;
    MouseItem(4, 1);
    Wait(600 + random(100))
  end;
end;



//*****************************************************************************
begin

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  if not(loggedin) then
  LoginPlayer;
  Charges:= 8
  wait(500 + random(50));
  MouseBox(700,142,740,152,0);
  WaitOption('Interact', 200);
  Repeat
  Charges:= Charges - 1;
  TeleSummon;
  MakePouches;
  TeleHome;
  OpenTheBank
  DepositPouches;
  if Charges = 0 then
  begin
    NewRing;
  end;
  WithdrawPouch;
  SummonPouch;
  if GetSummonPoints <20 then
  Recharge;
  Timer:= Timer +1
  WithdrawIngredients;
  CurrentXp:= GetXPBarTotal;
  writeln('<3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3 <3');
  writeln('Completed loads: ' + IntToStr(Timer));
  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');
  Until(false)

end.