Results 1 to 10 of 10

Thread: [Summoner] Fally -> Taverly

  1. #1
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [Summoner] Fally -> Taverly

    Well so many people have kept asking for this. I know thres one out, but this one is very simple!

    item set up - Invent can be in any order in the top row apart from fally teleport tablet!
    Bank only needs 2nd summoning item in 1st spot - ring of dueling etc doenst need to be there.







    1st item in yout bank HAS to be 2nd item for summoning.

    This Script was a flax picker converted into a iron miner converted into a blue dragon scale collector converted into a summoner.

    it works well for me, done about 800k summoning xp in total, so bugs are worked out quiet well.

    BTW: Im editing the script still - Adding on different anti-bans, sometimes it cant get down the trap door because someone else is on it, then a text will appear saying "we should be at tele spot" Fixing that bug now.

    Enjoy... Plz Comment... 1st posted script. When I get SRL Membership ill upload my kick-ass Mort Myre Script

    [EDIT] small update. Adding Need procedure: PeteThong. Basically if it all goes petethong, its going to tele and rebank.

    Simba Code:
    program JiBBerSuMMonEdMe;
    {$i srl/srl/misc/smart.simba}
    {$loadlib sps}
    {$i srl/srl.simba}
    {$i sps/sps.simba}

    const
      SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
      SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)
    Var
    X, Y, T, W, Breaks, Loads: Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // This is set to the total amount of players,  for now, just keep it set as 1
      NumberOfPlayers(HowManyPlayers); // Don't touch
      CurrentPlayer := 0; // This is the player to start with; the first player will always be 0

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
      Players[0].Integers[1] := 200;//# of loads to do.
      Players[0].Integers[2] := 720; // Time before breaking ( In minutes)
    end;

    procedure SetupLogin;
    begin
      ClearDebug;
      // Setting up SMART;
      Smart_Server := 9;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      SetupSRLStats(295, SRLStats_User, SRLStats_Password);
      DeclarePlayers;
      LoginPlayer; //  Logging in...
    end;

    procedure BreakTime;
    var
    s, i: Integer;
    begin
      if (s = 0) then
        s := Players[0].Integers[2] * 60000; //+ RandomRange(300000, 600000);
      if T = 1 then
      begin
        W:= GetTimeRunning;
        if (W > s) then
        begin
          Logout;
          i:= RandomRange(10, 15);
          Writeln('Taking a break for ' + IntToStr(i) + ' minutes');
          i:= i * 60000;
          Wait(i);
          T := 0;
          s:= W + s;
          Inc(Breaks);
          LoginPlayer;
        end;
      end else
      if T = 0 then
      begin
        T := T + 1;
      end;

    end;

    procedure SetupSps;

    begin
      SPS_Setup(RUNESCAPE_SURFACE, ['9_7','8_7']);
      SPS_Continue := false;
    end;


    procedure Antiban; //idea taken from Coh3n's tutorial.
    begin
      if not (LoggedIn) then
        Exit;
      begin
        case Random(100) of // Random(100) generates a random integer from 0 to 59
          10: RandomRClick;
          30: PickUpMouse;
          50: RandomMovement;
          70: BoredHuman;
          89: ExamineInv;
        end;
      end;
    end;

    procedure RestUp;
    begin
      if not (LoggedIn) then
        Exit;
      begin
        SetRest;
        while not RunEnergy(95) do
        begin
          Antiban;
          Wait(Random(1000));
        end;
      end;
    end;

    Procedure PeteThong;

    var
    Pt: TPointArray;
    p, h:  integer;


    begin;
          writeln ('petethong active');

      repeat
         if Bankscreen = False then
         wait(1000);
         p := 0 + 1;
         until BankScreen or (p = 10);
         writeln ('We Havnt Banked In 2 Minutes, Were Stuck');
         writeln('.... tele time.');
         writeln ('its all gone Pete Thong! ARRRHHH, Lets Restart');
         wait(2000)
         mousebox(690,222,710,227,1);
         writeln ('Please Say Where Back At Fally!')

         if not (LoggedIn) then
        Exit;
      if not FindNormalRandoms then
      begin
        MakeCompass('n');
        Wait(Random(1000));
        Pt     :=   [Point(3697, 3129), Point(3669, 3128),
                     Point(3642, 3139), Point(3618, 3158),
                     Point(3622, 3176)];
        if SPS_WalkPath(Pt) then
          Writeln('At Bank');
        Wait(RandomRange(1200, 1500));
      end;

    begin
       If (findsymbol(x,y,'Bank')) then
        begin
        mouse(x,y,1,1,true);
        Writeln('Bank Found');
        wait(280+random(220));
        end else
        begin
        Writeln('Didnt Find Banker, After Searching Again!');
        Players[CurrentPlayer].Active := False;
        Players[CurrentPlayer].Loc := 'Going To Bank! We Found It';
        end;
    end;
    end;
    procedure WithdrawBank; //Finding Bank Procedure

    var
     Tr, Bo: integer;
     x, y: integer;

    begin
      if FindNormalRandoms then   //finds randoms and if in random, logs out if
      if not LoggedIn then
      begin;
      end else
      makecompass('N');
      if BankScreen = false then
      begin

        writeln('Trying To Open Fally Bank...');
        MakeCompass('N');
        OpenBankFast('fwb');
        end;

      repeat
        wait(10);
        Tr := Tr +1;
      until (Tr = 1000) or (BankScreen = true);

      if BankScreen = True then
        begin
          Writeln('Bank successfully Opened');
          wait(1000 + random(1000));
          if BankScreen then
          begin
            Wait (200 + Random(300));
            FixBank;
          if (InvFull) then
            Mousebox(570, 260, 585, 265, 3);
            writeln('full invent');
            begin
              GetMousePos(x, y);
              Mouse(x, y, 0, 0, false);
              Wait(380 + random(50));
              ChooseOption('sit-All');
            end;
            ActivateClient;
          end;
             begin
        MouseBox(45, 100, 60, 113, 3);
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, false);
          Wait(380 + random(50));
          ChooseOption('raw-All');
        end;
       end;
       begin
        MouseBox(45, 100, 60, 113, 3);
       end;
        end else
        if BankScreen = False then
          begin
          writeln('Fuck!');
            begin
            writeln ('Were Lost');
            writeln ('its all gone Pete Thong! ARRRHHH, Lets Restart');
            writeln('Going to Tele!');
            mousebox(690,222,710,227,1);
            end;
          end;
          CloseBank;
    end;
    function Walking(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;// credit to Camaro' for the tutorial and function!
    var
      i, x, y, rx, ry: Integer;
      TPA: TPointArray;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
      FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
      SortTPAFrom(TPA, SortFrom);

      for i := 0 to High(TPA) do
      begin
        x := TPA[i].x;
        y := TPA[i].y;

        rx := RandomRange(-6, 6);
        ry := RandomRange(-6, 6);
        if (not rs_OnMinimap(x + rx, y + ry)) then
          Continue;

        Mouse(x + rx, y + ry, 0, 0, true);
        FFlag(0);
        Wait(200 + Random(500));
        Result := True;
        Break;
      end;
    end;

    procedure WalkToStore;
    var
    BankToStore: TPointArray;

    begin
      if not (LoggedIn) then
        Exit;
      if not FindNormalRandoms then
      begin
        if not RunEnergy(25) then
          RestUp;
        MakeCompass('n');
        Writeln('Walking to Taverly Summoning Store...');
        Wait(Random(1000));
        BankToStore :=  [Point(3615, 3174), Point(3617, 3156), Point(3640, 3148),
                        Point(3649, 3129), Point(3681, 3125), Point(3698, 3103),
                        Point(3699, 3065), Point(3701, 3029), Point(3694, 3004),
                        Point(3665, 2982), Point(3642, 2964), Point(3638, 2946),
                        Point(3633, 2919), Point(3627, 2886), Point(3617, 2855),
                        Point(3593, 2847), Point(3583, 2847)];
        if SPS_WalkPath(BankToStore) then
          Writeln('Near The Gate?');
        Wait(RandomRange(1200, 1500));
      end;
    end;
    procedure Summoningsymbol;
    var
    x,y:integer;

    begin
       If (findsymbol(x,y,'summoning store')) then
        begin
        mouse(x,y,1,1,true);
        Writeln('Summoning Store Found');
        wait(280+random(220));
        end else
        begin
        Writeln('Summoning Store Not Found');
        Players[CurrentPlayer].Active := False;
        Players[CurrentPlayer].Loc := 'Walking to Summoning Store';
        PeteThong;
        end;
    end;
    procedure CheckGate;
    var
    x,y:integer;

    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;
    procedure findTD;
    var
    x,y,t:integer;

    begin
        t:=t+100;
        if (findobjcustom(x,y,['pen','limb'],[855309, 921102, 798517],5))then
        begin
          Writeln('TrapDoor found');
          movemouse(x,y);
          If(WaitUptext('Open', 300)) then
            begin
              Mouse(x, y, 0, 0, true);
            repeat
              wait(t);
            until (not IsMoving)
              wait(300);
              mousebox(232,154,251,152,1);
            end else
            If(WaitUptext('Climb', 300)) then
              begin
                Mouse(x, y, 0, 0, true);
              end;
          end;
    end;
    procedure TrapDoor;
    var
     x,y,t: integer;

    begin
    repeat
    wait(t);
    until (Not isMoving)
    Writeln('Trying to Find TrapDoor');
    if FindNormalRandoms then
      if not LoggedIn then
      begin
        Players[CurrentPlayer].Active := False;
        Players[CurrentPlayer].Loc := 'Inactive.';
        Exit;
      end else
        t:=t+1000;
        Makecompass(115+random(5));
        wait(1000 + random(500));
      repeat
        wait(t);
      until (Not IsMoving)
        if (Findcolortolerance(x,y,859681,MSX1,MSY1,MSX2,MSY2,30)) then
        begin
          findTD;
        end else
        begin
          summoningsymbol;
          repeat
          wait(t);
          until (Not IsMoving)
          findTD;
        end;
    end;
    procedure findob;
    var
    x,y,t:integer;

    begin
        t:=t+100;
        if (findobjcustom(x,y,['pen','limb'],[855309, 921102, 798517],5))then
        begin
          Writeln('TrapDoor found');
          movemouse(x,y);
          If(WaitUptext('Open', 300)) then
            begin
              Mouse(x, y, 0, 0, true);
            repeat
              wait(t);
            until (not IsMoving)
              wait(300);
              mousebox(232,154,251,152,1);
            end else
            If(WaitUptext('Climb', 300)) then
              begin
                Mouse(x, y, 0, 0, true);
              end;
          end;
    end;
    procedure MakePouch;

    var
      x,y,c,t,a,b:integer;

    begin
    if FindNormalRandoms then
      if not LoggedIn then
       begin
        Players[CurrentPlayer].Active := False;
        Players[CurrentPlayer].Loc := 'Inactive.';
        Exit;
       end else
        c := 105 + random(30);
        makecompass(c);
      repeat
        wait(t);
        t := t+1;
      until (not IsMoving) or (t>=1000)
        wait(1000 + random(500));
        if (findobjcustom(x,y,['nfuse','ouch'],[2389103, 2058596, 2058082,1992032],5)) then
          begin
            writeln('Obelisk Found');
            movemouse(x,y);
            wait(500+ random(250));
            mouse(x,y,0,0,true);
            repeat
              wait(t);
            until (Not IsMoving)
            if (findcolor(a,b,105157,200,35,210,45)) then
              begin
                Mousebox(50,71,75,80,3);
                GetMousePos(x, y);
                Mouse(x, y, 0, 0, false);
                Wait(1000 + random(50));
                ChooseOption('use-All');
                Wait(1200 + random(730));
                writeln ('made Pouch, Teleing');
                Wait(800 + random(600));
                mousebox(690,222,710,227,1);
              end else
              begin
                Writeln('Checkbox not toggled - Toggling Checkbox');
                wait(200);
                Mousebox(200,35,210,45,1);
                Mousebox(50,71,75,80,3);
                GetMousePos(x, y);
                Mouse(x, y, 0, 0, false);
                Wait(1000 + random(50));
                ChooseOption('use-All');
                Wait(1000 + random(500));
                mousebox(690,222,710,227,1);
              end;
          end;
    end;
    procedure BacktoBank;  //Sps
    var
    TeleToBank: TPointArray;

    begin
      if not (LoggedIn) then
        Exit;
      if not FindNormalRandoms then
      begin
        if not RunEnergy(25) then
          RestUp;
        MakeCompass('n');
        Writeln('We Should Be At The Tele Spot...');
        Wait(Random(1000));
        TeleToBank :=  [Point(3697, 3129), Point(3669, 3128),
                        Point(3642, 3139), Point(3618, 3158),
                        Point(3622, 3176)];
        if SPS_WalkPath(TeleToBank) then
          Writeln('At Bank');
        Wait(RandomRange(1200, 1500));
      end;
    end;


    procedure MainLoop;
    begin
      SetupLogin;
      SetupSps;
      T := 0;
      for Loads := 0 to Players[0].Integers[1] do
      begin
        if not (LoggedIn) then
        Break;
        BreakTime;
        WithdrawBank;
        WalkToStore;
        CheckGate;
        TrapDoor;
        MakePouch;
        BackToBank;

      end;
    end;

    begin
      MainLoop;
    end.
    Last edited by jibber; 01-25-2012 at 10:36 PM.

  2. #2
    Join Date
    Dec 2007
    Posts
    289
    Mentioned
    4 Post(s)
    Quoted
    86 Post(s)

    Default

    Not too sure why you've got
    procedure StartFancy;

    I mean, I get that it used to be SilentSpys Flax Collector but is it necessary to have that in there still? >.>

  3. #3
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by honeyhoney View Post
    Not too sure why you've got
    procedure StartFancy;

    I mean, I get that it used to be SilentSpys Flax Collector but is it necessary to have that in there still? >.>
    sorry posted wrong script, that was mid work, before it could even could summon. Used hes SPS Setup for walking. changing now, sorry
    Last edited by jibber; 01-25-2012 at 04:52 PM.

  4. #4
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Me being stupid forgot to take my username and password and bank pin off my script! gf me! btw who ever when on my account you are really dumb! u didnt see the santa near the top of the bank! and GREEN PHAT in collection box!

    but gf u still got about 60m :S

  5. #5
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by jibber View Post
    Me being stupid forgot to take my username and password and bank pin off my script! gf me! btw who ever when on my account you are really dumb! u didnt see the santa near the top of the bank! and GREEN PHAT in collection box!

    but gf u still got about 60m :S
    I'm sure when you get to hold of the account you can report the IP to the admins! Hope this gets settled out. Very well written first script, too!

    ~Eerik.

  6. #6
    Join Date
    Nov 2011
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Script is very nice looking, will try it out when I have some cash to spend summoning.

  7. #7
    Join Date
    Feb 2008
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when you post up a script to help others you would have thought they would have the common decency not to steal from you... hope you weren't hit too hard.

    I'll be sure to try this out soon and post a proggy once i have one

    EDIT: do you need to use falador teleports for this script to work or does it walk back?
    Last edited by Giant Panda; 01-25-2012 at 09:31 PM.

  8. #8
    Join Date
    Dec 2011
    Posts
    273
    Mentioned
    0 Post(s)
    Quoted
    39 Post(s)

    Default

    I have a custom Taverly House Method if you want.. And banks at Castlewars.. It's apart of my first script if you want it.. PM ME
    "What can't hurt you, try it. What can kill you, do it!"

    Scripts Completed: 3
    Amount Released : 2

  9. #9
    Join Date
    Dec 2011
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is it possible for you to add a simple download option. For some reason my Copy and pastea rarely work.


    Thanks

    Demon

  10. #10
    Join Date
    Jan 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill look up how to add a download verion.

    i can adapt the script so it can walk back instead of teleing, but need to do it tomoz

    (went corps last night, got ely ) so im good for cash now...

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •